perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 16
Click for quality!




12.02.2012 / 01:57

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragSocket
Seitenanfang
Hallo,
Habe einen Socket auf die Beine gestellt. So jetzt möchte ich die serverantwort gedruckt haben. Wie geht das? Hab mich jetzt 3 stunden durchgegoogelt sonst würd ich nix posten.


use IO::Socket::INET;
$socket = new IO::Socket::INET(
PeerAddr => "www.wer-kennt-wen.de",
PeerPort => 80,
Proto => 'tcp') || die "Error creating socket: $!";
print $socket "GET /HTTP/1.1\n\n";
while($line = <$socket>){
}
print $line;

Datum: 03.09.2009-18:33

Beitragre: Socket
Seitenanfang
setzt das print $line in die while-Schleife

Datum: 05.09.2009-15:39

-






-
-