PerlからPHPに移植したアクセス制限

質問

下記は、CGIファイルから持ってきたスクリプトをPHPに変換してみたものです。
エラーが出るの出ます-> Parse error: syntax error, unexpected '/', expecting ')' in /home/users/1/raindrop.jp-5247423/web/tsukushinbo/bbs/bbs_header.php on line 32
どう修正すれば教えていただきたいです。

<?php
#----------------#
# ホスト名取得 #
#----------------#
function get_host(){
$host = $_SERVER{'REMOTE_HOST'};
$addr = $_SERVER{'REMOTE_ADDR'};

if($gethostbyaddr){
if ($host === "" || $host === "$addr") {
$host === gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
$host === gethostbyaddr(pack($addr));
}
}
if($host === "") { $host = $addr; }
}
?>

回答No.2

t_ohta · ベストアンサー

＞　どこが間違ってるのか、ご指導いただけますか？

手元にテスト環境が無いので全て確認できていませんが、ありとあらゆる所にperlの構文が残っていて、PHPに変換できていないですね。
大きくは変数のスコープでしょうか。
functionの内外ではスコープが違うため外で定義した変数は中で参照できませんので、引数・戻り値として渡しましょう。

回答No.1

t_ohta

ファイルを端折っておられるのか、エラーメッセージにある32行目がどこに該当するのか分かりませんが、
$host === gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
のsplit部分のコーテーションが抜けているのが問題ではないでしょうか。
split("/\./", $addr)

お礼

ご指摘、どうもありがとうございました。

補足

ちなみに、アクセス制限のスクリプトを、全部書くと、下記のようなものになりますが、Perlの関数とPHPの関数で微妙に相違点があるので、うまく動作しないんだと思いますが、どこが間違ってるのか、ご指導いただけますか？

-----------------------------------------------
<?php
///////////////////////////////////
// アクセス制限（ホスト名を記述）//
///////////////////////////////////
$deny = array(
"",
"",
);

axs_check();

# ホスト名取得方式
# --> 0 : $ENV{'REMOTE_HOST'}
# --> 1 : gethostbyaddr
$gethostbyaddr = 1; // ホスト名が割り出されたかどうか→見つかったら1、見つからなかったら0

#----------------#
# ホスト名取得 #
#----------------#
function get_host(){
$host = $_SERVER{'REMOTE_HOST'}; // REMOTE_ADDRで取得したIPアドレスをDNSで逆引きしたホスト名をあらわす。サーバによっては、REMOTE_HOSTを返さないものもあります。これはサーバの負荷を軽減するためです。
$addr = $_SERVER{'REMOTE_ADDR'}; // クライアントのIPアドレス

if($gethostbyaddr){ // 指定したIPアドレスに対応するインターネットホスト名の取得に失敗したら($gethostbyaddrが0だった場合)
if ($host === "" || $host === "$addr") {
// $host === gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
$host = gethostbyaddr(pack("C4", preg_split("/\./", $addr)), 2); // pack→指定された引数を format に基づいて バイナリ文字列にパックします。 split→ドットをセパレータとして、配列に分解
// limit が指定された場合、返される配列には 最大 limit の要素が含まれます。この場合、 最後の要素には string の残りの部分が全て 入っています。. をセパレーターとして、IPアドレスを最大2つの要素の配列に分解し、それをバイナリ文字列にパック
var_dump($host);
}
}
if($host === "") { $host = $addr; }
}

//----------------//
// アクセス制限 //
//----------------//
function axs_check(){
// ホスト名を取得
get_host();

$flag=0;
for($i=0; $i<count($deny); $i++){
foreach($deny as $temp){
if(!$temp){ next($temp); } // $denyが空文字列""だったら、次に進む
// $value =~ s/\*/\.\*/g;
$pattern =~ 's/\*\.\*/g'; // *→直前の文字が0回以上複数回繰り返し出現するパターンとマッチ（正確には直前の文字および文字クラス）// s→文字列を単一行として扱う
// g→マッチするものを全て見つける

if(preg_match($pattern, $temp[$i])){ $flag=1; last; } // int preg_match ( string $pattern , string $subject [, array &$matches [, int $flags = 0 [, int $offset = 0 ]]] )　pattern で指定した正規表現により subject を検索します。 見つかったら、フラグをオンにしループから抜ける
}
if($flag) echo("アクセスを許可されていません"); // フラグがオンなら、エラー出力
}
}

?>