On 15 Aug 2000, Perl6 RFC Librarian wrote:

> This RFC proposes that C<$x>, C<@x>, and C<%x> be ditched and
> replaced with C<$x> for everything.

my $foo = ('apples', 'oranges');
my $bar = ('apples' => 'crunchy', 'oranges' => 'juicy');
my $zot = 'bananas';

my $ret = junkem(\$foo, \$bar, $zot);

sub junkem {
    my($a, $b, $c) = $_;
    my $d;

    unshift($$a, $c);
    foreach($$a) {
        push($d, $b->{$_});
    }

    return join(' ', reverse $d);
}

I have my doubts about decreasing line noise. :) Maybe not about making
Perl 6 extensible for future struct types, but line noise indeed...

Please excuse the silly example.

--
Mike Pastore
[EMAIL PROTECTED]

PS -

my @foo = ('apples', 'oranges');
my %bar = ('apples' => 'crunchy', 'oranges' => 'juicy');
my $zot = 'bananas';

my $ret = junkem(\@foo, \%bar, $zot);

sub junkem {
    my($a, $b, $c) = $_;
    my @d;

    unshift(@$a, $c);
    foreach(@$a) {
        push(@d, $b->{$_});
    }

    return join(' ', reverse @d);
}

Reply via email to