Eliminando caracteres indesejados

Publicado por Edvaldo Silva de Almeida Júnior 27/12/2006

[ Hits: 5.413 ]

Homepage: http://emeraldframework.net

Download converte.pl




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.

  



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";

}



Scripts recomendados

Alterar senha no shadow

Apaga fila do Exim...

Usando ARGV como login

Compara colunas

arruma_nomes.pl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário