indietro

Provate i moduli Net::FTP, TCP::Client e Net::Telnet (disponibili su CPAN). Anche http://www.cpan.org/scripts/netstuff/telnet.emul.shar vi aiuterà nel simulare il protocollo telnet ma Net::Telnet è davvero più facile da usare..

Se tutto quello che si vuole fare è simulare l'azione di un telnet ma non si necessita dell'iniziale procedura di handshake, allora l'approccio standard a due processi sarà sufficiente:

    use IO::Socket;             # nuovo nel 5.004
    $handle = IO::Socket::INET->new('www.perl.com:80')
        || die "non posso connettermi alla porta 80 su www.perl.com: $!";
    $handle->autoflush(1);
    if (fork()) {               # XXX: undef vuol dire fallimento
         select($handle);
         print while <STDIN>;   # tutto dallo stdin al socket
    } else {
        print while <$handle>;  # tutto dal socket allo stdout
    }
    close $handle;
    exit; 

vedi in inglese