Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
  2. or download this
    use warnings;
  3. or download this
    use Strict;
use File::Stat;
use Digest::MD5;

print "Enter the Path where all the data files are available:\t";
  4. or download this
    $sourcedir= <STDIN>;
chomp($sourcedir);
  5. or download this
    open(LOG ,">>D:\\prad\\log1.csv");
  6. or download this
    open my $fh, '>>', 'path/to/file' or die $!;