Acorn User 10/AU_CD10.iso/Updates/Perl/Non-RPC/!Perl/scripts/TestSystem

Text File | 1997-02-21 | 285b | 9 lines

system( '*/@.perl -e "print \"hello world\\\\n\\";"' );
system( '*/@.perl -e "print \"hello with meta*chars\\\\n\";"' );
system( "*echo", "hello", "from", "exec" );

$rc = system( '*/@.perl -e "print \"Exiting with 2\\\\n\"; exit 2;"' );

print "\$rc = $rc \n";
print "Still here!\n";