高分问一个很简单的问题?(急)

gpboy2001 2004-12-25 07:41:05
4.请写一小段Perl代码遍历%test散列中所有的关键字以及所对应的值,并打印出来(这个散列已经初始化过)
...全文
82 点赞 收藏 5
写回复
5 条回复
xyzxyz1111 2004年12月25日
#!/usr/bin/perl

use warnings;
use strict;
use CGI;

my $g = new CGI("NAME=lofuture&PASSWORD=why&SEX=%C4%D0&LOVING=FOOTBALL&SEND=%CC%E1%BD%BB");
my %test = $g->Vars();

foreach (keys %test){
printf "%s=%s\n", $_, $test{$_};
}
回复 点赞
gpboy2001 2004年12月25日
楼上大哥帮下忙哟,
回复 点赞
gpboy2001 2004年12月25日
帮忙可不可以再帮我看一下这一道呀?
1.我用GET方法向cgitest.pl提交了下面这个字符串:
NAME=lofuture&PASSWORD=why&SEX=%C4%D0&LOVING=FOOTBALL&SEND=%CC%E1%BD%BB
如何在cgitest.pl中得到如下的名称和值的对应形式(保存在一个散列中):
NAME=lofuture
PASSWORD=why
SEX=男
LOVING=足球
SEND=提交
回复 点赞
xyzxyz1111 2004年12月25日
foreach (keys %test){
print;
print ":";
print $test{$_};
print "\n";
}
回复 点赞
gpboy2001 2004年12月25日
55555555
回复 点赞
发动态
发帖子
脚本语言(Perl/Python)
创建于2007-08-27

1.5w+

社区成员

3.3w+

社区内容

其他开发语言 脚本语言(Perl ,Python)
社区公告
暂无公告