Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl
# script 1
...
store \%eTAG, 'fileHash.dat';

exit 0;
  2. or download this
    #!/usr/bin/perl
# Script #2
...

foreach $i (keys %eTAG) { print "$i\n"; }
exit 0;
  3. or download this
    #/usr/bin/perl
# script 1 JSON version
...
open(OFIL,">fileHash.dat"); print OFIL $JSONdata; close(OFIL);

exit 0;
  4. or download this
    #!/usr/bin/perl
# Script #2 JSON version
...

foreach $i (keys %eTAG) { print "$i $eTAG{$i}{'mpg'}\n"; }
exit 0;