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;
Perl File::Basename
原创
©著作权归作者所有:来自51CTO博客作者httpcn的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:Perl Telnet模块详解
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
basename函数
basename函数
函数 basename -
basename 与dirname
取得路径的文件名称与目录名称,basename 与dirname
basename dirname