regex – 使用perl表达式批量重命名文件

我要做的是重命名大约100,000个具有代码名称的gzip压缩数据文件(例如：XG453834.fasta.gz).我想把它们命名为易于阅读和解析的东西(例如：Xanthomonas_galactus_str_453.fasta.gz).

我试过使用sed,rename和mmv,但无济于事.如果我在一次性脚本上使用任何这些命令,那么它们工作正常,就在我尝试将变量合并到shell脚本中时,我遇到了问题.我没有收到任何错误,只是没有更改名称,所以我怀疑这是一个I / O错误.

这是我的文件的样子：

#! /bin/bash
# change a bunch of file names
file=names.txt

while IFS=' '  read -r r1 r2;
do
    mmv ''$r1'.fasta.gz' ''$r2'.fasta.gz'
    # or I tried many versions of: sed -i 's/"$r1"/"$r2"/' *.gz
    # and I tried many versions of: rename -i 's/$r1/$r2/' *.gz

done < "$file"

…这里是我的txt文件的第一行,带有单个空格分隔符：

cat names.txt

   #find #replace 
   code1 name1
   code2 name2
   code3 name3

我知道我可以用python或perl来做这件事,但是由于我在这里工作这个特定的脚本我想找到一个简单的解决方案来修复这个bash脚本并弄清楚我做错了什么.非常感谢您提供任何帮助.

此外,我试图捕获名称文件(请参阅下面的Ashoka Lella的评论),然后使用awk移动/重命名.一些文件具有变量名称(但总是以代码开头),所以我正在寻找一个查找和放大器.替换选项只是用“名称”替换“代码”并保留文件名结构.

我怀疑我没有在perl表达式的单个tick中转义变量,但是我已经倾注了很多手册,我找不到这样做的方法.