Help for this page

Select Code to Download


  1. or download this
    use File::Find;
use strict;
...
#        print "$File::Find::name\n";
    }
}
  2. or download this
    47     open $OFH, ">", $directory_name . "\\" . $output_file_name
        or die "Could not open output file: $output_file_name\n$!";
  3. or download this
    open $OFH, ">:raw", $directory_name . "\\" . $output_file_name