Opened by wiesensurfer at 2011-10-07 13:14
User since
2011-06-01
36 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-06-01
36 Artikel
BenutzerIn
Hallo!
Ich hole mir Daten über IO::Socket::INET. Das funtioniert auch, bis auf die Tatsache, dass ich auf einem Server keine vollständige Ausgabe der Daten erhalte. Die Ausgabe wird nach ca. 1400 Zeichen abgeschnitten.(Daten noch nicht übertragen?)
Das Script läuft auf einem anderen Server korrekt.
Hat jemand eine Idee, wie man die Daten vollständig bekommt?
Ich hatte jetzt folgendes gemacht:
Ich hole mir Daten über IO::Socket::INET. Das funtioniert auch, bis auf die Tatsache, dass ich auf einem Server keine vollständige Ausgabe der Daten erhalte. Die Ausgabe wird nach ca. 1400 Zeichen abgeschnitten.(Daten noch nicht übertragen?)
Das Script läuft auf einem anderen Server korrekt.
Hat jemand eine Idee, wie man die Daten vollständig bekommt?
Ich hatte jetzt folgendes gemacht:
Code: (dl
)
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 $_;
}
}