加载中…perl File::Basename模块的使用
(2013-02-27 15:34:24)
标签：
it |
分类： perl |
在Perl中，如果想将路径和文件名，文件后缀分别提取出来，可以使用perl提供的模块File::Basename来实现。如果你在windows下安装的是activeperl，那么这个模块已经安装了，你就没必要再自己安装了，如果是使用linux系统，请到CPAN自己下载安装，安装方法看我前面写的文章。下面我就具体来说一下这个模块的使用。
File::Basename中常用的方法有fileparse, basename,
dirname。fileparse方法会传回包含路经名称三个部份的串列；dirname方法传回路经位置；basename方法传回档案名称。下面我们看下面的程序来了解这个模块的工作原理。
-
-
#! /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方法，返回文件路径。下面我们来看一下上面程序的结果：
-
-
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>
喜欢
0
赠金笔
前一篇：C++_友元函数
后一篇：Perl chdir函数