Perl File::Basename

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 "目录名: ","\n"; print "后缀名: ",$ext,"\n"; $basename =~s/^/new_/; my $new_name="$dirname/$basename$ext/"; rename($full_name,$new_name) or warn "错误: $!"; #重命名文件名 ######################################################################### exit 0;