Auf ports unter PERL od. PHP zugreifen (still aliv

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo,

ich möchte unter PERL (od. PHP, PERL wäre jedoch in diesem Fall wohl besser) auf Ports zugreifen, nur um zu überprüfen, ob der Server, der auf diesem port (auf einem fremden Rechner) läuft, down ist oder nicht. Hat jemand einen Tip hierzu?

Alex

#2

Tach,

ich möchte unter PERL (od. PHP, PERL wäre jedoch in diesem
Fall wohl besser) auf Ports zugreifen, nur um zu überprüfen,
ob der Server, der auf diesem port (auf einem fremden Rechner)
läuft, down ist oder nicht. Hat jemand einen Tip hierzu?

hab sogar ein kleines Proggi :wink:

#!/usr/bin/perl -w
use strict;
use IO::Socket;

my ($remotehost, $remoteport, $antwort);

$remotehost="www.wer-weiss-was.de";
$remoteport=80;

my $socket = IO::Socket::INET-\>new(PeerAddr =\> $remotehost, 
 PeerPort =\> $remoteport,
 Proto =\> "tcp",
 Type =\> SOCK\_STREAM)
or die "Verbindung zu $remotehost:blush:remoteport fehlgeschlagen: $@\n";

print "Verbinde mit $remotehost:blush:remoteport\n";

print $socket "Testdaten ...\n";

$antwort=;

close($socket);

print "Die Antwort: $antwort\n";

Details und Nebenwirkungen in

perldoc IO::Socket

Gruss,

-Andreas.