How can I get a filename from a path with Perl?
- by Eric
I am trying to parse the filename from paths. I have this:
my $filepath = "/Users/Eric/Documents/foldername/filename.pdf";
$filepath =~ m/^.*\\(.*[.].*)$/;
print "Linux path:";
print $1 . "\n\n";
print "-------\n";
my $filepath = "c:\\Windows\eric\filename.pdf";
$filepath =~ m/^.*\\(.*[.].*)$/;
print "Windows path:";
print $1 . "\n\n";
print "-------\n";
my $filepath = "filename.pdf";
$filepath =~ m/^.*\\(.*[.].*)$/;
print "Without path:";
print $1 . "\n\n";
print "-------\n";
But that returns:
Linux path:
-------
Windows path:Windowsic
ilename.pdf
-------
Without path:Windowsic
ilename.pdf
-------
I am expecting this:
Linux path:
filename.pdf
-------
Windows path:
filename.pdf
-------
Without path:
filename.pdf
-------
Can somebody please point out what I am doing wrong?
Thanks! :)
