arruma_nomes.pl
Publicado por zé ricardo 21/02/2005
[ Hits: 5.840 ]
É um script bem simples que "arruma" os nomes de mp3.
Está bem comentado, assim cada um pode tirar o que não gostar.
Ele pega os arquivos .mp3 de um diretório e retirar os espaços, vírgulas, firulas e afins.. e deixa tudo em letra minúsculas. Quem gosta de modo texto sabe que é um saco ficar "escapando" os nomes das mp3 e etc.
#!/usr/bin/perl -w # Autor: Zé Ricardo (zehzinho@gmail.com) # # Renomeia os arquivos mp3, de forma que os espacos e caracteres estranhos # sejam removidos # # Uso: ./rightmp3names.pl <dir> # Se "dir" nao for passado, usa-se o diretorio atual # # Para instalar String::ShellQuote use Cpan # cpan (enter) # install String::ShellQuote use strict; use warnings; use String::ShellQuote; # seguranca, "escapa" uma string para o bash use Cwd; # para getcwd() unless ($ARGV[0]) { $dir = getcwd; } else { $dir = $ARGV[0]; # nao vem } unless ($dir =~ /[\/]$/) { $dir .= "/"; } opendir (DIR, $dir) or die $!; my @arquivos = grep /\.mp3$/i, readdir DIR; foreach my $mp3file (@arquivos) { $new_name = $mp3file; $new_name =~ s/\s+/_/g; # tira os espacos $new_name =~ s/_-_/-/g; # tranforma "_-_" em apenas "-" $new_name =~ s/^[-_]+//; # elimina '-' e '_' do inicio $new_name =~ s/&/and/g; # transforma & em "and" $new_name =~ s/[\(\)\[\]]+/_/g; # () e [] viram _ $new_name =~ s/,/_/g; $new_name =~ s/\'+/_/g; # elimina as aspas $new_name =~ s/\`+/_/g; # elimina as crases $new_name =~ s/_+/_/g; # elimina "_" sequenciais $new_name =~ s/-+/-/g; # elimina "-" sequenciais $new_name = lc $new_name; # todas as letras ficam minusculas # faz a modificacao se ouve alteracao if ($new_name ne $mp3file) { $dir = shell_quote ($dir); $mp3file = shell_quote ($mp3file); $new_name = shell_quote ($new_name); system "mv $dir$mp3file $dir$new_name"; print "\n$mp3file virou $new_name"; } } closedir DIR;
Script para adicionar e remover usuários no IMSPECTOR
Script que remove palavras de um arquivo.
Listar arquivos de um diretório.
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
Como Incorporar o Áudio no Executável ? (2)
LibreOffice alterar nomenclatura do ícone (13)
O que você está ouvindo agora? [2] (130)
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter