Beep-Media-Player for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 5.522 ]
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"; }
Diminuir ou aumentar o brilho de notebook
Índice (Logaritmo Discreto) em Perl
Remover lista de pacotes do Portage
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
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
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Como baixar os drivers de áudio no linux mint? (7)
Como posso localizar o arquivo HTML da página inicial do GLPI dentro d... (2)
[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