RE: [Cascavel-pm] Funções com argumentos de arrays
Alceu R. de Freitas Jr.
glasswalk3r em yahoo.com.br
Sexta Janeiro 6 09:34:19 PST 2006
Oi,
Você não criou as referências de forma correta:
# perl
@a = qw( a1 a2 a3 b1 b2 b3 );
@b = qw( x1 w1 v1 );
print "@a"."\n em b\n\n" ;
minha_funcao( \@a, \3, \@b);
sub minha_funcao(\@, \$,\@){
my( $arr_ref1, $scalar, $arr_ref2 ) = @_;
print "\narray= ";
foreach ( @{$arr_ref1} ) { print; }
print "\nlugar = ";
foreach ( ${$scalar} ) { print; }
print "\nelementos = ";
foreach ( @{$arr_ref2} ) { print; }
print "\n";
}
--- Brinde Storm - Steven Koch
<s.koch em brindestorm.com> escreveu:
> Digamos então:
> <perl>
> @a = ('a1','a2','a3','b1','b2','b3');
> @b = ('x1','w1','v1');
>
> print "@a"."\n em b\n\n" ;
>
> minha_funcao(@a, 3, @b);
>
> sub minha_funcao(\@, \$,\@ ){
> my( $arr_ref1, $scalar, $arr_ref2 ) = @_;
>
> print "\n
> array= @{$arr_ref1} \n
> lugar = ${$scalar} \n
> elementos = @{$arr_ref2}
> \n";
> }
> </perl>
>
> Mas não imprime nada
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
Mais detalhes sobre a lista de discussão Cascavel-pm