Viva o Linux for Torsmo

Descrição

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";
}