<html><head><base href="x-msg://11/"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Não por isso!<div><br></div><div>perl -F, -nale 'push @{ $pessoa{$F[0]}->{A} }, $F[1]; push @{ $pessoa{$F[0]}->{B} }, $F[2]; END{print "$_ => ", join(", ", @{ $pessoa{$_}->{A} }), "$/\t", join(", ", @{ $pessoa{$_}->{B} }), for keys %pessoa}' arquivo.txt</div><div><div><div><br></div><div><br></div><div>Em 22/02/2011, às 10:58, Leonardo Gerheim escreveu:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-family: arial, helvetica, sans-serif; font-size: 10pt; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">A resposta do Fernando foi muito d+, Show de bola mesmo.<br><br> Mas devido a forma que chegou o email para vocês, acho que não entenderam como deveria ser a disposição das notas na saída, porque dessa forma que vocês fizeram eu também fiz, não tão impressionantemente em uma linha.<br> A disposição das notas dever ser a nota A (NEGRITO) em cima na nota B (NORMAL) assim:<br><br>INPUT:<br><br>joao,<span style="font-weight: bold; ">1</span>,1<br>joao,<span style="font-weight: bold; ">2</span>,1<br>joao,<span style="font-weight: bold; ">1</span>,2<br>maria,<span style="font-weight: bold; ">1</span>,1<br>maria,<span style="font-weight: bold; ">2</span>,1<br>maria,<span style="font-weight: bold; ">1</span>,2<br><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-family: arial, helvetica, sans-serif; font-size: 10pt; ">OUTPUT:<br><br>joao =><span class="Apple-converted-space"> </span><span style="font-weight: bold; ">1</span>,<span style="font-weight: bold; ">2</span>,<span style="font-weight: bold; ">1</span><br> 1,1,2<br><br>maria =><span class="Apple-converted-space"> </span><span style="font-weight: bold; ">1</span>,<span style="font-weight: bold; ">2</span>,<span style="font-weight: bold; ">1</span><br> 1,1,2<br><br><br> Entenderam? Por isso perguntei como faria para avançar e recuar uma linha.<br> Vlw pela força até agora.<br><br><br><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><font face="Tahoma" size="2"><hr size="1"><b><span style="font-weight: bold; ">De:</span></b><span class="Apple-converted-space"> </span>Renato Santos <<a href="mailto:renato.cron@gmail.com">renato.cron@gmail.com</a>><br><b><span style="font-weight: bold; ">Para:</span></b><span class="Apple-converted-space"> </span>Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br><b><span style="font-weight: bold; ">Enviadas:</span></b><span class="Apple-converted-space"> </span>Terça-feira, 22 de Fevereiro de 2011 10:40:37<br><b><span style="font-weight: bold; ">Assunto:</span></b><span class="Apple-converted-space"> </span>Re: [Cascavel-pm] Res: Acesso aleatório à arquivos<br></font><br>Fernando, funcionou!<blockquote class="webkit-indent-blockquote" style="margin-top: 0pt; margin-right: 0pt; margin-bottom: 0pt; margin-left: 40px; border-top-width: medium; border-right-width: medium; border-bottom-width: medium; border-left-width: medium; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-color: initial; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">joao => 10, 15, 10, 10, 8, 9</div></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">maria => 7, 9, 6, 9, 4, 10</div></div></blockquote><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">O que o perl (GOLF =P) do Fernando faz é utilizar os argumentos do perl já dizendo que é para ler um arquivo (-n) separar por virgula (-F,) jogando cada item da linha para a @F (-a) remove o "enter" em cada linha (usando - l sem passar nenhum código) e o código em si, -e .</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Coragem escrever isso no celular eim! Aja paciencia!</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">ps: legal o uso do END {}, nunca tinha pensando nisso.</div><br><div class="gmail_quote" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">2011/2/22 Fernando Oliveira<span class="Apple-converted-space"> </span><span dir="ltr"><<a rel="nofollow" ymailto="mailto:fernandocorrea@gmail.com" target="_blank" href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin-top: 0pt; margin-right: 0pt; margin-bottom: 0pt; margin-left: 0.8ex; border-left-width: 1px; border-left-style: solid; border-left-color: rgb(204, 204, 204); padding-left: 1ex; "><p>Não é q faltou o for?! Pq ninguem me avisou?!</p><div><br class="webkit-block-placeholder"></div><div class="im" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Em 22/02/2011 10:17, "Fernando Oliveira" <<a rel="nofollow" ymailto="mailto:fernandocorrea@gmail.com" target="_blank" href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>> escreveu:<br>><br></div>perl -F, -nale 'push @{ $pessoa{$F[0]} }, @F[1 .. $#F]; END{print "$_ => ", join ", ", @{ $pessoa{$_} } for keys %pessoa}' arquivo.txt<div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "></div><div class="h5" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br>><br>> Codigo escrito no cel e não testado!<br>> GOLF?!<br>><br>> Em 22/02/2011 09:36, "Leonardo Gerheim" <<a rel="nofollow" ymailto="mailto:general_andrade@yahoo.com.br" target="_blank" href="mailto:general_andrade@yahoo.com.br">general_andrade@yahoo.com.br</a>> escreveu:<br>><br>> > Agradeço à todos pelas respostas. Mas realmente não consegui me expressar,<span class="Apple-converted-space"> </span><br>> > como coloquei um exemplo não específico ficou realmente complicado o<span class="Apple-converted-space"> </span><br>> > entendimento. A minha intenção é a seguinte:<br>> > Eu quero poder movimentar dentro do arquivo, ou seja, avançar e recuar uma<span class="Apple-converted-space"> </span><br>> > uma linha do arquivo.<br>> ><span class="Apple-converted-space"> </span><br>> > ex de INPUT:<br>> ><span class="Apple-converted-space"> </span><br>> > joao,10,15<br>> > joao,10,10<span class="Apple-converted-space"> </span><br>> > joao,8,9<br>> > maria,7,9<br>> > maria,6,9<br>> > maria,4,10<br>> ><span class="Apple-converted-space"> </span><br>> > onde temos respectivamente o nome do aluno a nota A e a nota B, mas queremos<span class="Apple-converted-space"> </span><br>> > gerar um OUTPUT:<br>> ><span class="Apple-converted-space"> </span><br>> > joao 10,10,8<br>> > 15,10,9<br>> > maria 7,6,4<span class="Apple-converted-space"> </span><br>> > 9,9,10<br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> > Ou seja, uma nota após a outra.<br>> ><span class="Apple-converted-space"> </span><br>> > Para isso, pensei em ler a primeira linha, imprimir as notas notas uma<span class="Apple-converted-space"> </span><br>> > embaixo da outra, logoa após isso teria que retornar à primneira linha para<span class="Apple-converted-space"> </span><br>> > imprimir o segundo conjunto de notas, enquanto o nome do aluno for o mesmo. O<span class="Apple-converted-space"> </span><br>> > que não consegui fazer é essa parte de movimentar dentro do arquivo, avançando e<span class="Apple-converted-space"> </span><br>> > recuando em arquivos que tenham registros de tamanho diferente.<br>> > Caso existe um algoritmo mais simples por for me ajudem a montá-lo, mas de<span class="Apple-converted-space"> </span><br>> > qualquer forma me expliquei como avançar e recuar linhas.<br>> ><span class="Apple-converted-space"> </span><br>> > Att.<br>> ><span class="Apple-converted-space"> </span><br>> > P.S: A solução do Eden na sua última resposta resolveu a última questão, eu que<span class="Apple-converted-space"> </span><br>> > me expressei totalmente mal.<br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> > ________________________________<br>> > De: Eden Cardim <<a rel="nofollow" ymailto="mailto:edencardim@gmail.com" target="_blank" href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>><br>> > Para: Cascavel Perl Mongers <<a rel="nofollow" ymailto="mailto:cascavel-pm@pm.org" target="_blank" href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>> > Enviadas: Terça-feira, 22 de Fevereiro de 2011 9:04:35<br>> > Assunto: Re: [Cascavel-pm] Acesso aleatório à arquivos<br>> ><span class="Apple-converted-space"> </span><br>> >>>>>> "Leonardo" == Leonardo Gerheim <<a rel="nofollow" ymailto="mailto:general_andrade@yahoo.com.br" target="_blank" href="mailto:general_andrade@yahoo.com.br">general_andrade@yahoo.com.br</a>> writes:<br>> ><span class="Apple-converted-space"> </span><br>> > Leonardo> Olá pessoal, Preciso ler um arquivo e quando em uma<br>> > Leonardo> determinada linha contiver um valor, ele pular para a<br>> > Leonardo> próxima linha e quando encontrar um segundo valor não<br>> > Leonardo> imprimir mais nada, como no exemplo abaixo:<br>> ><span class="Apple-converted-space"> </span><br>> > Não ficou claro o que você quer aqui, mostra um exemplo da entrada e da<br>> > saída esperada.<br>> ><span class="Apple-converted-space"> </span><br>> > Leonardo> joao- não imprimir<br>> > Leonardo> maria- não imprimir<br>> > Leonardo> antonio- não imprimir<br>> > Leonardo> a- não imprimir<br>> > Leonardo> linguagem- IMPRIMIR<br>> > Leonardo> programacao- IMPRIMIR<br>> > Leonardo> b- não imprimir<br>> > Leonardo> elizabeth- não imprimir<br>> > Leonardo> kenia- não imprimir<br>> ><span class="Apple-converted-space"> </span><br>> > Isso é a entrada ou a saída do programa?<br>> > grep não resolve?<br>> > ,----[ cat test_data ]<br>> > | joao<br>> > | maria<br>> > | antonio<br>> > | a<br>> > | linguagem<br>> > | programacao<br>> > | b<br>> > | elizabeth<br>> > | kenia<br>> > `----<br>> > ,----[ cat test_data | grep "linguagem\|programacao" ]<br>> > | linguagem<br>> > | programacao<br>> > `----<br>> ><span class="Apple-converted-space"> </span><br>> > Leonardo> Eu consegui fazer um script para isso, entretanto<br>> > Leonardo> somente consegui que ele funcione, quando o amanho dos<br>> > Leonardo> registros são iguais. Como faço para resolver esse<br>> > Leonardo> problema tendo um arquivo com registros de tamnho<br>> > Leonardo> diferente?<br>> ><span class="Apple-converted-space"> </span><br>> > Se você mostrar o código, com um exemplo da execução, fica mais fácil te<br>> > ajudar.<br>> ><span class="Apple-converted-space"> </span><br>> > --<span class="Apple-converted-space"> </span><br>> > Eden Cardim<br>> > Software Engineer<br>> > +55 73 9986-3963<br>> ><span class="Apple-converted-space"> </span><a rel="nofollow" target="_blank" href="http://edencardim.com">edencardim.com</a><br>> > _______________________________________________<br>> > Cascavel-pm mailing list<br>> ><span class="Apple-converted-space"> </span><a rel="nofollow" ymailto="mailto:Cascavel-pm@pm.org" target="_blank" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> ><span class="Apple-converted-space"> </span><a rel="nofollow" target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br>> ><span class="Apple-converted-space"> </span><br></div></div><div><br class="webkit-block-placeholder"></div><br>_______________________________________________<br>Cascavel-pm mailing list<br><a rel="nofollow" ymailto="mailto:Cascavel-pm@pm.org" target="_blank" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a rel="nofollow" target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>--<span class="Apple-converted-space"> </span><br>Renato Santos<br><a rel="nofollow" target="_blank" href="http://www.renatocron.com/blog/">http://www.renatocron.com/blog/</a><br></div></div></div></div><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">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></div></span></blockquote></div><br><div>
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; ">Just Another Perl Hacker<br>Fernando Corrêa de Oliveira<br><a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a></span>
</div>
<br></div></body></html>