Optimierung Prozess-Geschwindigkeit (Allgemeines zu Perl)

[thread]15452[/thread]

Optimierung Prozess-Geschwindigkeit

Leser: 29

Articles: hide open all | hide show old branches

+4 replies

kimmy

2010-09-10 13:24

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 )

 
#!/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)

Linuxer

2010-09-10 13:42
User since
2006-01-27
3875 Artikel
HausmeisterIn
Crosspost: http://www.perlboard.de/cgi-bin/perlboard.pl?actio...

Bitte Code-Tags für Code-Darstellungen verwenden:

[code] Dein Code hier. [/code]

=>
Code: (dl )

Dein Code hier.
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Dubu

2010-09-11 00:51

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

Was soll das Skript denn machen?
Beispieldaten?

Im Wesentlichen sehe ich da nur zwei Endlosschleifen ohne Abbruchbedingungen.

Gast wer

2010-09-11 13:52

Nicht viel schneller aber dafür etwas besserer Code.

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $student_file='student.txt';
my $database_file='datenbank.txt';

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


my %student;

open(my $fh, '<', $student_file) or die("Can't open $student_file $!\n");
while(<$fh>)
{
  chomp;
  #               <MatrikelNr>\t<Name>
  $student{$1} = $2 if(/^(\d+)\t(.+)$/);
}
close($fh);

open(my $db, '<', $database_file) or die("Can't open $database_file $!\n");

print "Class Auswahl: \n";

my %seen;

while(<$db>)
{
  chomp;
  if(/$kyd\t(\d*)/i && !$seen{$1})
  {
    $seen{$1} = 1;
    print "$1 $student{$1}\n";
  }
}

close($db);

Last edited: 2010-09-11 14:04:59 +0200 (CEST)

View all threads created 2010-09-10 13:24.