🚀 go-pugleaf

Artur Czechowski <arturcz@cyf.gov.pl> wrote:
: In pl.comp.lang.perl Bart CZARnobyl <czar@o1.mak.polsl.gliwice.pl> wrote:
:  > socketami - a w kazdym razie dolozenie jakies komunikacji 'w druga
:  > strone' do exampla z perlipc skutecznie zawiesza programik na funkcji
:  > we/wy na sockecie.
: Bendem strzelau:  tatatatata ;)
: 1. trzeba użyć biblioteki POSIX oraz funkcji select
: 2. ustawić socket jako niebuforowany przy odczycie

A ja polecam wszystkim stosunkowo nową bibliotekę (obiektową!) 
IO::Socket

A tutaj przykład jej wykorzystania:

#!/usr/bin/perl

use IO::Socket;
$s = IO::Socket::INET->new( PeerAddr => "bofh.engr.wisc.edu",
                            PeerPort => 666, Proto => 'tcp' );
while(<$s>) { print unless /^===/; }


Dokumentacja: perldoc io/socket

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND