<div>Fernando e Thomas,</div>
<div> </div>
<div>Obrigado pela sugestão, estarei realizando testes e informo o resultado.</div>
<div> </div>
<div>Abraços<br><br> </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> <<a href="mailto:cascavel-pm-request@pm.org">cascavel-pm-request@pm.org
</a>> 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> <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> <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 'help' no assunto ou
<br>corpo da mensagem para<br> <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> <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 "Re: Contents of Cascavel-pm digest..."<br><br><br>Tópicos de Hoje:<br><br> 1. Listando sub-diretorios ... (Juliano Dantas)
<br> 2. Re: Listando sub-diretorios ... (Fernando Oliveira)<br> 3. Re: Listando sub-diretorios ... (Thomas Britis)<br> 4. Re: Listando sub-diretorios ... (Thomas Britis)<br> 5. Re: dúvidas com relação a enviar emails usando módulos Perl
<br> (Alceu R. de Freitas Jr.)<br> 6. Re: dúvidas com relação a enviar emails usando módulos Perl<br> (Luis Motta Campos)<br> 7. Re: [Bulk] Re: Listando sub-diretorios ... (Luis Motta Campos)<br> 8. Re: [Bulk] Re: Listando sub-diretorios ... (Wendel Scardua)
<br><br><br>----------------------------------------------------------------------<br><br>Message: 1<br>Date: Mon, 12 Mar 2007 17:03:04 -0300<br>From: "Juliano Dantas" <<a href="mailto:juliano.dantas@gmail.com">
juliano.dantas@gmail.com</a>><br>Subject: [Cascavel-pm] Listando sub-diretorios ...<br>To: <a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a><br>Message-ID:<br> <<a href="mailto:d9d2f0ba0703121303i6212437fr2c750b19f33fcae4@mail.gmail.com">
d9d2f0ba0703121303i6212437fr2c750b19f33fcae4@mail.gmail.com</a>><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>Caros colegas,<br><br>criei o codigo abaixo, para coletar os nomes dos sub-diretorios existentes
<br>abaixo do diretorio principal, porém o mesmo não esta retornando esses<br>valores.<br>Algum colega poderia avaliar o meu codigo e indicar se existe algo errado ou<br>uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?
<br><br><br>opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [<br>$dir_orig ]. Erro: $! \n";<br> @subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);
<br> closedir DIR;<br><br> foreach $subdir (@subdir)<br>{<br> print "diretorio: " . $subdir . "\n";<br>}<br><br>Grato,<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/20070312/b4d298c1/attachment-0001.html">http://mail.pm.org/pipermail/cascavel-pm/attachments/20070312/b4d298c1/attachment-0001.html
</a><br><br>------------------------------<br><br>Message: 2<br>Date: Mon, 12 Mar 2007 17:09:05 -0300<br>From: "Fernando Oliveira" <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>><br>
Subject: Re: [Cascavel-pm] Listando sub-diretorios ...<br>To: "Cascavel Perl Mongers" <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>Message-ID:<br> <<a href="mailto:f40026c0703121309g321fc1ddl5c54ea8db4fbba32@mail.gmail.com">
f40026c0703121309g321fc1ddl5c54ea8db4fbba32@mail.gmail.com</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>perl -e '$dir_orig = "."; $,=$\=$/; for(glob $dir_orig."/*"){print if -d}'
<br><br>Em 12/03/07, Juliano Dantas<<a href="mailto:juliano.dantas@gmail.com">juliano.dantas@gmail.com</a>> escreveu:<br>> Caros colegas,<br>><br>> criei o codigo abaixo, para coletar os nomes dos sub-diretorios existentes
<br>> abaixo do diretorio principal, porém o mesmo não esta retornando esses<br>> valores.<br>> Algum colega poderia avaliar o meu codigo e indicar se existe algo errado ou<br>> uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?
<br>><br>><br>><br>> opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [<br>> $dir_orig ]. Erro: $! \n";<br>> @subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);
<br>> closedir DIR;<br>><br>> foreach $subdir (@subdir)<br>> {<br>> print "diretorio: " . $subdir . "\n";<br>> }<br>><br>><br>> Grato,<br>><br>> --<br>> Juliano Dantas Almeida Silva
<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><br><br>--<br>[]'s Fernando<br><br><br>------------------------------<br><br>Message: 3<br>Date: Mon, 12 Mar 2007 17:31:01 -0300<br>From: Thomas Britis <
<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a>><br>Subject: Re: [Cascavel-pm] Listando sub-diretorios ...<br>To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>
Message-ID: <<a href="mailto:45F5B885.2080208@tcnet.com.br">45F5B885.2080208@tcnet.com.br</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>my $f;<br><br>opendir (DIR, $dir_orig);<br>while (defined ($f = readdir (DIR))) {
<br> next if ($f =~ /^\.{1,2}$/);<br> print "Diretorio: $f\n" if (-d "$dir_orig/$f");<br>}<br><br>Juliano Dantas wrote:<br>> Caros colegas,<br>><br>> criei o codigo abaixo, para coletar os nomes dos sub-diretorios
<br>> existentes abaixo do diretorio principal, porém o mesmo não esta<br>> retornando esses valores.<br>> Algum colega poderia avaliar o meu codigo e indicar se existe algo<br>> errado ou uma sugestão para melhorar o codigo, fazendo com que, o mesmo
<br>> funcione?<br>><br>><br>> opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [<br>> $dir_orig ]. Erro: $! \n";<br>> @subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);
<br>> closedir DIR;<br>><br>> foreach $subdir (@subdir)<br>> {<br>> print "diretorio: " . $subdir . "\n";<br>> }<br>><br>><br>> Grato,<br>><br>> --<br>> Juliano Dantas Almeida Silva
<br>><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>--<br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>
<br><br>------------------------------<br><br>Message: 4<br>Date: Mon, 12 Mar 2007 17:32:33 -0300<br>From: Thomas Britis <<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a>><br>Subject: Re: [Cascavel-pm] Listando sub-diretorios ...
<br>To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>Message-ID: <<a href="mailto:45F5B8E1.5040003@tcnet.com.br">45F5B8E1.5040003@tcnet.com.br</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed
<br><br>Ou ainda:<br><br>my $f;<br><br>opendir (DIR, $dir_orig);<br>while (defined ($f = readdir (DIR))) {<br> next if ($f =~ /^\.{1,2}$/ || !-d "$dir_orig/$f");<br> print "Diretorio: $f\n";
<br>}<br><br>Juliano Dantas wrote:<br>> Caros colegas,<br>><br>> criei o codigo abaixo, para coletar os nomes dos sub-diretorios<br>> existentes abaixo do diretorio principal, porém o mesmo não esta<br>> retornando esses valores.
<br>> Algum colega poderia avaliar o meu codigo e indicar se existe algo<br>> errado ou uma sugestão para melhorar o codigo, fazendo com que, o mesmo<br>> funcione?<br>><br>><br>> opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [
<br>> $dir_orig ]. Erro: $! \n";<br>> @subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);<br>> closedir DIR;<br>><br>> foreach $subdir (@subdir)
<br>> {<br>> print "diretorio: " . $subdir . "\n";<br>> }<br>><br>><br>> Grato,<br>><br>> --<br>> Juliano Dantas Almeida Silva<br>><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>--<br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br><br><br>------------------------------<br><br>Message: 5<br>Date: Mon, 12 Mar 2007 20:47:36 -0300 (ART)
<br>From: "Alceu R. de Freitas Jr." <<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a>><br>Subject: Re: [Cascavel-pm] dúvidas com relação a enviar emails usando<br> módulos Perl<br>
To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>Message-ID: <<a href="mailto:216592.20882.qm@web30802.mail.mud.yahoo.com">216592.20882.qm@web30802.mail.mud.yahoo.com</a>>
<br>Content-Type: text/plain; charset=iso-8859-1<br><br><br>--- Lorn <<a href="mailto:lorn.br@gmail.com">lorn.br@gmail.com</a>> escreveu:<br><br>> On 3/12/07, Alceu R. de Freitas Jr.<br>> <<a href="mailto:glasswalk3r@yahoo.com.br">
glasswalk3r@yahoo.com.br</a>> wrote:<br>> > 1 - Não consigo me conectar no Exchange Server<br>> pela<br>> > porta 25: eu poderia tentar resolver com o<br>> > departamento de TI daqui, mas vai demorar tempo
<br>> demais<br>> > e eu precisaria disso para ontem.<br>><br>><br>> Você consegue fazer telnet ip.do.smtp 25 ?<br><br>Não. A conexão é derrubada na hora. Eu até poderia<br>tentar conseguir as informações corretas, mas meu
<br>tempo é curto demais e até explicar que focinho de<br>porco não é tomada...<br><br>[]'s<br><br><br>Alceu Rodrigues de Freitas Junior<br>--------------------------------------<br><a href="mailto:glasswalk3r@yahoo.com.br">
glasswalk3r@yahoo.com.br</a><br><a href="http://www.imortais.cjb.net">http://www.imortais.cjb.net</a><br>-----------------------------------------------------------------------<br>A well-used door needs no oil on its hinges.
<br>A swift-flowing stream does not grow stagnant.<br>Neither sound nor thoughts can travel through a vacuum.<br>Software rots if not used.<br>These are great mysteries -- The Tao Of Programming, 5.1<br><br>__________________________________________________
<br>Fale com seus amigos de graça com o novo Yahoo! Messenger<br><a href="http://br.messenger.yahoo.com/">http://br.messenger.yahoo.com/</a><br><br><br>------------------------------<br><br>Message: 6<br>Date: Tue, 13 Mar 2007 09:35:20 +0100
<br>From: Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>><br>Subject: Re: [Cascavel-pm] dúvidas com relação a enviar emails usando<br> módulos Perl<br>To: Cascavel Perl Mongers <
<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>Message-ID: <<a href="mailto:B9EAA8E4-9418-46B3-9237-4BD5E6AFB12E@yahoo.co.uk">B9EAA8E4-9418-46B3-9237-4BD5E6AFB12E@yahoo.co.uk</a>><br>Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed
<br><br>On Mar 12, 2007, at 5:16 PM, Alceu R. de Freitas Jr. wrote:<br>> Valeu pelas dias Champs... eu cheguei no Email::<br>> depois de alguma pesquisas.<br>><br>> Estou com alguns problemas para usá-lo, no entanto:
<br>><br>> 1 - Não consigo me conectar no Exchange Server pela<br>> porta 25: eu poderia tentar resolver com o<br>> departamento de TI daqui, mas vai demorar tempo demais<br>> e eu precisaria disso para ontem.
<br><br> O MacGyver vai te ajudar com isso: ele implementou o<br>Net::SMTP::Server. :-D<br><br> <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><br>> 2 - Eu tentei utilizar OLE em conjunto com o Outlook<br>> como alternativa, mas isso trouxe outros problemas,<br>> como:<br>> a - patches de segurança impedem o envio automático de<br>> mensagens, com uma caixa de diálogo rídicula que me
<br>> força esperar 5 segundos para confirmar o envio.<br><br> Ninguém mandou usar Sistemas Operacionais de brinquedo... ;-)<br> Descarta isso, carinha. Do ponto de vista do windows,<br>implementando coisas assim, você parece um vírus ou worm de
<br>computador... ;-) e ninguém quer que um programa Perl seja confundido<br>com uma coisa tão... tão... tão baixa. ;-)<br><br>> b - não consigo colocar conteúdo HTML no email, como<br>> formatar uma tabela. Eu tentei usar o
<br>> Email::MIME::CreateHTML mas não funcionou, mesmo<br>> utilizando os métodos body e body_raw do módulo<br>> Email::MIME. O email no Outlook continua sendo<br>> exibindo o código HTML.<br>><br>> Agora estou tentando utilizar MAPI para fazer o envio,
<br>> utilizando OLE. Alguma dica?<br><br> Parece que o teu cliente de email não está interpretando o teu<br>bloco MIME como deveria. Ele teima em tratar como "plain-text" uma<br>coisa que você deseja que seja compreendida como HTML. Você precisa
<br>construir o teu bloco MIME corretamente, eu acho que a forma mais<br>fácil de fazer isso é usar um dos módulos de codificação MIME<br>disponíveis. Eu recomendo o MIME-tools [<a href="http://search.cpan.org/">http://search.cpan.org/
</a><br>~dskoll/MIME-tools-5.420/lib/MIME/Tools.pm], e, para ajudar na<br>composição correta dos SMTP headers, use o MIME::Head [http://<br><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><br> Isto deve resolver o teu problema. Me dá notícia quando tiver uma<br>boa implementação, tá?<br> Boa sorte!<br> Putamplexos!<br>--<br>Luis Motta Campos is a software engineer,<br>perl fanatic evangelist, and amateur {cook, photographer}
<br><br><br><br><br>------------------------------<br><br>Message: 7<br>Date: Tue, 13 Mar 2007 09:44:09 +0100<br>From: Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>>
<br>Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...<br>To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>Message-ID: <<a href="mailto:C6AF1A2D-6BA9-4B28-9C5E-75C98232B026@yahoo.co.uk">
C6AF1A2D-6BA9-4B28-9C5E-75C98232B026@yahoo.co.uk</a>><br>Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed<br><br>On Mar 12, 2007, at 9:09 PM, Fernando Oliveira wrote:<br>> perl -e '$dir_orig = "."; $,=$\=$/; for(glob $dir_orig."/*"){print
<br>> if -d}'<br><br> Brilhante, Fernando.<br> Mas o Juliano é um novato.<br> Será que você é bom o bastante para implementar a mesma coisa em<br>10 linhas?<br><br> Fluência em Perl quer dizer fazer a pessoa com quem você fala te
<br>entender, não dizer tudo o que você precisa com três caracteres... ;-)<br><br> Putamplexos!<br>--<br>Luis Motta Campos is a software engineer,<br>perl fanatic evangelist, and amateur {cook, photographer}<br><br><br><br>
<br>------------------------------<br><br>Message: 8<br>Date: Tue, 13 Mar 2007 08:08:04 -0300<br>From: "Wendel Scardua" <<a href="mailto:wendelscardua@gmail.com">wendelscardua@gmail.com</a>><br>Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...
<br>To: "Cascavel Perl Mongers" <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>Message-ID:<br> <<a href="mailto:726229b50703130408r227b6518j69d1a61528521580@mail.gmail.com">726229b50703130408r227b6518j69d1a61528521580@mail.gmail.com
</a>><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>On 3/13/07, Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>> wrote:<br>><br>> On Mar 12, 2007, at 9:09 PM, Fernando Oliveira wrote:
<br>> > perl -e '$dir_orig = "."; $,=$\=$/; for(glob $dir_orig."/*"){print<br>> > if -d}'<br>><br>> Brilhante, Fernando.<br>> Mas o Juliano é um novato.<br>> Será que você é bom o bastante para implementar a mesma coisa em
<br>> 10 linhas?<br>><br>> Fluência em Perl quer dizer fazer a pessoa com quem você fala te<br>> entender, não dizer tudo o que você precisa com três caracteres... ;-)<br>><br>><br>Em resumo: *primeiro* a resposta "séria", e só *depois* a gente joga golfe
<br>^_^b<br><br>[]s<br>Wendel<br>--<br>"Não ajustar o auto-ajuste" - <a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a><br>-------------- Próxima Parte ----------<br>Um anexo em HTML foi limpo...
<br>URL: <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><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 2<br>************************************************<br></blockquote></div><br><br clear="all"><br>-- <br>Juliano Dantas Almeida Silva