Randomize MP3
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 4.759 ]
Homepage: https://fabio.automatizando.dev
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);
Máquina perereca - até onde é possível o uso de Linux?
Mitigação - O que é e quando é "seguro" desabilitar
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Como anda a saúde do disco rígido?
Reescalando a tela hd para fullhd com o xrandr
script backup e restaure samba4 (1)
Debian 13 "trixie&... lançado! (15)
samba4 versao 4.22.3 usuario nao consegue trocar a senha [RESOLVIDO] (5)
Rede Windows / Linux Mint- pastas e arquivos somente como leitura (5)