O codigo ta é muito doido!<br><br>se for igual ela disse: " frase1: xxxx; frase2: yyyyyy; frase3: zzzzz"<br>deve ser um arquivo assim:<br>frases.txt<br><i>is simply: 1234<br>dummy text of: 456<br>the printing and typesetting: 789<br>
industry. Lorem Ipsum has been: 110<br></i><br><br><a href="http://le_txt.pl">le_txt.pl</a>:<i><br>use strict;<br>use warnings;<br>use utf8;<br>open(my $fh, '<:encoding(utf8)', 'frases.txt') or die("Error $!");<br>
<br>while (my $linha = <$fh>){<br><br> my ($frase, $pontuacao) = ($linha =~ /([^\:]+)\s*\:\s*(\d+)/o);<br> <br> # voce poderia fazer um push numa array com duas dimensoes:<br> # push(@array_com_as_linhas, [$frase, $pontuacao])<br>
# ou montra um HASH e jogar numa array:<br> # push(@array_com_os_hashs, {frase => $frase, pontuacao => $pontuacao});<br> # ou printar aqui mesmo: <br> print "'$frase' tem $pontuacao pontos\n";<br>
# pois nao ha processamento neles.<br>}<br><br>close($fh);<br></i><br><br><div class="gmail_quote">2010/12/7 Eden Cardim <span dir="ltr"><<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">>>>>> "Blabos" == Blabos de Blebe <<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>> writes:<br>
<br>
<br>
Blabos> print $vetor->[0], "=", $vetor->[1], "\n";<br>
<br>
Blabos> Você está acessando um elemento de um vetor *unidimensional*, mas o<br>
Blabos> seu "vetor" é *bidimensional*.<br>
<br>
Na verdade, da forma que o array foi construído:<br>
<br>
$vetor[$i] = [$frase, $pontuacao];<br>
<br>
ela já está iterando na segunda dimensão:<br>
<div class="im"><br>
for my $vetor (@vetor){<br>
print $vetor->[0], "=", $vetor->[1], "\n";<br>
}<br>
<br>
</div> então não precisa dos dois índices. O problema foi a nomenclatura<br>
das variáveis.<br>
<font color="#888888"><br>
--<br>
Eden Cardim<br>
Software Engineer<br>
+55 73 9986-3963<br>
<a href="http://edencardim.com" target="_blank">edencardim.com</a><br>
</font><div><div></div><div class="h5">_______________________________________________<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></div></div></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>