Versão modificada da do mantovani, apenas usei $_ no split/for<div>(oO, fechei o terminal, rewritting...)</div><div>perl -nale '@x=split/,/;push(@{$z->{shift@x}},@x);END{for(keys%{$z}){print"$_ => ".join",",@{$z->{$_}}}}'arquivo.txt<br>
<br><div class="gmail_quote">2011/2/22 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></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>
<output><br>
mantovani@mantovani-laptop:~$ perl -F, -nale 'push @{ $pessoa{$F[0]}<br>
<div class="im">}, @F[1 .. $#F]; END{print "$_ => ", join ", ", @{ $pessoa{$_} } for<br>
keys %pessoa}' arquivo.txt<br>
</div><div class="im">joao => 10, 15, 10, 10 , 8, 9<br>
maria => 7, 9, 6, 9, 4, 10<br>
</div></output><br>
<br>
O meu output:<br>
<output><br>
mantovani@mantovani-laptop:~$ perl -nale<br>
<div class="im">'@x=split/,/,$_;push(@{$z->{shift@x}},@x);END{for$a(keys%{$z}){print"$a<br>
</div>=> ".join",",@{$z->{$a}}}}' arquivo.txt<br>
<div class="im">joao => 10,15,10,10 ,8,9<br>
maria => 7,9,6,9,4,10<br>
</div></output><br>
<br>
O arquivo que eu estou usando,<br>
<arquivo><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></arquivo><br>
<br>
2011/2/22 Fernando Corrêa de Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br>
<div><div></div><div class="h5">> Mantovani,<br>
> As notas B tem q ser a baixo das notas A...<br>
><br>
> Em 22/02/2011, às 14:41, Daniel de Oliveira Mantovani escreveu:<br>
><br>
>> perl -nale '@x=split/,/,$_;push(@{$z->{shift<br>
>> @x}},@x);END{for$a(keys%{$z}){print"$a => ".join",",@{$z->{$a}}}}'<br>
><br>
> Just Another Perl Hacker<br>
> Fernando Corrêa de Oliveira<br>
> <a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a><br>
><br>
> _______________________________________________<br>
> 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>
><br>
<br>
<br>
<br>
</div></div><div class="im">--<br>
"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."<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>