1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use IO::Socket;
local ($hSocket);
local (@asWhoIsOutput);
eval
{
$hSocket = IO::Socket::INET->new(Proto=> "tcp",
Timeout => "10",
PeerAddr => $sWhoIsHost,
PeerPort => "43");
if ($hSocket)
{
$hSocket->autoflush(1);
@asWhoIsOutput = <$hSocket>;
close ($hSocket);
}
};
if(@asWhoIsOutput)
{
for (@asWhoIsOutput)
{
print $_;
}
}
QuoteHat jemand eine Idee, wie man die Daten vollständig bekommt?
print $_ while <$socket>;
print $hSocket ($sWhoisParam . "\r\n");