Viva o Linux for Torsmo
Publicado por Adão S. Raul Neto 18/10/2005
[ Hits: 4.024 ]
Homepage: https://github.com/adaoraul
Pequeno script que mostra os ultimos artigos do site Viva o Linux no torsmo
#!/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"; }
Índice (Logaritmo Discreto) em Perl
Remover lista de pacotes do Portage
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Mikrotik não abre o webmail-segur... da Locaweb (11)
Olha que maravilha, Arch no C2D 7400, 2GB de RAM, vídeo onboard e no G... (3)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (1)