正确使用~~

Question

我正在尝试解析一个足够简单的字段和值对文件。 所以我不感兴趣的一些领域，我想跳过

所以在我的“播放”代码中，我有一个像这样的静态事物：     next if if $ field = ~m / fieldToIgnore1 | fieldToIgnore2 /;

...然后我扩展了一个数组，仍然很高兴

print "== using ~~ ==\n";
foreach my $field (@fields) {
  next if $field ~~ @foni;
  print "$field\n";
}

（fnoi ==不感兴趣的字段）

但是当我把它带回我的非播放设置时，它不起作用。 现在在剧中我只是循环了

my @fields = ("field1", "field2");
my @foni = ("fieldToIgnore1", "fieldToIgnore1");

在我正确的代码中，我遍历每一行并取出设置为字段 - 值行的行，然后将字段删除为标量...因此我认为它与我的播放代码的想法相同 - 但它似乎不是

while ( <$infile> ) {

  if ( /^PUBLISH:/ ) {

    ( $symbol, $record_type ) = ( $1, $2 );
    print "symbol is: [$symbol]\n"; 

  } else {
    my ( $field, $value ) = split(/\|/);
    next unless $value;

    print "field is: [$field]\n";
    print "value is: [$value]\n";

    $field =~ s/^\s+|\s+$//g;
    $value =~ s/^\s+|\s+$//g;

    print "... field is: [$field]\n";
    print "... value is: [$value]\n";

    ## ADD FIELD SKIPPING LOGIC HERE  

Answer 1

您可以从数组中构建正则表达式模式，例如

my $re = join '|', @foni;
$re    = qr/$re/;                  # Compile the regex

for my $field (@fields) {
    next if $field =~ $re;
    ...
}