続・競馬であそぶ ３

#!/usr/bin/perl -w
# ★ の部分は、環境に応じて修正

use strict ;

my $pass = 'H:/DATA/SE_DATA' ;      # ★ TARGET のSE_DATA パス
my $outF = 'TEST301.txt' ;          # ★ 出力ファイル名

my $bgn = 2001 ;            # ★ 成績データ取得の最初の年を決める( 適当に )
my $end = 2006 ;            # ★ 成績データ取得の最後の年
my $kako = 20050000 ;       # ★ 出力データはいつまで( yyyymmdd で指定 )
my $tosu = 3 ;              # ★ 勝ち馬の頭数を指定
my $ksuu = 3 ;              # ★ 対象レース数を指定
# ------------------------------------------------------------------------
my %alls ;
my %rid ;

for my $year ( $bgn .. $end ) {
    my @files = grep { -e } glob "$pass/$year/SU*.IDX" ;
    for my $file ( @files ) {
        my $kai = substr ( $file, -6, 1 ) ;
        my $jo = substr ( $file, -5, 1 ) ;
print "$year $kai $jo \n" ;         # for DBG
        open DAT, $file or die "Can't Open $file \n" ;
        while ( <DAT> ) {
            chomp ;
            next unless /^\d/ ;
            my ( $mmdd, $nch, $rn, $ucd, $chak ) =
                unpack '@0 A4 @4 A1 @5 A2 @10 A8 @64 A2', $_ ;
            my $line = join '', $year, $mmdd, $jo, $kai, $nch, $rn, $chak ;
            push @{$alls{$ucd}}, $line ;
        }
        close DAT ;
    }
}

# --------------------- ここまでが取得 -- これから処理 -------------------
foreach my $cd ( sort keys %alls ) {
    my @allse = @{$alls{$cd}} ;
    my $num = $#allse ;
    next unless $num > 0 ;               # 戦歴が１回しかなければパス
    my @sorted = sort { substr( $b, 0, 8 ) <=> substr( $a, 0, 8 ) } @allse ;
    foreach my $i ( 0 .. $num-1 ) {
        my ( $yymmdd, $etc, $chak ) = unpack 'A8A5A2', $sorted[$i] ;
        last if $yymmdd < $kako ;
        next unless $chak == 1 ;        # 一着以外はパス
        my $ad = $i + $ksuu ;
        my $nun = $num > $ad ? $ad : $num ;
        foreach my $j ( $i+1 .. $nun ) {
            my ( $ymd, $jo, $knr, $chkk ) = unpack 'A8A1A4A2', $sorted[$j] ;
            my $yy = substr( $ymd, 2, 2) ;
            $jo = $jo eq 'A' ? 10 : sprintf "%02d", $jo ;
            my $raceID = join '', $jo, $yy, $knr ;
            $rid{ $raceID }++ ;
            last if $chkk == 1 ;
        }
    }
}
# --------------------- ここまでが処理 -- これから出力 -------------------
open OUT, ">$outF" ;
while ( my ( $k, $v ) = each %rid ) {
    print OUT "$k\n" if $v >= $tosu ;
}
close OUT ;

__END__

# 2006.03.01	test301.pl
# レベルが高かったと推測される過去のレースを抽出する。raceID で出力。
# raceID 場(jo:2)年(yy:2)回(kai:1)日(nch:1)RNo.(rn:2)... 旧
# 
# そのレース後３戦以内に勝った馬が何頭いるかで判断。
# 障害含む全レース。地方・海外のデータは除外。
# ( ３頭も勝てば上等だと思うが )頭数を指定。クラスは考慮していない。
# 使う場合は当然、クラスで分岐させなければ意味がない。
# 但し、一頭で何回か勝っても一回に計算している。変更は簡単。
# 一着になったレースから、あれば( 指定して )３戦遡って調べている。

END {
	sleep 15 ;
	&jv_close ;
	print "\tJVClose 完了。\n" ;
}