関数について

質問

if文にてリファラーのパターンマッチを行って、どちらの場合もhtmlを表示したい場合、関数はprintでいいのでしょうか。
どなたか解る方、ご判断お願い申し上げます。

＜記述例＞
#!/usr/bin/perl
my $ref = $ENV{'HTTP_REFERER'};
# topb.htmlを表示するためのHTTP_REFERER値を設定
if ( $ref =~ '特定のリファラーを含むURL' ){
print "topb.html";

}
else
{
　print "topa.html"; }
}

回答No.2

ralf124c

URLをそのままにしたい場合(アクセスログが無意味になるやり方なのでCGI内でリファラ別に記録を取ったほうが良い)は

#!/usr/bin/perl
my $ref = $ENV{'HTTP_REFERER'};
my $keywords = 'キーワード1|キーワード2|キーワード3|キーワード4|キーワード5'; ## 特定のリファラーを含むURL
## デフォルトページファイル
my $F_NAME = "topa.html";
## 条件によりHTML変更
if( $ref =~ /$keywords/ ){ $F_NAME = print "topb.html"; } ## if文条件記述を少し正確にしてアレンジしてみました：仕事でログ解析に使えます
## HTML読み込み出力
print "Content-type: text/html\n\n";
open(INHTML,$F_NAME);
while(<INHTML>){ print; }
close(INHTML);

蛇足ですがリファラはHTTPでは必須の要素ではないため隠蔽されていることが多いです。

お礼

早速のご回答有難うございました。
ご丁寧な対応感謝いたします。
是非参考にさせて頂きたいと思います。

回答No.1

atom_seed

指定したHTMLへジャンプさせるのであれば

print "Location: topb.html", "\n\n";
exit;

のように書きます。
HTML名のところはできればhttp://から書いたほうが良いです。

お礼

早速のご回答感謝いたします。
htmlを表示させる場合はLocationなんですね。
「HTML名の～」というのはLocationのあと部分をさしていると解釈いたします。
有難うございました。