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

> Perl (77) - Služby internetu

Perl Dnes si představíme dva moduly z archivu CPAN, které dovedou využít internetových služeb FTP a POP3.

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

Existuje několik modulů, které poskytují rozhraní pro komunikaci s některými síťovými službami. Můžeme si tím pádem vytvořit jednoduché emailové klienty nebo FTP klienty.

FTP klient

FTP je protokol, který, jak již je z názvu File Transfer Protocol patrné, umožňuje pohodlný přenos dat mezi počítači. Funguje na mechanizmu klient - server. Pro Perl je v archivu CPAN k dispozici modul nazvaný Net::FTP, jež právě FTP komunikaci poskytuje.

Na příkladu si ukážeme, jak se připojit k nějakému vzdálenému serveru a jak z něj získávat a posílat mu data.

Abychom si mohli vyzkoušet funkce, jež budeme dále popisovat, je třeba mít nějaký vzdálený počítač, kam se budeme moci přes FTP připojit. Dále budu předpokládat, že máme server ftp.server.cz, na kterém existuje uživatel user s heslem pAssW0Rd.

Práce s modulem Net::FTP zahrnuje několik kroků. Jsou to následující.

  1. Spojení s FTP serverem
  2. Přihlášení se k serveru pod uživatelským jménem
  3. Uživatelské akce - samotná práce se soubory na serveru
  4. Ukončení spojení

Spojení a příhlášení

Ze všeho nejdříve vytvoříme proměnné s přihlašovacími údaji.

use Net::FTP;
my $hostname = "ftp.server.cz";
my $username = "user";
my $password = "pAssW0Rd";

Dále již můžeme volat FTP server. Vytvoříme tedy instanci modulu Net::FTP.

my $ftp = Net::FTP->new($hostname) or die "Nelze se spojit s FTP serverem. ";

A nyní se přihlásíme.

$ftp->login($username, $password) or die "Nelze se přihlásit. ";

Uživatelské akce

V tomto okamžiku jsme ve spojení se serverem. Pokud znáte shellový příkaz ftp, tak pro vás nebudou další informace již ničím novým. Metody modulu Net::FTP mají totiž stejné názvy jako příkazy nástroje ftp.

Nejdříve si představíme metody pro práci s adresářovou cestou. Funkce cwd mění aktuální adresář - tedy funguje podobně jako příkaz cd v shellu.

$ftp->cwd("pub") or die "Nelze změnit adresář. "; #nyní jsme na serveru v adresáři /pub

Budeme-li naopak chtít jméno aktuálního adresáře získat a vytisknout, použijeme příkaz pwd.

print $ftp->pwd; #tiskne /pub

Příkazy ls a ls -l pro výpis obsahu adresáře jsou v příkazovém řádku nepostradatelnými. Modul Net::FTP nám samozřejmě poskytuje i příkazy, které jsou jejich analogiemi. Začneme jednodušším ls. Následující úsek kódu uloží do pole názvy souborů v aktuálním adresáři na serveru a následně každý z nich vytiskne na samostatný řádek.

my @ls = $ftp->ls(".") or die "Nelze získat seznam souborů \n";
$" = "\n";
print "@ls\n";

Uvedení parametru není pro získání obsahu aktuálního adresáře nezbytné. Jinak lze zadat libovolný dostupný adresář na serveru.

Implementace příkazu ls -l je stejná až na to, že místo metody ls se použije dir.

my @ls = $ftp->dir(".") or die "Nelze získat seznam souborů \n";
$" = "\n";
print "@ls\n";

Přenos souborů

Nyní se dostáváme k tomu nejdůležitějšímu. Protokol FTP se využívá právě pro přenos souborů. Můžeme posílat soubory na server, ale také stahovat. Slouží k tomu dvě jednoduché metody: get a put.

Již z názvu je patrné, že put provádí upload souboru na server. Budeme-li chtít poslat soubor letter.txt uložený v aktuálním adresáři lokálního stroje do aktuálního adresáře na server, použijeme následující příkaz.

