in reply to Re: 'packlist'/'unpackstring' in XS
in thread 'packlist'/'unpackstring' in XS

char *str = "Preved!!!";
char *pat = "C*";

dSP;
PUTBACK;
int n = unpackstring(pat, pat + 2, str, str + strlen(str), 0);
SPAGAIN;

AV*   array2 = POPs;

printf("%d, %d\n", n, av_len(array2));

=>>>

9, 44939024

[download]
array2 is not a array pointer after POPs...

Replies are listed 'Best First'.
Re^3: 'packlist'/'unpackstring' in XS
by Anonymous Monk on Mar 22, 2017 at 04:46 UTC
    Thank you all, I found a solution 
    for (int c = n - 1; c >= 0; c--) {
 int a = POPi;
 printf("%c\n", a);
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom