Hi,
Fernando Santagata said:
I my case, what I was trying to do is getting some strings in order to pass
them over to a C function via NativeCall.
Being sure the passed value was actually a string is not a whim, but would
be useful in avoiding a segmentation fault. Yet I figure that as long as
anyone behaves it will all run smoothly enough and I understand that using
Perl6 to interface one's program to a C library is not the best use case for
a high level functional language ;-)
Does this work for you?
sub test(Str :$format, Str :@filter) {
say $format.WHAT;
say @filter.WHAT;
}
my Str @f = ("a", "b", "1");
test format => "gnutar", filter => @f;
- Salve
--
#!/usr/bin/env perl
sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print# Salve Joshua Nilsen
getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':50,$'.# <s...@foo.no>
'3!=0"59,6!`%%P\0!1)46%!F.Q`%01,`'."\n"));eval "&{'@_'}"; __END__ is near! :)
