Dotaz: perl: Undefined subroutine &main::sudstr

[pele]

Zdravim neco si zkousim v Perlu, mam napsany nasledujici skript:

#!/usr/bin/perl
#ziskej has k prolomeni z prvniho argumentu
$hash = shift;
$salt = sudstr($hash,0,2);      #sul jsou prvni dva znaky
print "Prolamuji has '$hash' se soli '$salt' pouzitim slov ze standartniho vstupu...\n";
while(defined($in = <STDIN>))   #cti ze standartniho vstupu
{   chomp $in;
    if(crypt($in,$salt) eq $hash)       #pokud se hase shoduji
    {   print "Heslo je: $in\n";
        exit;}    
}
print "Heslo na standardnim vstupu nenalezeno";

ale po spusteni:

Undefined subroutine &main::sudstr called at ./crack.pl line 4.

co mam spatne, sem naprosta perlovska lama, dik za rady.

Odpovědi

[Jan Martinek]

Já sice vím o perlu houby, ale nepatří tam raději "substr" místo "sudstr"?

[pele]

Asi bych se mel vratit do prvni tridy zadkaldni skoly, numim rozpoznavat pismena

Dik

[Zdeněk Burda]

s/sudstr/substr/