আমি কোনও ব্যবহার জানি না তবে পার্ল সহ আমি এটির জন্য একটি সাধারণ কোডটি নিজেই করেছি:
#!/usr/bin/perl
use Net::Ping;
use POSIX qw/strftime/;
if (-e '/var/run/net_test.pid') {
print "net_test already running.\n";
exit;
} else {
system "touch /var/run/net_test.pid";
}
my $host = "www.google.com";
my $ping = Net::Ping->new('icmp');
my $result = $ping->ping($host,2);
if ($result != 1) {
$format = strftime('[%d/%m/%Y %H:%M:%S]',localtime)." Internet is not available...";
$run = `echo $format >> /var/log/virtua_net`;
while ($result != 1) {
$result = $ping->ping($host,2);
sleep 60;
}
$format = strftime('[%d/%m/%Y %H:%M:%S]',localtime)." Internet is back...";
$run = `echo $format >> /var/log/virtua_net`;
} else {
$format = strftime('[%d/%m/%Y %H:%M:%S]',localtime)." Internet is ok...";
$run = `echo $format >> /var/log/virtua_net`;
}
$ping->close();
system "rm -rf /var/run/net_test.pid" if (-e "/var/run/net_test.pid");
exit;
এটি যা করে তা হ'ল এটি প্রতিবার গুগল পিন করার চেষ্টা করবে এবং এটি কোনও ফাইলের মুদ্রণ হবে যদি তার উত্তর পাওয়া যায় বা সময়ের সাথে না পাওয়া যায় তাই আপনি কী সময় থেকে কখন ইন্টারনেট অনুপলব্ধ ছিল তা পরীক্ষা করে দেখতে পারেন।
আপনি যদি এটি পছন্দ করেন তবে আমি উইন্ডোগুলিতে ছোট ছোট পরিবর্তনগুলি ব্যবহার করতে পারি এবং আপনার অ্যাক্টিভ পার্ল ইনস্টল করা দরকার।
কেবলমাত্র প্রয়োজনীয় পরিবর্তনগুলি হ'ল পাথ এবং আদেশগুলি যা উইন্ডোতে আলাদা হতে পারে।