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