Perl File-Basename::Perl基地
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;
页:
[1]