Versão modificada da do mantovani, apenas usei $_ no split/for<div>(oO, fechei o terminal, rewritting...)</div><div>perl -nale &#39;@x=split/,/;push(@{$z-&gt;{shift@x}},@x);END{for(keys%{$z}){print&quot;$_ =&gt; &quot;.join&quot;,&quot;,@{$z-&gt;{$_}}}}&#39;arquivo.txt<br>

<br><div class="gmail_quote">2011/2/22 Daniel de Oliveira Mantovani <span dir="ltr">&lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Fernando,<br>
O seu output:<br>
<br>
&lt;output&gt;<br>
mantovani@mantovani-laptop:~$ perl -F, -nale &#39;push @{ $pessoa{$F[0]}<br>
<div class="im">}, @F[1 .. $#F]; END{print &quot;$_ =&gt; &quot;, join &quot;, &quot;, @{ $pessoa{$_} } for<br>
keys %pessoa}&#39; arquivo.txt<br>
</div><div class="im">joao =&gt; 10, 15, 10, 10 , 8, 9<br>
maria =&gt; 7, 9, 6, 9, 4, 10<br>
</div>&lt;/output&gt;<br>
<br>
O meu output:<br>
&lt;output&gt;<br>
mantovani@mantovani-laptop:~$ perl -nale<br>
<div class="im">&#39;@x=split/,/,$_;push(@{$z-&gt;{shift@x}},@x);END{for$a(keys%{$z}){print&quot;$a<br>
</div>=&gt; &quot;.join&quot;,&quot;,@{$z-&gt;{$a}}}}&#39; arquivo.txt<br>
<div class="im">joao =&gt; 10,15,10,10 ,8,9<br>
maria =&gt; 7,9,6,9,4,10<br>
</div>&lt;/output&gt;<br>
<br>
O arquivo que eu estou usando,<br>
&lt;arquivo&gt;<br>
mantovani@mantovani-laptop:~$ cat arquivo.txt<br>
<div class="im">joao,10,15<br>
joao,10,10<br>
joao,8,9<br>
maria,7,9<br>
maria,6,9<br>
maria,4,10<br>
</div>&lt;/arquivo&gt;<br>
<br>
2011/2/22 Fernando Corrêa de Oliveira &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>&gt;:<br>
<div><div></div><div class="h5">&gt; Mantovani,<br>
&gt; As notas B tem q ser a baixo das notas A...<br>
&gt;<br>
&gt; Em 22/02/2011, às 14:41, Daniel de Oliveira Mantovani escreveu:<br>
&gt;<br>
&gt;&gt; perl -nale &#39;@x=split/,/,$_;push(@{$z-&gt;{shift<br>
&gt;&gt; @x}},@x);END{for$a(keys%{$z}){print&quot;$a =&gt; &quot;.join&quot;,&quot;,@{$z-&gt;{$a}}}}&#39;<br>
&gt;<br>
&gt; Just Another Perl Hacker<br>
&gt; Fernando Corrêa de Oliveira<br>
&gt; <a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a><br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; Cascavel-pm mailing list<br>
&gt; <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;<br>
<br>
<br>
<br>
</div></div><div class="im">--<br>
&quot;If you’ve never written anything thoughtful, then you’ve never had<br>
any difficult, important, or interesting thoughts. That’s the secret:<br>
people who don’t write, are people who don’t think.&quot;<br>
_______________________________________________<br>
</div><div><div></div><div class="h5">Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</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>
</div>