Simples script que mostra o nome e o tempo da musica no torsmo

• Download bmp.pl
• Enviar nova versão

Esconder código-fonte

#!/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";

}

Verificação se utilizador existe ou não

Weather Channel for Torsmo

Randomize MP3

Calculadora com Perl com menos de 10 linhas de código

Algoritmo de Euclides estendido em Perl

Nenhum comentário foi encontrado.