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