perl File::Basename模块的使用

在Perl中，如果想将路径和文件名，文件后缀分别提取出来，可以使用perl提供的模块File::Basename来实现。如果你在windows下安装的是activeperl，那么这个模块已经安装了，你就没必要再自己安装了，如果是使用linux系统，请到CPAN自己下载安装，安装方法看我前面写的文章。下面我就具体来说一下这个模块的使用。
File::Basename中常用的方法有fileparse, basename, dirname。fileparse方法会传回包含路经名称三个部份的串列；dirname方法传回路经位置；basename方法传回档案名称。下面我们看下面的程序来了解这个模块的工作原理。

perl

#! /usr/bin/perl
use strict;
use warnings;
use File::Basename;
my $fullname = 'C:\Users\Hunter\Documents\Perl\basename.pl';
my @suffixlist = qw(.exe .pl .txt);
my ($name,$path,$suffix) = fileparse($fullname,@suffixlist);
print "name = $name\n";
print "path = $path\n";
print "suffix = $suffix\n";
$name = fileparse($fullname,@suffixlist);
print "name = $name\n";
my $Basename = basename($fullname,@suffixlist);
print "Basename = $Basename\n";
my $dirname = dirname($fullname);
print "dirname = $dirname\n";

在上面的程序中，通过use File::Basename;来说明我们使用File::Basename这个模块。其中标量$fullname为包含文件名的路径，数组@suffixlist包含你所知道的文件后缀，这里我们只取了三个值。通过方法fileparse我们将文件路径和文件名，文件后缀分别赋值给变量$name, $path,$ suffix，通过basename方法返回文件名，通过dirname方法，返回文件路径。下面我们来看一下上面程序的结果：

text

C:\Users\Hunter\Documents\Perl>perl basename.pl
name = basename
path = C:\Users\Hunter\Documents\Perl\
suffix = .pl
name = basename
Basename = basename
dirname = C:\Users\Hunter\Documents\Perl
C:\Users\Hunter\Documents\Perl>

perl File::Basename模块的使用

延伸阅读

评论

发表评论