68user's page 掲示板
Prev
< No. 2254>
Next
[最新発言に戻る]
[過去ログ一覧]
No. 2254
#
68user
2001/11/08 (木) 07:20:44
>>2251
ミング
必ずデータの先頭が .*-1 か .*-2 であるなら
while (<FILE>) {
if ( /-[12]/ ){
chomp;
open (OUT, ">$dir\\$database\\Defect\\$_") or die;
next;
}
print OUT;
}
かなぁと思うんですが、違うかな?
業務用プログラムかだとちゃんとエラーチェックしないとまずい
でしょうが、データの内容がある程度保証されているなら、こんな
テキトーな感じでよろしいかと思います。
Prev
< No. 2254>
Next
[最新発言に戻る]
[過去ログ一覧]