[Perl] perl OO arrays..

[Jose Antonio Galicia]

On Thu, 20 Mar 2003, Jose Antonio Galicia wrote:

>  Espero que esto te ayude:

 ups... es...

>
> 	perl -e '
> 	  sub a(\%$){
> 	    ($a,$n)=@_;
> 	    return ${$a{r}}[$n]
> 	  }
> 	  (%a)=(r=>[qw(a b c)]);
> 	  print a(%a,2)."\n"'

 Así imprimes el elemento "n" de la lista "r" dentro del hash "a".

 Saludos,
 Toño
---
The steady state of disks is full.
		-- Ken Thompson