教えて！ファイルから必要な情報の抽出

質問

初心者ですが、下記の機能を実現したいです。
あるテキストファイル
information.txt
**************************************************
RELATIVE WEIGHTS

LAB. CLOCK 53154 53184 53214 53244 53274 53309

USNO 35 394 0.000 0.000 0.000 0.020 0.020 0.021
USNO 35 120 0.000 0.000 0.000 0.000 0.261 0.384
USNO 35 152 0.000 0.000 0.000 0.000 0.008 0.010
USNO 15 5561 ***** ***** 0.000 0.000 0.000 0.000 .
USNO 15 5564 ***** ***** 0.000 0.000 0.000 0.000 .

USNO 35 148 ***** ***** ***** ***** 0.000 0.000 .
USNO 35 114 ***** ***** ***** ***** 0.000 0.000 .
USNO 35 156 ***** ***** ***** ***** 0.000 0.000 .
VSL 35 179 0.509 0.711 0.781 0.818 0.705 0.000 .
VSL 35 548 0.374 0.363 0.348 0.344 0.389 0.377

VSL 35 731 0.379 0.395 0.411 0.486 0.483 0.398
VSL 35 456 0.837 0.853 0.743 0.735 0.977 0.757
*************************************************
このテキストファイルの中、
USNO
VSLなど
がキーワード、
キーワードで始める行の最後の数字を取り出して、同じキーワードの数字を足し算して、
結果をキーワードと足し算の結果を出力したいです。
出力結果
*****************************
USNO 2.55
VSL 6.32
******************************
のように出力したいです。

出来ますでしょうか？
おしえてください！
お願いします。

回答No.4

BLUEPIXY · ベストアンサー

#3です。とりあえず、Perlで作ってみました。
Perl sum.pl information.txt
で実行
sum.pl
-----------------------------
while(<>){
@data = split(/\s+/,$_);
if($#data== 9){ #データとなる行には、データ列数が９ある、ちょっと嘘？
$sum{$data[1]}+=$data[9]; #$data[0]は、空
}
}
for( keys %sum){
print "$_ $sum{$_}\n";
}
--------------------------------------------
Ｃでもできるけど、Ｐｅｒｌに比べたら色々面倒クサい