Think about Loose Coupling | |
PerlMonks |
Re: Regex to extract last 3 components of filenameby choroba (Cardinal) |
on May 04, 2021 at 21:51 UTC ( [id://11132044]=note: print w/replies, xml ) | Need Help?? |
If you don't want to match a slash, tell Perl about it:
The problem can be solved using split in a much cleaner way:
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
In Section
Seekers of Perl Wisdom
|
|