$ftp->put("./letter.txt") or die "Nelze provést upload. \n";

Pro tok dat opačným směrem, tedy ze serveru na klienta, použijeme funkci get.

$ftp->get("send.php") or die "Nelze provést download. \n";

Ukončení spojení

A nakonec uzavřeme spojení.

$ftp->quit;

Existují samzřejmě další a další příkazy a pokročilejší funkce, ale když o ně někdo bude mít zájem, jistě už sám nahlédne do dokumentace.

POP3 klient

Další službou, ke které se pokusíme pomocí Perlu přistupovat, bude email. POP (Post Office Protocol) verze 3 je protokol, který umožňuje stahovat data z emailového serveru. Nevýhodou POP protokolu může být to, že po přečtení emailu se na serveru zpráva smaže. Je však možné přečíst pouze část zprávy a email na serveru zůstane. Další nevýhodou je to, že POP protokol stahuje všechny zprávy na serveru včetně spamu.

V Perlu poskytuje rozhraní pro POP protokol modul Net::POP3, na kterém si práci s POP3 předvedeme.

Předpokladem pro to, aby vám následující kód fungoval, je přístup k emailové adrese. Od poskytovatele emailu si je třeba si zjistit server příchozích zpráv POP3. Předpokládejme, že máme emailovou adresu user@server.cz, POP3 server je pop3.server.cz, uživatelské jméno user a heslo pAssW0Rd.

use Net::POP3;
my $hostname = "pop3.server.cz";
my $username = "user";
my $password = "pAssW0Rd";

Spojení

Prvním úkolem je připojení k POP3 serveru. Zavoláme tedy konstruktor třídy Net::POP3.

my $pop = Net::POP3->new($hostname) or die "Nelze se připojit. $!\n";

Přihlášení

Dalším krokem je přihlášení. Metoda login vrací počet nových zpráv ve schránce, takže tuto hodnotu hned přiřadíme.

my $zprav = $pop->login($username, $password) or die "Nelze se přihlásit. $!\n";
print "POČET ZPRÁV: $zprav
\n\n";

Uživatelské akce

Pokud nenastal nějaký problém, můžeme nyní se schránkou pracovat. Metoda list zpřístupňuje seznam zpráv.

my $r_zpravy = $pop->list() or die "Nelze získat seznam zpráv. $!\n";

Dále v cyklu zobrazíme z každé zprávy hlavičku a 5 úvodních řádků zprávy. K tomu použijeme metodu top.

foreach (keys %$r_zpravy) {
    print "------------------------------------\n";
    print "Zpráva číslo $_:\n";
    my $r_z = $pop->top($_, 5);
    print @$r_z;
}

Ukončení spojení

A na úplný závěr ukončíme spojení.

$pop->quit;

Závěr

Jak je vidět, práce se službami internetu není v Perlu díky modulům nic složitého. Dnes jsme si ukázali pouze služby FTP a POP3, nicméně existují moduly pro řadu dalších, které obvykle začínají prefixem Net::. Namátkou uveďme Net::IMAP a Net::HTTP.

Verze pro tisk

pridej.cz

 

DISKUZE

ma predstava portalu 9.4.2009 17:05 jkb
L Re: ma predstava portalu 9.4.2009 18:04 Jiří Václavík
  L Re: ma predstava portalu 13.4.2009 15:39 jkb
    |- Re: ma predstava portalu 13.4.2009 21:04 Pavel `Goldenfish' Kysilka
    L Re: ma predstava portalu 14.4.2009 10:09 Jiří Václavík
Serial v PDF? 17.4.2009 12:55 Roman Vašíček
  L Re: Serial v PDF? 19.4.2009 00:43 Jiří Václavík
    L Re: Serial v PDF? 20.4.2009 16:46 Pavel `Goldenfish' Kysilka




Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

15.5.2017 23:50 /František Kučera

Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 18. května od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).


Přidat komentář

