Perl Ausführungsgeschwindigkeit

[nemesis]

Hoi leutz

Code: Select all

#!usr/bin/perl
# pi-zahlen umformatieren, dax@free.de

$infile="pi_512million.txt";
$outfile="pi_512million_2.txt";

open(DATEIN,"<$infile");
open(DATAUS,">$outfile");

while ($line=<DATEIN>) {
   next if ($line=~/^\s*$/);
   $line=~s/\s+//g;
   ($line)=($line=~m/(.*):\d+$/);
   print DATAUS $line;
}

close(DATAUS);
close(DATEIN);

Das script da oben, arbeitet recht schnell, über 1mbyte/sec

der grund, warum ich es einsetzte, platz
eingabedatei hat 673mbyte platzverbrauch (706.387.968bytes)
und die ausgegebene datei "nur" 488mbyte. Also genau die 512.000.000 Bytes (stellen) von pi die ich eigentlich nur haben will.

So, nun meine frage, da ja Perl an und für sich eine Interpretersprache ist, ähnlich wie Php. Müsste doch ein Kompiliertes C Programm schneller sein, oder nicht? Bzw, gibt es Tricks unter Perl, das ich den Server anweise nur die eine Operation im Moment auszuführen.

[Oswald]

Hallo nemesis,

Jepp. C-Programme sind in der Regel schneller als alles andere. Dabei spielt es keine Rolle ob es Perl, PHP oder was auch immer ist.

Allerdings sind C-Programme auch schwieriger zu schreiben. Dein Perl-Programm in C zu programmieren dürfte schon einige Stunden für einen ungeübten Programmierer bedeuten. Du verwendest Reguar Expressions und die in C zu programmieren ist kein Spaß.

Ich denke auch das der Geschwindigkeitsgewinn bei dem Programm nicht so besonders groß sein wird, da das Programm wenig "selbst" tut. Das schwierigste was es macht sind die Regular Expressions und die wurden in Perl schliesslich auch in C implementiert. Das wird wahrscheinlich(!) nicht viel rauszuholen sein.

Falls Du es aber mal in C versuchen solltest: Du hast meine E-Mail-Adresse falls Du hilfe brauchst...

Liebe Grüße,
Oswald

[nemesis]

Hi Kai,

das perl aus c, awk, sed usw, hab leider jetzt nicht alles im kopf hervorgegangen ist hab ich vor kurzem auch erst erfahren...

Hab mehr oder weniger durch zufall beim rumschaun aufm linuxrechner nen bin gefunden, nice, oder wie der name war, damit kann man nem Programm mehr Prioritäten zuweißen, -19 ist glaube ich die höchste, und 20 oda so die niedrigste. vielleicht könnte man ja so das Perlscript schneller ausführen lassen.

Gruss, nemesis

[Oswald]

Hallo nemesis!

Ja nice (bzw. renice) gibt es und damit setzt du den nice value (Nettigkeitswert) für Prozesse. Je kleiner der Wert desto unnetter der Prozess und desto höher die Priorität. Deswegen bedeutet -20 auch ein schneller Prozess und +19 ein langsamer Prozess.

Schnell und langsam sind aber in diesem Fall sehr relativ zu betrachten. Du wirst damit Dein Programm nicht wirklich beschleunigen können. Der nice value wird nur dann bedeutend wenn es mehrere Prozesse auf Deinem System gibt, die viel Last erzeugen. Dann entscheidet der nice value wer mehr CPU-Zeit bekommt. Wenn es aber eh nur den einen Prozess gibt, dann kriegt der schon alle CPU-Zeit und so kannst Du ihn mit nice nicht schneller machen.

Ui.. hoffe das war jetzt verständlich...

Grüße,
Oswald

[nemesis]

schade naja sshd läuft noch nebenbei während ich auf das ergebnis warte