Or, to mirror the constraints in the OP's regex:
m{^.* / ([\w-]+) / .*\.txt}x
Also, the form:
my $dir;
$dir = $1 if ##regex_here##
is a good idiom to become familiar with.
Updates:
- 2005-08.Aug-22 : fixed short-sighted error tlm points out below. I keep getting bit on that. ;-)
<-radiant.matrix->
Larry Wall is Yoda: there is no try{} (ok, except in Perl6; way to ruin a joke, Larry! ;P)
The Code that can be seen is not the true Code
"In any sufficiently large group of people, most are idiots" - Kaa's Law
|