捕获perl中两个不同正则表达式的匹配内容

Question

我正在使用带有两个单独正则表达式的while循环

while(($string1=~m/(\d+)/igs)==($string2=~m/([^^]*?)\n+/igs)) {}

存储我用过的$ string1的匹配模式的值$temp1=$1,

如何存储匹配的模式$string2.请给出一些建议.

Answer 1

my ($m1,$m2);
while (do{
  ($m1,$m2) = ();
  $m1 = $1 if $string1 =~ /(\d+)/igs;
  $m2 = $1 if $string2 =~ /([^^]*?)\n+/igs;
  defined $m1 == defined $m2;
}) {
  # print "$m1-$m2-\n";
}