Shell Programming and Scripting

#!/usr/bin/perl

use File::Basename;

$file = "/home/docs/hw1.doc";

$dirname = dirname( $file );
$filename = basename( $file );

# Append a trailing slash to $dirname - if that's what you want...
print( "Directory path: $dirname/\n" );
print( "Filename: $filename\n" );

# Without File::Basename, use regular expressions....
# There are many ways to do this - this is just one.
$file = "/another/path/here.doc";

$dirname = $filename = $file;
$dirname =~ s!^(.*/)[^/]*$!\1!;
$filename =~ s!^.*/([^/]*)$!\1!;

print( "Directory path: $dirname\n" );
print( "Filename: $filename\n" );