正则表达式 – Perl匹配外“if”不会在循环上重置$1

下面的代码采用一系列输入,每个条带关闭和结束sigil.然后它将该sigil存储在一个变量中,如果它没有找到它存储0.原始文件中的代码看起来像测试A,并且必须一直有效,直到并包含perl v5.8给出cpantesters结果.无论如何问题是,如果s ///不在“if”测试中,则在循环时,$1变量将持续使用最后一个值.这是我的测试.我想知道人们是否可以解释为什么会发生这种情况和/或为什么它曾经工作,我想我明白发生了什么.

#!/usr/bin/perl

use strict;
use warnings;

my @a = qw/n a$b@ c/;
my @b = @a;
my @c = @a;

print "Test A -- Doesn't work (c !-> 0)n";
for (@a) {
  s/([$@%])$//;
  my $arg = $1 || 0;
  print $_ . " -> " . $arg . "n";
}

print "nTest B -- Worksn";
for (@b) {
  my $arg;
  if (s/([$@%])$//) {;
    $arg = $1;
  }
  $arg ||= 0;
  print $_ . " -> " . $arg . "n";
}

print "nTest C -- Works,more clevern";
for (@c) {
  my $arg = s/([$@%])$// ? $1 : 0;
  print $_ . " -> " . $arg . "n";
}