perl - 複数のファイルの名前をランダムな名前で一緒に変更する方法

Question

ランダムな名前のファイルがあり、Trace1、Trace2などのようにそれらすべての名前を一緒に変更したいです。

Answer 1

Or in Perl:

#!/usr/bin/perl
use strict;
use warnings;

# use dirname() to keep the renamed files in the same directory
use File::Basename qw( dirname );

my $i = 1;
for my $file (@ARGV) {
    rename $file, dirname($file) . "/Trace$i"; 
    print "$file -> Trace$i\n";
} continue { $i++ }

If you are new to Linux, you need to also remember to make the script executable (assuming the script was saved in the file named random-renamer):

chmod 755 random-renamer

And then to run it (rename all the files in the random-files directory):

./random-renamer random-files/*

Answer 2

シェルコマンドを使用できます。

i=1;
for f in *
do
    mv $f "Trace$i"
    i=$(($i+1))
done

Answer 3

これにより、名前が付けられた既存のファイルがあるかどうかがチェックされTrace#、それらが壊れるのを防ぎます。

use Path::Class qw( dir );
use List::Util  qw( max );

my $dir = dir(...);

my @files =
   map $_->basename(),
    grep !$_->is_dir(),
     $dir->children();

my $last =
   max 0,
    map /^Trace([0-9]+)\z/,
     @files;

my $errors;
for (@files) {
   my $old = $dir->file($_);
   my $new = $dir->file("Trace" . ++$last);
   if (!rename($new, $old)) {
      warn("Can't rename \"$old\" to \"$new\": $!\n");
      ++$errors;
   }
}

exit($errors ? 1 : 0);