Question

假设我正在阅读以下数据的每一行：

40556;20/02/2001;;MG;M^12/08/67^F^16/03/89^SP^14/02/61
;;;;;M1|F1|SP1;12;11;11;7;7;12;54.340;CSF1PO
;;;;;M1|F1|SP1;8;6;6;8;8;8;2.036;TPOX
;;;;;M1|F1|SP1;8;9.3;9.3;9;9;9.3;3.077;TH01
;;;;;F1|SP1;;;7;9.3;9.3;9.3;2.419;TH01
;;;;;F1|SP1;;;16;18;18;17;1.361;vWA
;;;;;F1|SP1;;;9;16;16;15;1.366;D18S51
40555;20/02/2001;;MG;F^23/06/2000^SP^01/09/64
;;;;;F1|SP1;;;11;13;12;12;Exclusão;D16S539
;;;;;F1|SP1;;;12;8;9;9;Exclusão;D7S820
;;;;;F1|SP1;;;14;10;9;9;Exclusão;D13S317
;;;;;M1|F1|SP1;13;14;14;14;14;12;-;D16S539
;;;;;M1|F1|SP1;10;8;8;9;8;11;Exclusão;D7S820
;;;;;M1|F1|SP1;12;12;12;8;11;11;Exclusão;D13S317

我将这些行拆分如下：

my @fields = split /;/;

请注意，在以空格开头的行（$ fields [0] eq“”）中，我有一种模式（M1 | F1 | SP1或F1 | SP1），然后它会变为另一种模式以下几行。

与第一行相比，我希望在模式更改时跳过这些行。我正在循环中读取这些数据。因此，一旦它到达不同的模式再次启动循环将是很好的，或者可能转到以数字开头的下一行。我怎么能这样做？

Answer 1

如果我理解正确，你需要这样的东西：

use strict; use warnings;
use constant { SKIP=>1, READ=>2 };
my ($skip, $pattern) = (SKIP, "");
while (<DATA>) { chomp;
    my @v = split(/;/);
    if ($skip == SKIP and $v[0] =~ /\d+/) { 
        $pattern=""; $skip = READ;
    } elsif ($skip == READ) {
        $pattern = "$v[5]" if not $pattern;
        if ($pattern eq $v[5] ) { 
            print( join(",", @v), "\n");
        } else { $skip = SKIP; }
    }
}

__DATA__
40556;20/02/2001;;MG;M^12/08/67^F^16/03/89^SP^14/02/61
;;;;;M1|F1|SP1;12;11;11;7;7;12;54.340;CSF1PO
;;;;;M1|F1|SP1;8;6;6;8;8;8;2.036;TPOX
;;;;;M1|F1|SP1;8;9.3;9.3;9;9;9.3;3.077;TH01
;;;;;F1|SP1;;;7;9.3;9.3;9.3;2.419;TH01
;;;;;F1|SP1;;;16;18;18;17;1.361;vWA
;;;;;F1|SP1;;;9;16;16;15;1.366;D18S51
40555;20/02/2001;;MG;F^23/06/2000^SP^01/09/64
;;;;;F1|SP1;;;11;13;12;12;Exclusão;D16S539
;;;;;F1|SP1;;;12;8;9;9;Exclusão;D7S820
;;;;;F1|SP1;;;14;10;9;9;Exclusão;D13S317
;;;;;M1|F1|SP1;13;14;14;14;14;12;-;D16S539
;;;;;M1|F1|SP1;10;8;8;9;8;11;Exclusão;D7S820
;;;;;M1|F1|SP1;12;12;12;8;11;11;Exclusão;D13S317

阅读文件行中的问题

1 个答案: