Perl Online-zeit Zähler

Hey Leute!

ich würde mir gerne ein Perl programm schreiben, dass zählt, wie lange ich mit dem Internet verbunden bin.

Er soll jede Zeit summieren, dh, wenn ich 20 min mit Netzwerk x verbunden bin, dann trenne, und mich dann mit Netzwerk y verbinde soll er bei 20 min weiter zählen.

Ich dachte mir das so: Er pingt jede Minute zu einem beliebigen Server, wenn er eine Antwort bekommt, soll er einen Zähler um eins erhöhen.

Hier mein bisheriger Code:

PHP:

#! perl
use Net::Ping;
$host="209.85.135.147";
$p=Net::Ping->new();
$n=0;

while (1)
{
if ($p->ping($host)) # fehler?
{print $n++;}
else
{print "$host is not alive\n";};
$p->close();
sleep 60;
};

Irgendetwas beim Ping klappt nicht... er meldet nämlich immer, dass der Host tot wäre....

Wie ihr seht, habe ich das Modul Net::Ping verwendet.

Ich hoffe, jemand hat Verbesserungs- und Lösungsvorschläge!

Danke
lG Max

 

Es ist zwar schon eine Weile her, aber ich bin immer noch auf der Suche nach einer Lösung oder einer Alternative.

Herzlichen Dank

 

Die Lösung wäre einfach mal in der Suchmaschine - Onlinezeit - eingeben und sich dann das ensprechende heraus suchen.
Gibt genug Free-und Shareware.

 

Danke für die Antwort.

Die, die ich bisher gefunden habe, zählen aber leider nur soweit, bis ich wieder vom Internet getrennt bin; was mir ja nichts bringt, das kann ich auch in Windows manuell schauen.

lG Max

 

Mit dem addieren der Zeit ist es so ein Problem.
Probier mal den T-DSL-Speedmanager
Da werden die Zeiten addiert.
Zeigen lassen in. Taskleiste Symbolleisten DSL-Manager anzeigen aktivieren und dann in dem Anzeigefeld rechte Maus und Volumenzähler anzeigen lassen.
IE startet mit dem Diagramm.
Geht aber nur bis Win7 x86. Startet zwar auch im x64 System aber mit Abstürzen usw. - nicht sicher.
Im nun angebotenen T-Home Netzmanager fehlt diese Funktion irgendwie oder ich habe sie noch nicht gefunden.

 

Herzlichen Dank!

Macht auf Anhieb einen guten Eindruck; ich werde mal schauen, ob mir das reicht oder ob ich weiterhin versuchen muss, es mir selber zu programmieren.

lG Max