Hallo,



Ich habe folgendes gemacht die untere Procedure in meinem code eingefügt aber es kommt eine fehler raus.
ich vermute dass hat mit "$file" zu tun .

und meine frage ist : über was verweist eigentlich $file??
Ich habe folgende tabelle:
ID Data_CISCO MD5
--------------------------------------------------------
1 "wortecisco" ?


2 "heneztehezecbvkhv" ?




"?": bedeutet dass MD5 noch nicht gerechnet.

:[CODE]

sub get_MD5
{

my $file = shift
open(FILE, $file) or die "Can't open '$file': $!";
binmode(FILE);

print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";
}

------------------------------------------------------------