Help for this page

Select Code to Download


  1. or download this
    my @keyed_data = map { print qq{Number $_: }; scalar <> } (1 .. 5);
  2. or download this
    print sort { $a <=> $b } @keyed_data;
  3. or download this
    if ($a > $b {$bin = $b; $b = $a; $a = $bin;
print "nThis is line 1 $a $b \n";}
  4. or download this
    if ($a > $b {
    $bin = $b; $b = $a; $a = $bin;
    print "nThis is line 1 $a $b \n";
}