Kod för att beställa filnamn ska passa (3 / 4 steg)
Steg 3: Använda Perl till Pad filer
Perlversion är användbart på linux boxar som vanligen förinstallerade tolk, dock perl kan enkelt installeras på windows gratis också.
Lösningen följer nästan exakt samma rutin. Jag la i en check på filnamnet faktiskt har ändrats innan du kör kommandot Flytta. Annars mindre syntax förändringar, tillsammans med handel ut funktioner som utför samma funktion. Till exempel åtgärd-objekt blir längd och tostring blir sprintf.
#! / usr/bin/perl < br > Använd strikt;
använda varningar.
Använd Data::Dumper;
min $dir = ". / data /";
opendir ("$dir", D) || Die "kan inte öppna katalogen $dir: $! \n";
min = readdir(D);
closedir(D);
min $len = 1;
foreach min $index ({
om (($index ne '. ") & & ($index ne '..')) {
min = split ("\\.", $index);
min = split ('-', $fn1[0]);
om ($len lt length($fn2[1])) {
$len = length($fn2[1]);
}
}
}
#print "längd:". $len. "\n";
min $formatstring = "%0". $len. "d";
foreach min $index ({
om (($index ne '. ") & & ($index ne '..')) {
min = split ("\\.", $index);
min = split ('-', $fn1[0]);
min $nfn = $fn2 [0]. '-' . sprintf ($formatstring, $fn2 [1]). '.' . $fn1 [1].
om ($index ne $nfn) {
min $cmd = "mv". $dir. $index. ' ' . $dir. $nfn;
'$cmd'; #execute
}
}
}