Help for this page

Select Code to Download


  1. or download this
    #!/bin/perl -w
use strict;
...

close (NEWFILE);
close REGFILE;
  2. or download this
    #!/bin/perl -w
use strict;

...

close (NEWFILE);
close( REGFILE) || die "could not sort $datadir/projects.dat: $!"; # i
+n this case the error happens when you close the file