Perl：更改文件名

Question

我的电脑每天都会出现以下文件（每天一次，在/ my / dir /中）：

stackoverflow.20130712_0.log
stackoverflow.20130713_0.log

我想将他们的名字更改为stackoverflow.20130712和stackoverflow.20130713，也就是说，每天用cron作业擦除“_0.log”部分。

你会推荐我的模块或脚本吗？

我在CentOS上

Answer 1

您可以从CPAN获取重命名脚本：

http://search.cpan.org/perldoc?rename

然后你可以这样做：

rename 's/_0.log$//' stackoverflow*_0.log

Answer 2

无依赖性解决方案，

perl -e 'for (@ARGV){ $t=$_; s|_0[.]log$||; rename($t,$_) }' stackoverflow.*