1

フォームフィールドが値を保持できるように、phpセッション変数をphpフォームからperlスクリプトに、またはその逆に渡す必要があります。

フォーム.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側でそれを行うことができるかです

4

2 に答える 2

0

答えは単純で、perl 側では次のようになりました。

use CGI qw/:standard/;         
use CGI::Cookie;
%cookies = CGI::Cookie->parse($ENV{COOKIE});
于 2013-04-18T10:25:41.263 に答える