![]() |
|< 1 ... 3 4 5 6 7 >| | ![]() |
65 Einträge, 7 Seiten |
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"
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
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: $!";
sysseek(DATEI, 100000, 0);
syswrite(DATEI,"TEST");
close(DATEI);
}
$t = time - $t; print "Zeit: $t \n";
$t = time;
for (1..$run)
{
open(DATEI2, ">$Datei" ) || die "$Datei: $!";
seek(DATEI2, 100000, 0);
print DATEI2 "TEST";
close(DATEI2);
}
$t = time - $t; print "Zeit: $t \n";
sysopen(DATEI, $Datei, O_WRONLY | O_CREAT | O_TURNC) || die "$Datei: $!";
![]() |
|< 1 ... 3 4 5 6 7 >| | ![]() |
65 Einträge, 7 Seiten |