perlからphpを実行して結果を得る方法
perlのプログラムから同一サーバー内のphpを実行してその結果を取得したいのですが、うまくいきません。
print.phpというファイルの中身が
<?
echo "<div>1234567890</div>";
?>
だとして、これをブラウザで見た場合のソースは
<div>1234567890</div>
となるわけで、この1234567890をperlのプログラム内で表示するために
main.cgiというプログラム内で
$data = '/***/www/print.php';
open(FH,$data);
@list = <FH>;
foreach $data_line ( @list ) {
if ($data_line =~/<div>/ ){
$data_line =~ s/<div>//i;
$data_line =~ s/<\/div>//i;
print = $data_line;
}
}
close(FH);
のような処理をすると
echo "1234567890";
という実行前のphpの中身が表示されてしまいます。
表示したい結果はこの場合ブラウザでphpを実行した時のソースからdivタグをperl側で抜き取った
1234567890
なのですが、同じ事をperlの書き換えで実現する上手い方法があればご教授いただけますと助かります。
補足
ありゃりゃ? 参考URL死んでますぅ(泣)。 それで、どうもCGI版のPHPは、書籍についているっぽいので、そこから手に入りそうなのですが、もし手に入った場合、行頭のパスにローカルではなく、グローバルなパスは記述できるんでしょうか。 #!http://www.server/somewhere/php みたいに。 ルート権限とかは持ってないのですが、なんとかサーバーにPHPプログラムを実行してもらえませんかね。 もし実行できる場合は、拡張子をPHPじゃなくてCGIにしなければならないのでしょうか。