perl 分割文件路径和文件名
while (<DATA>) {
($name1, $name2) = /(.*)\\(.*)/;
print "$name1 $name2\n";
}
__DATA__
E:\xyz\123\A汉字.doc
E:\f中文\abc\123\pp.txt
E:\mm\pic\a哈d哈\abc.jpg
E:\shen\ab\2啊\2哦2.jpg
E:\a\b\e\c.jpg
- 上一篇 »PHP常用文件函数和目录函数整理
- 下一篇 »Python基础之分离文件名和文件路径
while (<DATA>) {
($name1, $name2) = /(.*)\\(.*)/;
print "$name1 $name2\n";
}
__DATA__
E:\xyz\123\A汉字.doc
E:\f中文\abc\123\pp.txt
E:\mm\pic\a哈d哈\abc.jpg
E:\shen\ab\2啊\2哦2.jpg
E:\a\b\e\c.jpg