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のファイルグロブと組み込みの名前変更関数を使用できます。

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 
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 に答える
1 
$count = 1;
for (<*.ru.jp>)
{
        ($filename)=(/^(.*?)\.ru.jp$/);
        rename $_,$filename."t".$count++.".ru.jp";
}
于 2009-12-23T13:46:16.280 に答える