<font face="courier new,monospace">Bom, acho que vc esta enganado, pois o mesmo tem haver com o shell e não com o código, se por exemplo eu colocar o código em um arquivo ele ficaria apenas:<br><br></font>map{open$x,$_;say if!grep!/0{9}$/,<$x>}<*ERR><br>
<font face="courier new,monospace"><br clear="all"></font>Marco Lima<br><a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a><br><a href="mailto:im%3Amago@jabber-br.org">im:mago@jabber-br.org</a><br><br>Register Linux User #355235<br>
Slackware Linux, for the subgenius<br><br>"Ter acesso ao conhecimento é um dever de todos; transmitir conhecimento é um dever de quem tem."<br><br>"Na visão do hacker, o sentido da vida está em dedicar-se a uma paixão. Esta paixão é, na realidade, uma atividade significativa, inspiradora e prazerosa para o indivíduo, seja ela rotulada como "trabalho" ou como "diversão." <br>
<br>"Ninguém é tão grande que não possa aprender, e nem tão pequeno que não possa ensinar" <br><br>
<br><br><div class="gmail_quote">Em 16 de agosto de 2010 19:20, Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div class="im">2010/8/16 Marco Lima <<a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a>>:<br>
</div><div class="im">> O que esta fora do '' não é código, portanto não conta!<br>
<br>
</div>Os parâmetros influenciam no código, por tanto contam sim!<br>
<div><div></div><div class="h5"><br>
<br>
><br>
> Marco Lima<br>
> <a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a><br>
> <a href="mailto:im%3Amago@jabber-br.org">im:mago@jabber-br.org</a><br>
><br>
> Register Linux User #355235<br>
> Slackware Linux, for the subgenius<br>
><br>
> "Ter acesso ao conhecimento é um dever de todos; transmitir conhecimento é<br>
> um dever de quem tem."<br>
><br>
> "Na visão do hacker, o sentido da vida está em dedicar-se a uma paixão. Esta<br>
> paixão é, na realidade, uma atividade significativa, inspiradora e prazerosa<br>
> para o indivíduo, seja ela rotulada como "trabalho" ou como "diversão."<br>
><br>
> "Ninguém é tão grande que não possa aprender, e nem tão pequeno que não<br>
> possa ensinar"<br>
><br>
><br>
><br>
> Em 16 de agosto de 2010 19:08, Daniel de Oliveira Mantovani<br>
> <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>> escreveu:<br>
>><br>
>> 2010/8/16 Marco Lima <<a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a>>:<br>
>> > O que foi isso !?!?!?<br>
>> ><br>
>> ><br>
>> > Gabriel:<br>
>> ><br>
>> > "... quero abrir todos esses arquivos com final ERR .."<br>
>> ><br>
>> ><br>
>> > perl -E 'map{open$x,$_;say if!grep!/0{9}$/,<$x>}<*ERR>'<br>
>> ><br>
>> > segundo sua contagem seria 54! mas o que se leva em conta é o que esta<br>
>> > sendo<br>
>> > executado, ou seja entre ' ', portanto 45 !!! =P<br>
>><br>
>> Na verdade até aonde eu sei, conta tudo.<br>
>><br>
>> ><br>
>> > Abraços;<br>
>> ><br>
>> > Marco Lima<br>
>> > <a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a><br>
>> > <a href="mailto:im%3Amago@jabber-br.org">im:mago@jabber-br.org</a><br>
>> ><br>
>> > Register Linux User #355235<br>
>> > Slackware Linux, for the subgenius<br>
>> ><br>
>> > "Ter acesso ao conhecimento é um dever de todos; transmitir conhecimento<br>
>> > é<br>
>> > um dever de quem tem."<br>
>> ><br>
>> > "Na visão do hacker, o sentido da vida está em dedicar-se a uma paixão.<br>
>> > Esta<br>
>> > paixão é, na realidade, uma atividade significativa, inspiradora e<br>
>> > prazerosa<br>
>> > para o indivíduo, seja ela rotulada como "trabalho" ou como "diversão."<br>
>> ><br>
>> > "Ninguém é tão grande que não possa aprender, e nem tão pequeno que não<br>
>> > possa ensinar"<br>
>> ><br>
>> ><br>
>> ><br>
>> > 2010/8/16 Leonardo Ruoso <<a href="mailto:leonardo.ruoso@gmail.com">leonardo.ruoso@gmail.com</a>><br>
>> >><br>
>> >> O jeito força bruta parece ser um foreach no diretório "." para varrer<br>
>> >> os<br>
>> >> subdiretórios de cada dia, para cada subdiretório você faz um readdir<br>
>> >> com<br>
>> >> uma regex fazendo match em /\d+ERR$/. Daí você abre o arquivo e faz um<br>
>> >> while<br>
>> >> no arquivo, até encontrar uma linha com erro, imprime o nome do arquivo<br>
>> >> e<br>
>> >> sai do loop do arquivo.<br>
>> >><br>
>> >> Abraços!<br>
>> >><br>
>> >><br>
>> >> · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·<br>
>> >> Leonardo Ruoso (CE1921JP)<br>
>> >> <a href="http://lattes.cnpq.br/2719086566536387" target="_blank">http://lattes.cnpq.br/2719086566536387</a> -<br>
>> >> <a href="http://br.linkedin.com/in/lruoso" target="_blank">http://br.linkedin.com/in/lruoso</a><br>
>> >> <a href="mailto:leonardo@oktiva.com.br">leonardo@oktiva.com.br</a> - (85) 8787-0312 - <a href="mailto:sip%3A87870312@ekiga.net">sip:87870312@ekiga.net</a><br>
>> >> Marketing, Comunicação Social e Tecnologia<br>
>> >><br>
>> >> <a href="http://norvig.com/21-days.html" target="_blank">http://norvig.com/21-days.html</a><br>
>> >><br>
>> >><br>
>> >> 2010/8/16 Roan Brasil Monteiro <<a href="mailto:roanbrasil@gmail.com">roanbrasil@gmail.com</a>><br>
>> >>><br>
>> >>> Seguinte,<br>
>> >>><br>
>> >>> Imagina que tenho a pasta chamada 201008 e meu script perl está nessa<br>
>> >>> pasta.<br>
>> >>> 201008<br>
>> >>> |_____20100801<br>
>> >>> |_____20100802<br>
>> >>> |_____20100803<br>
>> >>> |_____...<br>
>> >>> |_____<a href="http://script.pl" target="_blank">script.pl</a><br>
>> >>><br>
>> >>> Dentro de cada pasta existem vários arquivos com nome que eu<br>
>> >>> desconheço,<br>
>> >>> mas que tem o final -ERR.<br>
>> >>> por exemplo<br>
>> >>><br>
>> >>> na o pasta 20100801 possui 3 arquivos com nomes XXXXXXXX-ERR<br>
>> >>> YYYYYYYY-ERR e ZZZZZZZZ-ERR<br>
>> >>><br>
>> >>> quero abrir todos esses arquivos com final ERR e verificar se ao final<br>
>> >>> de<br>
>> >>> CADA LINHA possui 000000000<br>
>> >>> se possuir no final de cada linha 000000000, imprimir o nome do<br>
>> >>> arquivo<br>
>> >>> que tiver todas linhas com 000000000. Se alguma linha, no FINAL dela<br>
>> >>> tiver<br>
>> >>> algum numero onde a sequencia seja diferente de zero não imprimi.<br>
>> >>><br>
>> >>> Exemplo.<br>
>> >>><br>
>> >>> File XXXXXXX-ERR<br>
>> >>> linha 1 teste blabla43 000000000<br>
>> >>> linha 2 teste blabla32 000000000<br>
>> >>> linha 3 teste blabla12 000000000<br>
>> >>> ...<br>
>> >>> linha n xxxxxxxxxxx 000000000<br>
>> >>><br>
>> >>><br>
>> >>> File YYYYYY-ERR<br>
>> >>> linha 1 teste blabla43 000000200<br>
>> >>> linha 2 teste blabla32 000000000<br>
>> >>> linha 3 teste blabla12 000000000<br>
>> >>> ...<br>
>> >>> linha n xxxxxxxxxxx 000000000<br>
>> >>><br>
>> >>><br>
>> >>> No arquivo XXXXXX todas ultimas colunas são com sequencia zero.<br>
>> >>><br>
>> >>> Já o YYYYYY não. Então ira imprimir apenas o nome do arquivo<br>
>> >>> XXXXXX-ERR e<br>
>> >>> não o YYYYYY-ERR.<br>
>> >>><br>
>> >>> Deu para entender?<br>
>> >>><br>
>> >>><br>
>> >>> Em 16 de agosto de 2010 12:40, breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>> escreveu:<br>
>> >>>><br>
>> >>>> Roan,<br>
>> >>>><br>
>> >>>> também não sei se entendi o que vc tem e/ou quer fazer, mas acho que<br>
>> >>>> o<br>
>> >>>> Blabos está no caminho certo. Dê uma olhada em:<br>
>> >>>><br>
>> >>>> <a href="http://perldoc.perl.org/functions/readdir.html" target="_blank">http://perldoc.perl.org/functions/readdir.html</a><br>
>> >>>><br>
>> >>>> E veja se te ajuda, quando muito, a nos dar uma dica sobre qual é<br>
>> >>>> exatamente o seu problema em mãos :-)<br>
>> >>>><br>
>> >>>> []s<br>
>> >>>><br>
>> >>>> -b<br>
>> >>>><br>
>> >>>> 2010/8/16 Blabos de Blebe <<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>>:<br>
>> >>>> > Nâo entendi o que vc está perguntando.<br>
>> >>>> ><br>
>> >>>> > Seria algo relacionado a opendir e readdir?<br>
>> >>>> ><br>
>> >>>> > 2010/8/16 Roan Brasil Monteiro <<a href="mailto:roanbrasil@gmail.com">roanbrasil@gmail.com</a>>:<br>
>> >>>> >> Olá pessoal,<br>
>> >>>> >><br>
>> >>>> >> Sem utilizar nenhum módulo do CPAN, gostaria de saber se eu tenho<br>
>> >>>> >> uma<br>
>> >>>> >> arvore<br>
>> >>>> >> de diretorios baseado em data.<br>
>> >>>> >><br>
>> >>>> >> Tenho diretorios que é por dia tipo 20100816, 20100815..<br>
>> >>>> >><br>
>> >>>> >> ja fiz um for onde tenho 201008 como default e concatena com um<br>
>> >>>> >> contador do<br>
>> >>>> >> dia 16 até 1 ai tudo bem.<br>
>> >>>> >><br>
>> >>>> >> Gostaria de entrar nesses diretorios e abrir todos arquivos que<br>
>> >>>> >> tem<br>
>> >>>> >> no final<br>
>> >>>> >> -ERR .<br>
>> >>>> >><br>
>> >>>> >> Depois disso outra coisa q ja fiz é expressão regular que ja fiz<br>
>> >>>> >> para<br>
>> >>>> >> pegar<br>
>> >>>> >> o q tem zero no final do arquivo m/00000000/igo; se sim imprimi o<br>
>> >>>> >> nome<br>
>> >>>> >> odarquivo senão não faz nada.<br>
>> >>>> >><br>
>> >>>> >> Obrigado<br>
>> >>>> >><br>
>> >>>> >> --<br>
>> >>>> >> Atenciosamente,<br>
>> >>>> >><br>
>> >>>> >> Roan Brasil Monteiro<br>
>> >>>> >> <a href="http://roanbrasil.wordpress.com/" target="_blank">http://roanbrasil.wordpress.com/</a><br>
>> >>>> >> <a href="http://www.gramaro.com.br/" target="_blank">http://www.gramaro.com.br/</a> - Grama em Tapete Salvador Bahia<br>
>> >>>> >><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>
>> >>>> > 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>
>> >>>> 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>
>> >>> Atenciosamente,<br>
>> >>><br>
>> >>> Roan Brasil Monteiro<br>
>> >>> <a href="http://roanbrasil.wordpress.com/" target="_blank">http://roanbrasil.wordpress.com/</a><br>
>> >>> <a href="http://www.gramaro.com.br/" target="_blank">http://www.gramaro.com.br/</a> - Grama em Tapete Salvador Bahia<br>
>> >>><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>
>> >> 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>
>> > 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>
>> --<br>
>> <a href="http://www.danielmantovani.com" target="_blank">http://www.danielmantovani.com</a><br>
>><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>
>> 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>
> 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>
--<br>
<a href="http://www.danielmantovani.com" target="_blank">http://www.danielmantovani.com</a><br>
<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>
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>