On Wed, 2002-04-03 at 17:04, Jenda Krynicky wrote:
> From: Chas Owens <[EMAIL PROTECTED]>
> > On Wed, 2002-04-03 at 16:09, Nikola Janceski wrote:
> > > I just found out that Perl 6 is going to be mainly OO (object
> > > oriented for you beginners). Can someone give me a direct URL of
> > > where I can find what is really going to happen? I do lots of Perl
> > > programming and I really want to determine if this is going to be a
> > > good thing, or bad.
> > > 
> > > I really don't mean to take time away from you folks (ie. Japhy,
> > > Jenda, etc.).
> > > 
> > > Nikola Janceski
> > 
> > First let me clear up some confusion: Perl 6 will still be Perl.  You
> > will be able to do everything you used to be able to do in Perl 5 with
> > some small caveats: variable sigils ($@%) are now constant (ie you say
> > @array[2] instead of $array[2]), the concatenation  operator is
> > changing from '.' to ' - ' (note the whitespace), the member of
> > operator '->' is changing to '.', and various other small things. 
> > Also note that there WILL be a Perl5->Perl6 converter.
> 
> Ah well ... it will HURT. I'm sure I'll envy the newcomers. Since it'll 
> take ages to get used to the new $@% meaning and the new 
> operators.
> 
> I really wonder why couldn't we couldn't keep the good old ->  :-(((
> 
> Jenda
> 
> =========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
> There is a reason for living. There must be. I've seen it somewhere.
> It's just that in the mess on my table ... and in my brain
> I can't find it.

I cried when I found out they were changing the concat and member of
operators (see my other comment in this thread where I accidentally used
the '-' operator instead of the ' _ ' operator).  But as a consolation
prize we can now say:

<snip href="http://www.perl.com/pub/a/2002/04/01/exegesis4.html?page=2";>
for @list -> $next {         # iterate @list, aliasing each element to 
                             # $next (and to $_)
        print if length > 10;# same as: print $next if length $next > 10
        %count{$next}++;
}
</snip>

or 

<snip href="http://www.perl.com/pub/a/2002/04/01/exegesis4.html?page=2";>
given check_online().{active}{names}[0] -> $name {
        when /^\w+$/  { print "$name's on first\n" }
        when /???/    { print "Who's on first\n" }
    }
</snip>





 
-- 
Today is Pungenday the 20th day of Discord in the YOLD 3168
Pzat!

Missile Address: 33:48:3.521N  84:23:34.786W


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

Reply via email to