如何在Perl中执行常规模式分配?

my ($temp) = /^projectname_flag_(.+)temp$/;

请注意,括号 $temp 这样模式匹配就可以在列表上下文中运行。没有他们,

更一般地,list context中的模式匹配返回捕获的子模式(如果匹配失败,则返回空列表)。例如:

my $str = 'foo 123   456 bar';
my ($i, $j) = $str =~ /(\d+) +(\d+)/;  # $i==123  $j==456

perl FM's answer (只要通过检查 $month 定义)。

my $month;
if ( /^ projectname _flag_ (?<month> [a-z]+ ) temp \z/x ) {
    $month = $+{month};
}

while (<$fpi>) {
        chomp;
        s{projectname_flag_(.*?)temp}{$1};
        # $_ will now have jan, feb, ...
}

我猜:

/^projectname_flag_([a-z]+)temp$/

while (<$fpi>) {
  my ($temp) =($_ =~ m/projectname_flag_(.*?)temp/);
  func($temp);
}