Help for this page

Select Code to Download


  1. or download this
    $foo X= $bar;
# is short for:
$foo = $foo X $bar;
  2. or download this
    $foo += $bar;
# is short for:
...
$foo *= $bar;
# is short for:
$foo = $foo * $bar;
  3. or download this
    $OUTFH{$name} = $OUTFH{$name} || IO::File->new(">g:\\perl_scripts\\$na
+me.log");
$FH           = $OUTFH{$name} or die $!;
  4. or download this
    my $result = $cache{$input} ||= my_function($input);