Help for this page

Select Code to Download


  1. or download this
    $_ = "ace";
my($a, $b, $c) = (/a/, /b/, /c/);
  2. or download this
    my %foo = (BAR => $cgi->param('bar'),
           BAZ => $cgi->param('baz'),
           ZOT => $cgi->param('zot'),
          );
  3. or download this
    use subs qw|lc|;

sub lc { lc shift }
print lc("BAR");
  4. or download this
    use subs qw|lc|;

sub lc { CORE::lc shift }
print lc("BAR");