Thread flock funktioniert nicht (64 answers)
Opened by x-man at 2006-04-17 19:11

betterworld
 2006-04-19 01:00
#7380 #7380
User since
2003-08-21
2614 Artikel
ModeratorIn

user image
[quote=ptk,18.04.2006, 22:21][quote=master,18.04.2006, 16:47]Natürlich mit autoflush = 1
Code: (dl )
1
2
Zeit: 7    #sysopen
Zeit: 10  #open

[/quote]
Benchmark-Code?[/quote]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$ perl -we 'use Benchmark;
use strict;
use Fcntl;
timethese(
    5000000,
    {
        sysopen => sub {
          sysopen( my $F, "datei", O_WRONLY ) or die $!
        },
        open => sub {
          open( my $F, ">datei" ) or die $!
        }
    }
  )'
Benchmark: timing 5000000 iterations of open, sysopen...
      open: 57 wallclock secs (40.82 usr + 16.47 sys = 57.29 CPU) @ 87275.27/s (n=5000000)
   sysopen: 54 wallclock secs (39.85 usr + 13.77 sys = 53.62 CPU) @ 93248.79/s (n=5000000)


Das sind dann umgerechnet ganze 0.6 Mikrosekunden Unterschied. Fuer jeden ressourcenbewussten Menschen sollte das ein klarer Grund sein, sysopen zu bevorzugen.

Nachtrag:
Code: (dl )
1
2
3
4
5
6
7
$ perl -v

This is perl, v5.8.7 built for i386-linux

Copyright [...]
$ uname -a
Linux cyan 2.6.17-rc1 #1 PREEMPT Thu Apr 13 02:24:34 CEST 2006 i686 Intel(R) Pentium(R) M processor 2.00GHz GenuineIntel GNU/Linux

Edit: Ein bisschen perltidy\n\n

<!--EDIT|betterworld|1145405646-->
Lieblingsmodule: CPAN:IPC::System::Simple, CPAN:Path::Class

View full thread flock funktioniert nicht