理解循环问题的perl

Question

我正在寻找一些旧的perl代码，并且正在试图弄清楚这一语句的含义是什么 - 我已经完成了编程，但没有在perl中进行编程。对此陈述的艰难时期实际上意味着什么。

for ($xx = $x+1 ; $contents[$xx] !~ m/^\:1S\:XXX/  ; $xx++)

是否循环直到找到：1s：xxx（

如果不是），那是什么意思？

有人可以帮忙吗？

谢谢

Answer 1

这可能更加清楚：

$xx = $x+1;
$xx++ until substr($contents[$xx], 0, 7) eq ':1S:XXX';

但是，如果找不到，则永远不会找到 code>，如果找不到：xxx 。因此，如果在$ x+1的起点时或之后，在数组元素的开头找不到搜索的字符串，则我会考虑将$ xx定义。

use List::Util 'first';
my $xx = first { $contents[$_] =~ /^:1S:XXX/ } $x+1 .. @contents-1;

在Perl Regexes 中：可以在前面具有\，但不需要它。