Quienes le hacen al perl

safito dijo:

A mi me cuadra un pichaso esa vara, ese lenguaje esta solo, es como de octava generacion esa vara esta muy adelantada

lo que me cuadra un pichaso es no tener que declarar las variables al principio,, si no que Ud chorrea codigo "on the fly"...

asi que les voy a regalar un scriptsillo por si no lo habian visto...

Code:

#!/usr/bin/perl

my $url = 'http://www.diarioextra.com';

use LWP::Simple;
my $content = get $url;
die "No puedo con $url" unless defined $content;
$pathtosave = "/home/forodecostarica/public_html/feeds/diarioextra/";

$content =~ m/Portada" href="(.*?)index.php">/;

$datestring = $1;



$nacionales = $url . "/" . $datestring . "nacionales01.php";
$sucesos = $url . "/" . $datestring . "sucesos01.php";
$opinion = $url . "/" . $datestring . "opinion01.php";
$deportes = $url . "/" . $datestring . "deportes01.php";
$internacionales = $url . "/" . $datestring . "internacionales01.php";
$espectaculos = $url . "/" . $datestring . "espectaculos01.php";



$url = $nacionales;
$filetosave = $pathtosave . "nacionales.xml";
$caption = "Nacionales";
&dothemagic;

$url = $sucesos;
$filetosave = $pathtosave . "sucesos.xml";
$caption = "Sucesos";
&dothemagic;

$url = $opinion;
$filetosave = $pathtosave . "opinion.xml";
$caption = "Opinion";
&dothemagic;

$url = $deportes;
$filetosave = $pathtosave . "deportes.xml";
$caption = "Deportes";
&dothemagic;

$url = $internacionales;
$filetosave = $pathtosave . "internacionales.xml";
$caption = "Internacionales";
&dothemagic;

$url = $espectaculos;
$filetosave = $pathtosave . "espectaculos.xml";
$caption = "Espectaculos";
&dothemagic;


sub dothemagic

{


my $content = get $url;



$content =~ m/<select name(.*?)<\/select>/;

$toparse = $1;

$toparse =~ s/Á/á/g;
$toparse =~ s/É/é/g;
$toparse =~ s/Í/í/g;
$toparse =~ s/Ó/ó/g;
$toparse =~ s/Ú/ú/g;
$toparse =~ s/¡/¡/g;
$toparse =~ s/Ç/ç/g;
$toparse =~ s/“/"/g;
$toparse =~ s/”/"/g;
$toparse =~ s/Ü/ü"/g;
$toparse =~ s/Ñ/ñ/g;
$toparse =~ s/¢/¢/g;
$toparse =~ s/¿/¿/g;
$toparse =~ tr/[A-Z]/[a-z]/;

$toparse =~ m/value="(.*?)">(.*?)<\/option>/;



open (FILE, ">$filetosave");



print FILE "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n";
print FILE "<rss version=\"2.0\">\n";
print FILE "<channel>\n";
print FILE "<title>Diario Extra - " . $caption . ". San José, Costa Rica.</title>\n";
print FILE "<link>http://www.diarioextra.com/</link>\n";
print FILE "<description>Diario Extra - Parsed by Forodecostarica.com.</description>\n";
print FILE "<language>es-CR</language>\n";



$i = 0;
while ($toparse =~ m/value="(.*?)">(.*?)<\/option>/g)

    

  {
    $link = $1;
    $i = $i + 1;
    if ($i == 1)

     { 
    
       $trimmer = $link;
       $nontr =   $2;
          $nontr =~ s/(\w+)/\u$1/;
       $trimmer =~ s/(.*?)value="//;
       print FILE "<item>\n";
       print FILE "<title>" . $nontr . "</title>\n";
       print FILE "<link>" . $trimmer . "</link>\n";
       print FILE "</item>\n";

     }

    else

    {
    $nontr2 = $2;
    $nontr2 =~ s/(\w+)/\u$1/;
    print FILE "<item>\n";
    print FILE "<title>" . $nontr2 . "</title>\n";
    print FILE "<link>" . $link . "</link>\n";
    print FILE "</item>\n";
    
    }

  }

print FILE "</channel>\n";
print FILE "</rss>\n";


close FILE;


}

Click to expand...