String in Variable bearbeiten

[Struppi]

---> Also die letzten vier Zeichen entfernen.

Oh Mann, jetzt habe ich das erst verstanden ws du willst. Dann ist die Hälfte was ich vorher gesagt habe falsch. willst du die Dateiendung entfernen oder die letzten vier Zeichen?

Wenn's wirklich nur die letzten vier Zeichen sind, dann ist die Lösung vom Patrick besser als deine. was ein kleiner Vergleich auch deutlich zeigt:

#!/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".

Struppi.