Opened by x-man at 2006-04-17 19:11
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
seltsam....
nun wirkt sich das
$| = 1; gar nicht mehr aus..
sobald man print + syswrite einbezieht verhält es sich gleich.
sysopen & co sind schneller... ich wusste es doch ;-)
nun wirkt sich das
$| = 1; gar nicht mehr aus..
sobald man print + syswrite einbezieht verhält es sich gleich.
sysopen & co sind schneller... ich wusste es doch ;-)
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
use Fcntl;
use FindBin qw($Bin); chdir($Bin);
my $Datei = $Bin.'/a.txt';
$run = 10000;
$t = time;
for(1..$run)
{
sysopen(DATEI, $Datei, O_WRONLY | O_CREAT | O_TURNC) || die "$Datei: $!";
syswrite(DATEI,"TEST");
close(DATEI);
}
$t = time - $t; print "Zeit: $t \n";
$t = time;
for (1..$run)
{
open(DATEI2, ">$Datei" ) || die "$Datei: $!";
print DATEI2 "TEST";
close(DATEI2);
}
$t = time - $t; print "Zeit: $t \n"
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;