ja, dann sehe ich kein problem. wenn du weisst, wie man das mit einer datei macht, sollten auch mehrere leicht zu machen sein.
my $ctx = Digest::MD5->new;
for my $file (glob "dir/*") {
open my $fh, '<', $file or next;
$ctx->addfile($fh);
}
edit: verzeichnisse musst du halt noch aussortieren.
Last edited: 2010-02-15 16:00:51 +0100 (CET)