关于提取文件名和路径

 

use File::Basename; #引用模块，该模块用于从绝对路径中提取文件名

$full_name="E:/lx/perl/t2.pl";
$filename=basename($full_name);#从模块中调用basename函数完成提取文件名
$filename=~s!s!_!g;#若文件名有空格的处理
$dirname=dirname($full_name);
print "The file name is: $filename "; 
print "THe path is: $dirname ";