ARCHIV

Perl (67) - Projekt - dokončujeme modul

Perl Dnes dokončíme základní modul, abychom ho vzápětí mohli použít k vytvoření samotného programu

30.4.2008 10:00 | Jiří Václavík | Články autora | přečteno 14372×

Perzistence

Když se podíváme na seznam úkolů, které by měl modul zvládat, zbývá poslední. Perzistentní uchovávání dat. Půjde jen o to, jak vhodně přepsat podprogram ziskej_zdrojovy_kod. Nadefinujeme si tedy proměnnou $cil, která bude jednoznačně identifikovat každý stažený soubor. $cil bude obsahovat cestu k souboru, kam zdrojový kód uložíme. Její tvar bude následující, podle toho, zda půjde o seznam zápasů nebo podrobnosti ke konkrétnímu zápasu.

/tmp/livescore_liga_odkaz_idzapasu
/tmp/livescore_liga

Metoda ziskej_zdrojovy_kod bude vypadat takto.

sub ziskej_zdrojovy_kod {
    my($self, $liga, $odkaz_idzapasu) = @_;
    my $url;
    my $cil;
    my $zdroj = undef;
    local $/ = "";

    if ($odkaz_idzapasu){
        $url = "http://www.livescore.com/default.dll/Game?comp=$liga&game=$odkaz_idzapasu";
        $cil = "/tmp/livescore_".$liga."_".$odkaz_idzapasu;
    }else{
        $url = "http://www.livescore.com/default.dll?page=$liga";
        $cil = "/tmp/livescore_$liga";
    }

    #získání dat ze souboru nebo stažení; uložení dat do souboru

    return $zdroj;
}

Za jakých okolností nyní budeme data stahovat a za jakých pouze kopírovat ze zálohy? Soubor musí splňovat dvě podmínky. Musí existovat a musí být mladší než nějaký interval definovaný uživatelem. Ještě předtím, než dokončíme metodu ziskej_zdrojovy_kod musíme do objektu přidat v konstruktoru parametr refresh, který implicitně nastavíme na 30 sekund. Pokud bude soubor starší, než kolik je $refresh bude stažen znovu.


    $f->{"refresh"} = (int $refresh < 30) ? 30 : $refresh;

Vraťme se k metodě ziskej_zdrojovy_kod. Nyní již známe podmínky, za kterých soubor pouze zkopírujeme. Proměnnou $/ jsme nastavili proto, abychom načetli celý kód ze souboru najednou.

    if (-e $cil and time() - (stat($cil))[9] <= $self->{"refresh"}){
        open(R, $cil) or die "Nelze otevrit datovy soubor\n";
        $zdroj = <R>;
        close R;
    }else{
        #stáhneme data znovu a uložíme do zálohy
    }

Nejsou-li tyto podmínky splněny, nezbývá, než data získat znovu z internetu. Vytvořenému souboru poskytneme plná práva, aby mohli zálohu načítat a aktualizovat jiní uživatelé. To sice dává možnost falšovat data, ale vzhledem k tomu, že je stejně získáváme z webu, tak se na ně spolehnout nelze.

        unlink $cil;
        my $mech = WWW::Mechanize->new();
        $mech->get($url);
        $zdroj = ($mech->get($url))->{"_content"};
        open(W, ">$cil") or die "Nelze otevrit datovy soubor\n";
        print W $zdroj;
        close W;
        chmod 511, $cil;

Modul hotov

Až na dokumentaci jsme právě dokončili základní část modulu. Zrekapitulujme si stručně, co všechno nyní vlastně dokáže.

jsme schopni získat data - ať už seznam zápasů nebo seznam událostí k jednotlivým zápasům
tato data dokážeme perzistentně uchovat
z těchto surových dat dokážeme získat potřebné informace
tyto informace dokážeme třídit na základě kritérií

Ukázka použití modulu

Sice tušíme, jak se bude modul používat, ale měli bychom si to pro lepší pochopení alespoň stručně ukázat.

V úvodu je třeba volat dvě metody - konstruktor a metodu na získání zápasů.

my $live = Livescore->new($liga);
my @vyhovujici = $live->ziskej_zapasy_dane_ligy;

Dále zpravidla vybereme pouze zápasy vyhovující nějakým kritériím

@kriteria = qw(manchester liverpool);
@vyhovujici = $live->najdi_zapas_podle_kriterii(\@vyhovujici, \@kriteria);

Nyní můžeme udělat několik věcí. Buď data jen zobrazit za základě dat v poli @vyhovujici nebo získat podrobnosti k zápasu a zobrazit až je. Je též možné tyto podrobnosti periodicky doplňovat a tím získat program na online sledování.


my @udalosti = $live->prenos($vyhovujici_liga, $vyhovujici_idzapasu);

Tím vším se ale budeme podrobně zabývat až příště. Pokud si chcete vytvořit vlastní program využívající modul Livescore ještě dříve, než to uděláme společně v dalším pokračování seriálu, můžete si celý modul stáhnout.

Verze pro tisk

Související články

Předchozí Celou kategorii (seriál) Další

Předchozí Celou kategorii (seriál) Další


DISKUZE Nejsou žádné diskuzní příspěvky u dané položky. Příspívat do diskuze mohou pouze registrovaní uživatelé.

Vyhledávání software

Vyhledávání článků

Rozšířené vyhledávání

Linux News

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

Více ... Přidat zprávičku

Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2024) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze

ARCHIV

Perl (67) - Projekt - dokončujeme modul

Perzistence

Modul hotov

Ukázka použití modulu

DISKUZE