想做一個(gè)用系統(tǒng)ping多進(jìn)程的PING測(cè)試.分析出最后結(jié)果.

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. }

復(fù)制代碼

如果不用多進(jìn)程.單一進(jìn)行,可以出結(jié)果.隱約知道問(wèn)題在哪.但不是很明確.一開始以為多維hash傳遞出問(wèn)題了.
應(yīng)該是fork后出的問(wèn)題,初步懷疑標(biāo)準(zhǔn)輸入輸出的問(wèn)題.調(diào)試看到錯(cuò)誤為得不到TREM.

babyles

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

雖然可以有簡(jiǎn)單方法實(shí)現(xiàn).但想深深研究一下perl,多進(jìn)程,多線程,多維hash, 多維數(shù)組.

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

babyles

沒人頂.我明白可能的原因.fork 進(jìn)程后,后面進(jìn)行進(jìn)程回收.保存數(shù)據(jù)的hash應(yīng)該也被destroy.

Qiang

看看這個(gè)例子 http://wiki.perlchina.org/index. ... hings%2C_like_pings

027xiatian

if (my $pid = fork)
這句話什么意思呢？？
如果是判斷是子進(jìn)程在話，它寫法就有問(wèn)題，

027xiatian

%pid_to_host,這個(gè)hash，子進(jìn)程也會(huì)繼承，但他們?cè)诟髯缘�存�?chǔ)空間里，子進(jìn)程只能改變子進(jìn)程變量空間中但%pid_to_host,不會(huì)影響父進(jìn)程%pid_to_host的，