---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

【ｽﾚｯﾄﾞ】2ｃｈ型掲示板 その5【ﾌﾛｰﾄ型】

533 ：nobodyさん ：02/06/25 00:03 ID:???

sub decode
{
my ($name, $value, %get, $range);
if($ENV{'QUERY_STRING'} ne ""){
foreach(split /&/, $ENV{'QUERY_STRING'}){
($name, $value) = split /=/;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$get{$name} = $value;
}
$bbs = $get{'bbs'};
$key = $get{'key'};
$st = $get{'st'};
$to = $get{'to'};
$ls = $get{'ls'};
$im = $get{'imode'};
$nf = $get{'nofirst'};
}
# PATH_INFO分解
if($ENV{'PATH_INFO'} ne ""){
($bbs, $key, $range) = split /\//, substr($ENV{'PATH_INFO'}, 1), 3;

if($range =~ /^l(\d+)/){$ls = $1;}

if($range =~ /^(\d+)\-(\d+)/){
$st = $1; $to = $2;
}elsif ($range =~ /\-(\d+)/){
$to = $1;
}elsif ($range =~ /(\d+)\-/){
$st = $1;
}elsif($range =~ /^(\d+)/){
$st = $1; $to = $1; $nf = "true";
}
if($range =~ /i/){$im = "true";}
if($range =~ /\./){$nf = "false";}
if($range =~ /n/){$nf = "true";}
}
}

187KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30