Capture the match content of two different regexp in perl

Question

I am using a while loop with two separate regular expression

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

to store the value of the matching pattern of the $string1 i have used $temp1=$1,

How can I store the matching pattern of the $string2. Please give some suggestion.

Answer 1

There might be more clever ways, but I'd just break them up into separate statements:

while (1) {
    $res1 = $string1=~m/(\d+)/igs;
    $temp1 = $1;
    $res2 = $string2=~m/([^^]*?)\n+/igs
    $temp2 = $1;
    last unless $res1 == $res2;
    ...
}

Just because it's perl you don't have to find the most terse, cryptic way to write something (that's what APL is for).

Answer 2

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