perl - *PIPER 在 Perl 中是什么意思？

Question

我需要一些帮助来理解以下 Perl 代码片段。我有以下两个问题。

1.local *PIPER 是什么意思？尽管在 local * 语法对我来说是新的之前我已经完成了一些 Perl 编程。是指针吗？

2。

的目的是什么

curl http://www.somesite.net/cgi-bin/updateuser.cgi? -d "userid=$userid&password=$password\" -s |"; ?

谢谢你:)

local *PIPER;

$http_query = "curl http://www.somesite.net/cgi-bin/updateuser.cgi? -d \"userid=$userid&password=$password\" -s |";

open(PIPER,$http_query) or die "sorry";

while(<PIPER>)
{
   $rets = $_;

}

close(PIPER);

return $rets;

Answer 1

1) “*PIPER”是一个类型团。它是“$PIPER ”、“@PIPER ”和“%PIPER ”(然后我还有一些)合而为一。他们宣布所有*PIPER您拥有的代码片段的本地名称。

2) 这是一个 shell 命令。它以 | 结尾这意味着该命令正在运行，并且它的输出正在作为文件句柄 PIPER 的输入通过管道输入.然后程序用 while(<PIPER>) 逐行读取这个，但你已经知道了。

我不太了解curl ，但我知道这是一个用于在 Internet 上执行操作的命令行程序。只是随机刺一下，您的代码似乎正在访问网站的 CG​​I 脚本并向其发送一些信息。