Perl：行列ファイルから特定の値を抽出する

Question

テキストファイルのような行列が与えられているので、3番目の列（pos 2）に値> 60、値> 80を含むすべての行（\tは区切り記号です） 6番目（pos 5）に出力して別のファイルに出力してください。これまでのところ私は次のようになりました：

#!/usr/bin/perl; 
use strict; 
use warnings; 
use diagnostics; 

open(my $in, "file.txt")or die $!; 
my $line = <$in>; 
my $count; 
while (<$in>) { 
    chomp; 
    my @element = split (/\t/,$_); 
    if ($element[2] >= 60 && $element[5] > 80){ 
     $count++; 
    } 
} 
close $in; 
print $count; 

何が問題なのですか？ありがとうPS。私は同様の質問を見つけましたが、私の低レベルのPerlスキルは解決策を抽出できませんでした。

Answer 1

1. openに読み取りモード（<）を追加していません。
2. ファイル内の行が実際にタブで区切られていることを確認してください。

以下は私にとってうまく機能しました。ファイルのfile.txtを

10 20 60 40 50 90 70 80 
10 20 20 40 50 30 70 80 
10 20 40 40 50 50 70 80 
10 20 65 40 50 80 70 80 
10 20 70 40 50 90 70 80 
10 20 50 40 50 90 70 80 

即ち、第1及び第五行はif条件を満たし

#!/usr/bin/perl 
use strict; 
use warnings; 

open(my $in, "<", "file.txt") or die $!; 

my $count; 

while (<$in>) { 
    chomp; 
    my @element = split (/\t/,$_); 
    if ($element[2] >= 60 && $element[5] > 80){ 
     $count++; 
    } 
} 

close $in; 
print $count; 

。あなたはそれを書いて、私のENEVは、テキストファイルの内容を置き換えるよう

Answer 2

私はコピーを持って、コードを貼り付けたが、それでも私は、次のエラーメッセージが表示されます。

Use of uninitialized value $element[2] in numeric ge (>=) at C:\Perl64\Temp1\ex.pl line 12, <$in> line 1. 
Use of uninitialized value $element[2] in numeric ge (>=) at C:\Perl64\Temp1\ex.pl line 12, <$in> line 2. 
Use of uninitialized value $element[2] in numeric ge (>=) at C:\Perl64\Temp1\ex.pl line 12, <$in> line 3. 
Use of uninitialized value $element[2] in numeric ge (>=) at C:\Perl64\Temp1\ex.pl line 12, <$in> line 4. 
Use of uninitialized value $element[2] in numeric ge (>=) at C:\Perl64\Temp1\ex.pl line 12, <$in> line 5. 
Use of uninitialized value $element[2] in numeric ge (>=) at C:\Perl64\Temp1\ex.pl line 12, <$in> line 6. 
Use of uninitialized value $count in print at C:\Perl64\Temp1\ex.pl line 18. 

はどれそれに取りますか？

Answer 3

私は、ファイルを再作成し、タブ区切り、まだ得られます。

Use of uninitialized value $count in print at C:\Perl64\Temp1\ex.pl line 19. 

ライン19はprint $count;