Come posso rinominare facilmente i file con Perl?

Question

Ho un sacco di file che sto cercando di cambiare titolo, ho cercato di fare un'espressione regolare per corrispondere loro, ma anche questo mi sono bloccato sui file sono denominati come:

Nome file 01

Nome file 100

Nome file 02

File Nome 03

etc, vorrei un dd uno "0" (zero), dietro a uno qualsiasi dei file sono meno di 100, come questo:

Nome file 001

Nome file 100

Nome file 002

File Nome 003

Il più vicino che ho ottenuto per abbinarli era usare questo tipo di ricerca d | ordina -r | grep '[1-9] [0-9] $' tuttavia non sono riuscito a capire come sostituirli. Grazie in anticipo per qualsiasi aiuto tu possa offrirmi. Sono su CentOS se questo è di qualche aiuto, tutto questo viene fatto tramite SSH.

Answer 1

perl -e 'foreach $f (glob("File\\ Name*")) { $nf = $f; $nf =~ s/(\d+)$/sprintf("%03d",$1)/e; print `mv \"$f\" \"$nf\"`;}' 

Un po 'eccessivo forse, ma fa ciò che viene richiesto.

Answer 2

Penso che mmv sia tuo amico qui.

Answer 3

find . -type d -print0 | xargs -0 rename 's/(\d+)/sprintf "%03d", $1/e' 

o qualcosa di simile, a condizione

1. Hai GNU trovare e GNU xargs (per -print0 e -0)
2. avete la 'rinominare' programma di utilità che viene fornito con perl
3. C'è solo un gruppo di cifre nel nome del file. Se ce n'è più di uno, allora devi fare qualcosa con la regex per farlo corrispondere solo al numero che vuoi riformattare.

Answer 4

Run due comandi, in questo ordine:

$ rename 's/File Name (\d)$/File Name 0$1/' * 
$ rename 's/File Name (\d\d)$/File Name 0$1/' * 

Primo uno rinomina tutto inferiore a 10 e anteporre uno zero. Il secondo rinomina tutto meno di 100 e antepone uno zero. Il risultato dovrebbe essere di tre cifre per tutti i nomi di file.

Answer 5

si potrebbe fare qualcosa usando perl o rubino.

mettere tutto questo file nella stessa directory

dirlisting = DIR.entries('.') 

dirListing.each do |file| 
num = file.match(/\d+$/).to_i 
if num < 100 
    find the position where start the number, with index and inject the 0 there. 
end 
end 

Answer 6

Si tratta di una cosa di una volta? In tal caso, suggerirò qualcosa che potrebbe sembrare un poliziotto da molti programmatori qui:

Immettere l'output del comando (find -type d | sort -r | grep ' [1-9][0-9]$') in un file e utilizzare un editor insieme a qualche ricerca/sostituzione globale magia per creare uno script che rinomina.

Quindi buttare via la sceneggiatura.

C'è poco chiasso e poche possibilità che finirai per spararti ai piedi facendo un tentativo di un intelligente (ma inadeguato debug) one-liner andare nelle erbacce dei tuoi file.

Answer 7

use strict; 
use File::Copy; 

my @files = glob 'File*Name*'; 

foreach my $filename (@files) { 
    if ($filename =~ m`^.*File.*Name.*?(\d+)`) { 
     my $number = $1; 
     next if ($number > 99); 
     rename $filename, sprintf("FileName%03d",$number); 
    } 
} 

Answer 8

Nel mio debian funziona bene con rinomina, testato con 300 file.

perl -e 'map `touch door$_.txt`, 1..300;' 
rename 's/(\d+)\.txt/sprintf("%03d.txt", $1)/e' *.txt 

Answer 9

se il telecomando ha shell bash

for i in File*; 
do 
    case "${i##* }" in [0-9][0-9]) 
     echo mv "$i" "${i% *} $(printf "%03d" ${i##* })" ;; 
    esac; 
done 

Rimuovi "echo" fare ridenominazione attuale