Kontrol eğer

Question

ben perl'de soket bağlantısı kullanarak basit bir kod programlama ediyorum: Sonra bir döngü kullanarak veri gönderme

$sock = new IO::Socket::INET(
        PeerAddr => '192.168.10.7', 
        PeerPort => 8000, 
        Proto => 'tcp'); 
$sock or die "no socket :$!"; 

:

while... 
print $sock $str; 
...loop 

bir yolu var mı Döngüye bağlantıyı kontrol etmek için bir komut eklemek? gibi şey:

while... 
    socket is up? 
    yes => send data 
    no => connect again and the continue with loop 
...loop 

DÜZENLEME MY CODE ADD:

my $sock = new IO::Socket::INET(
        PeerAddr => '192.168.10.152', 
        PeerPort => 8000, 
        Proto => 'tcp'); 
    $sock or die "no socket :$!"; 

    open(my $fh, '<:encoding(UTF-8)', 'list1.txt') 
     or die "Could not open file $!"; 

    while (my $msdn = <$fh>) { 
     my $port="8000"; 
     my $ip="192.168.10.152"; 
     unless ($sock->connected) { 
      $sock->connect($port, $ip) or die $!; 
    } 
    my $str="DATA TO SEND: " . $msdn; 
    print $sock $str; 
    } 
    close($sock); 

Answer 1

IO::Socket::INET bir connected method sahiptir IO::Socket bir alt sınıf vardır.

Yuva bağlı durumda ise eş adres döndürülür. Soket bağlı durumda değilse, undef geri döner.

Sen döngü içinde onu kullanabilirsiniz ve üzerinde call connect onay undef döndü eğer.

my $sock = IO::Socket::INET->new(
    PeerAddr => '192.168.10.7', 
    PeerPort => 8000, 
    Proto => 'tcp' 
); 
$sock or die "no socket :$!"; 

while (1) { 
    unless ($sock->connected) { 
     $sock->connect($port, $ip) or die $!; 
    } 
    # ... 
}