ぜろちゃんねるスクリプト総合質問スレ Part8

103 ：97：2006/11/10(金) 08:35:10 ID:???0

Perlは範囲外の上に正規表現を理解出来てないのを前置きしておく。

sub GetIDPart
# PC・携帯識別番号付加
if($Set->Equal('BBS_SLIP','checked')){
$mode = ($agent == 0 ? '0' : 'O');
if('210.135.99.5' == $ENV{'REMOTE_ADDR'}){
$mode = 'P';
}
$id .= $mode;
}

sub MakeID
# 種の生成
if('210.135.99.5' == $ENV{'REMOTE_ADDR'}){
@nums = split(/(\d+)\.(\d+)\.(\d+)\.(\d+)/,$ENV{'HTTP_USER_AGENT'}); # USER_AGENTに入ってるIPを分解
$nums[0] = $nums[1];
$nums[1] = $nums[2];
$nums[2] = $nums[3];
$nums[3] = $nums[4];
} else {
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # IPを分解
}