将文件从 file() 传递到 Perl 程序 PHP

Question

我有一个 PHP 代码，通过 file() 方法存储 url 的内容，就像

$contents=file("http://www.rcsb.org/pdb/files/2AID.pdb"); 

我需要通过 shell_exec() 方法将这些 $contents 传递给 perl 程序一样，如下所示

$result=shell_exec("perl_prog.pl $contents");

我的问题是如何将此 $contents 传递给 Perl 程序。我尝试了以下操作

@file=<@ARGV>;

，但它不起作用。请帮我。

Answer 1

shell_exec() 代码完全容易受到 shell 注入的攻击 - 您相信远程服务不会包含以下内容：

; rm -rf /

同样，file() 将文件内容作为数组返回 - 您可以不要直接通过命令行传递数组。只有字符串。

一个相对安全的版本是：

$contents = file_get_contents('http://etc....');
$safe_contents = escapeshellarg($contents);
$result = shell_exec('perl_prog.pl $safe_contents');

在 Perl 方面，您可以使用

my ($contents) = @ARGV;