从PHP向Perl传递NULL变量


Passing NULL variables to Perl from PHP?

我有一个php页面,我正在该页面上使用一个表单,并将表单上的选择/数据传递给我创建的perl脚本。不幸的是,当我传递变量时,如果有任何空变量,我在perl脚本上收到的变量的顺序就不正确。有没有一种方法可以确保传递给perl脚本的变量给出正确的顺序,无论其中是否有数据?

<form action="index.php" method="post">
FTP/SFTP: <select name="TYPE">
    <option value="">Select...</option>
    <option value="ftpd">FTP</option>
    <option value="sftpd">SFTP</option>
</select></t><Br>
Search String: <input type="text" name="SEARCH"></t><br>
Search Type: <select name="STYPE">
    <option value="">Select...</option>
    <option value="user">Username</option>
    <option value="ip">IP Address</option>
    <option value="pid">PID</option>
    <option value="file">Filename</option>
</select><br>
Date (YYYY-MM-DD): <input type="text" name="DATE"></t><br>
Server: <select name="SERVER">
    <option value="">Select...</option>
    <option value="test1ftp">test1</option>
    <option value="test2ftp">test2</option>
</select></t><Br>
<input type="submit" name="formSearch" value="Search">
</form></font></p>
</body>
</html>

这是调用perl脚本的php部分:

<?php       
    if(isset($_POST['formSearch']) == "Search")
    {
        if(empty($_POST['SEARCH']))
            $_POST['SEARCH'] = "undef";
        if(empty($_POST['SERVER']))
            $_POST['SERVER'] = "undef";
        if(empty($_POST['DATE']))
            $_POST['DATE'] = "undef";

        //system("perl search.pl $_POST[TYPE] $_POST[SEARCH] $_POST[STYPE] $_POST[DATE] $_POST[SERVER]", $return_val);

    }
?>

当它到达perl脚本时,我将要传递的变量转到下面。

my $TYPE = $ARGV[0];
my $SEARCH = $ARGV[1];
my $STYPE = $ARGV[2];
my $DATE = $ARGV[3];
my $SYSTEM = $ARGV[4];

因此,如果我在SEARCH中没有数据,那么本应传递给$DATE的数据现在似乎会在$SEARCH中结束。

如有任何帮助,我们将不胜感激。

谢谢。

引用命令行参数。如果$_POST[...]变量中有空格,这也会很有用:

system("perl search.pl '"$_POST[TYPE]'" '"$_POST[SEARCH]'" '"$_POST[STYPE]'" '"$_POST[DATE]'" '"$_POST[SERVER]'"", $return_val);