Paso 3: Utilizando Perl archivos Pad
La versión de perl es útil en cuadros de linux como un intérprete comúnmente preinstalado, sin embargo, fácilmente puede instalar perl en windows gratis así.
La solución sigue casi la misma rutina exacta. He añadido en un cheque por nombre de archivo realmente haber cambiado antes de ejecutar el comando mover. De lo contrario menores cambios de sintaxis, junto con el comercio de funciones que realizan la misma función. Por ejemplo, objeto de la medida se convierte en longitud y tostring convierte sprintf.
#!/usr/bin/perl<br>use strict; use warnings; use Data::Dumper; my $dir = "./data/"; opendir(D, "$dir") || die "Can't open directory $dir: $!\n"; my = readdir(D); closedir(D); my $len = 1; foreach my $index ( { if (($index ne '.') && ($index ne '..')) { my = split("\\." , $index); my = split('-' , $fn1[0]); if ($len lt length($fn2[1]) ){ $len = length($fn2[1]); } } } #print "length : " . $len . "\n"; my $formatstring = "%0" . $len . "d"; foreach my $index ( { if (($index ne '.') && ($index ne '..')) { my = split("\\." , $index); my = split('-' , $fn1[0]); my $nfn = $fn2[0] . '-' . sprintf($formatstring , $fn2[1] ). '.' . $fn1[1] ; if ($index ne $nfn) { my $cmd = 'mv ' . $dir . $index . ' ' . $dir . $nfn ; `$cmd`; #execute } } }
