关于提取文件名和路径

 

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 " ;