Opened by master at 2006-03-30 13:32
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
EDIT: Okay hat sich erledigt, ich sollte die Beiträge mal vorher besser lesen, du wolltest ja nur "." und ".." entfernen und nicht alle Dateien die mit "." oder ".." anfangen.
-------------
Hi,
warum kein glob Benutzen? Ich bekomme folgende Werte:
A: Zeit: 64
B: Zeit: 33
C: Zeit: 2
Allerdings soweit ich gelesen habe ist glob erst ab Perl 5.8 Optimiert, vor Perl 5.8 sollte man lieber opendir/closedir benutzen. Ich hoffe jedenfalls das es die Version 5.8 war.\n\n
<!--EDIT|sid burn|1143728771-->
-------------
Hi,
warum kein glob Benutzen? Ich bekomme folgende Werte:
A: Zeit: 64
B: Zeit: 33
C: Zeit: 2
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
#!/usr/bin/perl -w
$home = "/home/sidburn/";
$t=time;
for(1..150000)
{
# &a;
# &b;
&c;
}
$zeit = time - $t;
print "Zeit: $zeit\n";
sub a
{
opendir(DIR,$home) or die $!;
@files = grep{$_ !~ /^\.\.?$/}readdir(DIR);
closedir DIR;
}
sub b
{
opendir(DIR,$home) or die $!;
@files = readdir(DIR);
closedir DIR; shift(@files);shift(@files);
}
sub c
{
glob("$home*");
}
Allerdings soweit ich gelesen habe ist glob erst ab Perl 5.8 Optimiert, vor Perl 5.8 sollte man lieber opendir/closedir benutzen. Ich hoffe jedenfalls das es die Version 5.8 war.\n\n
<!--EDIT|sid burn|1143728771-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de