Thread Perl vs ActiveState Perl: Geschwindikeit stark unterschiedlich (14 answers)
Opened by galaxy at 2006-04-04 16:29

galaxy
 2006-04-04 16:29
#47770 #47770
User since
2006-04-03
30 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich habe mir bezogen auf den vorherigen Tread über das Hires Modul auf Empfehlung eines Administrators die ActiveState Perl version heruntergeladen. Da die Version 5.8.8.816 jedes mal nach der Installation Fehler aufwies, habe ich mich für die Version 5.6.1.638 entschieden. Dabei konnte ich nach der gegeben Anleitung problemlos Module installieren und verwenden.
Jedoch weisst die ActiveState Version von Perl einen deutliche Nachteil gegenüber der Perl Version, welche in dem Paket Xampp verwendet wird, auf.

Das folgende Skript habe ich mit beiden Versionen getestet:

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
38
39
40
41
42
43
$pfad_read ="C:\\Perl-Php-Vergleich\\Datei1\\testdatei.txt";
$pfad_write ="C:\\Perl-Php-Vergleich\\Datei2\\perl_writedatei.txt";
print "pfad\n";
#============================== Reads ==========================================

@Lesedatei = ("");               # Array for the Datasets
$i = 0;

open(EINGELESEN, "<$pfad_read") || die "Cant find file to read\n";
while(<EINGELESEN>)              # Runs through the File
 {
  $Lesedatei[$i] = $_;           # Saves the File in an Array
  $i++;
 }
close(EINGELESEN);
print "lesen\n";
#============================== Change==== =====================================

# this Array saves each line of the Lesedatei Array.
@Datenfelder = ("");

$Arraylaenge = @Lesedatei;

for ($i=0;$i<$Arraylaenge;$i++)
{
 @Datenfelder = split(/,/,$Lesedatei[$i]);      # splits a line of the big array
 $Zeile = $i+1;
 @Datenfelder[0] = "\"Zeile ".$Zeile."\"";      # edit the first element of the "each line Array"
 $Lesedatei[$i] = join(',',@Datenfelder);       # stores the edit in the big Array
}
print "bearbeiten\n";
#============================== Write ==========================================

 # opens file to write changes
open(SCHREIBEN, ">$pfad_write") || die "Cant find file to write\n";;

foreach $Dateizeile (@Lesedatei)
 {
  print SCHREIBEN "$Dateizeile";                # write in file
 }

close(SCHREIBEN);
print "schreiben\n";


Die Grösse der Datei, welche ich zum Einlesen verwende, variiert dabei zwischen 2kb, 3mb oder 25mb.
Die Perlversion von Xampp erledigt die vom Skript vorgenommenen Aenderungen sehr zügig. Im Gegensatz dazu ist die Version von Activstate sehr lahm.

Bezogen auf die 3 Mb grosse Datei:
Activestate benötigt ca 7 Sekunden zur Abarbeitung des Skripts.
Das "normale" Perl hingegen höchstens 1 Sekunde.

Die 25 Mb datei wird vom normalen Perl in ca 20 Sekunden abgearbeitet, während Activestate für diese Datei 5 Minuten 30 sek benötigt

Ich unterscheide immerzwischen den Perlversionen, indem ich die Path Variable von Windows entsprechend anpasse.(Entweder C:\perl\bin; oder c:\apachefriends\xampp\perl\bin\; )

Aufgerufen wird das Skript dann immer aus dem entsprechenden Ordner mit: perl Skriptname.pl

Kann mir bei diesem Problem jemand helfen??

Danke für Tipps\n\n

<!--EDIT|galaxy|1144164648-->

View full thread Perl vs ActiveState Perl: Geschwindikeit stark unterschiedlich