Thread Durchlaufzeit von 2 verschachtelten foreach-schleifen optimieren (5 answers)
Opened by kimmy at 2013-12-17 11:05

kimmy
 2013-12-17 11:05
#172632 #172632
User since
2010-09-10
87 Artikel
BenutzerIn
[default_avatar]
Hallo Zusammen,

ich habe 2 relativ langen TXT-Dateien. Eine Text-Datei ist ein ganz normaler deutscher Artikel (ca. 40000 Zeilen). Die andere Datei ist eine Liste von Suffixe (Nomen, ADJ, etc.). Was ich haben möchte, ist der Inputdatei einzulesen und mit der Liste zu vergleichen. Mein Code sieht wie folgt aus:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# Input-Datei
open(my $input, '<', 'input_text.txt') or die;
# Suffix-Liste
open(my $suffix, '<', 'suffixe.txt') or die;
my @suffix = <$suffix>;
while(<input>){
   chomp;
   my @segmente = split(/ /, $_);
   foreach my $segment(@segmente){
        foreach my $suf(@suffix){
                chomp $suf;
                if ($segment =~ /$suf$/i) {
                        print "$suf\t$segment\n";
                }
        }
   }
}

Aber wie ich gesagt habe, da die Dateien relativ groß sind, dauert die Laufzeit lang. Hat jemand vielleicht eine Idee, wie ich die Durchlaufzeit spraren kann?

View full thread Durchlaufzeit von 2 verschachtelten foreach-schleifen optimieren