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

> Perl (74) - Sockety

Perl Náplní dnešního dílu bude meziprogramová komunikace. Osvětlíme si pojem socket, jeho vlastnosti a nezbytnou součástí bude i názorná ukázka použití.

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

Socket je virtuální spojení dvou procesů. Důležitě je zde slovo spojení. Z něj vyplývá to, že sockety jsou způsobem meziprocesorové komunikace. V praxi to znamená, že můžeme napsat dva programy, které spolu budou moci vzájemně komunikovat. První program - server - bude naslouchat na určeném portu (port je číslo reprezentující vstupní cestu do počítače) a bude čekat na přípojení druhého programu - klienta. V okamžiku, kdy se klient připojí, vznikne spojení a od této chvíle mohou obě strany komunikovat. Oba programy mohou běžet na různých počítačích, které jsou síťově propojeny.

Existují dva způsoby komunikace. Se spojením nebo beze spojení - tedy TCP nebo UDP. Typickým příkladem komunikace bez spojení je email. Mezi odesílatelem a příjemcem se nevytváří žádné spojení - odeslání emailu není závislé na příjemci a přijetí na odesílateli. Není zaručeno pořadí jednotlivých zpráv ani to, že někdo zprávu skutečně přijme. Naopak mezi komunikaci se spojením patří telefonní hovor. Oba účastnící jsou v jednom okamžiku spojeni komunikačním kanálem, který zaručuje správné pořadí zpráv.

Sockety v Perlu

V Perlu máme pro práci se sockety k dispozici moduly Socket a IO::Socket. My si představíme objektově orientovaný IO::Socket. Ten obsahuje dvě podtřídy. INET a UNIX. Prvně jmenovaná pro síťovou komunikaci a UNIX pro komunikaci lokální. O ní se však zmíníme jen letmo na konci. Máte-li zájem o modul Socket, nahlédněte do stránky man perlipc(1), jež se zabývá meziprocesorovou komunikací.

Příklad - jednoduchý chat

Jako nejjednodušší příklad aplikace s využitím socketů si napíšeme jednoduchý chat, pomocí kterého budou moci dva lidé připojení u různých počítačů ve stejné síti střídavě posílat zprávy.

Ještě než začneme si musíme ujasnit, co vlastně budeme psát. Potřebujeme dva programy - server a klienta.

Činnost serveru spočívá v naslouchání na daném portu. V okamžiku, kdy se na tento port přípojí klient, mohou oba programy vzájemně komunikovat. Komunikace bude probíhat následovně: Server obdrží zprávu od klienta a pošle mu odpověď. A to se bude opakovat donekonečna.

Server

Začneme tedy serverem. Nejprve vytvoříme socket pomocí metody new, jejíž parametry jsou patrné z následujícího zdrojového kódu.

use IO::Socket;

my $port = 7777;
my $ip = "192.168.0.10";

my $server = IO::Socket::INET->new(
    Proto     => "tcp",
    LocalPort => $port,
    LocalAddr => $ip,
    Listen    => 1,
    Reuse     => 1
) or die "Chyba pri vytvareni serveru! $!";

Právě jsme vytvořili socket server na ip adrese 192.168.0.10, který bude naslouchat na portu 7777. Port musíme zvolit tak, aby ho nepoužívalo více aplikací, jinak dojde ke konfliktům. Parametrem Listen určujeme nejvyšší možný počet klientů. Reuse zajistí, že po ukončení programu bez uzavření socketu se port opět uvolní.

Teď přichází chvíle pro naslouchání. Budeme naslouchat tak dlouho, dokud se nepřipojí nějaký klient. Naslouchání se provádí metodou accept, jež vrací socket, kterým lze komunikovat s klientem.

$klient = $server->accept();

Ve skalárním kontextu metoda accept vrací nový socket, ale pokud bychom přiřazovali do pole, druhým prvkem by byla ip adresa klienta.

Nyní přichází na řadu samotná komunikace s klienty. Směr komunikace si určuje samotná aplikace. Proto může dojít k případům, kdy oba programy spojené socketem čtou nebo zapisují do kanálu zároveň, což způsobuje uváznutí. To by se ve správně napsané aplikaci nemělo nikdy stát.

Vytvoříme tedy cyklus, uvnitř kterého budeme nejprve očekávat nějakou zprávu od klienta a následně pošleme odpověď. Se socketem pracujeme stejně jako s ovladačem.

