向后交换文件名

使用 split :

rename -n 's{(.*)(?=\.txt$)}{ join "_", reverse split /_/, $1 }e' *.txt

我不懂Perl,所以我用了 CodeConvert 将Python翻译成Perl。

这个想法是在 . 分为前缀和后缀。然后将前缀拆分 _ 进入一个列表。反转列表并使用 _ .最后加后缀

use strict;
use warnings;

my $s1 = "Aaa_Bbb_Ccc_Ddd.txt";
my $s2 = "Baz_Bar_Foo.txt";

sub reverse_prefix {
    my ($path) = @_;
    my ($prefix, $suffix) = split(/\./, $path);

    my @pf_elements = split(/_/, $prefix);

    my $pf_elements_rev = join("_", reverse @pf_elements);

    return "$pf_elements_rev.$suffix";
}

print reverse_prefix($s1), " ", reverse_prefix($s2);

请参阅 onecompiler