每個(gè)1秒ping一次

sosogh

俺想每隔1秒ping一次，每個(gè)ping動(dòng)作的timeout值都是3秒，然后記錄下做ping這個(gè)動(dòng)作的時(shí)刻與ping值
例如：
2009-09-12  08:00:01  pingtime --> timeout
2009-09-12  08:00:02  pingtime --> timeout
2009-09-12  08:00:03  pingtime --> 3ms
2009-09-12  08:00:05  pingtime --> timeout
2009-09-12  08:00:04  pingtime --> 4ms


以下是俺目前的代碼，不能實(shí)現(xiàn)這個(gè)功能，請(qǐng)各位指點(diǎn)下

use strict; use warnings; use Net::Ping; my $complete_IP = '131.1.1.1'; my $p = Net::Ping->new("icmp"); $p->hires(1); while (1) {     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;     my $cur_time = sprintf "%4d-%02d-%02d %02d:%02d:%02d",         $year+1900,$mon+1,$mday,$hour,$min,$sec;     printf "$cur_time  PingTime  -->  ";     my $pid = fork();     if ( not defined $pid ) {         print "cannot fork\n";     }elsif ( $pid == 0 ) {         my @resp = $p->ping($complete_IP,3);         if ( $resp[0] ) {             my $ms = $resp[1] * 1000;             my $pingtime =  sprintf "%.2f" , $ms;             print "$pingtime ms\n";         }else{             print "time out\n";         }         exit(0);             }else{         waitpid($pid,0);     }     sleep 1;              }

[ 本帖最后由 sosogh 于 2009-9-12 11:25 編輯 ]

ttcn

貌似這個(gè)問(wèn)題用perl的多線程模式實(shí)現(xiàn)比較好
為了使得顯示結(jié)果效果更好,稍微用了一點(diǎn)點(diǎn)技巧

      1 #!/usr/bin/perl
      2 use strict;
      3 use warnings;
      4 use threads;
      5 use Net::Ping;
      6 my $complete_IP = '10.1.1.255';   #用了一個(gè)不存在的ip試驗(yàn)timeout
      7 my $p = Net::Ping->new("icmp");
      8 $p->hires(1);
      9 $|=1;
     10 sub myping() {
     11         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;
     12         my $cur_time = sprintf "%4d-%02d-%02d %02d:%02d:%02d",
     13             $year+1900,$mon+1,$mday,$hour,$min,$sec;
     14         print "$cur_time  PingTime  -->  ";
     15         my $pid = fork();
     16         if ( not defined $pid ) {
     17             warn "cannot fork";
     18         }elsif ( $pid == 0 ) {
     19             print "Time out";
     20             my @resp = $p->ping($complete_IP,3);
     21             if ( $resp[0] ) {
     22                 my $ms = $resp[1] * 1000;
     23                 my $pingtime =  sprintf "%.2f" , $ms;
     24                 print "\r$cur_time  PingTime  -->  $pingtime ms     ";
     25             }else{
     26                 #            $result="Time out";
     27
     28             }
     29             exit(0);
     30         }else{
     31             waitpid($pid,0);
     32         }
     33 }
     34 while(1){
     35     print "\n";
     36     threads->create(\&myping);
     37     sleep (1);
     38     my @threads = threads->list();
     39     #warn $#threads;
     40     foreach (@threads){
     41     $_->detach();
     42     }
     43 }
     44

ttcn

ping 不存在的地址...
sudo ./myping.pl

2009-09-30 13:10:02  PingTime  -->  Time out
2009-09-30 13:10:03  PingTime  -->  Time out
2009-09-30 13:10:04  PingTime  -->  Time out
2009-09-30 13:10:05  PingTime  -->  Time out
2009-09-30 13:10:06  PingTime  -->  Time out
2009-09-30 13:10:07  PingTime  -->  Time out
2009-09-30 13:10:08  PingTime  -->  Time out

ping 存在的地址
sudo ./myping.pl

2009-09-30 13:13:04  PingTime  -->  0.60 ms
2009-09-30 13:13:05  PingTime  -->  0.59 ms
2009-09-30 13:13:06  PingTime  -->  0.62 ms
2009-09-30 13:13:07  PingTime  -->  0.62 ms
2009-09-30 13:13:08  PingTime  -->  0.64 ms
2009-09-30 13:13:09  PingTime  -->  0.62 ms
2009-09-30 13:13:10  PingTime  -->  0.62 ms
2009-09-30 13:13:11  PingTime  -->  0.62 ms

HongLian3

學(xué)習(xí)了，Net:ing模塊的調(diào)用和線程的應(yīng)用。

HongLian3

為什么都要使用fork()生成子進(jìn)程呢？不懂。放棄使用多線程，精煉程序如下：
============================================================
use strict;
use warnings;
use Net:ing;

my $complete_IP = '131.1.1.1';
my $p = Net:ing->new("icmp";
$p->hires(1);

while (1) {
    my ($sec,$min,$hour,$mday,$mon,$year)=localtime;
    my $cur_time = sprintf "%4d-%02d-%02d %02d:%02d:%02d",
        $year+1900,$mon+1,$mday,$hour,$min,$sec;
    printf "$cur_time PingTime --> Time out";
    my @resp = $p -> ping($complete_IP,3);
    if ($resp[0])
    {
      my $ms = $resp[1] * 1000;
      my $pingtime =  sprintf "%.2f" , $ms;
      print "\r$cur_time PingTime --> $pingtime ms ";
    }
    print "\n";
    sleep 1;         
}
============================================================
程序在本機(jī)上測(cè)試通過(guò)。

HongLian3

不知道樓主的具體問(wèn)題呢，我怎么用你的程序跑通了呢？樓主把錯(cuò)誤掛出來(lái)吧。

godsad

我是來(lái)參觀lz頭像的

godsad

lz需要的程序貌似能ping死服務(wù)器

ttcn

沒(méi)有開(kāi)$|=1顯示會(huì)有問(wèn)題

嘗試一個(gè)不存在的地址：
2009-10-14 21:17:38 PingTime --> Time out
2009-10-14 21:17:42 PingTime --> Time out
2009-10-14 21:17:46 PingTime --> Time out
2009-10-14 21:17:50 PingTime --> Time out
2009-10-14 21:17:54 PingTime --> Time out^C