Perl - MD5 ongelma

[Shine]

Lyhyesti ohjelmasta:
Tarkoituksena on lukea tiedostosta rivi kerrallaan ja tehdä siitä rivillä sijaitsevasta sanasta md5 hashi. Ohjelma toimii hyvin pienillä sanakirjoilla mutta jos tiedostosto sisältää monta riviä tekstiä, ei ohjelma enää toimikkaan. Mistähän tämä johtuu?

Lähdekoodi:

use Digest::MD5 qw(md5_hex);


$hasku = "de250bd0f1f8f786630b00d27f18f247";



open (SN, "tiedostoa") or die "Tiedostoa ei löydy: $!\n";


@nimi = <SN>;
print "\n";



foreach $elementti(@nimi) {
chomp($elementti);
print "testataan $elementti \n";
$matsku = md5_hex($elementti);

if ($matsku eq $hasku) {
print ("Osuma ====== $elementti ==== vastaa $hasku \n");
last;
}
}
print "\n";

[xnode]

En voi nyt kokeilla, mutta veikkaisin että ongelma saattais olla @nimi = <SN>. Eli vois olla jotain sellaista että isompi tiedosto ei tule luetuksi kokonaan taulukkoon tms..

Kokeiles tälläistä versiota
Ota pois: @nimi = <SN>:
while(<SN>) {
$elementti = $_;
ja jatkat muuten kuten ennenkin

[Shine]

Juu eli tein nuo ehdottamasi muutokset, ainakin luulen tehneeni ne oikein :

#!/usr/bin/perl

use warnings;
use Digest::MD5 qw(md5_hex);


$hasku = "a8e2644894fb71c1d4e49f39d0b11687";



open (SN, "african") or die "Tiedostoa ei löydy: $!\n";


@nimi = <SN>;
print "\n";



OHJ: foreach $elementti(@nimi) {
chomp($elementti);
print "$elementti \n";
$matsku = md5_hex($elementti);

if ($matsku eq $hasku) {
print ("Osuma ====== $elementti ==== vastaa $hasku \n");
last OHJ;
}
}
print "\n";

Lisäsin myös tuon OHJ:n tuohon last-toimintoon, kun ei eräässä toisessa ohjelmassa suostunut lopettamaan ilman tuota.
Mutta eipä tämä vieläkään oikein toimi...Tämä löytää normaalisti pienestä tiedostosta mutta edelleen ei löydä useamman sanan joukosta kuin viimeisellä rivillä olevan sanan.

[nobu178]

Ensimmäisessä viestissä kirjoittamasi koodi on mielestäni ihan oikein. Minulla se toimi 2710 rivin sanakirjatiedoston kanssa. Uskon, että tulos on sama, vaikka käyttäisin isompaa sanakirjatiedostoa. Oletko tarkistanut sanakirjatiedostosi rakenteen? Onko rivinvaihdot Unixin? En usko, että silmukoita vaihtamalla ongelmasi ratkeaa.

[Shine]

Kiitoksia nobu178. Ongelma ratkesi kun konvertoin tiedoston rivinvaihdot unixin mukaisiksi. Kesti kauan (130 575 riviä) mutta nyt toimi..