🚀 go-pugleaf

Waldek Grudzień wrote:

> I dlatego ponawiam moją prośbę o jakieś adresy z kompletnymi przykładami
> klienta/serwera (przeszukując sieć niestety nic sensownego nie znalazłem
> (oprócz przykładów z perl mana))
>

Mam nadzieje, że to pomoże i coś wyjaśni:
Powinno działać. kod jest prosty i jedyną rzeczą jaką klient robi to odbieranie
i wysyłanie ale na tej bazie udało mi się zrobić kilka bardziej skomplikowanych
rzeczy
Powodzenia

--Stefan Batory


#!/usr/bin/perl

($them, $port) = @ARGV ;

$port = 2345 unless $port ;
$them = 'localhost' unless $them ;

$AF_INET = 2 ;
$SOCK_STREAM = 1 ;

$SIG{'INT'} = 'dokill' ;

sub dokill {
    kill 9,$child if $child ;
}

$sockaddr = 'S n a4 x8' ;

chop($hostname = 'hostname') ;

($name, $aliases, $proto) = getprotobyname('tcp') ;
($name, $aliases, $proto) = getservbyport($port,'tcp')
    unless $port =~ /^\d+$/ ;

($name, $aliases, $type, $len, $thisaddr) =
    gethostbyname($host) ;
($name, $aliases, $type, $len, $thataddr) = gethostbyname($them) ;

$this = pack($sockaddr, $AF_INET, 0, $thisaddr) ;
$that = pack($sockaddr, $AF_INET, $port, $thataddr) ;

if (socket(S, $AF_INET, $SOCK_STREAM, $proto)) {
    print "socket ok\n" ;
} else {
    die $! ;
}

if (bind(S, $this)) {
    print "bind ok\n" ;
} else {
    die $! ;
}

if (connect(S, $that)) {
    print "connection ok\n" ;
} else {
    die $! ;
}


select(S) ; $| = 1 ; select(STDOUT) ;


if($child = fork) {
    while (<STDIN>) {
        print S ;
    }
    sleep 3 ;
    do dokill() ;
} else {
    while(<S>) {
        print ;
    }
}