Beep-Media-Player for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 5.529 ]
Homepage: https://github.com/adaoraul
Simples script que mostra o nome e o tempo da musica no torsmo
#!/usr/bin/perl -w # Script para mostrar a musica que está ouvindo no torsmo (torsmo.sf.net) # o script necessita do plugins bmp-songchange que pode ser baixodo em # http://bmp-plugins.berlios.de/ e com a seguinte configuração # # No BMP # "Song change" # "echo "%s" > /tmp/bmpsong && echo "%l" >> /tmp/bmpsong" # # No torsmo # $color ${execi 10 ~/.torsmo/bmp.pl} # obs.: ~/.torsmo/bmp.pl é o caminho do script use POSIX; my $numArgs = $#ARGV+1; my $key = $ARGV[0]; my @bmpsong; open(BMPSONG, "/tmp/bmp"); @bmpsong = <BMPSONG>; close BMPSONG; sub title { my $title; $title = $bmpsong[0]; chop($title); $title =~ s/(_[^_]*_[^_]*_)|(.mp3)|(.MP3)//; @title = split(/-/,$title); return $title[1]; } sub artist { my $title; $title = $bmpsong[0]; chop($title); $title =~ s/(_[^_]*_[^_]*_)|(.mp3)|(.MP3)//; @title = split(/-/,$title); return $title[0]; } sub tempo { my $lenght; my $minutos; my $segundos; $length = $bmpsong[1]; $length = $length / 1000; @length = split(/\./,$length); $segundos = $length[0]; while($segundos > 60) { $segundos = ($segundos - 60); $minutos++; } if (length($segundos) == 1) { $segundos = "0".$segundos; } return $minutos.":".$segundos; } if($key eq "Title") { my $title = title(); print "$title"; } elsif($key eq "Tempo") { my $tempo = tempo(); print "$tempo"; } elsif($key eq "Artist") { my $artist = artist(); print "$artist"; }
Remover lista de pacotes do Portage
Calculadora com Perl com menos de 10 linhas de código
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta