Início / coding / Perguntas / 76921262
Accepted
Blue badger
Asked: 2023-08-17 19:53:40 +0800 CST

Como usar a renomeação do Perl no terminal do macOS para substituir nomes de arquivos aleatórios por string e índice personalizados?

  • 772

Como você usa a renomeação do Perl para substituir os nomes de todos os arquivos em uma pasta por uma string personalizada e um índice? Suspeito que a resposta seja bem simples. Ainda assim, não consegui juntar as peças do manual ou das outras respostas aqui no SO.

Exemplo

Na pasta footenho os arquivos

long complicated name 1.png
random_string_of_letters.png
12312434235512351.png
etc.

O único denominador comum é que eles têm a mesma extensão. quero renomeá-los

bar1.png
bar2.png
bar3.png
etc.

Estou usando a renomeação do Perl (instalada via homebrew). O mais próximo que cheguei é este pedaço de código de outra resposta rename -nvs searchword replaceword * . Mas não consigo adaptá-lo para fazer o que desejo. Estou acostumado a ler *como curinga, mas parece ter um propósito diferente aqui. Eu sei que você pode usar regex se remover -sdo comando, e esse regex é diferente do regex "normal" (veja um comentário para a mesma resposta vinculada acima). Mas não como usá-lo.

Editar

Quando eu corro brew info renamerecebo esta informação:

==> rename: stable 1.601 (bottled), HEAD
Perl-powered file rename script with many helpful built-ins
http://plasmasturm.org/code/rename
/opt/homebrew/Cellar/rename/1.601 (4 files, 44.9KB) *
  Poured from bottle using the formulae.brew.sh API on 2023-08-17 at 11:03:56
From: https://github.com/Homebrew/homebrew-core/blob/HEAD/Formula/r/rename.rb
regex

2 respostas

  1. Você pode listar todos os arquivos em um diretório com

    my @files = grep -f, <directory/*>;

    Então você pode iterar nesta lista e renomear cada arquivo.

    Por exemplo:

    my $basename = "bar";
my $dir = "./";
my $index = 1;
for my $file (grep -f, <$dir*>) {
    my $extension = $file =~ /\.[^.]+\z/ ? $& : "";
    rename($file, "$dir$basename$index$extension");
    $index++;
}

    Isso pressupõe duas coisas: a $dirstring termina com /(facilmente corrigida) e cada nome de arquivo possui uma extensão (também facilmente corrigida).

    Aqui está uma alternativa

    Se você não entende Perl, então você pode tentar isto:

    use strict;

my $basename = $ARGV[0] or die;
my $dir = $ARGV[1] or die;
my $output = $ARGV[2] or die;
   
$dir .= '/' unless $dir =~ m!/$!;
my $index = 1;

open F, ">$output" or die "Can't open '$output'\n";
for my $file (grep -f, <$dir*>) {
    $file =~ /\.[^.]+$/ or next;
    my $extension = $&;
    print F "mv '$file' '$dir$basename$index$extension'\n";
    $index++;
}
close F;

    Isso não modificará nada em seu sistema. Corra assim:

    perl filename.pl basename directory output.sh

    Onde basenameestá o nome base que você deseja em seus arquivos, directoryé onde estão seus arquivos e output.shé um nome de script.

    Isso produzirá um script no estilo bash com comandos para renomear os arquivos. Você pode verificar cada comando renomear antes de executar qualquer coisa.

    • 2
  2. Best Answer

    A partir dos documentos , parece que o seguinte funcionará:

    rename -Xe '$_ = "bar$N"' *.png

    Adicione uma liderança -npara fazer uma simulação.

    Opcionalmente, adicione -vpara mais informações.

    • 1

relate perguntas