Re: split a path/filename

File::Basename

use warnings;
use strict;
use File::Basename;

while (<DATA>) {
    chomp;
    my $basename = basename($_);
    my $dirname  = dirname ($_);
    print "$dirname  ... $basename\n";
}

__DATA__
a/b/c/filename1.someext
b/c/filename2.sh
d/e/f/g/filename3.exe
[download]

Comment on Re: split a path/filename Download Code

Replies are listed 'Best First'.
Re^2: split a path/filename by ikegami (Patriarch) on Dec 01, 2011 at 20:43 UTC
From the same module: `my ($basename, $dirname) = fileparse($_);` [download]	[reply] [d/l]