dynamisches port-redirecting?

[Matthias Leonhardt]

Hallo Rene,

> if($sock = IO::Socket::INET->new('host:port')) { }
__________
#!/usr/bin/perl
use IO::Socket;

print "hello\n";

$sock = IO::Socket::INET->new(PeerAddr  => 'www.uni-jena.de',
                              PeerPort  => 80,
                              Proto     => 'tcp',
                              Timeout   => 5);
if ($sock) {
  print $sock->peerhost;
  print "\n";
} else {
  print "not reachable\n";
}
_______
bye, Leo


-- 
tlug Mailingliste
liste at tlug.de
http://schwarz.thueday.de/mailman/listinfo/tlug_allgemein