Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

624:nobodyさん
 07/11/30 13:06:38 
>>623 
Unicode::Japanese

625:nobodyさん
 07/11/30 13:27:37 7wito75u
2007/11/30-2007/12/01,00-24,[動作させる値] 
 
のようなdatファイルを下記でブランチさせると、指定範囲外だと判定されてしまうようなのです。 
改善するにはどこを直せば良いでしょうか･･･最後の日付部分の比較だけで判定されてる･･？ 
localtime(time)取得やDAT読み込みは大丈夫っぽいです。 
 
foreach $sdat(@set){ 
next, if $sdat eq "\n"; 
@sdat = split(/,/,$sdat); 
@ddat = split(/\-/,$sdat[0]); 
@d1dat = split(/\//,$ddat[0]); 
@d2dat = split(/\//,$ddat[1]); 
@tdat = split(/\-/,$sdat[1]); 
if( 
($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[0] eq '*' || $d2dat[0] >= $year)) 
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[1] eq '*' || $d2dat[1] >= $mon)) 
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[2] eq '*' || $d2dat[2] >= $mday)) 
&&($d1dat[0] eq '*' || ($ddat[1] ne '' && $d1dat[0] <= $year) || ($ddat[1] eq '' && $d1dat[0] == $year)) 
&&($d1dat[1] eq '*' || ($ddat[1] ne '' && $d1dat[1] <= $mon) || ($ddat[1] eq '' && $d1dat[1] == $mon)) 
&&($d1dat[2] eq '*' || ($ddat[1] ne '' && $d1dat[2] <= $mday) || ($ddat[1] eq '' && $d1dat[2] == $mday)) 
&&($sdat[1] eq '*' || ($tdat[0] <= $hour && $hour <= $tdat[1])) 
){ 
chomp $sdat; 
$url = $sdat[2]; 
last; 
} 
}

次ページ