想做一个用系统ping多进程的PING测试.分析出最后结果.

babyles

如题.
代码如下

1. #!/usr/bin/perl
   
2. #ver 1.1.0
   
3. #auth FB
   
4. #lastModify 20070606 18:20
   
5. #date,name,ip,size,min,avg,max,loss
   
6. #%date,%name,%size,%min,%avg,%max,%loss
   
7. use strict;
   
8. no strict "refs" ;
   
9. use Data::Dumper;
   
10. my %name;
    
11. #my $dir="/root/ping/";`mkdir -p $dir`;
    
12. my $config="/root/scripts/data.ini";
    
13. #read config start
    
14. open DATA,"$config";
    
15. foreach my $data(<DATA>){
    
16.         chomp($data);
    
17.         if ($data !~ /^#/){
    
18.                 my ($tmpname,$tmpip)=split/\=/,$data;
    
19.                 $name{$tmpip}=$tmpname;
    
20.         }
    
21. }
    
22. close DATA;
    
23. #read config end
    
24. 
    
25. 
    
26. 
    
27. 
    
28. sub ping(@_) {
    
29.         my $ip=shift;
    
30.         my $times=shift;
    
31.         my $size=shift;
    
32.         my $dt=time;
    
33.         my $loss;
    
34.         my $tmpresult=`/bin/ping -c $times -s $size $ip`;
    
35.         $tmpresult =~ m/(.*min\/avg\/max\/.*\=)(.*) (ms|usec)/;
    
36.         ($$ip{min},$$ip{avg},$$ip{max})=split(/\//,$2);
    
37.         #printf ("%s%s%s\n",$min,$avg,$max,$tmp);
    
38.         $tmpresult =~ m/(.*\,)(.*) (packet loss)/;
    
39.         $loss=$2;
    
40.         $loss=~ s/\%//g;
    
41.         #print $loss."\n";
    
42.         ${$ip}{dt}=$dt;
    
43.         ${$ip}{size}=$size;
    
44.         ${$ip}{times}=$times;
    
45.         ${$ip}{loss}=$loss;
    
46.         return \%$ip;
    
47. }
    
48. 
    
49. #foreach (keys %name){
    
50.         #ping($_,"2","16");
    
51. #}
    
52. my %pid_to_host;
    
53. foreach my $tmpip (keys %name){
    
54.         if (my $pid = fork){
    
55.                 $pid_to_host{$pid} = $tmpip;
    
56.                 warn "$pid is processing $tmpip\n";
    
57.         } else {
    
58.                 ping($tmpip,"2","16");
    
59.                 exit;
    
60.         }
    
61. }
    
62. while (keys %pid_to_host){
    
63.         my $pid = wait;
    
64.         last if $pid <0;
    
65.         my $host = delete $pid_to_host{$pid}
    
66.                 or warn("why did I see $pid($?)\n"),next;
    
67.         warn "reaping $pid for $host\n";
    
68. }
    
69. 
    
70. foreach (keys %name){
    
71.         printf("%s,%s,%s,%s,%s,%s\n",$$_{dt},$$_{min},$$_{max},$$_{avg},$$_{loss},$$_{size});
    
72. }

复制代码

如果不用多进程.单一进行,可以出结果.隐约知道问题在哪.但不是很明确.一开始以为多维hash传递出问题了.
应该是fork后出的问题,初步怀疑标准输入输出的问题.调试看到错误为得不到TREM.

babyles

data.ini
文件格式
hostname=192.168.0.1
hostname2=192.168.0.2

虽然可以有简单方法实现.但想深深研究一下perl,多进程,多线程,多维hash, 多维数组.

[ 本帖最后由 babyles 于 2007-6-20 17:14 编辑 ]

babyles

没人顶.我明白可能的原因.fork 进程后,后面进行进程回收.保存数据的hash应该也被destroy.

Qiang

看看这个例子 http://wiki.perlchina.org/index. ... hings%2C_like_pings

027xiatian

if (my $pid = fork)
这句话什么意思呢？？
如果是判断是子进程在话，它写法就有问题，

027xiatian

%pid_to_host,这个hash，子进程也会继承，但他们在各自但存储空间里，子进程只能改变子进程变量空间中但%pid_to_host,不会影响父进程%pid_to_host的，