文件批量更名

# "D:\My Documents\VB_eBook\VB最简单入门教程\VB入门教程"
# 这个目录中的网页文件都是双后缀的，看着别扭，想把它们改为单后缀。
# function: opendir, chdir, rename opendir (dfh, "D:\\My Documents\\VB_eBook\\VB最简单入门教程入门教程") || die (" fail to open dir.");

# 先进入此目录，否则后面的改名不成功。
chdir ("D:\\My Documents\\VB_eBook\\VB最简单入门教程入门教程");

@items = readdir(dfh);
#print "@items\n";
foreach $it (@items)
{
# print $it,"\n";
if ($it =~ /(.*\.htm)\.htm/)
{
print $1, "\n";
rename($it, $1) || die ("fialed rename $it.");
}
}

closedir(dfh);