|
#use File::Basename;
#($basename, $directory_path, $suffix) = fileparse($fullname, @suffixlist);
#The $fullname value holds the full directory path.
#The @suffixlist array is a list of regular expressions used to match against the file name.
@suffixlist = '.pl';
#!/usr/bin/perl -w
use File::Basename;
$fullname = "/usr/local/lib/perl5/validate.pl";
@suffixlist = '.pl';
($basename, $directory_path, $suffix) = fileparse($fullname, @suffixlist);
print "For $fullname\n";
print "base: $basename\n";
print "path: $directory_path\n";
print "ext.: $suffix\n";
|