【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0264nobodyさん
03/01/21 02:09ID:???日時は2桁で揃えられていると仮定して、
$opoentime = join("", @daydata);
$nowtime = "$year$mon$mday$hour$min";
if($opentime - $nowtime < 100){ $buyflag = 2;}
elsif($opentime - $nowtime < 30000){ $buyflag = 1;}
else{ $buyflag = 2;}
んーむ、感覚的に殴り書きヽ( ´ー`)ノ
■ このスレッドは過去ログ倉庫に格納されています