MD5 berechnen: Md5 von zwei Daten vergleichen - #72518 (Allgemeines zu Perl)

nour

2006-12-18 12:13

User since
2006-11-15
108 Artikel
BenutzerIn
[default_avatar]

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:

Code: (dl )

ID                 Data_CISCO                         MD5
--------------------------------------------------------
1                    "ciscoconfig"                        ?

                    
2                     "heneztehezecbvkhv"           ?

"?": bedeutet dass MD5 noch nicht gerechnet.

:

Code: (dl )

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";
}

------------------------------------------------------------
Sollte ich $File, definieren!

Danke im Voraus\n\n

Antworten mit Zitat