V této souvislosti je dobré poznamenat, že by odesílaná data měli vždy končit znakem nového řádku, případně jiným znakem, který jeho funkci zastupuje.

while (1){
    $prichozi = <$klient>;
    print "PRIJATO: $prichozi";
    print "Zadej text, ktery chces odeslat: ";
    $odchozi = <STDIN>;
    print $klient $odchozi;
}

Klient

Vytvoření klienta, jak bude za chvilku patrné, je podobné.

use IO::Socket;

my $port = 7777;
my $ip_serveru = "192.168.0.10";

my $vzdaleny = IO::Socket::INET->new(
    Proto    => "tcp",
    PeerAddr => $ip_serveru,
    PeerPort => $port
) or die "Nelze spojit! $!";

Tato část klienta má za úkol zjistit, zda na portu 7777 počítače 192.168.0.10 naslouchá nějaký server a pokud tam skutečně naslouchá, připojit se k němu. Pokud ne, program se jednoduše ukončí.

Dále následuje už komunikace, která je až na směr stejná jako u serveru. První akce serveru bylo přijetí zprávy. Proto klient nejprve data odešle a poté bude očekávat odpověď.

while (1){
    print "Zadej text, ktery chces odeslat: ";
    $odchozi = <STDIN>;
    print $vzdaleny $odchozi;
    $prichozi = <$vzdaleny>;
    print "PRIJATO: $prichozi";
}

Na závěr by běžný klient ukončil spojení. Ten náš ovšem běží nekonečně dlouho (nedostane se za cyklus), takže následující řádek ve zdrojovém kódu nepoužijeme.

close $vzdaleny;

Výsledky

Zkuste si též změnit směr jednoho z programů - například, aby oba nejdříve posílaly data. Program uvázne, neboť oba data vysílají, ale nikdo je nepřijímá.

Nyní jsme hotovi a můžeme zkoušet. Zdrojové kódy klienta i serveru si můžete stáhnout. Zkusíte-li nyní na počítači 192.168.0.15 spustit server a na jiném počítači klienta, měl by náš chat fungovat. V okamžiku, kdy spouštíte klienta, musí pochopitelně již běžet server.

Pokud to z nějakého důvodu nejde, testování je v mnoha případech dobré začít přepsáním jména počítače na localhost a spustit server i klienta na tomtéž počítači. Zkuste se též podívat, zda komunikaci nebrání firewall.

Spušten server a následně klient *** Klient poslal zprávu na server *** Server odpověděl

Další možnosti

Se sockety lze mnoha způsoby experimentovat. Za vyzkoušení stojí připojení se na HTTP port 80. Napišme si zde jednoduchý skript, který vypíše systém, na kterém běží server. Tedy odešleme HTTP požadavek na nějakého vzdáleného hostitele a budeme čekat odpověď.

use IO::Socket;
use strict;

my $host = $ARGV[0];
my $sock = new IO::Socket::INET(
    PeerAddr => $host,
    PeerPort => 80,
    Proto    => "tcp"
) or die "Nelze vytvorit socket: $!";

print $sock "GET / HTTP/1.0\n\n";

while (<$sock>) {
    if (/^Server: *(.*)/) {
        print "$1\n";
        last;
    }
}

Program přijímá jako argument hostitelský server.

$ ./server.pl 127.0.0.1
Apache/2.2.4 (Unix) mod_perl/2.0.2 Perl/v5.8.7
$ ./server.pl www.linuxsoft.cz
Apache/2.2.3 (Debian) DAV/2 SVN/1.4.2 PHP/4.4.4-8+etch6 mod_ssl/2.2.3
OpenSSL/0.9.8c
$

Lokální sockety

V Unixu existuje speciální typ souborů, které jsou nazývány sockety. Právě ty nyní budeme vytvářet.

Jako ukázku si vytvoříme jednorázový server, který se pro jednoduchost ukončí hned po vyřízení prvního požadavku (vynecháme tedy cyklus).

use IO::Socket;

my $server = IO::Socket::UNIX->new(
    Local  => "/tmp/sock",
    Listen => 1
) or die "Chyba pri vytvareni serveru! $!";

my $klient = $server->accept();
my $prichozi = <$klient>;
chomp $prichozi;
print $klient ($prichozi=~/^\d{3}$/ ? "OK\n" : "CHYBA\n");

