Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
sub foo(\@\$) {
...

print "ary: (@ary)\n";
print "foo: $foo\n";
  2. or download this
    foo args: ('ARRAY(0x8167870)','SCALAR(0x8167978)')
1st argument = ARRAY(0x8167870); content =('foo','bar','baz')
2nd argument = SCALAR(0x8167978); content = 'blah'
ary: (foo bar baz blah)
foo: blurf