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

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ů

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

14.5.2018 7:28 /František Kučera
Květnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 17. 5. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: Audio – zvuk v GNU/Linuxu.
Přidat komentář

7.5.2018 16:20 /František Kučera
Na stránkách spolku OpenAlt vyšla fotoreportáž Pražské srazy 2017 dokumentující srazy za uplynulý rok. Květnový pražský sraz na téma audio se bude konat 17. 5. 2018 (místo a čas ještě upřesníme).
Přidat komentář

17.4.2018 0:46 /František Kučera
Dubnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 4. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tématem tohoto srazu bude OpenStreetMap (OSM) aneb svobodné mapy.
Přidat komentář

16.3.2018 22:01 /František Kučera
Kulatý OpenAlt sraz v Praze oslavíme klasicky: u limonády a piva! Přijďte si posedět, dát si dobré jídlo a vybrat z mnoha piv do restaurace Kulový blesk, který najdete v centru Prahy nedaleko metra I. P. Pavlova na adrese Sokolská 13, Praha 2. Sraz se koná ve čtvrtek 22. března a začínáme v 18:00. Heslo: OpenAlt. Vezměte s sebou svoje hračky! Uvítáme, když si s sebou na sraz vezmete svoje oblíbené hračky. Jestli máte nějaký drobný projekt postavený na Arduinu, nějakou zajímavou elektronickou součástku, či třeba i pěkný úlovek z crowdfundingové akce, neváhejte. Oslníte ostatní a o zábavu bude postaráno.
Přidat komentář

13.2.2018 0:41 /František Kučera
Únorový pražský sraz OpenAltu se koná 15. 2. 2018 a tentokrát se vydáme na návštěvu do jednoho pražského datacentra. Sejdeme se v 17:50 v severovýchodní části nástupiště tramvajové zastávky Koh-I-Noor. Po exkurzi se přesuneme do restaurace U Pštrosa (Moskevská 49), kde probereme tradiční témata (svobodný software a hardware, DIY, CNC, SDR, 3D tisk…) a tentokrát bude k vidění i IoT brána od The Things Network.
Přidat komentář

11.2.2018 23:11 /Petr Ježek
Hledáte lehký a rychlý prolížeč PDF souborů? Pokud vás již omrzelo čekat na načítání stránek či jiné nešvary, zkuste xreader.
Přidat komentář

11.2.2018 20:35 /Redakce Linuxsoft.cz
Třetí ročník odborné IT konference na téma Cloud computing v praxi proběhne ve čtvrtek 1. března 2018 v konferenčním centru Vavruška, v paláci Charitas, Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 16 hod. odpoledne. Konference o trendech v oblasti cloud computingu nabídne i informace o konkrétních možnostech využívání cloudů a řešení vybraných otázek souvisejících s provozem IT infrastruktury.
Přidat komentář

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

> Poslední diskuze

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í?

16.1.2018 1:08 / Ivan Pittner
verejna ip od o2 ubuntu

15.1.2018 17:26 / Mira Harvalik
Re: Jak udělat HTML/Javascript swiping gallery do mobilu?

30.12.2017 20:16 / Michal Knoll
odmocnina

Více ...

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