Hello,
a simple regular _expression_ is needed to eliminate the file extension:
$_="123";
/(XX)YY/;
print "$1\n" ; # result: "123";
$_="123.txt";
/(XX)YY/;
print "$1\n" ; # result: "123"
$_="123.txt.txt";
/(XX)YY/;
print "$1\n" ; # result: "123.txt";
Any suggestions for /(XX)YY/ ? Thanks.
Kind regards
Walter Laub
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
