RE: Should loops return a value?

[Ville Jungman]

Thanks, sounds much more exciting now. Perhaps I should read what they mean 
for those constructs but sounds very promising.

ville jungman, 2 laureston crescent, tower, blarney, cork, ireland
tel. + 353 - 21 - 451 6847, http://www.kolumbus.fi/vilmak
usko Herraan Jeesukseen, niin sinä pelastut. (apt. 16:31)




From: "Hanson, Rob" <[EMAIL PROTECTED]>
To: 'Ville Jungman' <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
Subject: RE: Should loops return a value?
Date: Thu, 25 Sep 2003 21:11:31 -0400
> Shortly, I think it might be good if
> loops (etc.) could return values.
BTW - One of the goals for Perl 6 is that you will be able to build any 
Perl
construct in Perl itself.

So also although Perl5, and probably Perl6, won't let you return values 
from
a loop, you should at least be able to build your own loop construct in 
Perl
6 that will.

Something to look forward to.

Rob

-----Original Message-----
From: Ville Jungman [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 25, 2003 8:25 PM
To: [EMAIL PROTECTED]
Subject: Should loops return a value?
Shortly, I think it might be good if loops (etc.) could return values.



Example 1: Retnext (like 'return next' borrowed from pl/sql)
You want to extract numbers from an array if they are > 4 and put an
'a'-letter after them.
   @values=(1,3,5,7);
   @bigger_than_4=                           # get an array from loop
      foreach $value(@values) {
         retnext $value."a" if $value > 4;   # return value from loop if > 
4
      }
   ;



Example 2: Retlast (== perl 'last'-command with a value)

You need to escape a loop with a value. Familiar way:

   while(<FH>){
      if(/stop/){
         $array_terminated='true';
         last;
      }
   }
   if($array_terminated){
      # something
   }
This could be written as:

   if(
      while(<FH>){
         retlast if /stop/;                  # returns $_ by default
      }
   ){
      # something
   }


So, not very conserverite but think what all you could do with this.
And please, let me know what you think about this. Crap?
---

ville jungman, 2 laureston crescent, tower, blarney, cork, ireland
tel. + 353 - 21 - 451 6847, http://www.kolumbus.fi/vilmak
usko Herraan Jeesukseen, niin sinä pelastut. (apt. 16:31)
_________________________________________________________________
Add photos to your messages with MSN 8. Get 2 months FREE*.
http://join.msn.com/?page=features/featuredemail
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
_________________________________________________________________
Add photos to your messages with MSN 8. Get 2 months FREE*. 
http://join.msn.com/?page=features/featuredemail

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]