perlの変数をphpへ渡したい

Question

perlの変数をphpへ渡すにはどうしたら良いでしょうか？

phpはやっとこさ分かるのですが、perlは良くわかりません、perlで書かれたコードを使用しなければいけないのでperlの変数をphpへ渡して使いたいと思っています。

よろしくお願いします。

具体的な内容との事で失礼いたしました。

formからpostでperlで書かれたcgiへ飛ばして自動返信するフリーのメールフォームを使ってまして、ある選択肢の時には異なるメールを飛ばしたいのでphpへフォームに入力されたメールアドレスと選択肢の値を渡したいのです。
phpでそれをやるスキルはギリギリありますが、perlではかなり難しいです。

どうにかアイデアありますでしょうか。
よろしくお願いいたします。

Comments

[ogaaaan]

情報が少なすぎ。どういうことをしたいのかもっとちゃんと具体的にかかないと、解答欄で質問合戦になるでしょ。それは無駄なので避けてください。

[CHERRY]

perl の変数を直接 PHP で、操作はできません。 しかし、やりたい内容によっては、代替方法があるかもしれませんので、やりたい内容を具体的に書いてください。

Answer 1

要は，
フォームデータ → perl → PHP
と値を渡したいということで間違いないでしょうか？

間違いないようでしたら，以下の様な形になると思います．
なお，実行などは行っていないのでエラーが出るかもしれません．

perlに条件式を加える

# ある選択肢が変数「$value」に入っていると仮定
if ( $value eq "ある選択肢" ){
    #とりあえずJavaScriptでPHPにデータを送ります
    print '<script>';
    
    #メールアドレスが変数「$mailaddress」に入っていると仮定
    print 'location.href="hoge.php?mail='. $mainaddress .'&value='. $value .'"';
    
    print '<script>';
}

PHP側で受け取る

#ある値の取得
$value = $_GET["value"];

#メールアドレスの取得
$mailaddress = $_GET["mail"];

Answer 2

PerlからPHPへPOSTする。 要は”Perl POST" の検索で見つかります。

use LWP::UserAgent;

our $ua = LWP::UserAgent->new;
our $url = 'http://exsample.com/phpform.php';
our $query_string = 'param1=a&param2=b';

my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query_string);

my $res = $ua->request($req);
print $res->as_string;

LWP::UserAgent がインストールされてないと使えないので

あとは、curl コマンドを呼ぶか

Answer 3

横槍を入れるようで申し訳ないのですが、とりあえず主題の件について回答します。
HTMLに出力する場合、当然ながらprintするのは、Perlです。
Perlは、phpがechoした出力を受け取ります。

注) Perlのソースの ` は '（シングルクオーテーション）ではありません。

my $res = `/usr/bin/php -f ./other.php ABC DEF`;
print $res;

<?php
echo '$argv[1] : ' . $argv[1] . '<br>';
echo '$argv[2] : ' . $argv[2] . '<br>';
?>

Answer 4

phpは大丈夫ということなので、
formのあて先をphpにしてphpで処理したあと、phpからhttp経由でperlに送信するという方法が一番楽じゃないですかね。

Comments

[yoyoyoyogi]

ご回答ありがとうございました。

実はそれ試してみたのですが、フォームの入力支援やチェックなどの機能も切れてしまって駄目でした。
コード的にはformからの飛ばし先は空白で
aaa.cgiをジャバスクリプトタグでformのhtmlにリンクしていました。
aaa.cgi内は複数のファイルへのリンクで成立していて、どこかの記述でsubmitするとaaa.cgiに飛ぶ様にしているのではないかと思ってます。

また何か良い方法があったら教えて下さい。
よろしくお願いします。

[ogaaaan]

『フォームの入力支援やチェックなどの機能も切れてしまって』
↑これは関係ないような。
入力支援ってクライアント側なんで、それはおそらくJavaScriptの実装の問題でしょう。
そこがおかしいのであれば、ここではなくて、JavaScriptの質問として別途投稿してみるのも手かと。

『aaa.cgiをジャバスクリプトタグでformのhtmlにリンクしていました。』
formタグのaction先はデフォルトでは空で、JavaScriptでaction先を動的に書き換えてた、ということですね。

『aaa.cgi内は複数のファイルへのリンクで成立していて』
複数ファイルのリンクというは、aaa.cgiが別のライブラリを読み込んでる、ということでしょうか・・・。そこはいったん無視していいかと。

『どこかの記述でsubmitするとaaa.cgiに飛ぶ様にしているのではないかと思ってます。』
↑perlで書かれたcgi用のファイルで送信はしてないと思いますよ。できないし。
送信するのはあくまでブラウザ側なんで送信させてるのはJavaScriptでしょう。ここはスルーしておきますが。

もう少し状況を知りたいところですが、2つばかり返答しておきます。

perl自体、phpをちょっと難しくした程度の記述なんで、perl側いじったほうが早い気がしますね。おそらくファイル内に送信先のメールサーバとかメールアレスが書かれてると思うけど、その部分をif分つかって分岐するだけですむと思うので。
http://www.envinfo.uee.kyoto-u.ac.jp/user/susaki/perl/condition.html

もしくは、phpでメール処理するのはかなり簡単なので、mb_send_mail()とかつかって丸ごと作り、perlを一切使わないってやるのもいいんじゃないですかね。php大丈夫なら1日2日で終わる程度だと思いますが。
http://techblog.ecstudio.jp/tech-tips/mail-japanese-basics.html