Eliminando caracteres indesejados
Publicado por Edvaldo Silva de Almeida Júnior 27/12/2006
[ Hits: 6.014 ]
Homepage: http://emeraldframework.net
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.
#!/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";
}
script para localizar conteudo de arquivo
Script para adicionar e remover usuários no IMSPECTOR
Adiciona-Altera senhas/usuarios no sistema
Script que procura uma palavra em um arquivo.
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Programa fora de escala na tela do pc (36)
Instalação dualboot Windows 11 e Debian 13 (0)
Eu queria adicionar a incon do wifi e deixa transparente no fluxbox no... (0)









