Étape 3: En utilisant Perl aux fichiers Pad
La version de perl est utile sur des boîtes de linux comme un interprète généralement pré-installé, cependant, perl peut être facilement installé sur windows gratuitement aussi bien.
La solution suit presque la même routine exacte. J’ai ajouté dans le nom du fichier ayant effectivement changé avant d’exécuter la commande déplacer pour vérifier. Dans le cas contraire mineure des changements de syntaxe, ainsi que de la négociation les fonctions que remplissent la même fonction. Par exemple, mesure-objet devient longueur et tostring devient 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 } } }
