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 9321×

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ů

24.8.2016 6:44 /Ondřej Čečák
Poslední týden CFP LinuxDays 2016; pokud byste rádi přednášeli na LinuxDays 2016 8. a 9. října v Praze, můžete svůj příspěvek přihlásit, následovat bude veřejné hlasování.
Přidat komentář

9.8.2016 22:56 /Petr Ježek
Zařazení souborového systému reiser4 do jádra 4.7 znamená konečně konec patchování jádra jen kvůli možnosti použít reiser4.
Přidat komentář

12.7.2016 13:14 /František Kučera
Spolek OpenAlt zve na 130. distribuovaný sraz příznivců svobodného softwaru a otevřených technologií (hardware, 3D tisk, SDR, DIY, makers…), který se bude konat ve čtvrtek 21. července od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

11.7.2016 16:53 /Redakce Linuxsoft.cz
Konference LinuxDays hledá přednášející. Přihlášky poběží do konce prázdnin, v září bude hlasování a program. Více na https://www.linuxdays.cz/2016/cfp/.
Přidat komentář

8.5.2016 17:19 /Redakce Linuxsoft.cz
PR: Dne 26.5.2016 proběhne v Praze konference Cloud computing v praxi. Tématy bude např. nejnovější trendy v oblasti cloudu a cloudových řešení, cloudové služby, infrastruktura cloudu, efektivní využití cloudu, možné nástrahy cloudů a jak se jim vyhnout
Přidat komentář

21.4.2016 8:01 /František Kučera
Spolek OpenAlt zve na 127. distribuovaný sraz příznivců svobodného softwaru a otevřených technologií (hardware, 3D tisk, SDR, DIY, makers…), který se bude konat ve čtvrtek 28. dubna od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

2.3.2016 22:41 /Ondřej Čečák
Letošní ročník konference InstallFest již tento víkend!
Přidat komentář

14.2.2016 16:39 /Redakce Linuxsoft.cz
O víkendu 5. a 6. března 2016 proběhne na pražském Strahově 8. ročník tradiční konference InstallFest. Celkem za dva dny uvidíte ​30 přednášek​ a ​6 workshopů.
Přidat komentář

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

> Poslední diskuze

12.8.2016 11:51 / Josef Zapletal
Jak udělat HTML/Javascript swiping gallery do mobilu?

8.8.2016 14:58 / Adams
fairies for hire

28.7.2016 15:51 / pepan
Re: NetBeans vs Eclipse

10.6.2016 21:10 / pavel riha
FreeBSD 10.3 a virtualizace

8.6.2016 21:56 / Milan Gallas
Nevalidní prefix m

Více ...

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