mc_gulasch
Erfahrenes Mitglied
Tach ihr,
ich muss eine Txt-File durchgehen und jedes darin vorkommende Wort auflisten, natürlich kann es sein, dass ein Wort öfter vorkommt als das andere, aber ich will, dass jedes Wort nur genau EINMAL vorkommt. Also hab ich mir folgendes überlegt (abgesehen davon, dass noch einige Formatierungen gemacht werden müssen):
Ich geh hier die Datei Zeile für Zeile durch und speichere das Vorkommen eines Wortes als assoz. Array (in Perl ja Hash) ab...aber irgendwie klappt das mit der Abfrage und dem speichern nicht so ganz. Ich krieg trotzdem alle Wörter...
Hat jemand ne Idee?
Danke sagt das Gulasch
//EDIT:
Ich hab auch schon solche Sachen probiert:
ich muss eine Txt-File durchgehen und jedes darin vorkommende Wort auflisten, natürlich kann es sein, dass ein Wort öfter vorkommt als das andere, aber ich will, dass jedes Wort nur genau EINMAL vorkommt. Also hab ich mir folgendes überlegt (abgesehen davon, dass noch einige Formatierungen gemacht werden müssen):
Perl:
$input = "./text.txt";
$output = "./wortliste.txt";
open(OUT,">$output");
open(IN,$input);
while(<IN>)
{
#Formatierungen so dass alle Wörter einer Zeile in @word gespeichert sind
for($i=0;$i<$#word;$i++)
{
if($word_hash{"".$word[$i].""}!=23) #<---- das klappt nicht
{
$word_has{"".$word[$i].""}=23;
print OUT " | " . $word[$i] . "\n";
}
}
}
Hat jemand ne Idee?
Danke sagt das Gulasch
//EDIT:
Ich hab auch schon solche Sachen probiert:
Perl:
if($word_hash{$word[$i]}!=23)
{
$word_has{$word[$i]}=23;
print OUT " | " . $word[$i] . "\n";
}
####oder######
if($word_hash{"$word[$i]"}!=23)
{
$word_has{"$word[$i]"}=23;
print OUT " | " . $word[$i] . "\n";
}
####oder#####
if(!$word_hash{"$word[$i]"})
{
$word_has{"$word[$i]"}=1;
print OUT " | " . $word[$i] . "\n";
}
##und saemtliche Kombinationen
Zuletzt bearbeitet: