<div dir="ltr">Source:<br><br>#!/usr/bin/env perl<br><br>use strict;<br>use warnings;<br><br>my $regex = 'one';<br><br>my $prompt = "? ";<br><br>print $prompt;<br>while (<>) {<br>    if (my @capture = /$regex/ig) {<br>
        foreach (@capture) {<br>            print "($.) found <$_>\n";<br>        }<br>    } else {<br>        print "($.) didn't match\n";<br>    }<br>    print $prompt;<br>}<br><br>exit;<br>
<div><br>Result:<br>%> <a href="http://capture.pl">capture.pl</a><br>? One oNe onE two<br>(1) found <One><br>(1) found <oNe><br>(1) found <onE><br>? three<br>(2) didn't match<br>? four<br>(3) didn't match<br>
? ^C<br><br></div><div>I would say, if for you, @capture is always true, then it's getting some value outside the scope you have shown us.<br><br></div><div>-QM<br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
On Fri, May 10, 2013 at 10:01 PM, Rob Janes <span dir="ltr"><<a href="mailto:janes.rob@gmail.com" target="_blank">janes.rob@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<p dir="ltr">if (my @cap = /$regex/) {<br>
@cap = ($&) unless defined $1;<br>
foreach @cap {<br>
do something;<br>
}<br>
}</p>
<div class="gmail_quote"><div><div class="h5">On May 10, 2013 4:47 PM, "Quantum Mechanic" <<a href="mailto:quantum.mechanic.1964@gmail.com" target="_blank">quantum.mechanic.1964@gmail.com</a>> wrote:<br type="attribution">
</div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">
<div bgcolor="#FFFFFF"><div><br></div><blockquote type="cite"><div><div class="gmail_quote">On Fri, May 10, 2013 at 1:33 PM, Quantum Mechanic <span dir="ltr"><<a href="mailto:quantum.mechanic.1964@gmail.com" target="_blank">quantum.mechanic.1964@gmail.com</a>></span> wrote:<br>



<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">I would have tried "my" instead of the punctuation variables:<br>
<br>
if (my @capture = /$regex/) {<br>
    foreach @capture {<br>
        do something;<br>
    }<br>
}<br></blockquote><div><br>That doesn't make any difference, @capture still (seems to get) the 1/true result code<br>when there is no capturing.</div></div></div></blockquote><div><br></div><br><blockquote type="cite">

<div><div class="gmail_quote"><div>It should create a new @capture each time. It doesn't always capture something, right? I'll have to try it when I get home.</div></div>
</div></blockquote></div><br></div></div><div class="im">_______________________________________________<br>
toronto-pm mailing list<br>
<a href="mailto:toronto-pm@pm.org" target="_blank">toronto-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/toronto-pm" target="_blank">http://mail.pm.org/mailman/listinfo/toronto-pm</a><br>
<br></div></blockquote></div>
</blockquote></div><br><br clear="all"><br>-- <br>-QM<br>Quantum Mechanics: The dreams stuff is made of
</div>