关于定义二维数组的疑惑(解决,回去看书中)

hyoryeo

my @arr = (); for my $i ( 0 .. 4 ) {               for my $j ( 0 .. 23 ) {                         arr[$i][$j]=0;       } }

以上是预定义二维数组等于0, 当我想换种写法的时候,遇到以下的问题..

my @arr1 = ( 0 .. 4 ); my @arr2 = ( 0 .. 23 ); for my $i ( @arr1 ) {              push $arr[$i] = [ @arr2]; }

print $arr1[0][23];

结果为23. 我只想

$arr[ 0 .. 4 ] [ 0 .. 23 ] = 0;

请问是否只能用第一种方法,还请各位大大以上哪种方法比较好,或者有别的方法更好的....

[ 本帖最后由 hyoryeo 于 2009-10-30 17:57 编辑 ]

兰花仙子

push $arr[$i] = [ @arr2];
这句不对哦。

哎呀在perl里你不用初始化数组和分配内存滴。
数组增与删直接操作就行，不用预分配。
这就是script语言的好处。

hyoryeo

原帖由 兰花仙子 于 2009-10-28 17:04 发表
push $arr[$i] = [ @arr2];
这句不对哦。

哎呀在perl里你不用初始化数组和分配内存滴。
数组增与删直接操作就行，不用预分配。
这就是script语言的好处。

我是看这里的..

$AoA[$i] = [ @array ];      # 最安全，有时候最快 from PerlProgrammingChina3rd

因此我的目的是做统计报表, 而且有好几个subroutine, 所以需要用预定义数组....请看我的程序.....

hyoryeo

我的程序请看, 还请告诉我有什么需要改善的..

程序有点长....

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use POSIX;
   
5. use strict;
   
6. use warnings;
   
7. use Template;
   
8. 
   
9. # define variable
   
10. my $dir = $ARGV[0];        # input var of home
    
11. my $home_dir = "/home/md";
    
12. my $bin_dir = "$home_dir/bin";
    
13. #my $tmp_dir = "$home_dir/tmp";
    
14. my $tmp_dir = "/smc/tmp/sharon";
    
15. #my $error_dir = "$home_dir/error";
    
16. my $error_dir = "/smc/tmp/sharon";
    
17. my $log_dir = "$home_dir/log";
    
18. my $infile= "";
    
19. my $Count = 0;
    
20. my %recordhash = ();
    
21. my %confighash = ();
    
22. my @durtab = ();
    
23. my %statab =();
    
24. my @notab = ();
    
25. 
    
26. my $ysdate = strftime("%Y%m%d",localtime(time-86400));
    
27. if($dir=~/miepcdr/i or $dir =~/httpcdr/i) {        # Make sure confirm the Directory, it must be Case-insensitive miepcdr or httpcdr;
    
28.         &ReadFolder($dir,$tmp_dir,$bin_dir,\@durtab,\%statab,\@notab,$error_dir); # It pass the specified global variable to subroutine.
    
29.         &printhtmlreporttable(\@durtab,\%statab,\@notab,$dir); # It pass the specified global variable to subroutine.
    
30.         @durtab = ();       
    
31.         %statab = ();       
    
32.         @notab = ();       
    
33. } else {
    
34.         print "Error: Is not the implementation of the directory!\n";
    
35.         exit;
    
36. }
    
37. 
    
38. sub ReadFolder() {
    
39.         my($dir,$tmp_dir,$bin_dir,$durtab,$statab,$notab,$error_dir)=@_; # Reference the Global Variable, Please look for line 30.
    
40.        
    
41.         if ( !-d $dir ) {
    
42.                 print "Error: No exists directory, Please check!";
    
43.                 exit;
    
44.         } else {
    
45.                
    
46.                 if( !opendir (DH,$dir) ) {
    
47.                         die ( "Can't open $dir:$!" );
    
48.                 }
    
49.                
    
50.                 chdir( $dir );
    
51.         }
    
52.        
    
53.         # ---------------Start config file -----------------------
    
54.         if ( !open(CONF,"$bin_dir/config.txt") ) {
    
55.                 die( "Can not open the file" );
    
56.         }
    
57.        
    
58.         while(<CONF>) {
    
59.         chomp;
    
60.                
    
61.                 if ( /(\d{1,3}\.)(\d{1,3}\.\d{1,3}\.\d{1,3}) / ) {
    
62.                         $confighash{$1}{$2} = 1;
    
63.                 } else {
    
64.                        
    
65.                         if ( /(\w+\.)(\w.*) / ) {
    
66.                                  $confighash{$1}{$2} = 1;
    
67.                         }
    
68. 
    
69.                 }
    
70.         }
    
71.         close(CONF);
    
72.         # ---------------End config file -----------------------
    
73. 
    
74.         &defaultarray($durtab,$notab);        # Iinitialize the Global Array @durtab and @notab;
    
75. 
    
76.         foreach $infile(readdir DH) {
    
77.        
    
78.                 if( $infile =~/(.+)\-$ysdate\.DAT\.Z$/ ) {
    
79.        
    
80.                         &checkfilecontent($infile, $dir, \%confighash,$durtab,$statab,$notab,$error_dir);# It pass the specified variable to the subroutine.       
    
81.                 }
    
82.         }
    
83.         %confighash = ();
    
84.         closedir DH;
    
85. }
    
86. 
    
87. sub defaultarray() {
    
88.     my ($newdur,$newnon ) = @_; # Reference the Global Array, Please look for line 74.
    
89. 
    
90.     for my $i ( 0 .. 3 ){
    
91. 
    
92.                 for my $j ( 0, 1 ) {
    
93. 
    
94.                 for my $k ( 0 .. 4 ) {
    
95. 
    
96.                                 $newdur->[$i]->[$j]->[$k]=0;
    
97.                                 $newnon->[$i]->[$j]=0;
    
98.                         }
    
99.                 }
    
100.     }
     
101. }
     
102. 
     
