Najnovšie na Twitteri
    sledujte môj Twitter
    Moje projekty

    Download skript pre komiks Pearls Before Swine

    Publikované: 15.10.2008 21:21 | Zobrazené: 456x

    Komiks Pearls Before Swine (Perly sviniam) vychádza už niekoľko rokov. Ja som ho však objavil len pred pár mesiacmi. Nesmejem sa vždy na každom stripe a úprimne povedané, Potkan mi ide poväčšinou na nervy, ale inak je to pomerne vtipné. Najradšej mám Prasiatko a Bratstvo krokodílov, ktorí sa snažia uloviť Zebru.

    V komikse vystupuje niekoľko postáv. Najstaršie a najčastejšie sa vyskytujúce sú arogantný, povýšenecký, ale trefný Potkan. Potom trošku prihlúpučké, ale milé Prasiatko. Títo dvaja sú najlepší kamaráti, aj keď Potkan sa s Prasiatkom zahadzuje len kvóli tomu, že má pri ňom pocit nadradenosti.

    Ďalšou postavou je ich sused Zebra. V komikse vystupuje ako doplnková postava a najviac zábavy je s ním v spojení s krokodílmi.

    Krokodíly bývajú hneď vedľa Zebry. Neovplývajú príliš veľkou inteligenciou, majú cudzí "prízvuk" a snažia sa rôznymi úskokmi uloviť a zjesť Zebru. Osobne si myslím, že tieto snahy krokodílov sú najvtipnejšie na celom komikse. Krokodíly založili bratstvo ZZE, oficiálne Zeta Zeta Epsilon, v skutočnosti Zeeba Zeeba Eata.

    Prasiatko s Potkanom majú aj strážneho psa... vlastne strážneho Káčera. Ten je trošku militaristicky naladený a berie svoju funkciu veľmi vážňe.

    Komiks je fajn, ale mal som trošku problém nájsť na webe jeho staršie stripy. A keď sa mi to už podarilo, tak som si rovno napísal skript, ktorý mi všetky diely stiahol do počítača. A ten prikladám sem. 

    #!/usr/bin/perl
 
# vim:set shiftwidth=4 tabstop=4 expandtab foldmethod=marker: #
 
use strict;
use warnings;
 
use Class::Date qw/ date /;
use LWP::UserAgent;
use POSIX qw/ strftime /;
 
my $DOWNLOAD_DIR = 'pearls-before-swine';
my $date;
 
$date = date "2002-12-30";
 
while ($date <= date strftime("%Y-%m-%d", localtime) {
   my $ua = new LWP::UserAgent;
   $ua->agent ("Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.1) Gecko/2008071420 Iceweasel/3.0.1 (Debian-3.0.1-1)");
   my $url = 'http://www.chron.com/apps/comics/showComic.mpl?date='.$date->year.'/'.$date->month.'/'.$date->day.'&name=Pearls_Before_Swine';
   my $response = $ua->get ($url);
 
   if ($response->as_string =~ /(http://images.chron.com/apps/comics/images/d{4}/d{1,2}/d{1,2}/Pearls_Before_Swine.d+..+?.gif)/) {
 
       my $image_url = ;
       my $image = $ua->get ($image_url);
       open FH, ">", $DOWNLOAD_DIR.'/'.strftime("%Y-%m-%d", localtime $date->epoch).'.gif';
       print FH $image->content;
       close FH;
       print strftime("%Y-%m-%d", localtime $date->epoch), ": ", $url, "
", $image_url, "
", "-" x 40, "
";
 
   }
   else {
       # k datumu nie je strip
   }
 
   $date = $date + '1D';
}

    Pošli na: Facebook   vybrali.sme.sk
    Tagy: , , , , ,
    Komentáre:

    Zatiaľ nie sú žiadne komentáre.

    Pridať komentár