Howard wrote: > > my ($basename) = $_ =~ / ^(.*)\.[^.]+$/; > I presume the space ^ there is an error. Even so this does not work on 123
$bill wrote: > I'd probably do it the easy way and just remove the ext: > > (my $file = $_) =~ s/\.[^.]*$//; > print "$file\n"; > ____________________ I would do it this way too... but I have got a bit sucked in to trying to do it using the model that was initially suggested which makes a neat little puzzle. I am stumped though! Can anyone find a way using the > $_="123"; > /(XX)YY/; > print "$1\n" ; # result: "123"; form? Or can someone prove that it can't be done? Mark _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