103. sub checkfilecontent() { # read each line
     
104.        
     
105.         my ($in, $dir ,$conf,$durtab,$statab,$notab,$error_dir)= @_; # Reference the Global Variable, Please look for line 80.
     
106.         my $status;
     
107.         my $code;
     
108.         my $start;
     
109.         my $end;
     
110.         my $url;
     
111.         my $noneurl;
     
112.         my $dur;
     
113.         my $chksta;
     
114.         my $staer4;
     
115.         my $chkdur;
     
116.         my $classsta;
     
117.         my $type;
     
118.         my $noname = "";
     
119.         my $date = strftime("%Y%m%d%H%M%S",localtime(time));
     
120.        
     
121.         if( !open( IN,"zcat $in|" )) {
     
122.                 die( "Could not open file $infile:$!" );
     
123.         }
     
124. 
     
125.         if ( !open( LOG,">>$log_dir/Report.out" )) {
     
126.                 die( "Could not open file $log_dir/Report.out:$!" );
     
127.         }
     
128. 
     
129.         if ( $dir=~/miepcdr/i ) {
     
130.                 print LOG "$date: MIEP::$in is reading.\n";
     
131.         } elsif ( $dir =~/httpcdr/i ) {
     
132.                 print LOG "$date: HTTP::$in is reading.\n";
     
133.         }        # Record reading file # Please look for /home/md/log/Report.out;
     
134.        
     
135.         while( <IN> ) {
     
136.                 chomp;
     
137.                 next if /^Record.*\(.*\).*\"MiepPush.+\"/ .. /End/; # ignore the part.
     
138.                 if ( /^Record.*\(\d+\).*\"MiepPull.+"/ ) {
     
139.                         $start=$_;
     
140.                
     
141.                 } elsif ( /\s+\"(.*)\"\s\=\s\"(.*)\"/ ) {
     
142.                         $status = $1;
     
143.                         $code = $2;
     
144.                         $recordhash{$status} = $code;       
     
145.        
     
146.                 } elsif ( /(^End.*Record.*\(\d+\))/ ) {
     
147.                         $end = $_;
     
148.                        
     
149.                         if ( exists $recordhash{"url"} ) {
     
150.                                
     
151.                                 $url = $recordhash{"url"};
     
152.                                 $dur = $recordhash{"urlDurationTime"};
     
153.                                
     
154.                                 $type = &checktypeofurl($url,$conf); # It return 0--SmartIN, 1--MMS, 2--CP, 3--IOM.
     
155.                                 $chksta = &checkStatus($type,\%recordhash); # It return the full Status, e.g. 200 OK.
     
156.                                
     
157.                                 $staer4 = (split / +/,$chksta)[0];
     
158.                                 $chkdur = &checkDuration($dur); # It return urlDuration 0 -- 0s - 2s, 1 -- 2s - 5s, 2 -- 5s - 10s, 3 -- 10s - 20s, 4 -- 20+s.
     
159.                                 $classsta = &duratonclassbystatus($staer4,$durtab,\%recordhash,$dir,$start,$end,$type,$ysdate,$error_dir); # It return 0 -- less then 400,        1 -- greater than or equal to 400
     
160.                                
     
161.                                 $durtab->[$type]->[$classsta]->[$chkdur] = $durtab->[$type]->[$classsta]->[$chkdur] + 1; # Counting
     
162. 
     
163.                                 if ( $staer4 >= 400 && $type != 1 ) {
     
164.                                        
     
165.                                         if ( $url =~/favicon.ico/i ){
     
166.                                                 $noneurl = 0;
     
167.                                         } elsif ($url =~/Microsoft\-Server\-ActiveSync/i ) {
     
168.                                                 $noneurl = 1;
     
169.                                         } else {
     
170.                                                 $noneurl = 2;
     
171.                                         }
     
172.                                         if (exists $notab->[$type]->[$noneurl] ) {
     
173.                                                 $notab->[$type]->[$noneurl] = $notab->[$type]->[$noneurl] + 1;
     
174.                                         } # Counting
     
175.                                         next if $url =~/favicon.ico/i or $url =~/Microsoft\-Server\-ActiveSync/i; # ignore a Report while if match the specified url.
     
176.                                 }
     
177.                         }
     
178.                         undef %recordhash; # Empty for A report.
     
179. 
     
180.                         if ( exists $statab->{$type}->{$chksta} ){
     
181.                                 $statab->{$type}->{$chksta} = $statab->{$type}->{$chksta} + 1;
     
182.                         } else {
     
183.                                 $statab->{$type}->{$chksta} = 1;
     
184.                         } # Counting
     
185.                 }
     
186.         }
     
187.         close(IN);
     
188. }
     
189. 
     
190. sub checktypeofurl(){
     
191. 
     
192.     my ( $url, $conf ) = @_; # Peference the variable, Please look for line 154.
     
193.     my $ret = 3; # return 3 while the url can not be match
     
194. 
     
195.         if ( $url =~/mms\.smartone.*|mms2\.smartone.*|mms4\.smartone.*|mms9\.smartone.*|disc1\.smartone\-vodafone\.com|202\.140\.96\.(?=92|208|46|97|227|47).+|10\.16\.96\.(?=76|79|93|94|187|188|180|137|167).+|202\.140\.106\.64/i ) {
     
196.             $ret = 1;
     
197.     } elsif ( $url =~/.*\.smartone\.com\.hk|.*\.smartone\-vodafone\.com\.hk|.*\.smartone\-vodafone\.com|202\.140\.(?=86\.+|96\.+|106\.+|93\.+|83\.+|76\.+|74\.+|100\.+|104\.+)/i ) {
     
198.             $ret = 0;
     
199.     } else {
     
200.                
     
201.                 foreach my $key (keys %{$conf}) { # return 2 while if find url in config file. Please look for line 55.
     
202.                     my $hash = $conf->{$key};
     
203.                    
     
204.                         if ( $url =~/http\:\/\/$key/ ) {
     
205.                                
     
206.                                 for my $key2 ( keys %{$hash} ) {
     
207.                                     
     
208.                                         if ( $url =~/$key2/ ) {
     
209.                                                 $ret = 2;
     
210.                                        
     
211.                                         }
     
212. 
     
213.                                 }
     
214. 
     
215.                     }
     
216.                 }
     
217.         }
     
218.         return $ret;
     
219. }
     
