Help for this page

Select Code to Download

Select or download this

    my @list = ('a', 'b', 1, [1,2,3], 'c', {z=>1,y=>2});
    print myfunc(\@list);
    # prints 'a,b,1,ARRAY(1-2-3),c,HASH(z1-y2)';

Select or download this

#include "EXTERN.h"
#include "perl.h"
...
    EXTEND(SP,1);
    PUSHs(sv_2mortal(result));