Warning. No Inline C functions bound to Perl
Check your C function definition(s) for Inline compatibility
####
#!C:\Perl\bin\perl.exe -w
#Inline1.pl
use Inline (
C => 'DATA' );
main();
__DATA__
__C__
int main( int argc, char *argv ) {
printf( "%d - %s\n", argc, argv );
return;
}
####
Usage: main::main(argc, argv) at c:\test\junk7.pl line 7.
####
#!C:\Perl\bin\perl.exe -w
#Inline1.pl
use Inline (
C => 'DATA' );
main( 3, 'fred' );
__DATA__
__C__
int main( int argc, char *argv ) {
printf( "%d - %s\n", argc, argv );
return;
}
####
c:\test>junk7
3 - fred
####
#!C:\Perl\bin\perl.exe -w
#Inline1.pl
use Inline ( C => 'DATA' );
main( scalar @ARGV, \@ARGV );
__DATA__
__C__
int main( int argc, AV *argv ) {
int i;
for( i=0; i< argc; i++ ) {
printf( "%s\n", SvPVX( *av_fetch( argv, i, NULL ) ) );
}
return 0;
}
####
c:\test>junk7 1 fred bill 3.2
1
fred
bill
3.2