Perl 模式匹配数组

Question

我想将我读取的字符串与可能匹配的数组进行匹配。如果它可以返回匹配字符串的索引也很好。我可以很容易地进行硬编码......这次可能会为了方便起见，但对于一般情况，我想看看这是否可能。我浏览了一些书籍和在线（包括 stackoverflow），但找不到我要找的东西，也无法完全连接这些点来弄清楚自己。

这是我正在寻找的一般事物的示例......当然它不起作用，这就是我寻求帮助的原因。但我希望这足以推断我的意图。

例子：

my $patterns;
my $line;

my $c = 0 ;
$patterns{$c++} = "$exact" ;  # where the $ in $exact marks the beginning of line.
$patterns{$c++} = "$T?:" ;    # where the ? is the normal wildcard
$patterns{$c++} = "" ;
$patterns{$c++} = "exact" ;

open (FILE, "example.txt") || die "Unable to open file.\n";

while (my $line = <IN>) {

  my $idx = -1;
  for ($i=0; $i<$c :$i++) {
    if ($line =~ /$patterns{$i}/ ) { $idx = $i ; }
  }

  $result = $idx;  # of course this will return index of last pattern match, but that's ok
}
close(FILE);

Answer 1

在不确切知道您要寻找什么的情况下，这就是您的代码转换为实际 Perl 代码的情况。

use warnings;
use strict;
use autodie; # open and close will now die on failure
use 5.10.1;

my @patterns = (
  qr"^exact",
  qr"^T.?:",
  "",
  "exact",
);

my $result;

open my $fh, '<', 'example.txt';

while ( my $line = <$fh> ) {
  chomp $line;
  $result = $line ~~ @patterns;
}
close($fh);

Answer 2

或者，如果您使用的是 perl 5.8 而不是 5.10，Regexp::Assemble将为您处理这个问题：

use strict;
use warnings;
use autodie; # open and close will now die on failure

my @patterns = (
  qr"^exact",
  qr"^T.?:",
  "",
  "exact",
);

my $ra = Regexp::Assemble->new;
$ra->add(@patterns);

my $result;

open my $fh, '<', 'example.txt';

while ( my $line = <$fh> ) {
  chomp $line;
  $result = $ra->match($line);
}
close($fh);

R::A 还可以设置为告诉您哪些原始模式匹配，我不认为这是 5.10 智能匹配运算符（~~) 可以，但这会给你实际的模式 (exact) 而不是它的索引 (3)。如果您确实需要索引，则需要按顺序循环测试每个模式（如果您有许多模式，这可能会对性能产生重大影响），或者构建一个 pattern =>; index 哈希并使用它来查找匹配模式的索引。