BlogもどきのWeblog

プロフィール

GLANSHE
絵描き担当らしい

Total:　33951
Today:　138
Yesterday:　29

最新のトラックバック

カテゴリー

日記（266）
絵（32）
サークル活動（12）
愚痴（24）
ゼミ（19）
レビュー（11）
覚え書き（32）
Linux（32）
Java（3）
BlogPet（2）
駄目な瞬間（10）
プレイ日記（14）
Perl（5）
Diva（27）
未分類（27）

リンク

SpeakEasy
ワガハイは狸である
紗サの雑記帳
SiroKuro Page
ユーキの研究日誌
ふぇいたるろじっく
華ちゃんのシール日記
同人ど～らく
Power of Apple
エムビガ
EXTRA
空想の書
姫騎士道部
Side Holy
Close the World!!
全てがELになる

ニコ動MyListLink

Temporary1
Temporary2
えもぬシリーズ
【東方】30分フル原曲
リディアさんのMHF

[Perl]携帯端末の振り分け

2008-Jul-27

覚え書き

携帯端末の振り分け方法

これはPHPだけど、perlに直せば

sub CheckMobile{

local($env,$ua);

$ua = $ENV{'HTTP_USER_AGENT'};

if($ua =~ /docomo/i){
  $env = "i";
}elsif($ua =~ /kddi/i){
  $env = "ez";
}elsif($ua =~ /vodafone/i){
  $env = "sb";
}elsif($ua =~ /softbank/i){
  $env = "sb";
}elsif($ua =~ /mot-/i){
  $env = "sb";
}elsif($ua =~ /j-phone/i){
$env = "sb";
}elsif($ua =~ /up\.browser/i){
  $env = "ez";
}elsif($ua =~ /willcom/i){
  $env = "phs;
}else{
  $env = 0;
}

return $env;

}

こんな感じ

time stamp：2008/07/28 03:44:07
トラックバック（0）｜コメント（0）

この記事のトラックバックURL：

コメントを書く