社区
CGI
帖子详情
perl接收参数
libeixian
2003-12-12 04:38:59
请给一个perl接收post或get传过来的变量的函数
...全文
108
1
打赏
收藏
微信扫一扫
点击复制链接
分享
举报
写回复
1 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
函数的
参数
接收
方法
重拾
perl
原文:http://www.linuxsir.org/bbs/showthread.php?t=78216
Perl
函数和作用域。语法:Sub subroutineName{my (@argsTosubroutine) = @_; #
参数
通过这种方式传递给函数&doStuff; # 执行体return ( @return...
perl
脚本的
参数
输入
关于
perl
脚本的
参数
输入一共有两个办法: useGetopt::Std 或者 use Getopt::Long (use的用法与import类似,这里就不展开了) 对于上面两中方法,采用哪一种目前看来没有特别明显的区别,掌握其中一种,我觉得就可以...
perl
接受传递
参数
的几种方法
1.使用一个
参数
读取shell传递来的多个
参数
: 目录下: a.log b.log c.log dota.pl dota.pl的内容如下: #! /usr/bin/
perl
use Getopt::Std; use warnings; use strict; sub read_from_sh($) { my...
linux上
perl
怎么传输
参数
,如何在
perl
子函数中传递
参数
?
慕村225694
Perl
可以通过函数元型在编译期进行有限的
参数
类型检验。如果你声明sub mypush (+@)那么 mypush() 对
参数
的处理就同内置的 push() 完全一样了。函数声明必须要在编译相应函数调用之前告知编译器(编译器在...
Perl
脚本间传递
参数
读取文件内容的脚本file_input3.pl(见http://blog.csdn.net/zhyuh_
perl
/archive/2010/03/05/5348799.aspx)可以写成一个通用的函数,供其它脚本调用,并.../usr/bin/
perl
-w## functon0.pl# To be called by other sc
perl
函数传递多个
参数
数组 标量 字典,
Average
接收
后可用@_[0] 获取位置
参数
也可以直接遍历@_,当有多个标量时传递过来是以数组形式接受。 #!/usr/bin/
perl
# 定义求平均值函数 sub Average{ # 获取所有传入的
参数
$n = scala...
[
Perl
] Getopt 函数来
接收
用户
参数
的使用
我们在linux常常用到一个程序需要加入
参数
,现在了解一下
perl
中的有关控制
参数
的函数.getopt.在linux有的
参数
有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整
参数
.-表示简化
参数
. 在
perl
中也分这...
perl
参数
传递
perl
file.pl -d 20040412 -f louiskoochen -p 可得到下列形式的输出: $opt_d =>;200040412 $opt_f =>;louiskoochen $opt_p =>;1 这回大家知道Getopt::Std模块是怎么回事了吧:) 处理命令行...
perl
数组硬引用_
Perl
函数
参数
中传递数组和引用的使用
Perl
函数
参数
中传递数组和引用今天看到了在
Perl
函数
参数
中传递引用的一段文章,其中讲到了一个问题,自己以前还碰到过,不过最后是通过其他办法绕过去了。今天看到这个问题可以通过传递
参数
引用来解决,所以打算写...
Perl
函数及
参数
介绍
当一个子例程
接收
参数
时,便会把
参数
保存到@_数组中。当把两个数组同时传递给一个子例程时,这两个数组都将保存到@_数组中,并连接成单个列表。如果不知道其中前一个数组长度的话,基本上就不可能再拆开这两个数组了...
077_批处理文件
接收
参数
其实这个用法之前已经知道了,但是通常...而我遇到的别人的批处理中,通常是带有
接收
10个
参数
的设计。 简单做一个测试对这个功能进行一下更加深入的了解。 运行结果: 其实这个运行模式也算是很简单就摸清...
在
Perl
中使用Getopt::Long模块来
接收
用户命令行
参数
在
Perl
中使用Getopt::Long模块来
接收
用户命令行
参数
我们在linux常常用到一个程序需要加入
参数
,现在了解一下
perl
中的有关控制
参数
的函数.getopt.在linux有的
参数
有二种形式.一种是–help,另一种是-h.也...
@ARGV:
perl
命令行
参数
当
perl
脚本运行时,从命令行上传递给它的
参数
存储在内建数组@ARGV中,@ARGV是
PERL
默认用来
接收
参数
的数组,可以有多个
参数
,$ARGV[0]是表示
接收
到的第一个
参数
,$ARGV[1]表示第二个。 使用方法为:
perl
my.pl ...
perl
方法传递hash
参数
perl
基础:传递hash类型
参数
1 如果是只有一个
参数
要传,且是hash,最直接想到的办法就是像传其他类型
参数
一样直接传, 如: subFuntion(%hash1); 2 如果有多于一个
参数
要传,这里假设只有一个
参数
的类型是hash的...
PHP中
接收
命令行
参数
PHP中
接收
命令行
参数
Perl
中命令行
参数
以及打开管道文件
在
Perl
中,扣开和使用管道可采用如下形式的open函数: open(Filehandle,”丨 CMD”); 其中,CMD为数据
接收
方应用程序。比如,可以用管道的方式,向邮件程序发送信息,然后邮件程序会把收到的信息作为邮件发送...
大学生上网调查报告4篇.pdf
大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf大学生上网调查报告4篇.pdf
js音乐播放器Demo
js音乐播放器Demo
煤矿安全监测监控系统管理制度汇总(最新、完整).pdf
煤矿安全监测监控系统管理制度汇总(最新、完整).pdf煤矿安全监测监控系统管理制度汇总(最新、完整).pdf煤矿安全监测监控系统管理制度汇总(最新、完整).pdf煤矿安全监测监控系统管理制度汇总(最新、完整).pdf煤矿安全监测监控系统管理制度汇总(最新、完整).pdf
电动执行器的维护.pdf
电动执行器的维护.pdf电动执行器的维护.pdf电动执行器的维护.pdf电动执行器的维护.pdf电动执行器的维护.pdf
发帖
CGI
加入
微信扫一扫
点击复制链接
2198
社区成员
4487
社区内容
Web 开发 CGI
社区管理员
申请成为版主
帖子事件
创建了帖子
2003-12-12 04:38
社区公告
暂无公告