Thread Optimierung Prozess-Geschwindigkeit (3 answers)
Opened by kimmy at 2010-09-10 13:24

kimmy
 2010-09-10 13:24
#141273 #141273
User since
2010-09-10
87 Artikel
BenutzerIn
[default_avatar]
Hallo,

wie kann ich das Skript optimieren? Falls die 2 Dateien ungeheuer groß (jeweils mehr als ca. 600,000 Zeilen) sind. Wie kann ich die Prozess-Geschwindigkeit verbessern?
Für jede Vorschläge bin ich sehr dankbar.

LG, kimmy

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
#!/usr/bin/perl -w

use strict;

print "Geben sie die Input-Datei ein : ";
my $kyd = <STDIN>;
chomp $kyd;

open(STD, "student.txt") or die;
my %student;
while(){
chomp;
if(/^(\d+)\t(.+)$/){
my $mat_nr = $1;
my $std_name = $2;
$student{$mat_nr} = $std_name;
}
}

open(DB, "datenbank.txt") or die;
my $hit;
my %seen;
my $auswahl;
$auswahl = "Class Auswahl: \n";

while(){
chomp;
if(/$kyd\t(\d*)/i){
$hit = $1;
next if defined $seen{$hit};
$seen{$hit} = 1;
$auswahl .= "$hit $student{$hit}";
}
}
print "$auswahl\n";

Last edited: 2010-09-10 14:06:47 +0200 (CEST)

View full thread Optimierung Prozess-Geschwindigkeit