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);
}