scalar out of a loop

[mitchreward]

Hi guys,

Is there a way to export a variable out of the foreach, I've googled it, but don't seems to find something

                       foreach my $hash_ref2 (@result2) {
                               my $comment = $hash_ref2->{'comment'};
                               if ($comment =~ /^this is an automatic 
+comment/) {
                                       last;
                                       my $done = "1";
                               }
                       }
print $done;

thanks

[Corion]

Maybe you don't want to export a variable out of the loop, but set an existing variable to a different value?

my $comment= '- no comment found -';
                       foreach my $hash_ref2 (@result2) {
                               $comment = $hash_ref2->{'comment'};
                               if ($comment =~ /^this is an automatic 
+comment/) {
                                       last;
                               }
                       }
print $comment;

[mitchreward]

No, but you're right that was not complete. I've updated my post.

[Corion]

My answer is the same, except that you'd replace my $comment by my $done.

Or maybe I misunderstood your question still.

[LanX]

> Is there a way to export a variable out of the foreach, I've googled it, but don't seems to find something

"Exporting" is something completely different, googling won't help here.

Corion was right, but the concept you need to understand is called "scoping" of lexical ("my") variables.

Have a look here: Coping with Scoping.

HTH! :)

[AnomalousMonk]

c:\@Work\Perl\monks>perl -wMstrict -le
"my $done = 'got stuff to do';
 print qq{'$done'};
 ;;
 for my $i (1 .. 4) {
   print $i;
   if ($i == 2) {
     $done = 'finished';
     last;
     }
   }
 print qq{'$done'};
"
'got stuff to do'
1
2
'finished'

Note that you need to execute last after setting ('exporting') the  $done flag, not before as in your most recently posted originally posted code.

[mitchreward]

thank you all guys !

[Anonymous Monk]

As noted – define a variable, outside of the loop, and initialize it with a known value (even undef). When desired, give this variable a value and (if appropriate) jump out of the loop with last. Now, one way or the other, the variable that you've defined "has some value." And, this value isn't anyone's leftovers: it's got the value that you gave it.