- 1 名前：nobodyさん mailto:sage [2005/07/03(日) 12:27:28 ID:???]
- レガシASPについて語るスレです。質問や雑談もOK。
何より手軽なので社内イントラであればまだまだ第一線です。
ASP.net については専用スレッドでお願いします。
関連スレ:
【質問】ASP.NETスレ Part2【議論】
pc8.2ch.net/test/read.cgi/php/1111480331/
過去スレ:
==ASP== Part 3
pc8.2ch.net/test/read.cgi/php/1059401269/
==ASP== Part 2
pc2.2ch.net/php/kako/1028/10280/1028024916.html
==ASP==
pc.2ch.net/php/kako/984/984840107.html
- 470 名前：nobodyさん [2006/04/29(土) 17:09:41 ID: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);
}
- 471 名前：nobodyさん [2006/04/29(土) 17:12:39 ID:xQDtvren]
- しくじりました。こっちです。
sub User_Agent {
my($user_agent) = @_;
# exp. DoCoMo/1.0/P209is/c10
if ($user_agent =~ /DoCoMo/i) {
$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);
}
|
 |
