use Digest::MD5;
use IO::File;
my $chk = Digest::MD5->new();
foreach my $file (@ARGV)
{
$chk->addfile(IO::File->new($file));
print "$file -> ",$chk->hexdigest,"\n";
}
The additional details could be found on [...]
|
||||||||
|
use Digest::MD5; my $chk = Digest::MD5->new(); foreach my $file (@ARGV) print "$file -> ",$chk->hexdigest,"\n"; The additional details could be found on [...] ls -1 | cpio -o | cpio -ivt | awk ‘{print $NF, $(NF-1), $(NF-4), $(NF-3) }’ Warning: I/O expensive for the large files! Perl: @a = localtime((stat($my_file))[9]); [...] The easiest way is to use specialized package (like Date::Calc). #!/usr/bin/perl $year=$ARGV[ 0 ]; my ( $G , $C , $H, $I, $J , $L ); $G = $year % 19 ; |
||||||||
|
Copyright © 2010 MemoSoup - All Rights Reserved
|
||||||||