topic Perl-scripting HELP in Operating System - Linux

Perl-scripting HELP

Stanimir — Thu, 25 Nov 2004 13:24:43 GMT

Please a little help!
I'm trying to create hash named %ARR the result of command OS-command "cksum" in Perl script.

Something like:

%ARR=system( "cksum * | awk '{print \$1}" );

the (keys %ARR) must be = cksum's of files into current dir

the (values %ARR) must be = filename's of files into current dir.

Any examples? :)

Re: Perl-scripting HELP

H.Merijn Brand (procura — Thu, 25 Nov 2004 13:33:15 GMT

# man Digest::MD5

use Digest::MD5 qw( md5_hex );
use File::Find;
my %arr;
find (sub {
-f or return;
local $/;
open my $p, "< $_" or die "$_: $!\n";
my $sum = md5_hex (<$p>);
$arr{$sum} = $_;
}, ".");

This will NOT check if there are more than one files with the same MD5

Enjoy, Have FUN! H.Merijn

Re: Perl-scripting HELP

H.Merijn Brand (procura — Thu, 25 Nov 2004 14:06:11 GMT

for extra uniqueness, change that to

use Digest::MD5 qw( md5_hex );
use Digest::SHA1 qw( sha1_hex );
use File::Find;
my %arr;
find (sub {
-f or return;
local $/;
open my $p, "< $_" or die "$_: $!\n";
my $f = <$p>;
my $sum = md5_hex ($f) . sha1_hex ($f);
$arr{$sum} = $_;
}, ".");

Enjoy, Have FUN! H.Merijn

Re: Perl-scripting HELP

Stanimir — Fri, 26 Nov 2004 10:19:33 GMT

Thanx, it works !!!

Re: Perl-scripting HELP

Jeff Smith — Thu, 10 Nov 2005 17:45:49 GMT

Thanks guys.. saved me some work.. I appreciate it!