perl 的CGI和DBI练习求教

蚊仔perlperl

1. #!/usr/bin/perl -w
   
2. #
   
3. #
   
4. use strict;
   
5. use CGI qw(:standard *table);
   
6. use DBI;
   
7. my $dbh=DBI->connect("DBI:mysql:host=192.168.5.129;database=test_db",
   
8.                         "root",
   
9.                         "123456",
   
10.                         {PrintError=>0,RaiseError=>1}
    
11.                     );
    
12. 
    
13. my $sth=$dbh->prepare("SELECT * FROM test_tb");
    
14. $sth->execute();
    
15. 
    
16. 
    
17. #create cgi code.
    
18. 
    
19. my $cgi=new CGI;
    
20. print header(),
    
21.         start_html();
    
22. while(my @val=$sth->fetchrow_array()){
    
23. 
    
24. print table({-border=>undef},
    
25.                   Tr({-align=>'CENTER',-valign=>'TOP'},
    
26.                   [
    
27.                    th(['uuiiuu','adeade','aswwwwww','fffaaaa', 'ageaasdaf','aasdafsdfh','aaar','abcd']),
    
28.                    td([@val])
    
29.                   ]
    
30.                     )
    
31.             );
    

复制代码

得到这个样子的表格，好难看的，表格重复了，看了perldoc CGI 想不到从哪里入手。请前辈指教，谢谢。

兰花仙子

回复 1# 蚊仔perlperl


    我们都用Template::Toolkit的模板技术，就是在HTML里嵌入perl传过来的变量。
CGI里不需要用到那些表单生成方法。

蚊仔perlperl

cgi 都还没看熟又来一个，针对这个应该是哪里的问题，脑袋发晕啊perl啊perl啊

zhlong8

你看的资料也太老了

dajun

貌似楼主觉得那两行th重复了, tr里不要放th好了,
另外直接抛弃CGI.pm得了, 至少不用它来生成html

蚊仔perlperl

回复 4# zhlong8


    {:3_182:} 像这种应该看什么哩，真不知到。不是CGI.pm吗？那这个模块现在没人用了啦？