亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: Perl使用技巧12：獲取文件的目錄，名字，擴(kuò)展名 [打印本頁(yè)]

作者: arche77 時(shí)間: 2015-12-15 13:07
標(biāo)題: Perl使用技巧12：獲取文件的目錄，名字，擴(kuò)展名
use File::Basename;

@array=file_name('/tmp/a/b.txt');
p @array;

sub file_name {
my ($name,$path,$ext)=fileparse(shift, qr/\.[^.]*$/);
return ($name,$ext,$path);
}

運(yùn)行結(jié)果如下：

[
[0] "b",
[1] ".txt",
[2] "/tmp/a/"
]
[Finished in 0.1s]

歡迎光臨 Chinaunix (http://www.72891.cn/)