Help for this page

Select Code to Download


  1. or download this
    sub x{ my $y; sub z{ say $y; } };;
Variable "$y" will not stay shared at ...
  2. or download this
    #! perl -slw
use strict;
...
Jan 1997
Jan 1998
Dec 1998
  3. or download this
    print for map{
     ## remove them once sorted
...
     $num += 1900 if $num <= 99;
     pack 'nnA*', $num, $months{ $alpha }, $_;
 } <DATA>;