GwenDragon+2009-01-16 10:08:38--

Code: (dl )

my $fn = (split "/", $file)[-1];

Besser mit File::Basename und File::Spec arbeiten...



---
//Modedit Gwendragon: Tag für File::Basename geändert, da als dist nicht zu finden
---