0

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

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），然后它在下面的行中变为另一种模式.

与第一行相比，我想在模式发生变化时跳过这些行。我正在循环中读取这些数据。因此，一旦到达不同的模式，最好再次启动循环，或者可能转到以数字开头的下一行。我怎样才能做到这一点？

4

1 回答 1

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
于 2013-07-12T02:36:57.643 回答