http://www.perlmonks.org?node_id=1008748


in reply to Re^3: file name parsing to get the original file name
in thread file name parsing to get the original file name

The check: 
$path=~/.*\/(.*)$/;$name=$1;
Doesn't take into account that the path might *not* have a directory component...
  • Comment on Re^4: file name parsing to get the original file name

In Section Seekers of Perl Wisdom