perl tiedoston nimen muuttaminen

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ä.