【0710】[perl] File::Basename用法

自从开始生物信息。。接触了perl，总是无比蛋疼。

这次，小结一下File::Basename用法。

我觉得，学习perl最好是看官网的指导，然后实践就好。

附上原文。http://perldoc.perl.org/File/Basename.html


我觉得主要用到的就三个：

filepase：主要是可以把目录分为文件名，目录，文件名的后缀（这个需要设置）

basename：获取目录的最后一个文件名，相当于pop()。就算是”/foo/bar/baz/”，也会得到”baz”

dirname：获取目录，相当于chop()。

写了一个简单的脚本说明。

use File::Basename;


my$path="/foo/bar/baz/file.txt";


 #fileparse can divides a file path into its$directories, $filename and (optionally) the filename $suffix.

 my($filename,$directories,$suffix)=fileparse($path);

 my($filename2,$directories2,$suffix2)=fileparse($path,qr/\.[^.]*/);


#basename return the lastlevel of a filepath,just like pop()

 my $basename=basename($path);


 #dirname return all but the last level of afile path

 my $dirname=dirname($path);


输出结果：

filename=file.txt

directories=/foo/bar/baz/

suffix=

filename2=file

directories2=/foo/bar/baz/

suffix2=.txt

basename=file.txt

dirname=/foo/bar/baz