Mailinglist Archive: opensuse-de (1203 mails)

[Andre Heine <andre@xxxxxxxxxxxxxxxxxxx>]

Moin, 

ich nochmal...

Am Donnerstag, 25. September 2008 15:21 schrieb Andre Heine:

[...]

> Vielleicht hilft das weiter...
>
> perldoc IO::Socket::INET

Unter Linux funktioniert das mit dem Timeout jedenfalls.

#!/usr/bin/env perl

use IO::Socket;
use IO::Socket::INET;
use strict;

my $socket = new IO::Socket::INET (
        PeerAddr => '128.0.0.1', PeerPort => 25,
        Timeout => 50,
        Type => SOCK_STREAM,
);

die "Unable to open connection: $!\n"
unless defined $socket;



Ciao

andre

-- 
All other things being equal, a bald man cannot be elected President of
the United States.
                -- Vic Gold
-- 
Um die Liste abzubestellen, schicken Sie eine Mail an:
    opensuse-de+unsubscribe@xxxxxxxxxxxx
Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken
Sie eine Mail an: opensuse-de+help@xxxxxxxxxxxx