Não sei quanto a vocês, mas eu me sinto incomodado com aqueles nomes de arquivos cheios de espaços e caracteres estranhos.

Para mim um bom nome de arquivo contém apenas [A-Za-z0-9\.], ou seja, alfanuméricos e o ponto separando o nome da extensão.

Se você pensa como eu e acha demorado mudar isso arquivo por arquivo, esse script Perl vai facilitar a conversão. Claro que ainda não está perfeito, e aceito sugestões para deixá-lo cada vez melhor.

• Download converte.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/env perl

my $dh = "lista";

my $teste=opendir($dh,".");

if ($teste) {

    while ( my $nomeant=readdir($dh)) {
    
   my $nomenovo=$nomeant;

       $nomenovo =~ s/[^A-Za-z0-9\.]//g;
       
   print $nomeant;
   print " ==> ";
   print $nomenovo;
   print "\n";
   
   rename( $nomeant , $nomenovo );

    }

} else {
    
    print "Falhou...\n";

}

Manipulação de Arquivos Orientada a Objetos

getter

Listar arquivos de um diretório.

Manipulação de arquivos

move.pl

Nenhum comentário foi encontrado.