Perl File-Basename::Perl基地

zzss

　　use warnings;
　　use strict;
　　use File::Basename;
　　#########################################################################
　　my $full_name='D:/Perl/perldoc/File/false.html';
　　my ($basename,$dirname,$ext)=fileparse($full_name,'.html');
　　##########################################
　　# my $type=fileparse_set_fstype(); #系统平台，有效值为:"MacOS", "VMS", "AmigaOS", "OS2", "RISCOS", "MSWin32", "DOS" , "Epoc", "Unix"
　　# print $type;
　　##########################################
　　print "文件名: ",$basename,"\n";
　　print "目录名: ",$dirname,"\n";
　　print "后缀名: ",$ext,"\n";
　　$basename =~s/^/new_/;
　　my $new_name="$dirname/$basename$ext/";
　　rename($full_name,$new_name) or warn "错误: $!"; #重命名文件名
　　#########################################################################
　　exit 0;