You might wish to examine the documentation for File::Basename, the answer you seek is contained within :)

You might wish to examine the documentation for File::Basename, the answer you seek is contained within :)

... and especially the hidden treasure dirname() thou shalt devote your attention to!

--saintmike

       splitpath
         Splits a path in to volume, directory, and filename
         portions. On systems with no concept of volume, returns
         '' for volume.

             ($volume,$directories,$file) = File::Spec->splitpath( $pa
+th );
             ($volume,$directories,$file) = File::Spec->splitpath( $pa
+th, $no_file );

         For systems with no syntax differentiating filenames
         from directories, assumes that the last file is a path
         unless $no_file is true or a trailing separator or /. or
         /.. is present. On Unix this means that $no_file true
         makes this return ( '', $path, '' ).

         The directory portion may or may not be returned with a
         trailing '/'.

         The results can be passed to the catpath() entry
         elsewhere in this documentto get back a path equivalent
         to (usually identical to) the original path.
[download]

------------
:Wq
Not an editor command: Wq
[download]

my $path = "D:\\nt\\tools\\whoa.txt";

my ($pathname, $filename) = splitpath($path);

print "$pathname => $filename\n";

sub splitpath
{
   my ($path) = @_;
   my $pos = rindex($path, "\\");
 
   return ("", "") if $pos < 0;

   my $filename = substr($path, $pos+1);
   my $pathname = substr($path, 0, $pos+1);

   return ($pathname, $filename);
}
[download]