#分析和处理文件路径的模块,dirname和basename和Shell中的完全一样,
#如果仅仅关心路径处理,使用File::Spec更安全.
use File::Basename;
$file = 'zhao\kaka\kaka\chdirperl.pl';
print dirname($file); #directory name
print "\n";
print basename("$file",".pl"); # file name
print"\n";
##fileparse
##use File::Basename;
@array = fileparse("zhao\\kaka\\kaka\\chdirperl.pl",".pl");
for(@array){
print "$_\n";
}