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 &quot;Eu comprei $quantidade{$frutas} $frutas&quot;<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=&gt;&#39;value with a key&#39;};</div>

<div>$x = &#39;value of scalar&#39;;</div><div>@x = (&#39;value of array&#39;);</div><div><br></div><div>Todas as variaveis chamam-se &quot;x&quot;, 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 &quot;Flávio R. Lopes&quot; <span dir="ltr">&lt;<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>&gt;</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 &quot;Eu comprei $quantidade{$frutas} $frutas&quot;<br>
    }<br>
<br>
Minhas dificuldade são:<br>
1)<br>
Como o Perl &quot;sabe&quot; que &quot;@quantidade&quot; refere-se ao hash &quot;%quantidade&quot;  ?
<br>
Por exemplo, se houvesse um outro array &quot;<b>@quantidade</b> = qw/ 1 2
/&quot;  porque não causa confusão com &quot;<b>@quantidade</b>{ @frutas } =
@unidades&quot; ?<br>
<br>
2)<br>
Na linha: @quantidade{ @frutas } = @unidades;  <br>
## Posso entender que é aqui que é &quot;montado&quot; o hash &quot;%quantidade&quot;  ? <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>