12.5.2017 16:42 /Honza Javorek
PyCon CZ, česká konference o programovacím jazyce Python, se po dvou úspěšných ročnících v Brně bude letos konat v Praze, a to 8. až 10. června. Na konferenci letos zavítá např. i Armin Ronacher, známý především jako autor frameworku Flask, šablon Jinja2/Twig, a dalších projektů. Těšit se můžete na přednášky o datové analytice, tvorbě webu, testování, tvorbě API, učení a mentorování programování, přednášky o rozvoji komunity, o použití Pythonu ve vědě nebo k ovládání nejrůznějších zařízení (MicroPython). Na vlastní prsty si můžete na workshopech vyzkoušet postavit Pythonem ovládaného robota, naučit se učit šestileté děti programovat, efektivně testovat nebo si v Pythonu pohrát s kartografickým materiálem. Kupujte lístky, dokud jsou.
Přidat komentář

2.5.2017 9:20 /Eva Rázgová
Putovní konference československé Drupal komunity "DrupalCamp Československo" se tentokrát koná 27. 5.2017 na VUT FIT v Brně. Můžete načerpat a vyměnit si zkušenosti z oblasti Drupalu 7 a 8, UX, SEO, managementu týmového vývoje, využití Dockeru pro Drupal a dalších. Vítáni jsou nováčci i experti. Akci pořádají Slovenská Drupal Asociácia a česká Asociace pro Drupal. Registrace na webu .
Přidat komentář

1.5.2017 20:31 /Pavel `Goldenfish' Kysilka
PR: 25.5.2017 proběhne v Praze konference na téma Firemní informační systémy. Hlavními tématy jsou: Informační systémy s vlastní inteligencí, efektivní práce s dokumenty, mobilní přístup k datům nebo využívání cloudu.
Přidat komentář

15.4.2017 15:20 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě IoT a radiokomunikace? Přijď na sraz spolku OpenAlt, který se bude konat ve středu 19. dubna od 18:30 v Šenkovně (Sokolská 60, Praha 2).
Přidat komentář

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

27.2.2017 22:12 /František Kučera
Pozvánka na 137. sraz OpenAlt – Praha: Tentokrát jsme si pro vás připravili neobvyklou akci. Ve středu 1.3. v 17:30 nás přivítá sdružení CZ.NIC ve svých prostorách v Milešovské ulici číslo 5 na Praze 3, kde si pro nás připravili krátkou prezentaci jejich činnosti. Následně navštívíme jejich datacentrum pod Žižkovskou věží. Provedou nás prostory, které jsou běžnému smrtelníkovi nedostupné!
Po ukončení prohlídky se všchni odebereme do hostince U vodoucha, Jagelonská 21, Praha 3 pochutnat si na některém z vybraných piv či dát si něco na zub. Rezervaci máme od 19:30, heslo je OpenAlt.
Ale pozor! Do prostor datového centra máme omezený přístup, dostane se tam pouze 10 lidí! Takže kdo přijde dříve, ten má přednost, a občanky s sebou! Kdo nebude chtít na prohlídku datového centra, může se pomalu přesunout do hostince U vodoucha a u nepřeberné nabídky piv počkat na ostatní.
Přidat komentář

18.1.2017 0:49 /František Kučera
Členové a příznivci spolku OpenAlt se pravidelně schází v Praze a Brně. Fotky z pražských srazů za uplynulý rok si můžete prohlédnout na stránkách spolku. Příští sraz se koná už 19. ledna – tentokrát je tématem ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. Také budete mít příležitost si prohlédnout pražský hackerspace Brmlab.
Přidat komentář

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

> Poslední diskuze

11.5.2017 23:32 / lelo
Re: Problém se správcem balíčků

11.5.2017 5:45 / davd mašek
Re: Problém se správcem balíčků

10.5.2017 22:54 / lelo
Re: Problém se správcem balíčků

10.5.2017 22:19 / davd mašek
Problém se správcem balíčků

17.4.2017 19:15 / Jakub shoop
chyba

Více ...

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