JVOPT.pl の 使いかた

[PASS] 保存用のパスを指定します。実在するパスが必要です。
# パスの最後には / を付けてください。
# 今週のデータ(非蓄積系)の保存場所です。
WEEKLY=h:/others/weekly/
# リアルタイム情報の保存場所です。
RTIME=h:/others/rtime/
# リアルタイムオッズの保存場所です。
ODDS=h:/others/oddss/
# リアルタイムのDM予想データを保存しています。
OTHER=h:/others/other/

[TIME] 最後に取得したデータファイルの時間(LastTime)を記録します。
# 現在未使用です。適当に使ってください。
FromTime=20050701000000
# 今週のデータの LastTime を記録しています。
RACETime=20050701000000
# 開催スケジュールの LastTime を記録しています。
YSCHTime=20050701000000

[SET] その他の設定をします。
# 他のプログラムなどで、JVLink の設定が済んでる場合、ここで再設定する
# 必要はないので、JV_SET ( 1 )にしておけば、設定画面が表示されません。
# ここで JVLink の設定を表示する場合( 0 )にしてください。
JV_SET=1
# JVOPT.pl を最初に実行するとき、このスクリプトは開催スケジュールがないと始ま
# らないので、この時だけ、STEP_1 ( 0 )にしてください。起動時に取得します。
# 無事起動すれば、自動で( 1 )になります。それ以後の通常動作では( 1 )でＯＫです。
# やり直しでの再取得の場合も( 0 )で、その時は YSCHTime に注意。
STEP_1=0
# Option 1 での dataspec    他に SLOP など
OPT_1=YSCH
# Option 2 での dataspec    他に TOKUTCOV など
OPT_2=RACERCOV
# タイマー使用時のインターバル(分)〜未使用です。
INTVAL=5

                &ini_save() ;
                print "\t今週のデータを取得しました。→ $fn\n" ;
            } else {

        ・・・〜
        my $bsize = Variant( VT_I4, 5120 ) ;
        my $string = Variant( VT_UI1|VT_ARRAY|VT_BYREF, '' ) ;
        my $fn = Variant( VT_BSTR|VT_BYREF, '' ) ;  # ファイル名
        my @dat = () ;      my $i = 0 ;
        my $flg ;
        while ( $flg = $jvd->JVGets( $string, $bsize, $fn ) ) {
            next if $fn =~ /^H[16]/i ;      # 票データは除外
            next if $fn =~ /^O/i ;          # アタマに O と B がつくのは除外
            next if $fn =~ /^BR/i ;
            my $yyyy = substr( $fn, 4, 4 ) ;
            if( $flg > 0 ) {
                $dat[$i] = $string->Get ;
                $i++ ;
                $string = Variant( VT_UI1|VT_ARRAY|VT_BYREF, '' ) ;
            } elsif( $flg == -1 ) {
            〜・・・