[Cascavel-pm] Res: Res: Acesso aleatório à arquivos

[Daniel de Oliveira Mantovani]

Fernando,
O seu output:

<output>
mantovani em mantovani-laptop:~$ perl -F, -nale 'push @{ $pessoa{$F[0]}
}, @F[1 .. $#F]; END{print "$_ => ", join ", ", @{ $pessoa{$_} } for
keys %pessoa}' arquivo.txt
joao => 10, 15, 10, 10 , 8, 9
maria => 7, 9, 6, 9, 4, 10
</output>

O meu output:
<output>
mantovani em mantovani-laptop:~$ perl -nale
'@x=split/,/,$_;push(@{$z->{shift em x}}, em x);END{for$a(keys%{$z}){print"$a
=> ".join",",@{$z->{$a}}}}' arquivo.txt
joao => 10,15,10,10 ,8,9
maria => 7,9,6,9,4,10
</output>

O arquivo que eu estou usando,
<arquivo>
mantovani em mantovani-laptop:~$ cat arquivo.txt
joao,10,15
joao,10,10
joao,8,9
maria,7,9
maria,6,9
maria,4,10
</arquivo>

2011/2/22 Fernando Corrêa de Oliveira <fernandocorrea em gmail.com>:
> Mantovani,
> As notas B tem q ser a baixo das notas A...
>
> Em 22/02/2011, às 14:41, Daniel de Oliveira Mantovani escreveu:
>
>> perl -nale '@x=split/,/,$_;push(@{$z->{shift
>> @x}}, em x);END{for$a(keys%{$z}){print"$a => ".join",",@{$z->{$a}}}}'
>
> Just Another Perl Hacker
> Fernando Corrêa de Oliveira
> fernandocorrea em gmail.com
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
"If you’ve never written anything thoughtful, then you’ve never had
any difficult, important, or interesting thoughts. That’s the secret:
people who don’t write, are people who don’t think."