- 494 名前：453 mailto:sage [2010/10/12(火) 23:24:36 ]
- >453 の方にバグあり。
URLリストの読み込み後、改行コード消してない。
AnalyzeUrl()関数がエラー復帰時、エラー処理で$IndexUrlを出力してるけどクリアされている。
（$IndexUrlがNULLなら$IndexUrlを出力せよ orz）
>493 のソースで
93行と94行の間に
chomp($ListURL);
172行
($IndexUrl, $pageURL, $bookID, $pageNow) = AnalyzeUrl($IndexUrl);
↓ 修正
my $UrlTmp=$IndexUrl;
($IndexUrl, $pageURL, $bookID, $pageNow) = AnalyzeUrl($IndexUrl);
177行目
OutPutLog($ErrorLogName,"\n".GetTimeStr()."\nUrl Analyze Error\nURL : $IndexUrl\n")
↓ 修正
OutPutLog($ErrorLogName,"\n".GetTimeStr()."\nUrl Analyze Error\nURL : $UrlTmp\n");
181行目
OutPutLog($RegetBatFileName,"$ExePerlName $IndexUrl\n");
↓ 修正
OutPutLog($RegetBatFileName,"$ExePerlName $UrlTmp\n");
すまんかった。
|
 |
