Problem mit splitfunktion (gelöst) - #139792 (Allgemeines zu Perl)

topeg

2010-07-14 12:00

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

So kann man es machen:

Code (perl): (dl )

my ($name) = $file=~/\\([^\\_]+)_/;

oder besser:

Code (perl): (dl )

use File::Spec;

#...

my $name=File::Spec->splitpath( $file );
$name=~s/_.+?$//;