220. 
     
221. sub checkDuration() {
     
222. 
     
223.     my $duration = shift;  # Peference the variable, Please look for line 160.
     
224.     my $durms;
     
225.     my $ret;
     
226. 
     
227.     if ( $duration=~/(\d+)/ ) { # $1 Units is millisecond;
     
228.                 $durms = sprintf("%f", $1 / 1000); # change units to second, the question is it will rounding
     
229.                 $durms =~s/(\d+)\.\d+/$1/; # Retaining only the integer
     
230. 
     
231.                 if ( $durms < 2 ) {
     
232.                         $ret = 0;
     
233.                 } elsif ( $durms < 5 ) {
     
234.                         $ret = 1;
     
235.                 } elsif ( $durms < 10 ) {
     
236.                         $ret = 2;
     
237.                 } elsif ( $durms < 20 ) {
     
238.                         $ret = 3;
     
239.                 } elsif ( $durms >= 20 ) {
     
240.                         $ret = 4;
     
241.                 }
     
242.     }
     
243.     return $ret;
     
244. }
     
245. 
     
246. sub checkStatus() {
     
247. 
     
248.     my ($ty,$hash) = @_; # Peference the variable, Please look for line 157.
     
249.     my $code;
     
250.     my $letter;
     
251.     my $codeinfo;
     
252. 
     
253.     my $sta = $hash->{"returnCode"} || $hash->{"STATUS"}; # $sta can equal $hash->{"returnCode"} or $hash->{"STATUS"}
     
254.         my $stainfo = $hash->{"STATUSCODE"};
     
255.     my $size = $hash->{"contentSizeFromTerminal"};
     
256. 
     
257.         if ( $sta =~/^(\d{3})\s(.*)/) {
     
258. 
     
259.             $code = $1;
     
260.             $codeinfo =$2;
     
261. 
     
262.             if ( $ty == 1 ) { # if type equal MMS, Please look for line 156.
     
263.                         if ($code == 500) {
     
264.                                 if ( hex($size) < 54 ) {
     
265.                                         $codeinfo = "read reply to null recipient";
     
266.                                 }
     
267.                         }
     
268.             }
     
269. 
     
270.             if ($codeinfo=~/^\W.*/) {
     
271.                         $codeinfo = $code." url link";
     
272. 
     
273.             } else {
     
274. 
     
275.                         $letter = lc($codeinfo);
     
276.                         $letter =~s/\s+$//g;
     
277.                         $letter=~s/(?<=\b|^)(\w)/\u$&/g; # the first letters change Capital.
     
278.                         $codeinfo = $code." ".$letter;
     
279. 
     
280.             }
     
281. 
     
282.     } elsif ( $sta =~/^(\d{3})/ ) {
     
283.             $code = $1;
     
284. 
     
285.                 if ( $stainfo =~/(.*)/i ) {
     
286.                         $letter = lc($1);
     
287.                        
     
288.                         if ($letter =~/^\W.*/) {
     
289.                                 $letter = "url link";
     
290.                         }
     
291.             
     
292.                         $letter =~s/\s+$//g;
     
293.                         $letter=~s/(?<=\b|^)(\w)/\u$&/g; # the first letters change Capital.
     
294.                         $codeinfo = $code." ".$letter;
     
295.                 }
     
296. 
     
297.     }
     
298.     return $codeinfo;
     
299. }
     
