首页 > 代码库 > perl File::Spec 模块

perl File::Spec 模块

File::Spec 模块提供了很多的功能,这里只列举几个常用的函数

rel2abs : 返回一个文件的绝对路径, 常见用法,返回当前运行的perl脚本的绝对路径

代码示例:

my $prog = File::Spec->rel2abs( __FILE__ );

其中 __FILE__ 是一个内置变量,代表当前脚本;

splitpath : 将文件的路径进行分割,返回值为一个长度为3的列表,第一个元素为该文件,第二个元素为该文件所处的目录,第三个元素为该文件的名字

代码示例:

my $prog = $prog = File::Spec->rel2abs( __FILE__ );
my (undef, $dir, undef) = File::Spec->splitpath($prog);

这里有一个不常见的写法,当解列表的时候,可以用undef 接受那些你并不关心的变量;

catpath: 用/ 分隔符将文件连接起来

代码示例:

my $align_prog_s = File::Spec->catpath($vol,$script_path,$align_bin_s);

 

perl File::Spec 模块