regex - 在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";
}