Viva o Linux for Torsmo

Publicado por Adão S. Raul Neto 18/10/2005

[ Hits: 3.567 ]

Homepage: https://github.com/adaoraul

Download vivaolinux.pl




Pequeno script que mostra os ultimos artigos do site Viva o Linux no torsmo

  



Esconder código-fonte

#!/usr/bin/perl
# Script criado para ser usado com o torsmo
# mostra o titulo dos 3 ultimos artigos 
# postados no site vivaolinux.com.br
#
# by dark_on_weed

use POSIX;
use LWP::Simple;

my $numArgs = $#ARGV+1;
my $key = $ARGV[0]; 

my $conteudo = get("http://www.vivaolinux.com.br/index.rdf");

sub noticia1
{
   my @noticia1 = split(/<title>/,$conteudo);
   @noticia1 = split(/<\/title>/,$noticia1[2]);
   return $noticia1[0];
}

sub noticia2
{
   my @noticia2 = split(/<title>/,$conteudo);
   @noticia2 = split(/<\/title>/,$noticia2[3]);
   return $noticia2[0];
}

sub noticia3
{
   my @noticia3 = split(/<title>/,$conteudo);
   @noticia3 = split(/<\/title>/,$noticia3[4]);
   return $noticia3[0];
}

if($key eq "1") {
   $noticia1 = noticia1();
   print "$noticia1";
}

elsif($key eq "2") {
   $noticia2 = noticia2();
   print "$noticia2";
}

elsif($key eq "3") {
   $noticia3 = noticia3();
   print "$noticia3";
}

Scripts recomendados

Invertendo DNA

Gravar CDROM

Eterm sem bordas

Login AUDIT

Beep-Media-Player for Torsmo


  

Comentários
[1] Comentário enviado por lueneberg em 18/10/2005 - 20:04h

como faço para executar os scripts em perl , pois em sh funcionam normalmente,,,em pl não, esdtou colocando desta maneira:

${execi 1800 /home/kurumin/.torsmorc/bmp.pl}


[2] Comentário enviado por adaoraul em 19/10/2005 - 19:49h

amigo, o script pede parametros

att

Adão Raul


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts