[Perl] perl OO arrays..

[Jose Antonio Galicia]

On Thu, 20 Mar 2003, Luis Medrano Zaldivar wrote:

> sub get_reports{
>      my ($self)=@_;
>      return @{$self->{$REPORTS}};
> }
>
> Pero tengo algunas preguntas:
>
> $va=$array[$valor]. pero mi pregunta es como puedo hacer
> lo mismo con este arreglo "@{$self->{$REPORTS}}".

 Espero que esto te ayude:

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

 Saludos,
 Toņo.