#  功能：将目标目录下的以.logbak结尾的文件更名为.log

#  目录操作函数可以在相对路径下工作

use  strict;

 warnings;

sub  changeName {

     chdir   shift ;

     print  `pwd`;   打印当前目录      for my   $file  ( glob ( " * )) {    glob不会包含.和.. 目录          if - d  ) {

              ( );    子目录一直保持在当前目录工作              & changeName(`pwd`);

             .. );

        }

         elsif f  && =~ / .+ )( . logbak)$ i) {

             f $ 1 .log ) {   防止更名误覆盖文件                  rename  ($ , $ .newlog );

            }

             );

        }

    }

}

            

changeName(  参数为目标目录

$path =  `pwd`;

chomp ;       `pwd`命令结尾有个回车符，需要chomp去掉 $path  ;

opendir  DIR  || die cant open $! foreach readdir  DIR) {      readdir 将读出所有的文件和目录，包括.和.. $file  ;

}