perl - 如何一起重命名具有随机名称的多个文件

Question

我有随机名称的文件，我想将它们全部重命名，如 Trace1、Trace2 等等....有什么想法吗？

Answer 1

或者在 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++ }

如果您是 Linux 新手，您还需要记住使脚本可执行（假设脚本保存在名为 的文件中random-renamer）：

chmod 755 random-renamer

然后运行它（重命名random-files目录中的所有文件）：

./random-renamer random-files/*

Answer 2

这会检查是否存在任何已命名的文件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);

Answer 3

您可以只使用 shell 命令：

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