将会话变量从 php 传递到 perl答案

【问题标题】：Passing session variables from php to perl将会话变量从 php 传递到 perl
【发布时间】：2013-04-11 08:45:29
【问题描述】：

我需要将 php 会话变量从我的 php 表单传递到 perl 脚本，反之亦然，以便表单字段可以保留它们的值。

form.php

<?php  session_start();
 if (isset($_POST['submit'])){
    $post_arr = $_POST;

    $expire = 8*3600; 
    setcookie("Cookie_Info", serialize($post_arr), time()+$expire); 
   }

if (isset($_COOKIE['Cookie_Info'])) {
    $data = unserialize($_COOKIE['Cookie_Info']);
} else {
    $data = array(
          'from' => '',
              'area_html' => ''
    );

        }

.....

<form name="sendForm" method="post" action="test.cgi" >
<tr><td> from: </td>
    <td><input type="text" name="from" value="<?php echo $data->from; ?>"/></td>
</tr>

我的问题是如何在 perl 方面做到这一点

【问题讨论】：

...你的问题是什么？
我的问题是我该怎么做：D

标签： php perl post cookies cgi

【解决方案1】：

答案很简单，在 perl 方面：

use CGI qw/:standard/;         
use CGI::Cookie;
%cookies = CGI::Cookie->parse($ENV{COOKIE});

【讨论】：

【解决方案2】：

你已经搜索了吗？我不这么认为……

Passing variables from PHP to PERL

你需要使用exec：

<?php
$var1='high'; 
exec('C:/xampp/htdocs/WORK/hello.pl'.' '.EscapeShellArg("$var1"),$output);
echo ($output);
?>

其他链接：

http://forums.devshed.com/php-development-5/passing-arrays-from-php-to-a-perl-script-run-as-35600.html

【讨论】：

我已经搜索过了，我可以将变量从 php 传递到 perl，这不是我的问题，我的问题是如何传递 cookie/会话变量...