Help for this page

Select Code to Download


  1. or download this
    # ...
    @r = <DATFH>;
    chomp @r;
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
    }
    
    close $datfh or die "$file: close(ro) failed: $!\n";