- 论坛徽章:
- 0
|
我用Perl实现了一个CGI程序,用来查询用户信息
- #!/usr/bin/perl
- use strict;
- use CGI;
- my $q=new CGI;
- my $action=$q->param('action');
- my $id=$q->param('id');
- #my $list='';
- my $list=join("\t","wells","23","male");
- #my $result=0;
- my $result=1;
- print "Content-type:text/html\n\n";
- if( $action eq 'Search')
- {
- open(SH,"data.txt") || die "cannot open file data.txt:$!";
- while(my $line = <AD>)
- {
- chomp $line;
- my( $usrid, @values )=split("\t", $line);
- if( $id eq $usrid )
- {
- # $list.=join("\t", $usrid, @values);
- $result = 1;
- }
- }
- }
- print "<html>\n";
- print "<head>\n";
- print "<meta http-equiv=\"Content-type\" Content=\"text/html; Charset=uft-8\">\n";
- print "<title>demo.cgi</title>\n";
- print "</head>\n";
- print "<body>\n";
- print "<form action=\"\" method=\"post\">";
- print "<h2 alien=center>请输入你要查找的用户ID</h2>";
- print "<p>ID:";
- print "<input type=text name=id>";
- print "<input type=submit name=action value=\"Search\">";
- print "<input type=reset name=reset value=\"Reset\">";
- print "</p><br>";
- print "<table border>";
- if($result==1){
- my($val1, $val2, $val3)=split("\t",$list);
- print "<form action=\"\" method=\"post\">";
- print "<tr>";
- print "<td>$val1</td>";
- print "<td><input size=25 name=sage value=$val2></td>";
- print "<td><input size=25 name=ssex value=$val3></td>";
- print "</form>";
- }
- print "</table>";
- print "<hr>";
- print "</form>";
- print "</table>";
- print "</body></html>";
复制代码
现在遇到的问题是$result和$list的值无法修改,这样使得$result恒等于零,请问要怎么修改才能使得当if()里面语句中的$result和$list可以修改成我想要的值
谢谢!! |
|