LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (68) - Projekt - zobrazení zápasů

Perl To nejdůležitější máme zdárně za sebou a můžeme se tak pustit do konzolového programu, který našeho modulu využije. Cílem je uživatelsky přívětivý a intuitivně ovládatelný program.

15.5.2008 06:00 | Jiří Václavík | Články autora | přečteno 10754×

Užití modulu

Dalo by se snad říci, že to nejtěžší máme za sebou. Nyní se budeme zabývat zpracováním získaných dat. Soubor live vytvoříme ve dvou fázích. Dnes napíšeme kompletní live bez podpory online přenosu. To bude nejsložitější část programu a dopíšeme ji až příště.

Zauvažujme nyní, co budeme potřebovat a udělejme si pár poznámek.

  • Budeme přijímat argumenty z příkazového řádku a zpracovávat je pomocí Getopt::Long. Též bychom měli myslet na argument --help.
  • Zavoláme modul Livescore a získáme data o zápasech.
  • Pokud byla zadána kritéria, vytřídíme nevyhovující zápasy.
  • Dále data o zápasech, pokud nebyl zvolen online přenos, zobrazíme. Jak bylo požadováno v zadání, odlišíme stav zápasu barvami.
  • Poté vyřešíme online přenos

Nyní můžeme začít psát.

#!/usr/bin/env perl
use strict;
use Livescore;
use Getopt::Long;
use Term::ANSIColor qw(colored);

Jeden importovaný modul ještě neznáme. O možnostech modulu Term::ANSIColor se zmíníme až budeme chtít tisknout barevný text.

Ze všeho nejdříve obstaráme argumenty příkazového řádku. Funkci GetOptions není třeba rozebírat podrobněji, neboť tak již bylo učiněno dříve, když jsme se zpracováváním argumentů zabývali.

GetOptions("league|l=s" => \$liga, "online|o" => \$online, "refresh|h=s" => \$refresh, "help|h" => \$help);

Aby nemohl zadat uživatel jako ligu cokoliv, vytvoříme pro jednoduchost jejich pevný seznam

Pokud se vám takové řešení nelíbí, tak se zas tolik nestane, když tuto kontrolu úplně vynecháte. Metoda ziskej_zdrojovy_kod totiž možná v případě zadání neplatné soutěže stáhne nějakou stránku, ale z ní by se nemělo nic vyextrahovat - to jest žádné zápasy se nenajdou. Další a asi nejlepší možností by bylo zjistit seznam soutěží přímo v modulu a poskytovat jej společně s daty. Nyní se však pro jednoduchost spokojíme s již avizovaným pevným seznamem.

Na livescore.com, odkud data získáváme, jsou k dispozici tyto soutěže.

my @ligy = sort qw(soccer home euro2008 wc2010 u21_euro eurocups royal intl
england italy spain germany france holland belgium portugal scotland austria
denmark finland greece iceland ireland norway sweden switzerland turkey bulgaria
croatia czechia hungary israel poland romania russia yugoslavia slovakia slovenia
ukraine southamerica argentina bolivia brazil chile colombia ecuador paraguay
peru uruguay venezuela concacaf mexico usa costarica elsalvador guatemala asia
japan china armenia azerbaijan georgia kazakhstan australia africa algeria egypt
morocco southafrica tunisia);

Pokud uživatel zadá neexistující jméno soutěže (nebo přepínač --help), vypíšeme nápovědu.

if (not in_array($liga, \@ligy) and $liga or $help) {die << "EOF"
live - online monitoring of football matches
Usage: live [OPTIONS] [condition1 condition2 ... conditionn]

Options:
    -l, --league=<liga>         matches will be searched in this league
    -o, --online, --verbose     online monitoring on
    -h, --help                  display this help and exit
    -r, --refresh               number of second denouncing refresh interval

conditions are patterns, which are occured in demand match

Available leagues: @ligy

soccer - all matches
home - home matches
EOF
}

Chybí nám podprogram in_array. Buď ho můžeme importovat například z modulu Array::PAT, ale než instalovat nový modul, možná bude rychlejší, když si in_array sami napíšeme.

sub in_array {
    my($hodnota, $p_pole) = @_;
    my $vysledek = undef;

    foreach my $p (@$p_pole){
        if ($p eq $hodnota){
            $vysledek = 1;
            last;
        }
    }

    return $vysledek;
}

Pokud uživatel na vstup ligu nebo refresh nezadá, doplníme je implicitními hodnotami.

$liga = "home" if !$liga;
$refresh = 60 if !$refresh;

A posledním údajem, který nám uživatel poskytuje, jsou kritéria. Ta jsou obsažena v poli @ARGV.

