Beep-Media-Player for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 5.557 ]
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"; }
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
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
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)