Problem mit Net::Ping (Perl)

[Perluser]

Moin,

ich sitze gerade hier und möchte einfach mal ein kleines Script schreiben, das eine Seite anpingt und das Ergebnis zurück gibt, nur iwie kann er den Host nicht erreichen, obwohls im Browser geht. Weiß vielleicht jemand das Problem?

Hier das Script (Ja, ich weiß, dass ich kein "use strict" benutze, aber bei so einem kleinen Script ist das denke ich nich nötig):

#!/usr/bin/env perl

use Net::Ping;

$p = Net::Ping->new();
$host = 'ccc.de';
$success_flag = $p->ping($host, 2);
print "$success_flag\n";

if ($success_flag) {
	print "Ping succesful\n";
}
else {
	print "Internet is fucked up\n";
}

$p->close()

Vielen Dank,

Perluser

 

[der_Kay]

Anstatt

$p = Net::Ping->new();

das:

$p = Net::Ping->new("icmp");

"You may choose one of six different protocols to use for the ping. The "tcp" protocol is the default."

nur iwie kann er den Host nicht erreichen, obwohls im Browser geht.

"Note that a live remote host may still fail to be pingable by one or more of these protocols. For example, www.microsoft.com is generally alive but not "icmp" pingable."
Net-Ping-2.36