regex - Perl -- 执行 {read file} 直到找到正则表达式。找到匹配但没有跳出循环

Question

我想读取一个文件来提取几行信息。我创建了一个 do .. until 来忽略文件行，直到我到达我真正感兴趣的部分，其中包含单词 V2000。我更喜欢使用通用正则表达式而不是寻找 V2000。

匹配已找到，但它没有打破 do .. until 循环，因此我无法提取紧随其后的信息

有人知道为什么吗？

do {$line = <IN_SDF>;} until ($line =~ m/V\d+/);

剩下的代码是:

my @aline = split ('', $line);
my $natoms = $aline[0];

my $out= shift;

do{
     <IN_SDF>;
     @aline = split ('', $_);

 print OUT_3D $aline[3]."\t".$aline[0]."\t".$aline[1]."\t".$aline[2]."\n";

} until --$natoms == 0;

Answer 1

你假设一个光秃秃的

<IN_SDF>

将从该文件句柄加载下一行到$_？那是不正确的。您只能通过 while 表达式获得该行为:

while (<IN_SDF>)    is equivalent to     while (defined($_=<IN_SDF>)) 

如果你是说

$_ = <IN_SDF>

那就这么说吧。

---

对于你问题的第一部分，这个成语:

while ($line = <IN_SDF>) {
    last if $line =~ m/V\d+/;
}

优于

do {
    $line = <IN_SDF>
} until $line =~ m/V\d+/;

因为当您用完输入时，后一个表达式将进入无限循环(并且 $line 变为未定义)。