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);