Estou sem perl no momento (ohh nohh, windows)<div>mas acho que seria assim:</div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "> my %quantidade;<br>
<br> my @frutas = qw / bananas laranjas melões /;<br> my @unidades = qw / 5 10 15 /;<br> %quantidade{ @frutas } = @unidades;</span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; ">ou</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "> $quantidade{ @frutas } = @unidades;<br><br> foreach my $frutas ( @frutas ) {<br> say "Eu comprei $quantidade{$frutas} $frutas"<br>
}</span></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><br></span></font>La vai um exemplo: </div><div>%x = {key=>'value with a key'};</div>
<div>$x = 'value of scalar';</div><div>@x = ('value of array');</div><div><br></div><div>Todas as variaveis chamam-se "x", porem, para acessar os valores, usar-se meios diferentes.</div><div>print $x{key}; # value with a key</div>
<div>print $x; # value of scalar</div><div>print $x[0]; # value of array</div><div><br></div><div><br></div><div>Bom,</div><div>enquanto escrevo um amigo roda um perl na casa dela via MSN! huasuhas</div><div>seu codigo rodou no perl 5.8 (trocando apenas o say) e funcionou com $, mas nao com %</div>
<div><br>Eu acho que o jeito mais correto é usar $, pois é a forma correta de escrever/acessar os valores de HASHs.</div><div><br></div><div><br></div><div><br><div class="gmail_quote">2010/7/24 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div bgcolor="#ffffff" text="#000000">
Olá pessoal, tudo bem?<br>
<br>
Seguinte, estou tendo certa dificuldade para entender sobre Hash Slices.<br>
<br>
Vi um exemplo de Hash Slices no livro que estou lendo e tentei montar
um para tentar entender o funcionamento:<br>
<br>
my %quantidade;<br>
<br>
my @frutas = qw / bananas laranjas melões /;<br>
my @unidades = qw / 5 10 15 /;<br>
@quantidade{ @frutas } = @unidades;<br>
<br>
foreach my $frutas ( @frutas ) {<br>
say "Eu comprei $quantidade{$frutas} $frutas"<br>
}<br>
<br>
Minhas dificuldade são:<br>
1)<br>
Como o Perl "sabe" que "@quantidade" refere-se ao hash "%quantidade" ?
<br>
Por exemplo, se houvesse um outro array "<b>@quantidade</b> = qw/ 1 2
/" porque não causa confusão com "<b>@quantidade</b>{ @frutas } =
@unidades" ?<br>
<br>
2)<br>
Na linha: @quantidade{ @frutas } = @unidades; <br>
## Posso entender que é aqui que é "montado" o hash "%quantidade" ? <br>
<br>
Onde:<br>
Para cada chave: <b>@quantidade{ @frutas }</b><br>
É atribuído um valor: <b>@unidades</b><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div>