タブ区切りのデータについて

質問

Perlを独学している初心者です。すごく初歩的なことでわからないことがありますので、ご質問いたします。

タブ区切りのデータの中で、５列目に LBa3_00011、13列目に１があるデータを検索し、5列目、６列目、7列目だけを表示したいと思っております。
下記のようなものを作ったのですが、うまくいきませんでした。
基本的な書き方が違っているかもしれませんが、何かアドバイスを頂けると、助かります。

use strict;
use warnings;
while($_=<>){
@ar = split(/\t/, $_);
if ( /$ar[5] = LBa3_00011/ and /$ar[13] == 1/ ){
print;"$ar[5]\t$ar[6]\t$ar[7]\n";
}
}

簡単すぎるような質問であれば、すみません・・・・・

回答No.1

natsukagur · ベストアンサー

１．ファイルが読み込まれていない
２．while条件式が間違えている
３．if条件式が間違えている。
ためだとおもいますが。

以下のようにすれば動作するとおもいますが。
注）サンプルで作ったため動作未確認。

open(IN, "$filename")
@IN = <IN>;

foreach (@IN) {
@arg = split(/\t/);

if(($arg[5] eq "LBa3_00011") and ($arg[13] eq "1")) {
print "$arg[5]\t$arg[6]\t$arg[7]\n";
}
}
close(IN);

exit(0);

お礼

ありがとうございます。早速やってみます！