社区
CGI
帖子详情
perl接收参数
libeixian
2003-12-12 04:38:59
请给一个perl接收post或get传过来的变量的函数
...全文
160
1
打赏
收藏
perl接收参数
请给一个perl接收post或get传过来的变量的函数
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
leebx
2003-12-12
打赏
举报
回复
sub ReadParse
{
local $a = $_[0] ? $_[0] : \%in;
local $i;
local $meth = $_[1] ? $_[1] : $ENV{'REQUEST_METHOD'};
undef($in);
if ($meth eq 'POST') {
read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
}
if ($ENV{'QUERY_STRING'}) {
if ($in) { $in .= "&".$ENV{'QUERY_STRING'}; }
else { $in = $ENV{'QUERY_STRING'}; }
}
@in = split(/\&/, $in);
foreach $i (@in) {
local ($k, $v) = split(/=/, $i, 2);
$k =~ s/\+/ /g; $k =~ s/%(..)/pack("c",hex($1))/ge;
$v =~ s/\+/ /g; $v =~ s/%(..)/pack("c",hex($1))/ge;
$a->{$k} = defined($a->{$k}) ? $a->{$k}."\0".$v : $v;
}
}
Perl
编程入门(Learning
Perl
, 7th Edition)-2017年O'reilly英文原版书籍,0积分
1.
Perl
中的可选
参数
处理: 在编程中,我们常常需要处理函数或子程序的
参数
,有时候需要为这些
参数
提供默认值。
Perl
提供了一种方式来处理没有提供默认值的可选
参数
。通过使用特殊变量$=来表示一个没有默认值的
参数
...
Perl
语言入门(第五版-中文版).pdf
Perl
语言入门(第五版),本书是为中文版本...发送及
接收
信号 习题 第十七章高级
perl
技巧 用eval捕获错误 用grep来筛选列表 用map对列表进行转换 不带引号的哈希键 切片 习题 附录a习题解答 附录b超越小骆驼...
python简明教程.chm
为什么不使用
Perl
? 程序员的话 2. 安装Python Linux和BSD用户 Windows®用户 概括 3. 最初的步骤 简介 使用带提示符的解释器 挑选一个编辑器 使用源文件 输出 它如何工作 可执行的Python程序 获取...
perl
函数的
参数
接收
方法
重拾
perl
原文:http://www.linuxsir.org/bbs/showthread.php?t=78216
Perl
函数和作用域。语法:Sub subroutineName{my (@argsTosubroutine) = @_; #
参数
通过这种方式传递给函数&doStuff; # 执行体return ( @return...
掌握
Perl
的钥匙:深入探索命令行
参数
的艺术
通过本文的探索,我们不仅学习了如何在
Perl
中使用命令行
参数
,还了解了如何解析和利用这些
参数
来增强脚本的功能。命令行
参数
是
Perl
脚本与外界交互的重要桥梁,掌握其使用方法对于编写高效、灵活的脚本至关重要。现在...
CGI
2,204
社区成员
4,518
社区内容
发帖
与我相关
我的任务
CGI
Web 开发 CGI
复制链接
扫一扫
分享
社区描述
Web 开发 CGI
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章