完全に携帯専用サイトにしたいんですがそうする方法とかソースはどこかないんですか？リモートホストとIPとUAをどうしたらいいのかがわかりません（ちゃんとスクリプト書けよ！）#!/usr/bin/perl$user_agent = $ENV{’HTTP_USER_AGENT’};if ($user_agent =~ /UP￥.Browser/i) {print ”Location: http://www.example.com/ezweb/index.hdmll￥n￥n”; # EZweb(HDML)} elsif ($user_agent =~ /UPSim/) {print ”Location: http://www.example.com/ezweb/index.html￥n￥n”; # UP.Simulator} elsif ($user_agent =~ /KDDI/) {print ”Location: http://www.example.com/ezweb/index.html￥n￥n”; # KDDI} elsif ($user_agent =~ /DoCoMo/i) {print ”Location: http://www.example.com/i/index.html￥n￥n”; # i-mode(CHTML)} elsif ($user_agent =~ /J-PHONE/) {print ”Location: http://www.example.com/j_sky/index.html￥n￥n”; # J-Sky} else {print ”Location: http://www.example.com/web/index.html￥n￥n”; # PC (PCからは見られませんゴメンナサイページに誘導) これで動かないんだけど。！！

動作するように書き直してみました。

#!/usr/bin/perl

$user_agent = $ENV{’HTTP_USER_AGENT’};

if ($user_agent =~ /UP￥.Browser/i) {print ”Location:

￥n￥n”; # EZweb

} elsif ($user_agent =~ /UPSim/) {print ”Location:

￥n￥n”; # UP.Simulator

} elsif ($user_agent =~ /KDDI/) {print ”Location:

￥n￥n”; # KDDI

} elsif ($user_agent =~ /DoCoMo/i) {print ”Location:

￥n￥n”; # i-mode

} elsif ($user_agent =~ /J-PHONE/) {print ”Location:

￥n￥n”; # J-Sky

} else {print ”Location:

￥n￥n”;} # PCからはごめんなさい。

ケータイサイトのページ振り分けは

機種別に与えられるＵＡ情報で振り分けます。

「CGIぽん」というページを参照にUA情報などを拾ってください。

また、ここのＢＢＳやindex0.cgiとかは

全機種対応で便利ですよ

これを参考にしてますか？

失礼を承知で念のためお聞きしますけど、これをそのままコピペして使ってません？

まず5行目の ”index.hdmll” って、おかしくありません？ 正確には ”index.hdml” だと思うんですが。

それから、￥や”を小文字に置換してから使ってます？

あと、最後のelseに対応する括弧閉じ（｝）がありませんよね。

ほかにも、サーバーによって #!/usr/bin/perl じゃなかったり。

まず、何を実行したときにどんな症状が出るのか教えていただけませんか？

ブラウザに 503 internal server error とか出てます？