300. 
     
301. sub duratonclassbystatus(){
     
302.        
     
303.     my ($sta, $tab, $hash,$dir,$start,$end,$type,$ysdate,$error_dir) = @_; # Peference the variable, Please look for line 161.
     
304.         my $ret; # return var
     
305.        
     
306.         if ( $sta < 400 ) {
     
307.                 $ret = 0;
     
308.        
     
309.         } else {
     
310.                 $ret = 1;
     
311.                 &exporterrorcase($hash,$dir,$type,$ysdate,$start,$end,$error_dir); # generate the error report.
     
312. 
     
313.         }
     
314.         return $ret;
     
315. }
     
316. 
     
317. sub exporterrorcase(){
     
318. 
     
319.     my ($hash,$dir,$ty,$ysdate,$start,$end,$error_dir) = @_; # Peference the variable, Please look for line 321.
     
320.     my $sta = $hash->{"returncode"} || $hash->{"STATUS"};
     
321.     my $typecdr=(split(/\//, $dir))[-1];
     
322.         my $errname = "";
     
323. 
     
324.         if ( $ty == 0 ) {
     
325.                 $errname = "error_".$typecdr."_smtin".$ysdate;
     
326.         } elsif ( $ty == 1 ) {
     
327.                 $errname = "error_".$typecdr."_mms".$ysdate;
     
328.         } elsif ( $ty == 2 ) {
     
329.                 $errname = "error_".$typecdr."_cp".$ysdate;
     
330.         } elsif ( $ty == 3 ) {
     
331.                 $errname = "error_".$typecdr."_iom".$ysdate;
     
332.         }
     
333.    
     
334.         if ( !open (OUT,">>$error_dir/$errname" ) ) { die("Can not write the error file $errname:$!"); }
     
335.         print OUT $start."\n";
     
336.    
     
337.         foreach (keys %{$hash}) {
     
338.                 print OUT "\"".$_."\" = \"".$hash->{$_}."\"\n";
     
339.     }
     
340.    
     
341.         print OUT $end."\n";
     
342.        
     
343.         close(OUT);
     
344. }
     
345. 
     
346. sub printhtmlreporttable(){
     
347.        
     
348.         my ($durtab,$statab,$notab,$dir) = @_; # Peference the variable, Please look for line 31.
     
349.        
     
350.         my $smnto = 0; # number of smtin total
     
351.         my $mmsto = 0; # number of mms total
     
352.         my $cpsto = 0; # number of cp total
     
353.         my $iomto = 0; # number of iom total
     
354.         my $percg = 0; # Calculating the percentage
     
355.         my $typne = ""; # type of the name
     
356.         my @perto = (0 .. 3); # array of total
     
357. 
     
358.         my @type = sort keys %{$statab};
     
359.        
     
360.         for my $t (@type) {
     
361. 
     
362.                 for my $c ( 0 , 1 ) {
     
363.                
     
364.                         for my $d ( 0 .. 4 ) {
     
365.                        
     
366.                                 if ( $t == 0 ) {
     
367.                                         $smnto = $durtab->[$t]->[$c]->[$d] + $smnto;
     
368.                                 } elsif ( $t == 1 ) {
     
369.                                         $mmsto = $durtab->[$t]->[$c]->[$d] + $mmsto;
     
370.                                 } elsif ( $t == 2 ) {
     
371.                                         $cpsto = $durtab->[$t]->[$c]->[$d] + $cpsto;
     
372.                                 } elsif ( $t == 3 ) {
     
373.                                         $iomto = $durtab->[$t]->[$c]->[$d] + $iomto;
     
374.                                 }
     
375.                        
     
376.                         }
     
377. 
     
378.                 }
     
379. 
     
380.         }
     
381.         my @total = ($smnto,$mmsto,$cpsto,$iomto); # the diff total
     
382.        
     
383.         for my $n (@perto){
     
384.                 $perto[$n] = 0;
     
385.         } # initiatize the $perto[$n] = 0;
     
386.        
     
387.         # ------------------------------- html ------------------------------
     
388.         print "<html>";
     
389.        
     
390.         # ------- head ---------
     
391.         print "<head>";
     
392.         print "<title>Percentage Report </title>";
     
393.         print "<style type=text/css>";
     
394.         print 'table {background-color: #000000;}';
     
395.         print 'td {background-color: #FFFFFF;text-align:center; font size=10pt ;font fac=Arial}';
     
396.         print 'th {background-color: #FFFFFF;text-align:center; font size=10pt ;font fac=Arial}';
     
397.         print "</style>";
     
398.         print "</head>";
     
399.         # ------- head ---------
     
400. 
     
401.         # ------- body ---------
     
402.         print "<body>";
     
403.         print "<center>";
     
404.         print "<table border='0' cellspacing='1' width='65%'>";
     
405.        
     
406.         for my $t (@type) {
     
407.                
     
408.                 $typne = "SmarToneiN" if $t == 0;       
     
409.                 $typne = "MMS" if $t == 1;
     
410.                 $typne = "CP" if $t == 2;
     
411.                 $typne = "IOM" if $t == 3;
     
412.                
     
413.                 my $distp = 1; # as a distinction between success or failure of the temporary
     
414.                 my $sucto = 0; # number of sucessfull total
     
415.                 my $faito = 0; # number of failure total
     
416.                
     
417.                 print "<tr><th colspan='3'><p align='center'><b>$typne</b></th></tr>";
     
418.                 print "<tr><th colspan='3'><p align='left'><b>Successful Status</b></th></tr>";
     
419.                 foreach my $status (sort keys %{$statab->{$t}} ) {
     
420.                         $percg = sprintf("%.2f",$statab->{$t}->{$status} / $total[$t] * 100).'%';
     
421.                         my $cutst = (split / +/,$status)[0]; # split of the first part as a judge to of success or failure;
     
422.                                
     
423.                         if ( $cutst < 400 ) {
     
424.                                 $sucto = $statab->{$t}->{$status} + $sucto;
     
425.                                 print "<tr><td width='50%'><p align='left'>$status</td><td width='30%'><p align='center'>$statab->{$t}->{$status}</td><td width='20%'><p align='center'>$percg</td>";
     
426.                                
     
427.                         } else {
     
428.                                        
     
429.                                 if ( $t != 1  ) {
     
430.                                         print "<tr><th colspan='3'><p align='left'>&nbsp;</th></tr><tr><th colspan='3'><p align='left'><b>Failed Status (Not including the fail case of favicon.ico and Microsoft-Server-ActiveSync)</b></th></tr>" if $distp == 1;  
     
431.                                 } else {
     
432.                                         print "<tr><th colspan='3'><p align='left'>&nbsp;</th></tr><tr><th colspan='3'><p align='left'><b>Failed Status</b></th></tr>" if $distp == 1;
     
433.                                 }
     
434. 
     
435.                                 $faito =  $statab->{$t}->{$status} + $faito;
     
436.                                 print "<tr><td width='50%'><p align='left'>$status</td><td width='30%'><p align='center'>$statab->{$t}->{$status}</td><td width='20%'><p align='center'>$percg</td></tr>";
     
437.                                 $distp = 2;
     
438. 
     
439.                         }
     
440.                                
     
441.                 }
     
442.                
     
443.                 for my $c ( 0 , 1 ) {
     
444.                        
     
445.                         print "<tr><th colspan='3'><p align='left'>&nbsp;</th></tr><tr><th colspan='3'><p align='left'><b>Duration (Success)</b></th></tr>" if $c ==0;
     
446.                         print "<tr><th colspan='3'><p align='left'>&nbsp;</th></tr><tr><th colspan='3'><p align='left'><b>Duration (Fail)</b></th></tr>" if $c ==1;
     
447.                
     
448.                         for my $d ( 0 .. 4 ) {
     
449.                                 print "<tr><td width='50%'><p align='left'>Duration 0s - 2s</td>" if $d == 0;
     
450.                                 print "<tr><td width='50%'><p align='left'>Duration 2s - 5s</td>" if $d == 1;
     
451.                                 print "<tr><td width='50%'><p align='left'>Duration 5s - 10s</td>" if $d == 2;
     
452.                                 print "<tr><td width='50%'><p align='left'>Duration 10s - 20s</td>" if $d == 3;
     
453.                                 print "<tr><td width='50%'><p align='left'>Duration 20 +s</td>" if $d == 4;
     
454.                                 $percg = sprintf("%.2f",$durtab->[$t]->[$c]->[$d] / $total[$t] * 100).'%';
     
455.                                 print "<td width='30%'><p align='center'>$durtab->[$t]->[$c]->[$d]</td><td width='20%'><p align='center'>$percg</td></tr>";
     
456.                         }
     
457. 
     
458.                 }
     
459. 
     
460.                 $perto[0] = sprintf("%.2f",$sucto / $total[$t] * 100).'%';
     
461.                 $perto[1] = sprintf("%.2f",$faito / $total[$t] * 100).'%';
     
462.                 $perto[2] = sprintf("%.2f",$notab->[$t]->[0] / $total[$t] * 100).'%';
     
463.                 $perto[3] = sprintf("%.2f",$notab->[$t]->[1] / $total[$t] * 100).'%';
     
464.                
     
465.                 print "<tr><th colspan='3'><p align='left'>&nbsp;</th></tr><tr><td width='50%'><p align='left'><b>$typne Total Successful</b></td><td width='30%'><p align='center'>$sucto</td><td width='20%'><p align='center'>$perto[0]</td></tr>";
     
466.                 print "<tr><td width='50%'><p align='left'><b>$typne Total Failed</b></td><td width='30%'><p align='center'>$faito</td><td width='20%'><p align='center'>$perto[1]</td></tr>";
     
467.                 if ( $t != 1 ) {
     
468.                         print "<tr><td width='50%'><p align='left'><b>$typne Total favicon.ico</b></td><td width='30%'><p align='center'>$notab->[$t]->[0]</td><td width='20%'><p align='center'>$perto[2]</td></tr>";
     
469.                         print "<tr><td width='50%'><p align='left'><b>$typne Total Microsoft-Server-ActiveSync</b></td><td width='30%'><p align='center'>$notab->[$t]->[1]</td><td width='20%'><p align='center'>$perto[3]</td></tr>";
     
470.                 }
     
471.                 print "<tr><td width='50%'><p align='left'><b>$typne Total</b></td><td width='30%'><p align='center'>$total[$t]</td><td width='20%'><p align='center'>&nbsp;</td></tr>";
     
472.        
     
473.         }
     
474.         print "</center></body>";
     
475.         # ------- body ---------
     
476.        
     
477.         print "</html>";
     
478.         # ------------------------------- html ------------------------------
     
479.        
     
480.         @type = ();
     
481.         @perto = ();       
     
482. }
     
483. 
     

复制代码

[ 本帖最后由 hyoryeo 于 2009-10-28 17:59 编辑 ]

兰花仙子

没看到程序哦。。
你的目的是什么呢？原始数据是什么呢？

hyoryeo

原帖由 兰花仙子 于 2009-10-28 17:45 发表
没看到程序哦。。
你的目的是什么呢？原始数据是什么呢？

有点慢...放上去了...目的是对LOG中的内容做Report...

Record (35011) "MiepPullWtdr"
"wtdrId" = "672315464"
"httpMethod" = "POST"
"uaIdentificationString" = "SonyEricssonW890i/R1EA"
"returnCode" = "500 Internal Server Error"
"destinationIPAddress" = "202.140.96.190"
"imsi" = "454061101100000"
"timeStamp" = "20091027135700"
"contentSizeFromTerminal" = "32"
"authentication" = "0"
"dialledDigit" = "PICM"
"nasIPAddress" = "10.30.7.9"
"radioAccessType" = "1"
"url" = "http://mms.smartone-vodafone.com/server"
"acctAuthentication" = "1"
"apn" = "smartone-vodafone"
"chargingCharacteristics" = "0800"
"networkAccessType" = "GPRS"
"nasIdentifier" = "ggsn02"
"urlDurationTime" = "0"
"eventStatus" = "0"
"contentSizeToTerminal" = "01B9"
"e164OfAccessServer" = "smartone-vodafone"
"chargingId" = "837703948"
"msisdn" = "85261101403"
"acctSessionId" = "CB4E2E2231EE590C"
"sgsnIPAdress" = "203.78.46.9"
"bearerType" = "0"
"sourceIPAddress" = "10.73.13.208"
"stackConfig" = "4"
"recordingEntity" = "MIEP"
End of Record (35011)


跟

Record (288419) "MiepPullWtdr"
"uaIdentificationString" = "iPhoneOS/3.0.1 (7A400) "
"sysid" = "zproxy3-80"
"STATUS" = "500"
"downlink" = "85"
"imsi" = "454061101200000"
"timeStamp" = "20091027192642"
"contentSizeFromTerminal" = "26"
"dialledDigit" = "Inet_browsing(unknown)(HTTP1)"
"radioAccessType" = "1"
"url" = "http://mms.smartone-vodafone/server"
"apn" = "smartone-vodafone"
"networkAccessType" = ""
"uplink" = "38"
"urlDurationTime" = "9"
"contentSizeToTerminal" = "55"
"chargingId" = "258769907"
"msisdn" = "85293127155"
"sourceIPAddress" = "10.52.102.70"
"sgsnIPAdress" = "203.78.47.9"
"STATUSCODE" = "Can't connect to mms.smartone-vodafone:80 (Bad hostname 'mms.sma
rtone-vodafone')"
End of Record (288419)

两种类型

兰花仙子

oops....MM偶帮不了你了，太长了。

总之，我的意思是，比如你要创建任何数据结构，直接来就行，不用预分配空间。

比如：

# perl -MData::Dumper -e 'my @x; $x[0][1] = 1; print Dumper \@x'
$VAR1 = [
          [
            undef,
            1
          ]
        ];

看到没？你直接赋值就行，一个AoA就创建好了。
hash也一样，如：

# perl -MData::Dumper -e 'my %x; $x{'ip'}->{'point'} = 1; print Dumper \%x'
$VAR1 = {
          'ip' => {
                    'point' => 1
                  }
        };

虽然只赋值了一次，但是一个HoH就自动产生了。

hyoryeo

原帖由 兰花仙子 于 2009-10-28 18:01 发表
oops....MM偶帮不了你了，太长了。

总之，我的意思是，比如你要创建任何数据结构，直接来就行，不用预分配空间。

比如：

# perl -MData:umper -e 'my @x; $x[0][1] = 1; print Dumper \@x'
$VAR1 = ...

嗯..其实我不太会用Data:umper,之前看了一下不太敢用,我再去看看关于Data:umper

兰花仙子

原帖由 hyoryeo 于 2009-10-28 18:12 发表



嗯..其实我不太会用Data:umper,之前看了一下不太敢用,我再去看看关于Data:umper

它没什么，只是Dump出数据结构给你参考。

Perl_Er

给你一个link，perl的数据结构：http://www.pgsqldb.org/mwiki/index.php/DataStructures