能不能写个perl单行程序把和个目录中的文件改名

cai800315

例如 我现在几个目录中有以.dist为后缀的文件名。我想写一个单行的perl程序把这些文件名全部去掉后缀.dist

cai800315

如以前文件名为a.dist  b.dist  。执行后变成a b.

cai800315

由于我这个要经常在不同的服务器上执行。我就不想用脚本来做，不然每次执行起来很麻烦，所以就想一个命令解决。不知是否有大侠给个例子？！

午夜凋零

rename  .dist  ''  *

shijiang1130

1. perl -e "foreach(glob <*.dist>){rename $_,substr($_,0,-4);}"

复制代码

cai800315

嗯，这个应该只能在当前目录中运行，并更改我当前目录的文件名称，基本实现了我的一部份的功能，如果想实现平行的目录及子目录的功能，有不有办法呢

kurri

1. perl -MFile::Find -e'find {wanted => sub {rename $_,$1 if /^(.*)\.dist$/}, no_chdir => 1}, "."'

复制代码

cai800315

01.perl -e "foreach(glob <*.dist>){rename $_,substr($_,0,-4);}"
这行代码有些问题，我现在把他更成下面的语句，其中最外面的两个双引号是一定要更改成单引号的，不然会有语法错误，然后把4更改成5是由于我是要去掉末尾的.dist。所以更改成如下一行。不过这上也只能在当时目录执行。

perl -e 'foreach(glob "*.dist"){rename $_,substr($_,0,-5);}'