Stap 3: Het gebruik van Perl naar Pad bestanden
De versie van perl is nuttig op linux-dozen als een algemeen vooraf geïnstalleerde interpreter, perl kan echter gemakkelijk worden geïnstalleerd op windows gratis ook.
De oplossing volgt bijna exact dezelfde routine. Ik voegde een cheque voor bestandsnaam eigenlijk veranderd voordat de opdracht verplaatsen uitgevoerd. Anders kleine syntaxis wijzigingen, samen met handelspartner van functies die dezelfde functie uitvoeren. Bijvoorbeeld, wordt de maatregel-object lengte en tostring wordt 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 } } }