Thread Perlxs: array als eingabewerte und Rückgabewerte (7 answers)
Opened by blaise4714 at 2007-05-10 14:50

murphy
 2007-05-11 19:39
#76619 #76619
User since
2004-07-19
1776 Artikel
HausmeisterIn
[Homepage]
user image
Ich habe nochmal kurz die Dokumentation aufgeschlagen und eine Beispielfunktion gebastelt:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
AV *frobnicate(AV *foo)
INIT:
int i;

CODE:
RETVAL = newAV();
sv_2mortal((SV *)RETVAL);

for (i = 0; i < av_len(foo); i += 2) {
SV **cell = av_fetch(foo, i, 0);
if (cell && *cell)
av_push(RETVAL, SvREFCNT_inc(*cell));
}

OUTPUT:
RETVAL


Diese unglaublich sinnvolle Funktion liest aus der ihr übergebenen Arrayreferenz jedes zweite Element aus und hängt es an eine neue Arrayreferenz an, die sie erstellt und zurückgibt.
When C++ is your hammer, every problem looks like your thumb.

View full thread Perlxs: array als eingabewerte und Rückgabewerte