以前处理文件路径的时候都是自己写正则表达式，而用perl的模块来解决则更加迅速、准确。
以前处理文件路径的时候都是自己写正则表达式，而用perl的模块来解决则更加迅速、准确。
用到的模块 File::Basename
这里有三种方法：fileparse、basename、dirname。
其用法如下：
($name,$path,$suffix) = fileparse($fullname,@suffixlist);
$basename = basename($fullname,@suffixlist);
$dirname = dirname($fullname);
说明：
1. 方法basename 只取文件名，例如
/wangq/project/4910_Epididymal.fq.gz
则输出 $filename ==> 4910_Epididymal.fq.gz;
2. 方法dirname 只取路径部分，例如
/wangq/project/4910_Epididymal.fq.gz
则输出 $path ==> /share/nas1/wangq/project;
3. 方法fileparse是将一个文件的全路径拆成三部分，文件名、目录名和后缀，@suffixlist是给一个后缀的集合。例如
/wangq/project/4910_Epididymal.fq.gzfq.gz");
则输出 $base ==> 4910_Epididymal; $path ==> /share/nas1/wangq/project/; $type ==> .fq.gz
