Help for this page

Select Code to Download


  1. or download this
    $_ = "#x";
my @a = qw/b c/;
...
bar /#(\w+)/, @a;
quz /#(\w+)/, @a;
baz /#(\w+)/, @a;
  2. or download this
    sub foo       { print Dumper(\@_) }
sub bar ()    { print Dumper(\@_) }
sub quz ($)   { print Dumper(\@_) }
sub baz ($\@) { print Dumper(\@_) }
  3. or download this
    foo( /#(\w+)/, @a );
(  bar() /  # division; "#(\w+)/, @a;" is a comment
   quz( /#(\w+)/ )
), @a;  # void context
&baz( scalar(/#(\w+)/), \@a );
  4. or download this
    $VAR1 = ['x','b','c'];   # sub foo
$VAR1 = [];              # sub bar ()
$VAR1 = [1];             # sub quz ($)
$VAR1 = [1, ['b','c']];  # sub baz ($\@)