Randomize MP3
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 4.493 ]
Homepage: https://www.instagram.com/alexabolada/
Script escrito em PERL usado para reproduzir arquivos MP3 de um diretório de formarandômica. Este script, ao contrário do xmms e do mpg123, tem sua lógica de randomização eficiente, não repetindo uma música antes que todas as outras sejam previamente reproduzidas.
#!/usr/bin/perl if ($#ARGV != 0) { print "Qual diretório ?\n"; exit; } use strict; my $diretorio = shift; my @arquivos = (); my %lista = (); my $menor = 1; if (!-d $diretorio) { print "Diretório maluco ?\n"; exit; } chdir $diretorio; opendir(D,$diretorio); @arquivos = grep /\.mp3$/i, readdir(D); closedir(D); if (!"@arquivos") { print "Cadê os MP3 deste diretório ?\n"; exit; } print "Termine o programa com 'kill -HUP $$' ...\n"; foreach my $arquivo (@arquivos) { if (!defined($lista{$arquivo})) { $lista{$arquivo} = 1; } } sub round { my $x = shift; $x = sprintf "%.0f",$x; return $x; } do { # SHUFFLE MODE my $rotates = 0; do { my $indice = round(rand($#arquivos)); if ($lista{$arquivos[$indice]} <= $menor) { $lista{$arquivos[$indice]}++; print "Reproduzindo música: $arquivos[$indice] ...\n"; system("mpg123 '$arquivos[$indice]' 1>>/dev/null 2>>/dev/null"); $rotates++; } } while ($rotates <= $#arquivos); $menor++; } while(1);
Índice (Logaritmo Discreto) em Perl
MyBF - Interpretador de BrainFuck
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Impressora Canon Ip 1800 (Drivers) 64 bit (3)
iso de sistema 32 bit em atividade (15)
Como transfiro os pokemons do fire red para o emulador mupen64? (1)