my @vsechna_kriteria = @ARGV;

Nyní můžeme začít pracovat s modulem. Již minule jsme si ukázali základní použití. Začít můžeme úplně stejně.

my $live = Livescore->new($liga, $refresh);
my @vyhovujici = $live->ziskej_zapasy_dane_ligy();
@vyhovujici = $live->najdi_zapas_podle_kriterii(\@vyhovujici, \@vsechna_kriteria);

Nyní je třeba data vhodně zobrazit. Způsob bude záležet na tom, zda byla zadána volba -online. Online přenos dnes ještě dělat nebudeme.

if(!$online){
    tiskni_vyhovujici(@vyhovujici);
    exit;
}else{
    die "Online přenos zatím není dostupný!\n";
}

Poslední věc první fáze bude napsání podprogramu tiskni_vyhovujici.

sub tiskni_vyhovujici {
    my @vyhovujici = @_;
    #zpracování dat získaných z modulu Livescore a tisk
}

Zpracování dat bude probíhat v cyklu. Projdeme tedy pole @vyhovujici a v každé iteraci zpracujeme jeden záznam.

    for (@vyhovujici){
        #zpracování a vytisknutí jednoho záznamu
    }

Protože nyní máme všechna data přímo dostupná, můžeme začít s formátováním. Nejprve vytvoříme proměnnou $skore, do které zahrneme najednou skóre obou soupeřů, oddělené dvojtečkou.

        my $skore = $_->{"skore1"}.":".$_->{"skore2"};

Nyní pomocí sprintf zformátujeme všechny informace na řádek a výsledek uložíme do stejnojmenné proměnné.

        my $vysledek = sprintf "\r%02s' %-40s %-3s %10s (%s) %s\n", $_->{"minuta"},
        $_->{"tym1"} ." - ". $_->{"tym2"}, $skore, $_->{"vykop"}, $_->{"liga"};

Data jsme nevytiskli ale pouze zformátovali. To proto, že je ještě musíme příslušně obarvit. Zvolíme tmavě zelenou barvu pro zápasy, které již skončily, světle zelenou pro právě probíhající zápasy a zápasy ukončené tiskneme bíle. Term::ANSIColor nabízí několik funkcí z nichž jednou je colored a právě tu jsme importovali. Obarvíme pomocí ní hodnotu proměnné $vysledek a vytiskneme.

        if ($_->{"hraje_se"} == Livescore::PROBIHA){ print colored $vysledek,
"bold green";}
        elsif ($_->{"hraje_se"} == Livescore::UKONCEN){ print colored $vysledek,
"green";}
        else {print colored $vysledek, "white";}

První výsledky

Nyní zkopírujme modul Livescore.pm někam do cesty, kde se hledají moduly. Skriptu live pak nastavíme atribut spustitelnosti a překopírujeme do PATH. Tedy například /usr/bin a nebo, pokud používáte zvláštní cestu pro své výtvory, použijte třeba /home/bin či /home/username/bin.

Nyní spusťme program live.

live live -l czechia live -l england manchester

live *** live -l czechia *** live -l england manchester

Příště náš program konečně dokončíme.

Verze pro tisk

pridej.cz

 

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ů

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ář

18.6.2018 0:43 /František Kučera
Červnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 21. 6. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: F-Droid, aneb svobodný software do vašeho mobilu. Kromě toho budou k vidění i vývojové desky HiFive1 se svobodným/otevřeným čipem RISC-V.
Přidat komentář

23.5.2018 20:55 /Ondřej Čečák
Od pátku 25.5. proběhne na Fakultě informačních technologií ČVUT v Praze openSUSE Conference. Můžete se těšit na spostu zajímavých přednášek, workshopů a také na Release Party nového openSUSE leap 15.0. V na stejném místě proběhne v sobotu 26.5. i seminář o bezpečnosti CryptoFest.
Přidat komentář

20.5.2018 17:45 /Redakce Linuxsoft.cz
Ve čtvrtek 31. května 2018 připravuje webový magazín BusinessIT ve spolupráci s Best Online Média s.r.o. pátý ročník odborné konference Firemní informační systémy 2018. Akce proběhne v kongresovém centru Vavruška (palác Charitas), Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 15 hod. odpoledne. Konference je zaměřena na efektivní využití firemních informačních systémů a na to, jak plně využít jejich potenciál. Podrobnější informace na webových stránkách konfrence.
Přidat komentář

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

> Poslední diskuze

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

20.9.2018 10:04 / Jan Ober
Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:00 / Jan Ober
Re: Gimp

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

Více ...

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