完全に携帯専用サイトにしたいんですがそうする方法とかソースはどこかないんですか?リモートホストと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からは見られませんゴメンナサイページに誘導) これで動かないんだけど。!!

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2003/08/16 00:43:17
  • 終了:--

回答(3件)

id:lun No.1

lun回答回数45ベストアンサー獲得回数02003/08/16 02:53:56

ポイント20pt

http://www.hatena.ne.jp/1060962197#

完全に携帯専用サイトにしたいんですがそうする方法とかソースはどこかないんですか?リモートホストとIPとUAをどうしたらいいのかがわかりません(ちゃんとスクリプト書け.. - 人力検索はてな

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

#!/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からはごめんなさい。

id:noren No.2

noren回答回数49ベストアンサー獲得回数02003/08/16 03:49:56

ポイント20pt

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

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

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

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

全機種対応で便利ですよ

id:blackant No.3

blackant回答回数30ベストアンサー獲得回数02003/08/16 04:14:05

ポイント20pt

http://www.hatena.ne.jp/1059982708

現在携帯向けのサイトを運営しています。今はPCからも見れます。そこで完全に携帯専用サイトにしたいんですがそうする方法とかソースはどこかないんですか?リモートホスト.. - 人力検索はてな

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

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

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

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

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

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

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

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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません