RegEx: Ergebnis direkt greifen - #76883 (Allgemeines zu Perl)

Duff

2007-05-24 21:08

User since
2006-10-06
283 Artikel
BenutzerIn

user image

So sollte es funktionieren:

Code: (dl )

my $x = 'cbs.d';
my $endung = undef;
if( $x =~ m/\.([^\.]+)$/ ) {
   $endung = $1;
}
print "$endung\n";
# verwende $endung...
my ($endung2) = $x =~ m/\.([^\.]+)$/;
print "$endung2\n";

So sieht zumindestens das Resultat aus:

Code: (dl )

1
2

d
d

D'OH
Daniel