Perl: Extrahieren bestimmter Werte aus Matrix-Datei

Question

Gegeben eine matrixartige Textdatei, ich möchte alle Zeilen extrahieren (\t ist das Trennzeichen), die Werte> 60 in der 3. Spalte (Pos 2) und Werte> 80 enthalten in der 6. (pos 5) und senden Sie die Ausgabe an eine andere Datei.Soweit ich bekam:

#!/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; 

Was ist los? Danke.PS. Ich habe ähnliche Fragen gefunden, aber meine schwachen Perl-Fähigkeiten haben mich daran gehindert, Entschlossenheit zu finden.

Answer 1

1. Sie haben vergessen, den Lesemodus (<) in open hinzuzufügen.
2. Stellen Sie sicher, dass die Zeilen in Ihrer Datei wirklich tabulatorgetrennt sind.

Unten funktioniert gut für mich.

#!/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; 

Wo datei.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 

das heißt ersten und fünften Zeilen der Datei die if Bedingung erfüllt.

Answer 2

Ich habe Kopieren Sie den Code eingefügt, wie Sie es gerade geschrieben haben und ich enev den Inhalt der Textdatei ersetzt, aber noch erhalte ich die folgende Fehlermeldung:

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. 

Alle auf das dauern?

Answer 3

ich die Datei neu erstellt, Tab getrennt und gibt nach wie vor:

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

die Linie 19 print $count;