7. 更新履歴
⇒重要な変更はココに書くかもしれません。
存在しないレースナンバーを指定するとフリーズに対応。
この件は、Ver.No. 0022 を変更せずに差し替えしました。
何日分か連続検証しているときに起きる、表示内容がおかしくなるバグに対応。
Ver. 0023 で直したつもり。
以下、修正してください (2005.10.08) 10/3配布分では修正済み
{
my $soto = '' ;
$soto = '外' if $tr == ( 12 or 14 or 16 or 18 or 19 or 22 ) ;
$soto = '直' if $tr == 10 ;
$t_dz .= $soto ;
}
外回りコースで、タイトル行に「外」が表示されていませんでした。
{
my $soto = '' ;
$soto = '外' if $tr =~ /12|13|16|18|19|22/ ;
$soto = '直' if $tr == 10 ;
$t_dz .= $soto ;
}
前日発売があるときなどに、ファイル出力するとオッズ表示がおかしくなるとの
報告がありました。
その修正方法です。該当部分をさがして修正してください。
サブルーチン get_tan の最初に以下の行を追加します。
@odds_tan = () ;
中止順延などの場合、開催スケジュールからの読み込みをしているため、場選択が出来な
くなります。
サブルーチン hrt_jyo の書き換えが必要です。(2006.01.23)
金曜日に日曜の重賞などの枠順が発表されているときの対応は青字部分。
(2006.03.24追加)
sub hrt_jyo { ############## 開催場の配列 ##########
@kaisai = () ;
# my $schedF = "$pass\/YSNW${yyyy}9999\.dat" ;
# open DAT, $schedF or die "?? $schedF ??:$!\n" ;
# while ( <DAT> ) {
# chomp ;
# my ( $nngp, $jocd ) = unpack '@11A8@19A2', $_ ;
# if ( $yymmdd == $nngp ) {
# push @kaisai, $jocd ;
# }
# last if $yymmdd < $nngp ;
# }
# close DAT ;
my $datRA = "${pass}/${yyyy}/RADW" . $yymmdd . '.DAT' ;
-e $datRA or $datRA = "$pass/$yyyy/RABW" . $yymmdd . '.DAT'
or die "?? 出馬表データ RA〜 が見つからない ??:$!\n" ;
open RAD, $datRA if -e $datRA ;
my $bb = 0 ;
while ( <RAD> ) {
chomp ;
my $jocd = substr( $_, 19, 2 ) ;
next if $jocd == $bb ;
push @kaisai, $jocd ;
$bb = $jocd ;
}
close RAD ;
&sep_k() ;
}
上のように書き換えてください。動作確認後、行頭#のコメント行は削除。
枠順確定前(PW)で表示する場合は、ココを含めて2、3箇所修正が必要ですが
考えてください。
但し、木曜夜8時の QWファイル の取得を待たないと、必要なデータが揃わないので
見ること
は出来ません。それでも、検討する時間的な余裕はできます。
確かにマルチバイトの呪いでは苦しんで、能力の限界と自分の無知を痛感しています。
但し、文字コードを変更するのは面白くもオカシクもないので全く考えていません。
この部分に関しては、本文の方で対策等を進める予定でココには書きません。
その他、あらためて見直すと結構ミスもありますが、指摘もなく実害もなさそうな場合など
は、原則放置です。
その理由は、自分で気付いて直しても直後には忘れる習性(歳ではな〜い!)だから。