Eliminando caracteres indesejados
Publicado por Edvaldo Silva de Almeida Júnior 27/12/2006
[ Hits: 5.944 ]
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 que procura uma palavra em um arquivo.
Script para adicionar e remover usuários no IMSPECTOR
Adiciona-Altera senhas/usuarios no sistema
Nenhum coment�rio foi encontrado.
Conciliando ZRAM Swap com Swap em arquivo ou partição
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Debian 13 Trixie para Iniciantes
Convertendo pacotes DEB que usam ZSTD (Padrão Novo) para XZ (Padrão Antigo)
Ajuda com o Debian 13 - Video hibrido geforce 940 mx Wayland OFF (2)
Problema com impressoras de rede (1)
Rust é o "C da nossa geração"? (10)