<div>Caros colegas,</div>
<div>&nbsp;</div>
<div>Todas as maneiras que vocês fizeram as sugestões foram validas. Em particular, eu não tenho problema em lê um codigo Perl sem comentário ou com comentário, pois aprendir com vocês que devo ler e entender a linguagem do simplemente lançar uma pergunta para vocês apresentarem uma solução.
</div>
<div>Pelo que entendi da filosofia do grupo, é que, aqui&nbsp;praticasse mais&nbsp;a troca de experiência do que um serviço atendimento ao usuario, onde as pessoas perguntam como se faz, mesmo antes de tentar escrever um codigo.</div>

<div>Assim que recebi a mensagem do Fernando, peguei a linha do codigo e fui entender o que estava escrito e descobri que o meu codigo estava errado e o Frederico veio confirmar esse erro.</div>
<div>&nbsp;</div>
<div>Agradeço a todos. </div>
<div>&nbsp;</div>
<div>Um forte abraço.</div>
<div><br><br>&nbsp;</div>
<div><span class="gmail_quote">Em 13/03/07, <b class="gmail_sendername"><a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org</a></b> &lt;<a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org
</a>&gt; escreveu:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Enviar submissões para a lista de discussão Cascavel-pm para<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:cascavel-pm@pm.org">
cascavel-pm@pm.org</a><br><br>Para se cadastrar ou descadastrar via WWW, visite o endereço<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>ou, via email, envie uma mensagem com a palavra &#39;help&#39; no assunto ou
<br>corpo da mensagem para<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org</a><br><br>Você poderá entrar em contato com a pessoa que gerencia a lista pelo<br>endereço<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="mailto:cascavel-pm-owner@pm.org">
cascavel-pm-owner@pm.org</a><br><br>Quando responder, por favor edite sua linha Assunto assim ela será<br>mais específica que &quot;Re: Contents of Cascavel-pm digest...&quot;<br><br><br>Tópicos de Hoje:<br><br>&nbsp;&nbsp;1. Re: [Bulk] Re: Listando sub-diretorios ... (Luis Motta Campos)
<br>&nbsp;&nbsp;2. Re: [Bulk] Re: Listando sub-diretorios ... (Fernando Oliveira)<br>&nbsp;&nbsp;3. Re: [Bulk] Re: Listando sub-diretorios ... (Luis Motta Campos)<br>&nbsp;&nbsp;4. Re: Listando sub-diretorios ... (Frederico Recsky)<br>&nbsp;&nbsp;5. Re: [Bulk] Re: Listando sub-diretorios ... (Fernando Oliveira)
<br>&nbsp;&nbsp;6. Re: Digest Cascavel-pm, volume 188, assunto 2 (Juliano Dantas)<br><br><br>----------------------------------------------------------------------<br><br>Message: 1<br>Date: Tue, 13 Mar 2007 12:16:21 +0100<br>From: Luis Motta Campos &lt;
<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;<br>Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...<br>To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org
</a>&gt;<br>Message-ID: &lt;<a href="mailto:B07201F0-4C31-4BE2-96E3-EC81A84D5FE7@yahoo.co.uk">B07201F0-4C31-4BE2-96E3-EC81A84D5FE7@yahoo.co.uk</a>&gt;<br>Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed
<br><br>On Mar 13, 2007, at 12:08 PM, Wendel Scardua wrote:<br>&gt; Em resumo: *primeiro* a resposta &quot;séria&quot;, e só *depois* a gente<br>&gt; joga golfe&nbsp;&nbsp;^_^b<br><br>&nbsp;&nbsp;Boa, mas a gente pode jogar golfe em qualquer ordem, desde que a
<br>resposta &quot;inteligível&quot; apareça antes que o pessoal comece a sentir<br>desespero... ;^)<br><br>&nbsp;&nbsp;Wendel++ # objetivo<br>&nbsp;&nbsp;Putamplexos!<br>--<br>Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
<br>Perl fanatic evangelist, and amateur {cook, photographer}<br><br><br><br><br>------------------------------<br><br>Message: 2<br>Date: Tue, 13 Mar 2007 10:32:20 -0300<br>From: &quot;Fernando Oliveira&quot; &lt;<a href="mailto:fernandocorrea@gmail.com">
fernandocorrea@gmail.com</a>&gt;<br>Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...<br>To: &quot;Cascavel Perl Mongers&quot; &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>Message-ID:
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;<a href="mailto:f40026c0703130632n3ac84dbvd582e02df1088bf0@mail.gmail.com">f40026c0703130632n3ac84dbvd582e02df1088bf0@mail.gmail.com</a>&gt;<br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br>
<br>Desculpe, mas assim ficaria mais inteligivel?<br><br># Nome do diretorio de origem<br>$dir_orig = &quot;.&quot;;<br># $, = separador de lista<br># $\ = terminador<br># $/ = normalmente &quot;\n&quot;<br>$,=$\=$/;<br># para todos os arqs e dirs contemplados por ./*
<br>for(glob $dir_orig.&quot;/*&quot;)<br>{<br>&nbsp;&nbsp;# imprima se for diretorio<br>&nbsp;&nbsp;print if -d<br>}<br><br>Em 13/03/07, Luis Motta Campos&lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt; escreveu:
<br>&gt; On Mar 12, 2007, at 9:09 PM, Fernando Oliveira wrote:<br>&gt; &gt; perl -e &#39;$dir_orig = &quot;.&quot;; $,=$\=$/; for(glob $dir_orig.&quot;/*&quot;){print<br>&gt; &gt; if -d}&#39;<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Brilhante, Fernando.
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Mas o Juliano é um novato.<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Será que você é bom o bastante para implementar a mesma coisa em<br>&gt; 10 linhas?<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Fluência em Perl quer dizer fazer a pessoa com quem você fala te<br>
&gt; entender, não dizer tudo o que você precisa com três caracteres... ;-)<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Putamplexos!<br>&gt; --<br>&gt; Luis Motta Campos is a software engineer,<br>&gt; perl fanatic evangelist, and amateur {cook, photographer}
<br>&gt;<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">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>&gt;<br><br><br>--<br>[]&#39;s Fernando<br><br><br>------------------------------<br><br>Message: 3<br>Date: Tue, 13 Mar 2007 14:39:38 +0100<br>From: Luis Motta Campos &lt;
<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;<br>Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...<br>To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org
</a>&gt;<br>Message-ID: &lt;<a href="mailto:E3D954F6-EC28-445D-BA99-4694CA9D23A7@yahoo.co.uk">E3D954F6-EC28-445D-BA99-4694CA9D23A7@yahoo.co.uk</a>&gt;<br>Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed
<br><br>On Mar 13, 2007, at 2:32 PM, Fernando Oliveira wrote:<br>&gt; Desculpe, mas assim ficaria mais inteligivel?<br>&gt;<br>&gt; # Nome do diretorio de origem<br>&gt; $dir_orig = &quot;.&quot;;<br>&gt; # $, = separador de lista
<br>&gt; # $\ = terminador<br>&gt; # $/ = normalmente &quot;\n&quot;<br>&gt; $,=$\=$/;<br>&gt; # para todos os arqs e dirs contemplados por ./*<br>&gt; for(glob $dir_orig.&quot;/*&quot;)<br>&gt; {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;# imprima se for diretorio
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;print if -d<br>&gt; }<br><br>&nbsp;&nbsp;Eu não sei. :-) Para mim, a primeira forma era clara.<br>&nbsp;&nbsp;Juliano, quem tem dúvida é você.<br>&nbsp;&nbsp;Diz por favor se esta ficou mais legível?<br>&nbsp;&nbsp;Espero que isso resolva o seu problema.
<br>&nbsp;&nbsp;Obrigado pela sua paciência em escrever isso duas vezes para a<br>lista, Fernando. :-)<br>&nbsp;&nbsp;Quando eu tiver uma oportunidade, a cerveja é por minha conta, tá<br>bem?<br>&nbsp;&nbsp;Putamplexos!<br>--<br>Luis Motta Campos (a.k.a
. Monsieur Champs) is a software engineer,<br>Perl fanatic evangelist, and amateur {cook, photographer}<br><br><br><br><br><br>------------------------------<br><br>Message: 4<br>Date: Tue, 13 Mar 2007 10:42:28 -0300<br>From: &quot;Frederico Recsky&quot; &lt;
<a href="mailto:frederico@gmail.com">frederico@gmail.com</a>&gt;<br>Subject: Re: [Cascavel-pm] Listando sub-diretorios ...<br>To: &quot;Cascavel Perl Mongers&quot; &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org
</a>&gt;<br>Message-ID:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;<a href="mailto:88fe68ee0703130642p171edc44ybded72509e997be1@mail.gmail.com">88fe68ee0703130642p171edc44ybded72509e997be1@mail.gmail.com</a>&gt;<br>Content-Type: text/plain; charset=UTF-8; format=flowed
<br><br>Olá<br><br>On 3/12/07, Juliano Dantas &lt;<a href="mailto:juliano.dantas@gmail.com">juliano.dantas@gmail.com</a>&gt; wrote:<br>&gt; Caros colegas,<br>&gt;<br>&gt; criei o codigo abaixo, para coletar os nomes dos sub-diretorios existentes
<br>&gt; abaixo do diretorio principal, porém o mesmo não esta retornando esses<br>&gt; valores.<br>&gt; Algum colega poderia avaliar o meu codigo e indicar se existe algo errado ou<br>&gt; uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?
<br><br>Na sua regex do grep tem um \.. esse segundo ponto pode ser qualquer coisa.<br><br>Olha so minha sugestão baseada no seu codigo, onde street e planet sao<br>diretorios.<br><br>frederico@guica:~/Perl$ cat xp.pl<br>
$dir_orig = &quot;/home/frederico/Perl&quot;;<br><br>opendir (DIR,&quot;$dir_orig&quot;) or die &quot;Nao foi possivel abrir o diretorio [<br>$dir_orig ]. Erro: $! \n&quot;;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;@subdir = grep { !/^[\.{1,2}]/&nbsp;&nbsp;&amp;&amp; -d &quot;$dir_orig/$_&quot;&nbsp;&nbsp;} readdir(DIR);
<br>&nbsp;&nbsp;&nbsp;&nbsp;closedir DIR;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;foreach $subdir (@subdir)<br>{<br>&nbsp;&nbsp; print &quot;diretorio: &quot; . $subdir . &quot;\n&quot;;<br>}<br>frederico@guica:~/Perl$ ls<br>jogo.tar.bz2&nbsp;&nbsp;planet&nbsp;&nbsp;streets&nbsp;&nbsp;xp.pl<br>frederico@guica
:~/Perl$ perl xp.pl<br>diretorio: streets<br>diretorio: planet<br>frederico@guica:~/Perl$<br><br>já fiz bastantes scripts para descer em diretorios, para casos que o<br>modulo Find alguma coisa do cpan nao era funcional para mim, neste
<br>caso eu ignoro os &quot;.&quot; e &quot;..&quot; e por isso pus a exclamação. Se vc tirar<br>ele só vai imprimir pontos porque tem um E logico ali. Troca por OU e<br>tira a exclamação e vc tem os pontos .<br><br><br>--
<br>____________________________<br>Frederico Recsky<br>Linux User: 253572<br><a href="http://www.fre.eti.br">http://www.fre.eti.br</a><br><a href="http://sao-paulo.pm.org/">http://sao-paulo.pm.org/</a><br><br>------------------------------
<br><br>Message: 5<br>Date: Tue, 13 Mar 2007 10:45:07 -0300<br>From: &quot;Fernando Oliveira&quot; &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>&gt;<br>Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...
<br>To: &quot;Cascavel Perl Mongers&quot; &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>Message-ID:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;<a href="mailto:f40026c0703130645m50b369eer528fab39ca6b259c@mail.gmail.com">f40026c0703130645m50b369eer528fab39ca6b259c@mail.gmail.com
</a>&gt;<br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>Obrigado! eu vou cobrar!<br><br>Em 13/03/07, Luis Motta Campos&lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>
&gt; escreveu:<br>&gt; On Mar 13, 2007, at 2:32 PM, Fernando Oliveira wrote:<br>&gt; &gt; Desculpe, mas assim ficaria mais inteligivel?<br>&gt; &gt;<br>&gt; &gt; # Nome do diretorio de origem<br>&gt; &gt; $dir_orig = &quot;.&quot;;
<br>&gt; &gt; # $, = separador de lista<br>&gt; &gt; # $\ = terminador<br>&gt; &gt; # $/ = normalmente &quot;\n&quot;<br>&gt; &gt; $,=$\=$/;<br>&gt; &gt; # para todos os arqs e dirs contemplados por ./*<br>&gt; &gt; for(glob $dir_orig.&quot;/*&quot;)
<br>&gt; &gt; {<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;# imprima se for diretorio<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;print if -d<br>&gt; &gt; }<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Eu não sei. :-) Para mim, a primeira forma era clara.<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Juliano, quem tem dúvida é você.<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;Diz por favor se esta ficou mais legível?<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Espero que isso resolva o seu problema.<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Obrigado pela sua paciência em escrever isso duas vezes para a<br>&gt; lista, Fernando. :-)<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Quando eu tiver uma oportunidade, a cerveja é por minha conta, tá
<br>&gt; bem?<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;Putamplexos!<br>&gt; --<br>&gt; Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>&gt; Perl fanatic evangelist, and amateur {cook, photographer}<br>&gt;<br>&gt;<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">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;<br><br><br>--<br>[]&#39;s Fernando<br><br><br>------------------------------<br><br>Message: 6<br>Date: Tue, 13 Mar 2007 11:27:09 -0300<br>From: &quot;Juliano Dantas&quot; &lt;<a href="mailto:juliano.dantas@gmail.com">
juliano.dantas@gmail.com</a>&gt;<br>Subject: Re: [Cascavel-pm] Digest Cascavel-pm, volume 188, assunto 2<br>To: <a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a><br>Message-ID:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;<a href="mailto:d9d2f0ba0703130727l7c04cc74g9fd0fecc3c246c78@mail.gmail.com">
d9d2f0ba0703130727l7c04cc74g9fd0fecc3c246c78@mail.gmail.com</a>&gt;<br>Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br><br>Fernando e Thomas,<br><br>Obrigado pela sugestão, estarei realizando testes e informo o resultado.
<br><br>Abraços<br><br><br>Em 13/03/07, <a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org</a> &lt;<a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org</a>&gt;<br>escreveu:<br>&gt;<br>
&gt; Enviar submissões para a lista de discussão Cascavel-pm para<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a><br>&gt;<br>&gt; Para se cadastrar ou descadastrar via WWW, visite o endereço<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>&gt; ou, via email, envie uma mensagem com a palavra &#39;help&#39; no assunto ou<br>&gt; corpo da mensagem para
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org</a><br>&gt;<br>&gt; Você poderá entrar em contato com a pessoa que gerencia a lista pelo<br>&gt; endereço<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:cascavel-pm-owner@pm.org">
cascavel-pm-owner@pm.org</a><br>&gt;<br>&gt; Quando responder, por favor edite sua linha Assunto assim ela será<br>&gt; mais específica que &quot;Re: Contents of Cascavel-pm digest...&quot;<br>&gt;<br>&gt;<br>&gt; Tópicos de Hoje:
<br>&gt;<br>&gt;&nbsp;&nbsp; 1. Listando sub-diretorios ... (Juliano Dantas)<br>&gt;&nbsp;&nbsp; 2. Re: Listando sub-diretorios ... (Fernando Oliveira)<br>&gt;&nbsp;&nbsp; 3. Re: Listando sub-diretorios ... (Thomas Britis)<br>&gt;&nbsp;&nbsp; 4. Re: Listando sub-diretorios ... (Thomas Britis)
<br>&gt;&nbsp;&nbsp; 5. Re: dúvidas com relação a enviar emails usando módulos Perl<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Alceu R. de Freitas Jr.)<br>&gt;&nbsp;&nbsp; 6. Re: dúvidas com relação a enviar emails usando módulos Perl<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(Luis Motta Campos)<br>
&gt;&nbsp;&nbsp; 7. Re: [Bulk] Re:&nbsp;&nbsp;Listando sub-diretorios ... (Luis Motta Campos)<br>&gt;&nbsp;&nbsp; 8. Re: [Bulk] Re: Listando sub-diretorios ... (Wendel Scardua)<br>&gt;<br>&gt;<br>&gt; ----------------------------------------------------------------------
<br>&gt;<br>&gt; Message: 1<br>&gt; Date: Mon, 12 Mar 2007 17:03:04 -0300<br>&gt; From: &quot;Juliano Dantas&quot; &lt;<a href="mailto:juliano.dantas@gmail.com">juliano.dantas@gmail.com</a>&gt;<br>&gt; Subject: [Cascavel-pm] Listando sub-diretorios ...
<br>&gt; To: <a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a><br>&gt; Message-ID:<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;<a href="mailto:d9d2f0ba0703121303i6212437fr2c750b19f33fcae4@mail.gmail.com">d9d2f0ba0703121303i6212437fr2c750b19f33fcae4@mail.gmail.com
</a>&gt;<br>&gt; Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br>&gt;<br>&gt; Caros colegas,<br>&gt;<br>&gt; criei o codigo abaixo, para coletar os nomes dos sub-diretorios existentes<br>&gt; abaixo do diretorio principal, porém o mesmo não esta retornando esses
<br>&gt; valores.<br>&gt; Algum colega poderia avaliar o meu codigo e indicar se existe algo errado<br>&gt; ou<br>&gt; uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?<br>&gt;<br>&gt;<br>&gt; opendir (DIR,&quot;$dir_orig&quot;) or die &quot;Nao foi possivel abrir o diretorio [
<br>&gt; $dir_orig ]. Erro: $! \n&quot;;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; @subdir = grep { /^\./ &amp;&amp; /^\../ &amp;&amp; -d &quot;$dir_orig/$_&quot; } readdir(DIR);<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; closedir DIR;<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; foreach $subdir (@subdir)<br>
&gt; {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;diretorio: &quot; . $subdir . &quot;\n&quot;;<br>&gt; }<br>&gt;<br>&gt; Grato,<br>&gt;<br>&gt; --<br>&gt; Juliano Dantas Almeida Silva<br>&gt; -------------- Próxima Parte ----------<br>&gt; Um anexo em HTML foi limpo...
<br>&gt; URL:<br>&gt; <a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20070312/b4d298c1/attachment-0001.html">http://mail.pm.org/pipermail/cascavel-pm/attachments/20070312/b4d298c1/attachment-0001.html</a><br>
&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 2<br>&gt; Date: Mon, 12 Mar 2007 17:09:05 -0300<br>&gt; From: &quot;Fernando Oliveira&quot; &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com
</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] Listando sub-diretorios ...<br>&gt; To: &quot;Cascavel Perl Mongers&quot; &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt; Message-ID:<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;
<a href="mailto:f40026c0703121309g321fc1ddl5c54ea8db4fbba32@mail.gmail.com">f40026c0703121309g321fc1ddl5c54ea8db4fbba32@mail.gmail.com</a>&gt;<br>&gt; Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br>&gt;<br>
&gt; perl -e &#39;$dir_orig = &quot;.&quot;; $,=$\=$/; for(glob $dir_orig.&quot;/*&quot;){print if -d}&#39;<br>&gt;<br>&gt; Em 12/03/07, Juliano Dantas&lt;<a href="mailto:juliano.dantas@gmail.com">juliano.dantas@gmail.com
</a>&gt; escreveu:<br>&gt; &gt; Caros colegas,<br>&gt; &gt;<br>&gt; &gt; criei o codigo abaixo, para coletar os nomes dos sub-diretorios<br>&gt; existentes<br>&gt; &gt; abaixo do diretorio principal, porém o mesmo não esta retornando esses
<br>&gt; &gt; valores.<br>&gt; &gt; Algum colega poderia avaliar o meu codigo e indicar se existe algo<br>&gt; errado ou<br>&gt; &gt; uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?<br>&gt; &gt;<br>
&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; opendir (DIR,&quot;$dir_orig&quot;) or die &quot;Nao foi possivel abrir o diretorio [<br>&gt; &gt; $dir_orig ]. Erro: $! \n&quot;;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@subdir = grep { /^\./ &amp;&amp; /^\../ &amp;&amp; -d &quot;$dir_orig/$_&quot; }
<br>&gt; readdir(DIR);<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;closedir DIR;<br>&gt; &gt;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;foreach $subdir (@subdir)<br>&gt; &gt;&nbsp;&nbsp;{<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;diretorio: &quot; . $subdir . &quot;\n&quot;;<br>&gt; &gt;&nbsp;&nbsp;}<br>
&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; Grato,<br>&gt; &gt;<br>&gt; &gt; --<br>&gt; &gt; Juliano Dantas Almeida Silva<br>&gt; &gt; _______________________________________________<br>&gt; &gt; Cascavel-pm mailing list<br>&gt; &gt; 
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>&gt; &gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>&gt; &gt;<br>&gt;<br>&gt;<br>&gt; --
<br>&gt; []&#39;s Fernando<br>&gt;<br>&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 3<br>&gt; Date: Mon, 12 Mar 2007 17:31:01 -0300<br>&gt; From: Thomas Britis &lt;<a href="mailto:thomas@tcnet.com.br">
thomas@tcnet.com.br</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] Listando sub-diretorios ...<br>&gt; To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt; Message-ID: &lt;<a href="mailto:45F5B885.2080208@tcnet.com.br">
45F5B885.2080208@tcnet.com.br</a>&gt;<br>&gt; Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br>&gt;<br>&gt; my $f;<br>&gt;<br>&gt; opendir (DIR, $dir_orig);<br>&gt; while (defined ($f = readdir (DIR))) {<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next if ($f =~ /^\.{1,2}$/);<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;Diretorio: $f\n&quot; if (-d &quot;$dir_orig/$f&quot;);<br>&gt; }<br>&gt;<br>&gt; Juliano Dantas wrote:<br>&gt; &gt; Caros colegas,<br>&gt; &gt;<br>&gt; &gt; criei o codigo abaixo, para coletar os nomes dos sub-diretorios
<br>&gt; &gt; existentes abaixo do diretorio principal, porém o mesmo não esta<br>&gt; &gt; retornando esses valores.<br>&gt; &gt; Algum colega poderia avaliar o meu codigo e indicar se existe algo<br>&gt; &gt; errado ou uma sugestão para melhorar o codigo, fazendo com que, o mesmo
<br>&gt; &gt; funcione?<br>&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; opendir (DIR,&quot;$dir_orig&quot;) or die &quot;Nao foi possivel abrir o diretorio [<br>&gt; &gt; $dir_orig ]. Erro: $! \n&quot;;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@subdir = grep { /^\./ &amp;&amp; /^\../ &amp;&amp; -d &quot;$dir_orig/$_&quot; }
<br>&gt; readdir(DIR);<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;closedir DIR;<br>&gt; &gt;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;foreach $subdir (@subdir)<br>&gt; &gt;&nbsp;&nbsp;{<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;diretorio: &quot; . $subdir . &quot;\n&quot;;<br>&gt; &gt;&nbsp;&nbsp;}<br>
&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; Grato,<br>&gt; &gt;<br>&gt; &gt; --<br>&gt; &gt; Juliano Dantas Almeida Silva<br>&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; ------------------------------------------------------------------------
<br>&gt; &gt;<br>&gt; &gt; _______________________________________________<br>&gt; &gt; Cascavel-pm mailing list<br>&gt; &gt; <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>&gt; &gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>&gt;<br>&gt; --<br>&gt; Thomas Storino Britis<br>&gt; TCNet Informatica e Telecomunicacoes LTDA<br>&gt;<br>&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 4
<br>&gt; Date: Mon, 12 Mar 2007 17:32:33 -0300<br>&gt; From: Thomas Britis &lt;<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] Listando sub-diretorios ...<br>&gt; To: Cascavel Perl Mongers &lt;
<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt; Message-ID: &lt;<a href="mailto:45F5B8E1.5040003@tcnet.com.br">45F5B8E1.5040003@tcnet.com.br</a>&gt;<br>&gt; Content-Type: text/plain; charset=ISO-8859-1; format=flowed
<br>&gt;<br>&gt; Ou ainda:<br>&gt;<br>&gt; my $f;<br>&gt;<br>&gt; opendir (DIR, $dir_orig);<br>&gt; while (defined ($f = readdir (DIR))) {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next if ($f =~ /^\.{1,2}$/ || !-d &quot;$dir_orig/$f&quot;);<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print &quot;Diretorio: $f\n&quot;;
<br>&gt; }<br>&gt;<br>&gt; Juliano Dantas wrote:<br>&gt; &gt; Caros colegas,<br>&gt; &gt;<br>&gt; &gt; criei o codigo abaixo, para coletar os nomes dos sub-diretorios<br>&gt; &gt; existentes abaixo do diretorio principal, porém o mesmo não esta
<br>&gt; &gt; retornando esses valores.<br>&gt; &gt; Algum colega poderia avaliar o meu codigo e indicar se existe algo<br>&gt; &gt; errado ou uma sugestão para melhorar o codigo, fazendo com que, o mesmo<br>&gt; &gt; funcione?
<br>&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; opendir (DIR,&quot;$dir_orig&quot;) or die &quot;Nao foi possivel abrir o diretorio [<br>&gt; &gt; $dir_orig ]. Erro: $! \n&quot;;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;@subdir = grep { /^\./ &amp;&amp; /^\../ &amp;&amp; -d &quot;$dir_orig/$_&quot; }
<br>&gt; readdir(DIR);<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;closedir DIR;<br>&gt; &gt;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;foreach $subdir (@subdir)<br>&gt; &gt;&nbsp;&nbsp;{<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;diretorio: &quot; . $subdir . &quot;\n&quot;;<br>&gt; &gt;&nbsp;&nbsp;}<br>
&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; Grato,<br>&gt; &gt;<br>&gt; &gt; --<br>&gt; &gt; Juliano Dantas Almeida Silva<br>&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; ------------------------------------------------------------------------
<br>&gt; &gt;<br>&gt; &gt; _______________________________________________<br>&gt; &gt; Cascavel-pm mailing list<br>&gt; &gt; <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>&gt; &gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>&gt;<br>&gt; --<br>&gt; Thomas Storino Britis<br>&gt; TCNet Informatica e Telecomunicacoes LTDA<br>&gt;<br>&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 5
<br>&gt; Date: Mon, 12 Mar 2007 20:47:36 -0300 (ART)<br>&gt; From: &quot;Alceu R. de Freitas Jr.&quot; &lt;<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] dúvidas com relação a enviar emails usando
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;módulos Perl<br>&gt; To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt; Message-ID: &lt;<a href="mailto:216592.20882.qm@web30802.mail.mud.yahoo.com">216592.20882.qm@web30802.mail.mud.yahoo.com
</a>&gt;<br>&gt; Content-Type: text/plain; charset=iso-8859-1<br>&gt;<br>&gt;<br>&gt; --- Lorn &lt;<a href="mailto:lorn.br@gmail.com">lorn.br@gmail.com</a>&gt; escreveu:<br>&gt;<br>&gt; &gt; On 3/12/07, Alceu R. de Freitas Jr.
<br>&gt; &gt; &lt;<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a>&gt; wrote:<br>&gt; &gt; &gt; 1 - Não consigo me conectar no Exchange Server<br>&gt; &gt; pela<br>&gt; &gt; &gt; porta 25: eu poderia tentar resolver com o
<br>&gt; &gt; &gt; departamento de TI daqui, mas vai demorar tempo<br>&gt; &gt; demais<br>&gt; &gt; &gt; e eu precisaria disso para ontem.<br>&gt; &gt;<br>&gt; &gt;<br>&gt; &gt; Você consegue fazer telnet ip.do.smtp 25 ?<br>
&gt;<br>&gt; Não. A conexão é derrubada na hora. Eu até poderia<br>&gt; tentar conseguir as informações corretas, mas meu<br>&gt; tempo é curto demais e até explicar que focinho de<br>&gt; porco não é tomada...<br>&gt;<br>
&gt; []&#39;s<br>&gt;<br>&gt;<br>&gt; Alceu Rodrigues de Freitas Junior<br>&gt; --------------------------------------<br>&gt; <a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a><br>&gt; <a href="http://www.imortais.cjb.net">
http://www.imortais.cjb.net</a><br>&gt; -----------------------------------------------------------------------<br>&gt; A well-used door needs no oil on its hinges.<br>&gt; A swift-flowing stream does not grow stagnant.<br>
&gt; Neither sound nor thoughts can travel through a vacuum.<br>&gt; Software rots if not used.<br>&gt; These are great mysteries -- The Tao Of Programming, 5.1<br>&gt;<br>&gt; __________________________________________________
<br>&gt; Fale com seus amigos&nbsp;&nbsp;de graça com o novo Yahoo! Messenger<br>&gt; <a href="http://br.messenger.yahoo.com/">http://br.messenger.yahoo.com/</a><br>&gt;<br>&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 6
<br>&gt; Date: Tue, 13 Mar 2007 09:35:20 +0100<br>&gt; From: Luis Motta Campos &lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] dúvidas com relação a enviar emails usando
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;módulos Perl<br>&gt; To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt; Message-ID: &lt;<a href="mailto:B9EAA8E4-9418-46B3-9237-4BD5E6AFB12E@yahoo.co.uk">B9EAA8E4-9418-46B3-9237-4BD5E6AFB12E@yahoo.co.uk
</a>&gt;<br>&gt; Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed<br>&gt;<br>&gt; On Mar 12, 2007, at 5:16 PM, Alceu R. de Freitas Jr. wrote:<br>&gt; &gt; Valeu pelas dias Champs... eu cheguei no Email::
<br>&gt; &gt; depois de alguma pesquisas.<br>&gt; &gt;<br>&gt; &gt; Estou com alguns problemas para usá-lo, no entanto:<br>&gt; &gt;<br>&gt; &gt; 1 - Não consigo me conectar no Exchange Server pela<br>&gt; &gt; porta 25: eu poderia tentar resolver com o
<br>&gt; &gt; departamento de TI daqui, mas vai demorar tempo demais<br>&gt; &gt; e eu precisaria disso para ontem.<br>&gt;<br>&gt;&nbsp;&nbsp; O MacGyver vai te ajudar com isso: ele implementou o<br>&gt; Net::SMTP::Server. :-D<br>
&gt;<br>&gt;&nbsp;&nbsp; <a href="http://search.cpan.org/~macgyver/SMTP-Server-1.1/Server.pm">http://search.cpan.org/~macgyver/SMTP-Server-1.1/Server.pm</a><br>&gt;<br>&gt; &gt; 2 - Eu tentei utilizar OLE em conjunto com o Outlook<br>
&gt; &gt; como alternativa, mas isso trouxe outros problemas,<br>&gt; &gt; como:<br>&gt; &gt; a - patches de segurança impedem o envio automático de<br>&gt; &gt; mensagens, com uma caixa de diálogo rídicula que me<br>&gt; &gt; força esperar 5 segundos para confirmar o envio.
<br>&gt;<br>&gt;&nbsp;&nbsp; Ninguém mandou usar Sistemas Operacionais de brinquedo... ;-)<br>&gt;&nbsp;&nbsp; Descarta isso, carinha. Do ponto de vista do windows,<br>&gt; implementando coisas assim, você parece um vírus ou worm de<br>&gt; computador... ;-) e ninguém quer que um programa Perl seja confundido
<br>&gt; com uma coisa tão... tão... tão baixa. ;-)<br>&gt;<br>&gt; &gt; b - não consigo colocar conteúdo HTML no email, como<br>&gt; &gt; formatar uma tabela. Eu tentei usar o<br>&gt; &gt; Email::MIME::CreateHTML mas não funcionou, mesmo
<br>&gt; &gt; utilizando os métodos body e body_raw do módulo<br>&gt; &gt; Email::MIME. O email no Outlook continua sendo<br>&gt; &gt; exibindo o código HTML.<br>&gt; &gt;<br>&gt; &gt; Agora estou tentando utilizar MAPI para fazer o envio,
<br>&gt; &gt; utilizando OLE. Alguma dica?<br>&gt;<br>&gt;&nbsp;&nbsp; Parece que o teu cliente de email não está interpretando o teu<br>&gt; bloco MIME como deveria. Ele teima em tratar como &quot;plain-text&quot; uma<br>&gt; coisa que você deseja que seja compreendida como HTML. Você precisa
<br>&gt; construir o teu bloco MIME corretamente, eu acho que a forma mais<br>&gt; fácil de fazer isso é usar um dos módulos de codificação MIME<br>&gt; disponíveis. Eu recomendo o MIME-tools [<a href="http://search.cpan.org/">
http://search.cpan.org/</a><br>&gt; ~dskoll/MIME-tools-5.420/lib/MIME/Tools.pm], e, para ajudar na<br>&gt; composição correta dos SMTP headers, use o MIME::Head [http://<br>&gt; <a href="http://search.cpan.org/~dskoll/MIME-tools-5.420/lib/MIME/Head.pm">
search.cpan.org/~dskoll/MIME-tools-5.420/lib/MIME/Head.pm</a>].<br>&gt;<br>&gt;&nbsp;&nbsp; Isto deve resolver o teu problema. Me dá notícia quando tiver uma<br>&gt; boa implementação, tá?<br>&gt;&nbsp;&nbsp; Boa sorte!<br>&gt;&nbsp;&nbsp; Putamplexos!
<br>&gt; --<br>&gt; Luis Motta Campos is a software engineer,<br>&gt; perl fanatic evangelist, and amateur {cook, photographer}<br>&gt;<br>&gt;<br>&gt;<br>&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 7
<br>&gt; Date: Tue, 13 Mar 2007 09:44:09 +0100<br>&gt; From: Luis Motta Campos &lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] [Bulk] Re:&nbsp;&nbsp;Listando sub-diretorios ...
<br>&gt; To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>&gt; Message-ID: &lt;<a href="mailto:C6AF1A2D-6BA9-4B28-9C5E-75C98232B026@yahoo.co.uk">C6AF1A2D-6BA9-4B28-9C5E-75C98232B026@yahoo.co.uk
</a>&gt;<br>&gt; Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed<br>&gt;<br>&gt; On Mar 12, 2007, at 9:09 PM, Fernando Oliveira wrote:<br>&gt; &gt; perl -e &#39;$dir_orig = &quot;.&quot;; $,=$\=$/; for(glob $dir_orig.&quot;/*&quot;){print
<br>&gt; &gt; if -d}&#39;<br>&gt;<br>&gt;&nbsp;&nbsp; Brilhante, Fernando.<br>&gt;&nbsp;&nbsp; Mas o Juliano é um novato.<br>&gt;&nbsp;&nbsp; Será que você é bom o bastante para implementar a mesma coisa em<br>&gt; 10 linhas?<br>&gt;<br>&gt;&nbsp;&nbsp; Fluência em Perl quer dizer fazer a pessoa com quem você fala te
<br>&gt; entender, não dizer tudo o que você precisa com três caracteres... ;-)<br>&gt;<br>&gt;&nbsp;&nbsp; Putamplexos!<br>&gt; --<br>&gt; Luis Motta Campos is a software engineer,<br>&gt; perl fanatic evangelist, and amateur {cook, photographer}
<br>&gt;<br>&gt;<br>&gt;<br>&gt;<br>&gt; ------------------------------<br>&gt;<br>&gt; Message: 8<br>&gt; Date: Tue, 13 Mar 2007 08:08:04 -0300<br>&gt; From: &quot;Wendel Scardua&quot; &lt;<a href="mailto:wendelscardua@gmail.com">
wendelscardua@gmail.com</a>&gt;<br>&gt; Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...<br>&gt; To: &quot;Cascavel Perl Mongers&quot; &lt;<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>&gt;<br>
&gt; Message-ID:<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;<a href="mailto:726229b50703130408r227b6518j69d1a61528521580@mail.gmail.com">726229b50703130408r227b6518j69d1a61528521580@mail.gmail.com</a>&gt;<br>&gt; Content-Type: text/plain; charset=&quot;iso-8859-1&quot;
<br>&gt;<br>&gt; On 3/13/07, Luis Motta Campos &lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt; wrote:<br>&gt; &gt;<br>&gt; &gt; On Mar 12, 2007, at 9:09 PM, Fernando Oliveira wrote:<br>
&gt; &gt; &gt; perl -e &#39;$dir_orig = &quot;.&quot;; $,=$\=$/; for(glob $dir_orig.&quot;/*&quot;){print<br>&gt; &gt; &gt; if -d}&#39;<br>&gt; &gt;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;Brilhante, Fernando.<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;Mas o Juliano é um novato.
<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;Será que você é bom o bastante para implementar a mesma coisa em<br>&gt; &gt; 10 linhas?<br>&gt; &gt;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp;Fluência em Perl quer dizer fazer a pessoa com quem você fala te<br>&gt; &gt; entender, não dizer tudo o que você precisa com três caracteres... ;-)
<br>&gt; &gt;<br>&gt; &gt;<br>&gt; Em resumo: *primeiro* a resposta &quot;séria&quot;, e só *depois* a gente joga golfe<br>&gt; ^_^b<br>&gt;<br>&gt; []s<br>&gt; Wendel<br>&gt; --<br>&gt; &quot;Não ajustar o auto-ajuste&quot; - 
<a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a><br>&gt; -------------- Próxima Parte ----------<br>&gt; Um anexo em HTML foi limpo...<br>&gt; URL:<br>&gt; <a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20070313/d2047c8c/attachment.html">
http://mail.pm.org/pipermail/cascavel-pm/attachments/20070313/d2047c8c/attachment.html</a><br>&gt;<br>&gt; ------------------------------<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">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>&gt;<br>&gt; Fim da Digest Cascavel-pm, volume 188, assunto 2
<br>&gt; ************************************************<br>&gt;<br><br><br><br>--<br>Juliano Dantas Almeida Silva<br>-------------- Próxima Parte ----------<br>Um anexo em HTML foi limpo...<br>URL: <a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20070313/b9b00e49/attachment.html">
http://mail.pm.org/pipermail/cascavel-pm/attachments/20070313/b9b00e49/attachment.html</a><br><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">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br>Fim da Digest Cascavel-pm, volume 188, assunto 3<br>************************************************
<br></blockquote></div><br><br clear="all"><br>-- <br>Juliano Dantas Almeida Silva