Server zkoumá, zda obdržel trojmístné číslo. Klient bude vypadat takto:

use IO::Socket;

my $vzdaleny = IO::Socket::UNIX->new(
    Peer => "/tmp/sock"
) or die "Nelze spojit! $!";

print "Zadej text, ktery chces odeslat: ";
my $odchozi = <STDIN>;
print $vzdaleny $odchozi;
my $prichozi = <$vzdaleny>;
print "PRIJATO: $prichozi";

Vytvořili jsme socket /tmp/sock, skrz který probíhá veškerá komunikace. Práce s unix sockety je prakticky stejná jako s síťovými sockety. Pro programátora se tyto dva typy liší pouze vznikem.

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.7.2014 7:19 /MaReK Olšavský
Na stránkách OpenSource.com vyšel příjemný příběh o startu malé firmy díky F/L/OSS. Za pozornost stojí i tyto malé příběhy, nejen přechody států a velkých firem na svobodná řešení, či svobodné formáty (jímž je i aktuální přechod Spojeného Království).
Přidat komentář

24.7.2014 7:19 /MaReK Olšavský
Mozilla hodlá soupeřit s Googlem i v segmentu „minipočítačů do HDMI“. soupeř Chromecastu, ale s Firefox OS. Podle informací, jež jsou aktuálně k dispozici, by příchod takového zařízení nemusel trvat dlouho.
Přidat komentář

24.7.2014 7:19 /MaReK Olšavský
Oracle již vydal svůj klon RHEL 7, který však není „pouze rekompilací“ s jinými značkami (jako mnohem populárnější a známější CentOS, či Scientific Linux), ale má i vlastní přidanou hodnotu v Ksplice, nebo vlastním jádře. Pokud uživatel/správce nemá dostatek financí na zaplacení RHELu 7, může být Oracle Linux lepší možností, než CentOS, či Scientific, ale „zaplatí“ minimálně vydáním svých údajů firmě Oracle.
Komentářů: 1

23.7.2014 7:25 /MaReK Olšavský
NVidia opravdu vstoupila na trh tabletů modelem Shield Tablet, za cenu US$ 299 (za ovladač se platí dalších US$ 59). V tabletu je mikroprocesor Tegra K1 (Cortex-A15 jádro, výroba nVidia), FullHD display a 16&bnsp;GB velké úložiště. Nejedná se o zástupce levných tabletů s Androidem, cílovou skupinou kupujících by měli být hráči.
Přidat komentář

23.7.2014 7:25 /MaReK Olšavský
Po odchodu Jono Bacona musel Canonical přestavět strukturu teamu, v němž již není jediný „komunitní manager“. Ubuntu není malou distribucí a pro řízení jejího vývoje je potřeba mnohem více lidí.
Přidat komentář

22.7.2014 6:32 /MaReK Olšavský
PHP 6 mělo být již před několika lety, blížící se PHP 5.6 (aktuálně je v RC2) nabízí snad vše, co mělo obsahovat PHP 6. Vzhledem k aktuálnímu stavu je pravděpodobné, že přístí „velkou“ verzí bude PHP 7, verze 6 se v číselné řadě přeskočí.
Přidat komentář

22.7.2014 6:32 /MaReK Olšavský
Pokud používáte CentOS 6.x a chcete přejít na novou řadu, mohl by vám pomoci krátký návod o několika drobných krocích. Na CentOS 7 mohou přejít jen ti, jež jej provozují na architektuře x86-64, podpora 32 bitového x86 a ARM by měla přijít se zpožděním.
Přidat komentář

21.7.2014 6:46 /MaReK Olšavský
EFF ohlásila Open Wireless Router, (zatím) experimentální firmware pro bezdrátové routery. Firmware umožňuje vytvoření pomalého otevřeného WiFi připojení pro návštěvníky, vedle sítě pro běžné uživatele, to vše při zachování maximální bezpečnosti a soukromí.
Přidat komentář

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

> Poslední diskuze

24.7.2014 8:06 / Stanislav David
ksplice

15.7.2014 6:16 / MaReK Olšavský
2017

25.6.2014 19:04 / Petr Ježek
více argumentů

25.6.2014 19:01 / Petr Ježek
nejde o ideologii

25.6.2014 6:41 / DoubleR
Naprogramování ATmega328

Více ...

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