[Cascavel-pm] Digest Cascavel-pm, volume 188, assunto 3

Juliano Dantas juliano.dantas em gmail.com
Terça Março 13 07:47:28 PDT 2007


Caros colegas,

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.
Pelo que entendi da filosofia do grupo, é que, aqui praticasse mais 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.
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.

Agradeço a todos.

Um forte abraço.



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. Re: [Bulk] Re: Listando sub-diretorios ... (Luis Motta Campos)
>   2. Re: [Bulk] Re: Listando sub-diretorios ... (Fernando Oliveira)
>   3. Re: [Bulk] Re: Listando sub-diretorios ... (Luis Motta Campos)
>   4. Re: Listando sub-diretorios ... (Frederico Recsky)
>   5. Re: [Bulk] Re: Listando sub-diretorios ... (Fernando Oliveira)
>   6. Re: Digest Cascavel-pm, volume 188, assunto 2 (Juliano Dantas)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Tue, 13 Mar 2007 12:16:21 +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: <B07201F0-4C31-4BE2-96E3-EC81A84D5FE7 em yahoo.co.uk>
> Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed
>
> On Mar 13, 2007, at 12:08 PM, Wendel Scardua wrote:
> > Em resumo: *primeiro* a resposta "séria", e só *depois* a gente
> > joga golfe  ^_^b
>
>   Boa, mas a gente pode jogar golfe em qualquer ordem, desde que a
> resposta "inteligível" apareça antes que o pessoal comece a sentir
> desespero... ;^)
>
>   Wendel++ # objetivo
>   Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
>
>
>
>
> ------------------------------
>
> Message: 2
> Date: Tue, 13 Mar 2007 10:32:20 -0300
> From: "Fernando Oliveira" <fernandocorrea em gmail.com>
> Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
>        <f40026c0703130632n3ac84dbvd582e02df1088bf0 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Desculpe, mas assim ficaria mais inteligivel?
>
> # Nome do diretorio de origem
> $dir_orig = ".";
> # $, = separador de lista
> # $\ = terminador
> # $/ = normalmente "\n"
> $,=$\=$/;
> # para todos os arqs e dirs contemplados por ./*
> for(glob $dir_orig."/*")
> {
>   # imprima se for diretorio
>   print if -d
> }
>
> Em 13/03/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> > 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}
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> []'s Fernando
>
>
> ------------------------------
>
> Message: 3
> Date: Tue, 13 Mar 2007 14:39:38 +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: <E3D954F6-EC28-445D-BA99-4694CA9D23A7 em yahoo.co.uk>
> Content-Type: text/plain; charset=ISO-8859-1; delsp=yes; format=flowed
>
> On Mar 13, 2007, at 2:32 PM, Fernando Oliveira wrote:
> > Desculpe, mas assim ficaria mais inteligivel?
> >
> > # Nome do diretorio de origem
> > $dir_orig = ".";
> > # $, = separador de lista
> > # $\ = terminador
> > # $/ = normalmente "\n"
> > $,=$\=$/;
> > # para todos os arqs e dirs contemplados por ./*
> > for(glob $dir_orig."/*")
> > {
> >    # imprima se for diretorio
> >    print if -d
> > }
>
>   Eu não sei. :-) Para mim, a primeira forma era clara.
>   Juliano, quem tem dúvida é você.
>   Diz por favor se esta ficou mais legível?
>   Espero que isso resolva o seu problema.
>   Obrigado pela sua paciência em escrever isso duas vezes para a
> lista, Fernando. :-)
>   Quando eu tiver uma oportunidade, a cerveja é por minha conta, tá
> bem?
>   Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
>
>
>
>
>
> ------------------------------
>
> Message: 4
> Date: Tue, 13 Mar 2007 10:42:28 -0300
> From: "Frederico Recsky" <frederico em gmail.com>
> Subject: Re: [Cascavel-pm] Listando sub-diretorios ...
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
>        <88fe68ee0703130642p171edc44ybded72509e997be1 em mail.gmail.com>
> Content-Type: text/plain; charset=UTF-8; format=flowed
>
> Olá
>
> On 3/12/07, Juliano Dantas <juliano.dantas em gmail.com> 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?
>
> Na sua regex do grep tem um \.. esse segundo ponto pode ser qualquer
> coisa.
>
> Olha so minha sugestão baseada no seu codigo, onde street e planet sao
> diretorios.
>
> frederico em guica:~/Perl$ cat xp.pl
> $dir_orig = "/home/frederico/Perl";
>
> opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [
> $dir_orig ]. Erro: $! \n";
>
>     @subdir = grep { !/^[\.{1,2}]/  && -d "$dir_orig/$_"  } readdir(DIR);
>     closedir DIR;
>
>     foreach $subdir (@subdir)
> {
>    print "diretorio: " . $subdir . "\n";
> }
> frederico em guica:~/Perl$ ls
> jogo.tar.bz2  planet  streets  xp.pl
> frederico em guica:~/Perl$ perl xp.pl
> diretorio: streets
> diretorio: planet
> frederico em guica:~/Perl$
>
> já fiz bastantes scripts para descer em diretorios, para casos que o
> modulo Find alguma coisa do cpan nao era funcional para mim, neste
> caso eu ignoro os "." e ".." e por isso pus a exclamação. Se vc tirar
> ele só vai imprimir pontos porque tem um E logico ali. Troca por OU e
> tira a exclamação e vc tem os pontos .
>
>
> --
> ____________________________
> Frederico Recsky
> Linux User: 253572
> http://www.fre.eti.br
> http://sao-paulo.pm.org/
>
> ------------------------------
>
> Message: 5
> Date: Tue, 13 Mar 2007 10:45:07 -0300
> From: "Fernando Oliveira" <fernandocorrea em gmail.com>
> Subject: Re: [Cascavel-pm] [Bulk] Re: Listando sub-diretorios ...
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
>        <f40026c0703130645m50b369eer528fab39ca6b259c em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Obrigado! eu vou cobrar!
>
> Em 13/03/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> > On Mar 13, 2007, at 2:32 PM, Fernando Oliveira wrote:
> > > Desculpe, mas assim ficaria mais inteligivel?
> > >
> > > # Nome do diretorio de origem
> > > $dir_orig = ".";
> > > # $, = separador de lista
> > > # $\ = terminador
> > > # $/ = normalmente "\n"
> > > $,=$\=$/;
> > > # para todos os arqs e dirs contemplados por ./*
> > > for(glob $dir_orig."/*")
> > > {
> > >    # imprima se for diretorio
> > >    print if -d
> > > }
> >
> >    Eu não sei. :-) Para mim, a primeira forma era clara.
> >    Juliano, quem tem dúvida é você.
> >    Diz por favor se esta ficou mais legível?
> >    Espero que isso resolva o seu problema.
> >    Obrigado pela sua paciência em escrever isso duas vezes para a
> > lista, Fernando. :-)
> >    Quando eu tiver uma oportunidade, a cerveja é por minha conta, tá
> > bem?
> >    Putamplexos!
> > --
> > Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> > Perl fanatic evangelist, and amateur {cook, photographer}
> >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> []'s Fernando
>
>
> ------------------------------
>
> Message: 6
> Date: Tue, 13 Mar 2007 11:27:09 -0300
> From: "Juliano Dantas" <juliano.dantas em gmail.com>
> Subject: Re: [Cascavel-pm] Digest Cascavel-pm, volume 188, assunto 2
> To: cascavel-pm em pm.org
> Message-ID:
>        <d9d2f0ba0703130727l7c04cc74g9fd0fecc3c246c78 em mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> 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.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 3
> ************************************************
>



-- 
Juliano Dantas Almeida Silva
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070313/4fabe579/attachment-0001.html 


Mais detalhes sobre a lista de discussão Cascavel-pm