Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    print MYFILE2 $str2;
    close(MYFILE2);
} # end write_file
  2. or download this
    @files = <$startdir/$path/$name/*>;
$count = @files;