> $ perl -le'
> sub foo {
> for ( @_ ) {
> tr/a-z/A-Z/
> }
> }
> my @a = qw/ a b c d e f g h i j /;
> print "@a";
> foo @a;
> print "@a";
> my %h = qw/ a b c d e f g h i j /;
> print "@{[ %h ]}";
> foo %h;
> print "@{[ %h ]}";
> '
> a b c d e f g h i j
> A B C D E F G H I J
> e f c d a b g h i j
> e F c D a B g H i J
>
far out!!! ;o)
tom arnall
north spit, ca
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
