Pointer ans Ende der Datei setzen mit seek

[opi]

Hallo,

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%     --

Sorry, da war ein Syntaxfehler drin:

print "$string" . ' ' x (10-length($string));

Die Ausgabe schaut dann etwas anders aus:

Rate  print printf
print  196608/s     --   -24%
printf 259646/s    32%     --

Aber printf ist noch immer schneller.

Greez,
opi