Pointer ans Ende der Datei setzen mit seek

[opi]

Hallo Siechred,

ich hab mal ein wenig im Archiv rum gesucht und bin auf einen Thread
gestoßen, in dem Struppi mal einen Benchmark ausgeführt hat.

Ich würde das gerne mal testen. Kennst du eine gute Doku ausser der Manpage?

Hm, ich kenne nur Benchmark::Timer, habe es aber selber noch nicht benutzt.

use Benchmark;

my $string = 'string\n';

Benchmark::cmpthese(-1, {
        'print'   =>  sub {  print "$string" . ' ' x 10-length($string);  },
        'printf'  =>  sub {  printf '%-10s', $string;  },
});

Rate  print printf
print  127242/s     --   -46%
printf 236566/s    86%     --

printf ist fast um das doppelte schneller. Mein klarer Favorit :-)

Greez,
opi