Extracting file names from paths : File « File « Perl






  1. Perl
  2. File
  3. 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";








Related examples in the same category

1.Copy files
2.Copying a file using the File::Copy
3.Create a directory tree
4.Determine the contents of a directory tree?
5.File finder and callback
6.File size with FIELDS
7.Find file
8.Find out if there's a copy of the dir program on this computer
9.File find closure
10.Using a Callback
11.$File::Find::prune = 1 if /dir1/;