3

我正在运行 Perl 脚本并尝试完成重命名文件，如下所示。

我有一个包含其他不相关文件的文件夹中的 *.ru.jp 文件列表。我想用一个作为计数器变量的数字重命名。

在 Bash 中，我会这样做......

for i in $(ls *.ru.jp); do x=${i%%.*}; mv $i  "$x"t"$counter".ru.jp ;done

例如，如果计数器为 1，myfile.ru.jp 将被重命名为 myfilet1.ru.jp。“t”只是表示 t1、t2...等的命名。最重要的是有一个外部循环，随着计数器变量的增加，最终将标记 mafilet2.ru.jp 等等。

我想知道如何编写和表示与 Perl 脚本中类似的 for 循环？

谢谢。

-乔伊

4

6 回答 6

8 
perl -e 'for $old (@ARGV) {
           ++$counter;
           if (($new=$old) =~ s/(\.ru\.jp)\z/t$counter$1/) {
             rename $old => $new or warn "$0: rename: $!\n";
           }
         }' *.ru.jp
于 2009-12-23T13:41:42.437 回答
7

您可以使用 Perl 的文件 glob 和内置的重命名函数，如下所示：

use warnings;
use strict;

my $i = 1;
for (<*.ru.jp>) {
    my $file = $_;
    s/\.ru\.jp$//;
    my $new = $_ . 't'. $i . '.ru.jp';
    rename $file, $new or die "Can not rename $file as $new: $!";
    $i++;
}
于 2009-12-23T13:41:41.423 回答
1

我试过这个，它似乎完成了这项工作：

#! /usr/bin/perl

my $count = 0;
for (<*.ru.jp>)
{
        $count++;
        /(.+)\.ru\.jp/;
        rename $_, $1 . "t" . $count . ".ru.jp";
}
于 2009-12-23T13:41:53.233 回答
1 
$count = 1;
for (<*.ru.jp>)
{
        ($filename)=(/^(.*?)\.ru.jp$/);
        rename $_,$filename."t".$count++.".ru.jp";
}
于 2009-12-23T13:46:16.280 回答
1 
use strict;
my $c=0;
rename("$1.ru.jp", "$1" . $c++ . ".ru.jp") while <*.ru.jp> =~ /(.+).ru.jp/;
于 2009-12-23T14:03:52.697 回答
1 
my $counter=0;
while(my $file=<*.ru.jp>){
    $counter++;
    my ($front,$back) = split /\./,$file,2;
    $newname="$front$counter".".t."."$back\n";
    rename $file $newname;
}
于 2009-12-23T14:09:35.600 回答