Perlで一定値以上の場合にデータを抜き出す方法

Perlで一定値以上の場合にデータを抜き出すコマンドを教えてください。

図にあるtest1.txtというファイルに試験のデータが入っています（左から名前、科目、点数です）。
このデータから点数が８０点以上のデータだけをtest2.txtというファイル名で出力したいです。
欲しいのはこのtest2.txtというデータになります。

エクセルではなくて、Perlでやりたいのでよろしくお願いします。

No.2 ベストアンサー 回答者： Ogre7077 回答日時： 2017/12/17 23:39

foreach (<>) {

@a=split /\s+/;
print if int($a[2]) >= 80;
}

この回答へのお礼

回答ありがとうございました。
試してみます！

お礼日時：2017/12/18 15:01

No.1 回答者： めぐみん_ 回答日時： 2017/12/17 18:29

このテキストファイル１にしても２にしても、データ間の区切りは何なのでしょう？

タブにしても間が広いような気がしますし、全角（半角）スペース？なのでしょうか。
その点は明確にされた方が良いかと。

この回答へのお礼

そうですね。
次回からはもう少し細かい部分の説明も書いていこうと思います。
ご指摘ありがとうございます。

お礼日時：2017/12/18 15:02