Mega Code Archive

 

Categories / Perl / File

 

Extracting file names from paths

#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";