UPD Port offen oder zu? - #54986 (Allgemeines zu Perl)

J-jayz-Z

2005-05-17 00:53

User since
2005-04-13
625 Artikel
BenutzerIn

Hi,

kann ich irgendwie abfragen, ob ein UDP Port an einem Host geschlossen ist?
Mit TCP habe ich das so gelöst:

Code: (dl )

$socket = IO::Socket::INET->new(
        PeerAddr        => $addr,
        PeerPort        => $port,
        Proto           => "tcp",
        Type            => SOCK_STREAM);

unless(defined($socket))
{
print "Port $port (TCP) ist geschlossen!\n";
exit 0;
}
print "Port $port (TCP) ist offen\n";

aber mit UDP geht das so aber nicht...
Kann mir da jemand helfen? ? ?

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de