前端之家收集整理的这篇文章主要介绍了
在Perl脚本中使用ARGV和CGI，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
我正在编写一个可以从命令行和网页运行的Perl脚本.该脚本接收一些参数,如果它从命令行启动,则通过$ARGV读取这些参数,如果从网页启动,则从CGI读取这些参数.我怎样才能做到这一点？
my $username;
my $cgi = new CGI;
#IF CGI
$username = $cgi->param('username');
#IF COMMAND LINE
$username = $ARGV[0];
最干净的
方法可能是将
代码的
内容放在一个模块中,并为每个接口(CGI和命令行)提供一个脚本.
您可以测试是否存在CGI环境变量($ENV {SERVER_PROTOCOL})以查看是否正在使用CGI,但如果脚本用作另一个CGI脚本的命令行脚本,则会失败.
如果您想通过@ARGV传递的只是表单输入,请记住,如果脚本未被调用为CGI脚本,CGI(模块)将检查@ARGV的输入.请参阅documentation中标题为“调试”的部分.
原文链接：https://www.f2er.com/Perl/172132.html
