perl CGI表格问题

Grainlin

咨询下大神们。。。

这有一个二维属组@efg,能否放入一个表格中?

Vegetable        Breakfast        Lunch        Dinner
Tomatoes        no                  yes                yes
Broccoli        no                  no                 yes
…                 …                   …                  …
…                 …                  …                 …


一个简单的测试脚本:

1. #!/usr/bin/perl
   
2. use CGI;
   
3. use CGI qw/:standard/;
   
4. use Data::Dumper;
   
5. 
   
6. BEGIN{
   
7.     use CGI::Carp qw(fatalsToBrowser carpout);
   
8.     open(LOG,">>errors.log") ||die "Couldn't open log file\n";
   
9.     carpout(LOG);
   
10. }
    
11. 
    
12. 
    
13. 
    
14. 
    
15. my @abc = (Tomatoes,on,yes,yes);
    
16. my @bef = (fff,eee,ddd,ccc);
    
17. 
    
18. my @zfg ;
    
19. 
    
20. @{$zfg[0]} = @abc;
    
21. @{$zfg[1]} = @bef;
    
22. 
    
23. print header;
    
24. print start_html(
    
25.         -title=>"Testing arguments",
    
26.         -bgcolor=>"#99FF66"
    
27. ),
    
28. 
    
29. b(),font({-size=>"+2", -color=>"#006600"}),
    
30. 
    
31. p(),"\n",
    
32. 
    
33. p("This is a string"),"\n",
    
34. 
    
35. p({-align=>center}, "red", "green", "yellow"), "\n",
    
36. 
    
37. p({-align=>left}, ["red","green","yellow"]),
    
38. 
    
39. b("THIS TEXT is bold"),
    
40. 
    
41. p("$zfg[1][0]"),
    
42. 
    
43. 
    
44. table({-border=>undef},
    
45.                   caption('When Should You Eat Your Vegetables?'),
    
46.                   Tr({-align=>'CENTER',-valign=>'TOP'},
    
47.                   [
    
48.                      th(['Vegetable', 'Breakfast','Lunch','Dinner']),
    
49.                      td(['Tomatoes' , 'no', 'yes', 'yes']),
    
50.                      td(['Broccoli' , 'no', 'no',  'yes']),
    
51.                      td([@zfg]),
    
52.                   ]
    
53.                   )
    
54.                ),
    
55. 
    
56. end_html;

复制代码

jason680

回复 1# Grainlin

1. foreach
     @{$zfg[0]} = @abc;
    @{$zfg[1]} = @bef;
   
    my $td_zfg = "";
    foreach(@zfg){
       $td_zfg .= td([@{$_}]);
    }    

    ...
    td(['Broccoli' , 'no', 'no',  'yes']),
    $td_zfg

2. do it by yourself
   ...
   td(['Broccoli' , 'no', 'no',  'yes']),
   td([ @{$zfg[0]} ]),
   td([ @{$zfg[1]} ]),
   

Grainlin

回复 2# jason680



你好,谢谢你的答复...第一种方法测试了下...

1. foreach
     @{$zfg[0]} = @abc;
    @{$zfg[1]} = @bef;
   
    my $td_zfg = "";
    foreach(@zfg){
       $td_zfg .= td([@{$_}]);
    }   

  

然后在table上引用了

th(['Vegetable', 'Breakfast','Lunch','Dinner']),
                     td(['Tomatoes' , 'no', 'yes', 'yes']),
                     td(['Broccoli' , 'no', 'no',  'yes']),
                    $td_zfg

)

打印出来的结果不太一样...$td_zfg只在一行。。


从HTML源代码看起来清晰点..

正常的:

<tr align="CENTER" valign="TOP"><td>Broccoli</td> <td>no</td> <td>no</td> <td>yes</td></tr>
<tr align="CENTER" valign="TOP"><td>Tomatoes</td> <td>on</td> <td>yes</td> <td>yes</td></tr>
</table>


使用了第一种方法:第二行8个元素只打印在一行...<tr>

<tr align="CENTER" valign="TOP"><td>Broccoli</td> <td>no</td> <td>no</td> <td>yes</td></tr>
<tr align="CENTER" valign="TOP"><td>fff</td> <td>eee</td> <td>ddd</td> <td>ccc</td>,<td>Tomatoes</td> <td>on</td> <td>yes</td> <td>yes</td>,</tr>
</table>







   

Grainlin

用了比较笨的方法解决了..谢谢jason的提醒...

1. #!/usr/bin/perl
   
2. use CGI;
   
3. use CGI qw/:standard/;
   
4. use Data::Dumper;
   
5. my @abc = (Tomatoes,on,yes,yes);
   
6. my @bef = (fff,eee,ddd,ccc);
   
7. my @hij = (Vegetable,Breakfast,Lunch,Dinner);
   
8. 
   
9. my @zfg ;
   
10. 
    
11. @{$zfg[0]} = @abc;
    
12. @{$zfg[1]} = @bef;
    
13. @{$zfg[2]} = @hij;
    
14. 
    
15. my $td_zfg = "";
    
16. foreach(@zfg){
    
17. #    $td_zfg= join("</tr><tr align=\"CENTER\" valign=\"TOP\">",td([@{$_}]),$td_zfg);
    
18.       my $middle = &tdtest(@{$_});
    
19.       $td_zfg .=$middle;
    
20.         }
    
21. 
    
22. 
    
23. print "$td_zfg \n";
    
24. 
    
25. 
    
26. 
    
27. sub tdtest
    
28. {
    
29.   my ($a,$b,$c,$d) = (@_);
    
30.   my $tdstrings = &td($a,$b,$c,$d);
    
31.   my $strings = "<tr align=\"CENTER\" valign=\"TOP\">".$tdstrings."</tr>";
    
32.   print "$strings\n";
    
33.   return $strings;
    
34. }
    
35. 
    
36. sub td
    
37. {      
    
38.   my @abc = (@_);
    
39.   my $tdstrings = "";
    
40.   foreach my $abc(@abc)
    
41.   {
    
42.     $tdstrings .= "<td>".$abc."</td>";
    
43.   }
    
44.   return $tdstrings;
    
45. }

复制代码

Grainlin

2. do it by yourself
   ...
   td(['Broccoli' , 'no', 'no',  'yes']),
   td([ @{$zfg[0]} ]),
   td([ @{$zfg[1]} ]),


在这个table中使用不了循环...囧...


table({-border=>undef},
                  caption('When Should You Eat Your Vegetables?'),
                  Tr({-align=>'CENTER',-valign=>'TOP'},
                  [
                     th(['Vegetable', 'Breakfast','Lunch','Dinner']),
                     td(['Tomatoes' , 'no', 'yes', 'yes']),
                     td(['Broccoli' , 'no', 'no',  'yes']),
                     td([@zfg]),
                  ]
                  )
               ),