FW: Regular expression question: non-greedy matches

[Boris Shor]

Thanks for writing. I get no warnings when I use (ActiveState Perl on
Windows):

use Strict;
use Warnings;

$test = "Yea 123xrandomYea 456xdumdumNay 789xpop";
while ($test =~ /Yea (.*?)x.*?(Nay (.*?)x)?/g)
    {
        print "$1\n";
        print "$2\n";
    }

What I am looking for are pairs: $1 will contain the numbers after Yeas and
$2 will contain numbers after Nays. But sometimes $2 will be empty. So
keeping them separate is important.

Boris


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>