perl - 调试 Perl one-liner 以重命名文件

Question

我正在测试/试用 this Perl one-liner ，我正在尝试弄清楚文件发生了什么。我再也看不到文件了。
我删除了它们还是出了什么问题？

列出的文件名示例(原始):

IMG_0178.JPG
IMG_0182.JPG
IMG_0183.JPG
IMG_0184.JPG
IMG_0186.JPG

我想简单地将文件扩展名更改为小写 (.jpg):

perl -e'while(<*.JPG>) { s/JPG$/jpg/; rename <*.jpg>, $_ }'

Answer 1

不要将 rename 与 glob 一起使用。使用标量。尝试在替换之前将文件名分配给一个新变量，并将旧名称重命名为修改后的名称，如下所示:

perl -e'while(<*.JPG>) { ($new = $_) =~ s/JPG$/jpg/; rename $_, $new }'

使用 ls -1 检查输出:

IMG_0178.jpg                                                                                                     
IMG_0182.jpg                                                                                                
IMG_0183.jpg                                                                                              
IMG_0184.jpg                                                                                               
IMG_0186.jpg