Help for this page

Select Code to Download


  1. or download this
          1 #!/usr/bin/perl -w
          2 use strict;
    ...
         36
         37   close $file or die "Can't close $filename: $!\n";
         38 }
    
  2. or download this
        unless(@{$listref->[$c]} and $_ != $listref->[$c][0]) {
          push @{$listref->[$c]}, $_;
        } else {
          push @{$listref->[$c]}, ' ';
        }