Eliminando caracteres indesejados

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

[ Hits: 5.779 ]

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

Journaling de arquivos

getter

Listar arquivos de um diretório.

Shadow Post It

Apaga fila do Exim...


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts