＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Par ..

470:nobodyさん
06/04/29 17:09:41 xQDtvren
これをASP風に変更すればどんな感じになるでしょうか？
お願いします。

sub User_Agent {
my($user_agent) = @_;

# exp. DoCoMo/1.0/P209is/c10
if (user_agent =~ /DoCoMo/i) then
platform = "DoCoMo"
agetPart = split(/\//, user_agent);
browser = "DoCoMo"
if agetPart[1] =~ /\(/) { # FOMA
$agetPart[1] =~ /([0-9]\.[0-9])\s([^\(]*)(.*)/ ;
$browser_v = $1;
$platform_v = $2;
} else { # i-mode
$browser_v = $agetPart[1];
$platform_v = $agetPart[2];
}
if($platform_v eq '') {
$platform_v = '';
}
return ($platform, $platform_v, $browser, $browser_v);
}

次ページ

続きを表示

1を表示