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);
原文：http://www.cnblogs.com/xudongliang/p/6899607.html