Miten saan muutettua tiedoston nimet Windowssin Perlillä?
Isot pieniksi ja välilyönnit pois aluksi.
Yksi malli:
perl -e 'for (@ARGV) { ($new=$_) =~ s/(. )(.)\.html$/$1$2.shtml/; rename $_, $new unless -e $new }' *.html
Isot pieniksi ja välilyönnit pois aluksi.
Yksi malli:
perl -e 'for (@ARGV) { ($new=$_) =~ s/(. )(.)\.html$/$1$2.shtml/; rename $_, $new unless -e $new }' *.html
Vastaukset 1
Vanhimmat
Tässä on yksinkertainen Perl-skripti, joka muuttaa tiedostojen nimet Windowsissa niin, että isot kirjaimet muutetaan pieniksi ja välilyönnit poistetaan alusta:
use File::Copy;
my $dir = "polku_hakemistoon";
opendir(DIR, $dir) or die "Cannot open directory: $!";
while (my $file = readdir(DIR)) {
next if ($file eq '.' or $file eq '..');
my $new_name = lc($file); # Muutetaan isot pieniksi
$new_name =~ s/^\s+//; # Poistetaan välilyönnit alusta
rename("$dir/$file", "$dir/$new_name") or die "Cannot rename file: $!";
}
closedir(DIR);
Muista vaihtaa polku_hakemistoon oikeaksi poluksi hakemistoon, jonka tiedostojen nimet haluat muuttaa. Tätä skriptiä voi ajaa komentokehotteessa tai Perl-skriptin suoritusympäristössä.