#--削除データがあれば配列に追加--#
if ($parameter eq 'delno') { push(@DEL, $value); }

#--希望商品データを変数に追加(スペース区切り)--#
if (index($parameter, 'hoop') == 0) { $hoop .= "$value ";}

$in{$parameter} = $value;
}

$page = $in{'page'};
#--ローカルタイムを取得--#
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year += 1900;
$month = $mon+1;
@dayname = ('日','月','火','水','木','金','土');
$date = "$year年$month月$mday日（@dayname[$wday]）";
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$date00 = sprintf( "%d%02d%02d", $year, $month, $mday); # yyyymmddの形での日期
}