splitを使おうとしてるのですがうまく行きません

質問

splitを使おうとしてるのですがうまく行きません

A 100 A 150
B 800 A 123
A 213 B 121
のようにtxtファイルで保存しているのですが２列目の100,800,213だけを表示したいのですがやり方がわかりません。
また、100と800と213を足すなどの処理もしたいのですが詳しい方教えてください。
txtファイルは空白で区切られています。

回答No.3

Tacosan

#2 に「まずはSplitの構文を研究してください。」とありますね. 調べましたか? 特に, split が引数を 1つだけ持つ場合, どのような動作になるのか理解できていますか?
@list=split(/\s/)->[1] がどのような意味を持つのか, 説明できますか?
なお, 今の Perl (バージョン 5.x) の場合, 「配列 @column の第1要素」は $column[1] です＞#2. @column[1] でもいけることもあるけど, スカラと配列という違いは意識する必要があります.

回答No.2

bin-chan

> 合計はspliで2列目だけを表示できた後と思いまだやっていません。
それは正しいアプローチです。後回しでかまいません。

まずはSplitの構文を研究してください。

Splitの左辺は配列になります。しかしファイルから取得した１行分の変数が渡されてませんよね。
またprintするのは@column[1]のはずです。
（スペースで区切られた要素が必ず２個以上ある前提です。先々例外処理も考慮が必要）

補足

>Splitの左辺は配列になります。しかしファイルから取得した１行分の変数が渡されてませんよね。

すいません、まだよく理解できていません。
@list=split(/\s/)->[1]という事でしょうか？

回答No.1

bin-chan

> うまく行きません
どう、うまく行かないのか？

以下をコメントにして、コードを埋めてください。

//１）合計を0で初期化する。
//２）テキストを一行ずつ読み込むループの始端
//３）　Splitで、デリミタをスペースに指定して、分割された配列の２番目のみを抽出。
//４）　合計に加算。
//５）テキストを一行ずつ読み込むループの終端
//６）合計を表示する。

補足

すいません、初心者なのでまだよくわかっていません。

open(FH,"test.txt");

@list=<FH>;

foreach $a(@list){　　//テキストを読み込むループ
@column=split(/\s/)->[1]　//splitで２列目を読み込みたい
print @column;
}

合計はspliで2列目だけを表示できた後と思いまだやっていません。