如何使用 Perl 的重命名将文件夹中所有文件的名称替换为自定义字符串和索引？我怀疑答案很简单。尽管如此，我还无法从手册或此处的其他答案中将其拼凑在一起。
例子
在文件夹中foo我有文件
long complicated name 1.png
random_string_of_letters.png
12312434235512351.png
etc.
唯一的共同点是它们具有相同的扩展名。我想给它们重命名
bar1.png
bar2.png
bar3.png
etc.
我正在使用 Perl 的重命名（通过自制软件安装）。我最接近的是另一个答案
中的这段代码rename -nvs searchword replaceword *。但我无法适应它来做我想做的事。我习惯将其视为*通配符，但这里似乎有不同的目的。我知道如果您-s从命令中删除，则可以使用正则表达式，并且该正则表达式与“正常”正则表达式不同（请参阅上面链接的同一答案的评论）。但不知道如何使用它。
编辑
当我运行时，brew info rename我得到以下信息：
==> rename: stable 1.601 (bottled), HEAD
Perl-powered file rename script with many helpful built-ins
http://plasmasturm.org/code/rename
/opt/homebrew/Cellar/rename/1.601 (4 files, 44.9KB) *
Poured from bottle using the formulae.brew.sh API on 2023-08-17 at 11:03:56
From: https://github.com/Homebrew/homebrew-core/blob/HEAD/Formula/r/rename.rb