Select Code to Download

#ifndef INCLUDE__PRINTARRAYS_PRINTFUNC__H
#define INCLUDE__PRINTARRAYS_PRINTFUNC__H
...

#endif

#include <stdio.h>
#include <string.h>
...
        }
}

use ExtUtils::MakeMaker;

...
);

__END__

#include "EXTERN.h"
#include "perl.h"
...
print_array_char(array)
        const char *array

void
...
        print_array_int((const int *)arraypacked, len);

package PrintArrays;
use warnings;
...
}
1;
__END__

perl -I./blib/lib -I./blib/arch -we 'use PrintArrays qw(print_array_ch
+ar print_array_int2); print_array_char("grt"); $arr = [42,52,12,46,68
+]; print_array_int2($arr);'

Length of char array is 3,
Element array[0] = g,
...
Element array[2] = 12,
Element array[3] = 46,
Element array[4] = 68,

void
...
        print_array_int(arrayc, len);
        Safefree(arrayc);

perl -I./blib/lib -I./blib/arch -we 'use PrintArrays qw(print_array_in
+t); $arr = [42,52,12,46,68]; print_array_int($arr);'

Length of int array is 5,
Element array[0] = 42,
...
Element array[2] = 12,
Element array[3] = 46,
Element array[4] = 68,