String in Variable bearbeiten

[gary]

Hi Struppi,

Sorry, ich habe jetzt schon leider meinen Senf unten zu deinem Post abgelassen. In dem Fall nehme ich es zurück. ;-)

#!/usr/bin/perl -w

use strict;
use Benchmark;
Benchmark::cmpthese(500000, {
        'patrick' => &patrick,
        'gary' => &gary
});
sub patrick {
my $Display = 'test.txt';
$Display = substr $Display, 0, -4;
}
sub gary {
my $Display = 'test.txt';
for (my $i = 1;$i <= 4;$i = $i + 1) {chop ($Display);}
}

>   
>             Rate    gary patrick  
> gary    210704/s      --    -77%  
> patrick 907441/s    331%      --  
>   
> D.h. substr ist ca. 4 mal so schnell wie deine "Lösung".  
  
Du Programmierungstier! Stark gemacht \*staun\* . Zwischenfrage: Drehe mal die sub-Blöcke in deinem Programm um, so dass ich oben stehe. Wie sieht dann der Benchmark für mich aus?  
  
Grüsse gary