Problem mit Net::Ping nach Reconnect - #37992 (Netzwerkprogrammierung und Netzwerke mit Perl)

J-jayz-Z

2005-08-04 02:54

User since
2005-04-13
625 Artikel
BenutzerIn

Jo, use strict und use warnings sollte man immer nutzen!
Ich persönlich nutze auch lieber den tcp ping, da man unter Linux root und unter Windows Administrator Rechte benötigt!
Wenn du unter Windows arbeitest, wird dir das vielleicht gar nicht aufgefallen sein.
Du könntest natürlich auch das schreiben, wie du sagtest:

Code: (dl )

 
#!/usr/bin/perl
use strict;
use warnings;

while(1) {
my @ping = qx/ping host.de/;
print for @ping;
}

aber pure Perl ist doch etwas, was ein wahrer Programmierer liber nutzen wird, auch wenn es sons einfacher geht ^^

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