perl 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 "目录名: ",$dirname,"\n";
print "后缀名: ",$ext,"\n";

$basename =~s/^/new_/;
my $new_name="$dirname/$basename$ext/";

rename($full_name,$new_name) or warn "错误: $!"; #重命名文件名

#########################################################################

exit 0;