Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

committing pinger

  • Loading branch information...
commit 4e05a284da05f059031c35c0c1ccc58265f2a75b 1 parent 52e9ca8
@blucia0a authored
Showing with 13 additions and 0 deletions.
  1. +13 −0 pinger.pl
View
13 pinger.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use Net::Ping;
+use Time::HiRes;
+
+my $host = shift @ARGV;
+my $pause = shift @ARGV | 1000000;
+my $p = Net::Ping->new();
+
+while( 1 ){
+ $p->ping( $host );
+ Time::HiRes::usleep( $pause );
+}
Please sign in to comment.
Something went wrong with that request. Please try again.