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.

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

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