Hallo NG
Ich habe mir einen kleinen Server gebaut, der die Informationen der in
Netzwerk vorhandenen Client am Port 334 empfängt.
#!/usr/bin/perl -w
use IO::Socket;
my $sock = new IO::Socket::INET (
LocalPort => 334,
Proto => ‚udp‘,
Reuse => 1)|| die „$!\n“;
In der Schleife auf eingehende Verbindungen warten…
print „Server laeuft, zum Beenden Strg+C eingeben\n“;
while ( ) {
chomp($Status = );
chomp($Mac = );
chomp($Meldung = );
print „$Mac $Status $Meldung\n“;
system("/test/test1 $Mac $Status $Meldung");
}
Nun möchte ich die IP-Adresse es senden Client in eine Variable aufnehmen.
Doch leider weiss ich nicht wie.
Ich wäre froh wenn mir jeman einen kleine Tipp geben könnten.
Gruß
Marcus