在文件名末尾添加字符串的Perl单行程序

Question

我在一个目录中有一些超文本标记语言和JavaScript文件。我想在每个JavaScript (name.js)文件的末尾附加"_backup“。它的one-liner是什么？

Answer 1

选择你的毒药：

1. File::Copy

使用}

• rename：：copy 'move'；对于( glob "*.js“){ #平台独立移动( $_，"${_}_backup”)或warn“无法复制'$_'"；for function

对于( glob "*.js“){ # Not平台独立重命名( $_，"${_}_backup”)或warn“无法复制'$_'"；}

• *nix rename实用程序

$ rename .js .js_backup *.js

Answer 2

-i选项创建具有给定后缀的备份文件，然后给出一个空脚本。

perl -i_backup -p -e "" *.js; rm *.js

这实际上是两行代码

感谢Zaid's answer

perl -e 'rename($_,$_."_backup") for (glob "*.js");'

Answer 3

这行代码有点长，但它是一个Perl一行程序！

我假设您希望文件名为

abc.js
def.js
dog.js

要重命名为

abc_backup.js
def_backup.js
dog_backup.js

perl -e 'for(@ARGV) { ($bname)=/(.*)\.js/; rename $_, "$1_backup.js"; } ' *js

大多数Linux发行版都包含一个程序"rename“，它实际上是用Perl编写的，执行如下重命名操作；请参阅man rename。