From luismottacampos em yahoo.co.uk  Sat Sep  1 06:55:37 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Sat, 1 Sep 2007 15:55:37 +0200
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <C625417B-D100-467F-BCCB-DA1A4101BCC2@gmail.com>
References: <20070831_202332_027277.rafamv1@ig.com.br>
	<C625417B-D100-467F-BCCB-DA1A4101BCC2@gmail.com>
Message-ID: <200709011555.37586.luismottacampos@yahoo.co.uk>

On Friday 31 August 2007 23:05, Nelson Ferraz wrote:
> >>> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D
> >
> > system ("tail -3 arquivo");
>
> Rafael,
>
> Tem dois erros aí:
>
> 1) system não retorna os valores do programa externo; para ler o
> resultado você precisaria usar backticks:
>
> 	my @result = `tail -n 3 arquivo`;

  Argh. Funciona, mas é feio.
  Tente usar open para a mesma coisa:

  open my $programa, '<', '/caminho/para/programa|'
    or die $!;
  # $programa é um filehandle, leia a saída do seu programa daqui
  close $programa or die $!;

  Isso é mais elegante e permite tratar melhor os erros, e ainda permite que 
você leia a saída do programa em "parcelas" (com sysread(), por exemplo). 
Para que você quer ler a saída do programa em "prestações"? Bom, se você 
tiver uma saída muito grande, ler à prestação pode economizar MUITA 
memória...

> 2) você deve evitar usar chamadas para o sistema (system e backticks)
> quando você pode resolver seu problema em perl.

  Tem todo o meu apoio! Não existe um módulo para fazer 
seja-lá-o-que-você-quer?

> Na verdade o #2 é mais um alerta do que um erro. Você pode fazer da
> maneira como sugeriu, mas existem soluções melhores.

  Onde você leu "soluções melhores", leia "Soluções...":

  Mais baratas
  Mais simples
  Mais elegantes
  Mais fáceis de manter
  Mais fáceis de extender
  Mais rápidas
  Mais rentáveis
  
  Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}

From karentaga em gmail.com  Sat Sep  1 15:34:23 2007
From: karentaga em gmail.com (Karen Taga)
Date: Sat, 1 Sep 2007 19:34:23 -0300
Subject: [Cascavel-pm] Download de arquivo
Message-ID: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>

Tenho o seguinte código em javascript para salvar arquivos localmente:

        newFrame.document.open("text/html","replace");
        newFrame.document.write("blah blah blah");
        newFrame.document.close();
        newFrame.focus();
        newFrame.document.execCommand('SaveAs',false,'date.tax');

ele funciona bem no ie, mas não no firefox... alguem conhece uma
alternativa? ha um script em perl para fazer isso?

[]´s
Karen
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070901/93d5eeda/attachment.html 

From edencardim em gmail.com  Sat Sep  1 16:39:13 2007
From: edencardim em gmail.com (eden)
Date: Sat, 1 Sep 2007 20:39:13 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
Message-ID: <3de55ead0709011639s3a6480c9sbb151aa795adb2b4@mail.gmail.com>

On 9/1/07, Karen Taga <karentaga em gmail.com> wrote:
> Tenho o seguinte código em javascript para salvar arquivos localmente:
>
>         newFrame.document.open("text/html","replace");
>         newFrame.document.write("blah blah blah");
>         newFrame.document.close();
>         newFrame.focus();
>         newFrame.document.execCommand('SaveAs',false,'date.tax');
>
> ele funciona bem no ie, mas não no firefox... alguem conhece uma
> alternativa? ha um script em perl para fazer isso?

Na maioria dos casos, o perl roda no lado do servidor. Existe uma
solução client-side chamado perlscript mas pouca gente usa então não
dá para contar com ela. Porque você não serve os arquivos por http
como é feito normalmente em casos como esse?

-- 
edenc.vox.com

From glasswalk3r em hotmail.com  Sun Sep  2 07:39:00 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Sun, 2 Sep 2007 17:39:00 +0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
Message-ID: <BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>

Date: Sat, 1 Sep 2007 19:34:23 -0300
From: karentaga em gmail.com

Tenho o seguinte código em javascript para salvar arquivos localmente:

        newFrame.document.open("text/html","replace");
        newFrame.document.write("blah blah blah");
        
newFrame.document.close();
        newFrame.focus();
        newFrame.document.execCommand('SaveAs',false,'date.tax');

ele funciona bem no ie, mas não no firefox... alguem conhece uma alternativa? ha um script em perl para fazer isso?


Karen, esse assunto é off-topic da lista... quando mandar dúvidas assim, escreva [off-topic] no assunto do email, afinal isso é uma lista sobre Perl, principalmente.

Se você precisa utilizar controles Javascript para realizar esse download, vai ter que provalvemente identificar qual o browser do visitante e criar código específico para o browser, visto que existem problemas de incompatibilidade entre o Javascript e o Jscript (esse último sendo da Microsoft).

Esse é um problema pra lá de velho e provavelmente vai continuar existindo porque a Microsoft se recusa a seguir padrões. No mais, utilize as ferramentas disponíveis com o Firefox para debug de Javascript para lhe ajudar a identificar o problema.

[]'s
Alceu

_________________________________________________________________
Invite your mail contacts to join your friends list with Windows Live Spaces. It's easy!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070902/285d09fa/attachment.html 

From gabriel.vieira em gmail.com  Sun Sep  2 08:48:55 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Sun, 2 Sep 2007 12:48:55 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
Message-ID: <83d8367f0709020848h21b0f541ud2ebc2bdaf814934@mail.gmail.com>

http://www.ietf.org/rfc/rfc1806.txt :)

On 9/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
>
> ________________________________
> Date: Sat, 1 Sep 2007 19:34:23 -0300
> From: karentaga em gmail.com
>
> Tenho o seguinte código em javascript para salvar arquivos localmente:
>
>         newFrame.document.open("text/html","replace");
>         newFrame.document.write("blah blah blah");
>         newFrame.document.close();
>         newFrame.focus();
>         newFrame.document.execCommand('SaveAs',false,'date.tax');
>
> ele funciona bem no ie, mas não no firefox... alguem conhece uma
> alternativa? ha um script em perl para fazer isso?
>
> Karen, esse assunto é off-topic da lista... quando mandar dúvidas assim,
> escreva [off-topic] no assunto do email, afinal isso é uma lista sobre Perl,
> principalmente.
>
> Se você precisa utilizar controles Javascript para realizar esse download,
> vai ter que provalvemente identificar qual o browser do visitante e criar
> código específico para o browser, visto que existem problemas de
> incompatibilidade entre o Javascript e o Jscript (esse último sendo da
> Microsoft).
>
> Esse é um problema pra lá de velho e provavelmente vai continuar existindo
> porque a Microsoft se recusa a seguir padrões. No mais, utilize as
> ferramentas disponíveis com o Firefox para debug de Javascript para lhe
> ajudar a identificar o problema.
>
> []'s
> Alceu
>
> ________________________________
> Invite your mail contacts to join your friends list with Windows Live
> Spaces. It's easy! Try it!
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From mdacwb em gmail.com  Sun Sep  2 09:53:56 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Sun, 2 Sep 2007 13:53:56 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
Message-ID: <42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>

Sei que estou um tanto atrasado na questão, mas seguem minhas considerações:

Vc poderia ter controle no tempo de execução do robo ? Algo do genero
ao término fazer um rotate? (isto é solicitavel a quem controla?)

Estes diretórios, são acessados somente por este robo e o seu script,
ou por outros processos ?
- Se for somente os 2, vc poderia utilizar um "fuser", para ver se
algum processo está lendo o arquivo diretorio ... para algo mais
elaborado, vc poderia até ver o código do fuser (nao aconselho, mas
viajando demais ;) )
** Nem tanto... ao termino fui buscar em nosso "dicionario" :)
  http://search.cpan.org/~jstowe/Linux-Fuser-1.4/lib/Linux/Fuser.pm


Os arquivos alterados são sempre os mesmos ? Ou existe algum mecanismo
para renomear os arquivos anteriores (do genero date yyyymmddhhss, pid
ou .old)  ?
- Se houver, melhor, se não, poderia pedir ?

Vc sabe de quanto em quanto tempo os arquivos são reescritos ? Quanto
tempo leva ?
- Outra abordagem poderia ser o "stat", verificando a ultima
alteração, e se for acima do esperado pelo processo, vc poderia
iniciar o uso. - eventualmente utilizando também o "fuser".

Vc comentou sobre "trailer", indicado no final...
- Esta seria uma abordagem que lhe garantiria consistencia, se não
estiver marcado como concluido, vc aguarda ;)


Agora uma coisa que eu utilizo como pratica preservacionista em meu trabalho...

Perl faz mágica, mas eu não. Me digam como controlar a situação (e
assumam o risco), e depois não venha me dizer que "Perl não é bom para
este problema", pois se não for bem elaborada a solução, vc com
certeza ouvirá isto ;)


PS: Gastarei mais um paragrafo para pedir desculpas pelo comprimento
de meu email eheheh


Sds,
Marco Antonio

Em 31/08/07, Solli Honorio<shonorio em gmail.com> escreveu:
> Cara, eu acho que você pode utilizar também o Linux::Inotify2. Este link
> (http://peter.makholm.net/2007/08/21/on-handling-email/ )
> possue um exemplo interessante.
>
> Abaixo tem um código meu mais simples ....
>
> <code>
> #!/usr/bin/perl
> use Linux::Inotify2;
>
> my $inotify = new Linux::Inotify2
>      or die "Unable to create new inotify object: $!";
>
> $inotify->watch('/tmp/t.txt', IN_ALL_EVENTS)
>      or die "Watch creation failed: $!" ; # Take a look at the directory for
> file changes
>
> while () { # Loop forever
>     my @events = $inotify->read;
>     $e = shift(@events);
>     my $name = $e->fullname;
>     print "$name was accessed\n" if $e->IN_ACCESS;
>     print "$name is no longer mounted\n" if $e->IN_UNMOUNT;
>     print "$name is gone\n" if $e->IN_IGNORED;
>     print "$name is close from write\n" if $e->IN_CLOSE_WRITE;
>     print "$name is opened\n" if $e->IN_OPEN;
>     print "events for $name have been lost\n" if $e->IN_Q_OVERFLOW;
> }
> </code>
>
> On 8/31/07, Flavio Bei <flaviobei em gmail.com > wrote:
> > opa Ednardo, blz?
> > eu não posso renomear ele antes de terminar, pois o processo pra
> > renomear vai ser executado junto com uma mudança dop local do arquivo,
> > para ele ser processado por outro programa..
> > sei que parece uma zona, mas é um esquema que já funcionava aqui.,...
> > mas era manual..
> >
> > e hoje apareceu mais uma novidade, esse arquivo vai estar em uso por
> > um ftp, então preciso esperar o ftp acabar pra mecher nele...
> >
> > to tentando o fuser, mas não ta resultando nada útil...
> >
> > abraços
> >
> > Em 30/08/07, Luciano Giordani Bassani< lgbassani em terra.com.br> escreveu:
> > > Eu não sabia deste pc -C <nome_prog>, mas aqui funcionou.
> > > Em todo caso, se tu quiser mesmo utilizar o esquema com o grep, eu
> recomendo
> > > tu mudar para algo assim:
> > > $teste = (`ps xa | grep $retorno\$ | grep -v grep`);
> > >
> > > Isso é para evitar que o próprio comando "ps xa | grep" gere um
> > > "falso-positivo".
> > >
> > >
> > > SDS,
> > >
> > > Luciano
> > >
> > >
> > >
> > > Fernando Oliveira escreveu:
> > > pq, ao invez de usar 2 comando,  não usa só o ps -C nome_prog???
> > >
> > > Em 30/08/07, Flavio Bei < flaviobei em gmail.com > escreveu:
> > > > consegui uma solução assim, deu certo, mas to com dúvidas... será que
> > > > o resultado será sempre preciso?
> > > >
> > > > o código ficou + - assim
> > > >
> > > > ##########################################
> > > > #!/usr/bin/perl
> > > > # sistema que vai buscar em um diretório um determinado arquivo
> > > > # caso o arquivo não esteja em uso por nenhum processo ele é renomeado
> > > > ##########################################
> > > >
> > > > use strict;
> > > > my $caminho = "/home/user/pasta/";
> > > > my $extensao = "*.txt";
> > > > my $completo = $caminho.$extensao;
> > > > my @encontrados;
> > > > my $retorno;
> > > > my $lista;
> > > > my $teste;
> > > >
> > > > $lista = (`ls -1 $completo`);
> > > >
> > > > if ($lista ne '')
> > > > {
> > > > @encontrados = split('\n', $lista);
> > > > }
> > > >
> > > > foreach $retorno (@encontrados) {
> > > >
> > > > $teste = (`ps xa |grep $retorno\$`);
> > > >
> > > >         if ($teste eq '')
> > > >         {
> > > >         #processa o arquivo pois ele não está em uso por nenhum
> processo
> > > >         print ("=======>>> Altera o arquivo $retorno pois não está em
> > > uso\n");
> > > >         `mv $retorno $retorno.new`;
> > > >         }
> > > >         else
> > > >         {
> > > >         #não processa o arquivo pois ele está em uso por algum
> processo
> > > >         print ("========>!!!! Não altera o arquivo $retorno\n");
> > > >         }
> > > > }
> > > > ##############################################
> > > > deu certo, e está rodando de boa, dai joguei na cron e ele fica
> > > > verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
> > > > que tem hora que ele não mostra o  processo sendo executado por outro
> > > > usuário, tem hora que mostra normal...
> > > > _______________________________________________
> > > > Cascavel-pm mailing list
> > > > Cascavel-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > >
> > >
> > >
> > > --
> > > []'s Fernando ________________________________
> > >
> > _______________________________________________
> > Cascavel-pm
> > > mailing
> > > list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > --
> > --
> > Flávio Bei
> > Webdesigner
> > (11) 8964 5315
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> "o animal satisfeito dorme". - Guimarães Rosa
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From karentaga em gmail.com  Sun Sep  2 11:46:19 2007
From: karentaga em gmail.com (Karen Taga)
Date: Sun, 2 Sep 2007 15:46:19 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
Message-ID: <ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>

ok, terei mais cuidado no próximo tópico!  =)
acho q postei aqui mais na esperança de me darem uma alternativa em perl...

[]´s
Karen

On 9/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
wrote:
>
> ------------------------------
> Date: Sat, 1 Sep 2007 19:34:23 -0300
> From: karentaga em gmail.com
>
> Tenho o seguinte código em javascript para salvar arquivos localmente:
>
>         newFrame.document.open("text/html","replace");
>         newFrame.document.write("blah blah blah");
>         newFrame.document.close();
>         newFrame.focus();
>         newFrame.document.execCommand('SaveAs',false,'date.tax');
>
> ele funciona bem no ie, mas não no firefox... alguem conhece uma
> alternativa? ha um script em perl para fazer isso?
>
> Karen, esse assunto é off-topic da lista... quando mandar dúvidas assim,
> escreva [off-topic] no assunto do email, afinal isso é uma lista sobre Perl,
> principalmente.
>
> Se você precisa utilizar controles Javascript para realizar esse download,
> vai ter que provalvemente identificar qual o browser do visitante e criar
> código específico para o browser, visto que existem problemas de
> incompatibilidade entre o Javascript e o Jscript (esse último sendo da
> Microsoft).
>
> Esse é um problema pra lá de velho e provavelmente vai continuar existindo
> porque a Microsoft se recusa a seguir padrões. No mais, utilize as
> ferramentas disponíveis com o Firefox para debug de Javascript para lhe
> ajudar a identificar o problema.
>
> []'s
> Alceu
>
> ------------------------------
> Invite your mail contacts to join your friends list with Windows Live
> Spaces. It's easy! Try it!<http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070902/709a4bb1/attachment-0001.html 

From gabriel.vieira em gmail.com  Sun Sep  2 15:00:05 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Sun, 2 Sep 2007 19:00:05 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
	<ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>
Message-ID: <83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>

Dei a alternativa no padrão HTTP que é a utilizada pelos navegadores e
servidores.

On 9/2/07, Karen Taga <karentaga em gmail.com> wrote:
> ok, terei mais cuidado no próximo tópico!  =)
> acho q postei aqui mais na esperança de me darem uma alternativa em perl...
>
> []´s
> Karen
>
>
> On 9/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
> wrote:
> >
> >
> > ________________________________
> Date: Sat, 1 Sep 2007 19:34:23 -0300
> > From: karentaga em gmail.com
> >
> >
> > Tenho o seguinte código em javascript para salvar arquivos localmente:
> >
> >         newFrame.document.open("text/html","replace");
> >         newFrame.document.write("blah blah blah");
> >         newFrame.document.close();
> >         newFrame.focus();
> >         newFrame.document.execCommand('SaveAs',false,'date.tax');
> >
> > ele funciona bem no ie, mas não no firefox... alguem conhece uma
> alternativa? ha um script em perl para fazer isso?
> >
> > Karen, esse assunto é off-topic da lista... quando mandar dúvidas assim,
> escreva [off-topic] no assunto do email, afinal isso é uma lista sobre Perl,
> principalmente.
> >
> > Se você precisa utilizar controles Javascript para realizar esse download,
> vai ter que provalvemente identificar qual o browser do visitante e criar
> código específico para o browser, visto que existem problemas de
> incompatibilidade entre o Javascript e o Jscript (esse último sendo da
> Microsoft).
> >
> > Esse é um problema pra lá de velho e provavelmente vai continuar existindo
> porque a Microsoft se recusa a seguir padrões. No mais, utilize as
> ferramentas disponíveis com o Firefox para debug de Javascript para lhe
> ajudar a identificar o problema.
> >
> > []'s
> > Alceu
> >
> > ________________________________
> Invite your mail contacts to join your friends list with Windows Live
> Spaces. It's easy! Try it!
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From karentaga em gmail.com  Sun Sep  2 15:06:31 2007
From: karentaga em gmail.com (Karen Taga)
Date: Sun, 2 Sep 2007 19:06:31 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
	<ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>
	<83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>
Message-ID: <ec735bfd0709021506v2296c386o9dd3e0cde0486a4d@mail.gmail.com>

sim sim, brigada!

On 9/2/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
>
> Dei a alternativa no padrão HTTP que é a utilizada pelos navegadores e
> servidores.
>
> On 9/2/07, Karen Taga <karentaga em gmail.com> wrote:
> > ok, terei mais cuidado no próximo tópico!  =)
> > acho q postei aqui mais na esperança de me darem uma alternativa em
> perl...
> >
> > []´s
> > Karen
> >
> >
> > On 9/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
> > wrote:
> > >
> > >
> > > ________________________________
> > Date: Sat, 1 Sep 2007 19:34:23 -0300
> > > From: karentaga em gmail.com
> > >
> > >
> > > Tenho o seguinte código em javascript para salvar arquivos localmente:
> > >
> > >         newFrame.document.open("text/html","replace");
> > >         newFrame.document.write("blah blah blah");
> > >         newFrame.document.close();
> > >         newFrame.focus();
> > >         newFrame.document.execCommand('SaveAs',false,'date.tax');
> > >
> > > ele funciona bem no ie, mas não no firefox... alguem conhece uma
> > alternativa? ha um script em perl para fazer isso?
> > >
> > > Karen, esse assunto é off-topic da lista... quando mandar dúvidas
> assim,
> > escreva [off-topic] no assunto do email, afinal isso é uma lista sobre
> Perl,
> > principalmente.
> > >
> > > Se você precisa utilizar controles Javascript para realizar esse
> download,
> > vai ter que provalvemente identificar qual o browser do visitante e
> criar
> > código específico para o browser, visto que existem problemas de
> > incompatibilidade entre o Javascript e o Jscript (esse último sendo da
> > Microsoft).
> > >
> > > Esse é um problema pra lá de velho e provavelmente vai continuar
> existindo
> > porque a Microsoft se recusa a seguir padrões. No mais, utilize as
> > ferramentas disponíveis com o Firefox para debug de Javascript para lhe
> > ajudar a identificar o problema.
> > >
> > > []'s
> > > Alceu
> > >
> > > ________________________________
> > Invite your mail contacts to join your friends list with Windows Live
> > Spaces. It's easy! Try it!
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> Gabriel Vieira
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070902/13abab7f/attachment.html 

From mdacwb em gmail.com  Sun Sep  2 17:07:45 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Sun, 2 Sep 2007 21:07:45 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
	<ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>
	<83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>
Message-ID: <42dcdd750709021707o287e64afxe5b04d4e3df8ccd8@mail.gmail.com>

Achei que vc estava de sacanagem... (e pareceu eheh)

Mas pela rápida olhada que dei no link, é bem objetivo, e resolve o
problema seguindo padrões :)

Gabriel++


Em 02/09/07, Gabriel Vieira<gabriel.vieira em gmail.com> escreveu:
> Dei a alternativa no padrão HTTP que é a utilizada pelos navegadores e
> servidores.
>
> On 9/2/07, Karen Taga <karentaga em gmail.com> wrote:
> > ok, terei mais cuidado no próximo tópico!  =)
> > acho q postei aqui mais na esperança de me darem uma alternativa em perl...
> >
> > []´s
> > Karen
> >
> >
> > On 9/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
> > wrote:
> > >
> > >
> > > ________________________________
> > Date: Sat, 1 Sep 2007 19:34:23 -0300
> > > From: karentaga em gmail.com
> > >
> > >
> > > Tenho o seguinte código em javascript para salvar arquivos localmente:
> > >
> > >         newFrame.document.open("text/html","replace");
> > >         newFrame.document.write("blah blah blah");
> > >         newFrame.document.close();
> > >         newFrame.focus();
> > >         newFrame.document.execCommand('SaveAs',false,'date.tax');
> > >
> > > ele funciona bem no ie, mas não no firefox... alguem conhece uma
> > alternativa? ha um script em perl para fazer isso?
> > >
> > > Karen, esse assunto é off-topic da lista... quando mandar dúvidas assim,
> > escreva [off-topic] no assunto do email, afinal isso é uma lista sobre Perl,
> > principalmente.
> > >
> > > Se você precisa utilizar controles Javascript para realizar esse download,
> > vai ter que provalvemente identificar qual o browser do visitante e criar
> > código específico para o browser, visto que existem problemas de
> > incompatibilidade entre o Javascript e o Jscript (esse último sendo da
> > Microsoft).
> > >
> > > Esse é um problema pra lá de velho e provavelmente vai continuar existindo
> > porque a Microsoft se recusa a seguir padrões. No mais, utilize as
> > ferramentas disponíveis com o Firefox para debug de Javascript para lhe
> > ajudar a identificar o problema.
> > >
> > > []'s
> > > Alceu
> > >
> > > ________________________________
> > Invite your mail contacts to join your friends list with Windows Live
> > Spaces. It's easy! Try it!
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> Gabriel Vieira
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From gabriel.vieira em gmail.com  Sun Sep  2 17:25:33 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Sun, 2 Sep 2007 21:25:33 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <42dcdd750709021707o287e64afxe5b04d4e3df8ccd8@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
	<ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>
	<83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>
	<42dcdd750709021707o287e64afxe5b04d4e3df8ccd8@mail.gmail.com>
Message-ID: <83d8367f0709021725oe7e9d82l1dc073cb387fc6e@mail.gmail.com>

haha e eu brinco com essas coisas?! hehe :P
Deve ter um modulo que simplifica o envio dos dados

Abração mda ;)

On 9/2/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> Achei que vc estava de sacanagem... (e pareceu eheh)
>
> Mas pela rápida olhada que dei no link, é bem objetivo, e resolve o
> problema seguindo padrões :)
>
> Gabriel++
>
>
> Em 02/09/07, Gabriel Vieira<gabriel.vieira em gmail.com> escreveu:
> > Dei a alternativa no padrão HTTP que é a utilizada pelos navegadores e
> > servidores.
> >
> > On 9/2/07, Karen Taga <karentaga em gmail.com> wrote:
> > > ok, terei mais cuidado no próximo tópico!  =)
> > > acho q postei aqui mais na esperança de me darem uma alternativa em perl...
> > >
> > > []´s
> > > Karen
> > >
> > >
> > > On 9/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
> > > wrote:
> > > >
> > > >
> > > > ________________________________
> > > Date: Sat, 1 Sep 2007 19:34:23 -0300
> > > > From: karentaga em gmail.com
> > > >
> > > >
> > > > Tenho o seguinte código em javascript para salvar arquivos localmente:
> > > >
> > > >         newFrame.document.open("text/html","replace");
> > > >         newFrame.document.write("blah blah blah");
> > > >         newFrame.document.close();
> > > >         newFrame.focus();
> > > >         newFrame.document.execCommand('SaveAs',false,'date.tax');
> > > >
> > > > ele funciona bem no ie, mas não no firefox... alguem conhece uma
> > > alternativa? ha um script em perl para fazer isso?
> > > >
> > > > Karen, esse assunto é off-topic da lista... quando mandar dúvidas assim,
> > > escreva [off-topic] no assunto do email, afinal isso é uma lista sobre Perl,
> > > principalmente.
> > > >
> > > > Se você precisa utilizar controles Javascript para realizar esse download,
> > > vai ter que provalvemente identificar qual o browser do visitante e criar
> > > código específico para o browser, visto que existem problemas de
> > > incompatibilidade entre o Javascript e o Jscript (esse último sendo da
> > > Microsoft).
> > > >
> > > > Esse é um problema pra lá de velho e provavelmente vai continuar existindo
> > > porque a Microsoft se recusa a seguir padrões. No mais, utilize as
> > > ferramentas disponíveis com o Firefox para debug de Javascript para lhe
> > > ajudar a identificar o problema.
> > > >
> > > > []'s
> > > > Alceu
> > > >
> > > > ________________________________
> > > Invite your mail contacts to join your friends list with Windows Live
> > > Spaces. It's easy! Try it!
> > > > _______________________________________________
> > > > Cascavel-pm mailing list
> > > > Cascavel-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > >
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > --
> > Gabriel Vieira
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From ptfzs em yahoo.com.br  Mon Sep  3 05:01:10 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 09:01:10 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
Message-ID: <550469.89646.qm@web31314.mail.mud.yahoo.com>

Ola Pessoal...
tenho um arquivo em CSV, que contem o cabeçalho contendo as variaveis e os dados logo depois...

estou tentando usar o Text:CSV

open CSV, $file or die $!;
my @csv_content = <CSV>;
close CSV;my $csv = Text::CSV->new();
foreach(@csv_content){
   if($csv->parse($_)){
     @values = $csv->fields();
     $status = $csv->combine(@values);
     $line = $csv->string();

     $statement = "INSERT INTO $table($field_line) VALUES($line);";
     print $statement."\n";
     $sth = $dbh->prepare( $statement );
     $sth->execute() or die "$! $DBI::errstr";

   }
Nao estou conseguindo inserir virgula para inserir no banco.. :D
Alguem q ja usou esse modulo pode me dar um help?? :D

Obrigada

       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/306cd1b8/attachment.html 

From otaviof em gmail.com  Mon Sep  3 05:13:48 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 3 Sep 2007 09:13:48 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <550469.89646.qm@web31314.mail.mud.yahoo.com>
References: <550469.89646.qm@web31314.mail.mud.yahoo.com>
Message-ID: <8e3843570709030513s24f29c73y6789c958180c7e8c@mail.gmail.com>

On 9/3/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Ola Pessoal...
> tenho um arquivo em CSV, que contem o cabeçalho contendo as variaveis e os
> dados logo depois...
>
> estou tentando usar o Text:CSV
> open CSV, $file or die $!;
> my @csv_content = <CSV>;
> close CSV;my $csv = Text::CSV->new();
> foreach(@csv_content){
>  if($csv->parse($_)){
>  @values = $csv->fields();
>  $status = $csv->combine(@values);
>  $line = $csv->string();
>
>  $statement = "INSERT INTO $table($field_line) VALUES($line);";
>  print $statement."\n";
>  $sth = $dbh->prepare( $statement );
>  $sth->execute() or die "$! $DBI::errstr";
>
>  }
> Nao estou conseguindo inserir virgula para inserir no banco.. :D
> Alguem q ja usou esse modulo pode me dar um help?? :D
>
> Obrigada
>
>
>  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Patty,

Não entendi onde vc quer inserir virgula. Seria no comando SQL ?

um abraço,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From ptfzs em yahoo.com.br  Mon Sep  3 05:38:37 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 09:38:37 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <8e3843570709030513s24f29c73y6789c958180c7e8c@mail.gmail.com>
Message-ID: <951545.53544.qm@web31306.mail.mud.yahoo.com>

Entao, como na 1 linha possui as variaveis.. e nas restantes os valores..
eu recupero as variaveis porem para inserir no BAnco,tem que ter virugulas entre elas.. :D
Tipow.. nao adianta o LOAD DATA INFILE.. :D preciso fazer alguns calculos com as variaveis antes de inserir. :D
por isso pensei no Text:CSV :D

Obrigada

Otávio Fernandes <otaviof em gmail.com> escreveu: On 9/3/07, Patty Silva 
 wrote:
> Ola Pessoal...
> tenho um arquivo em CSV, que contem o cabeçalho contendo as variaveis e os
> dados logo depois...
>
> estou tentando usar o Text:CSV
> open CSV, $file or die $!;
> my @csv_content = ;
> close CSV;my $csv = Text::CSV->new();
> foreach(@csv_content){
>  if($csv->parse($_)){
>  @values = $csv->fields();
>  $status = $csv->combine(@values);
>  $line = $csv->string();
>
>  $statement = "INSERT INTO $table($field_line) VALUES($line);";
>  print $statement."\n";
>  $sth = $dbh->prepare( $statement );
>  $sth->execute() or die "$! $DBI::errstr";
>
>  }
> Nao estou conseguindo inserir virgula para inserir no banco.. :D
> Alguem q ja usou esse modulo pode me dar um help?? :D
>
> Obrigada
>
>
>  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Patty,

Não entendi onde vc quer inserir virgula. Seria no comando SQL ?

um abraço,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/68db00e0/attachment.html 

From otaviof em gmail.com  Mon Sep  3 05:54:21 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 3 Sep 2007 09:54:21 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <951545.53544.qm@web31306.mail.mud.yahoo.com>
References: <8e3843570709030513s24f29c73y6789c958180c7e8c@mail.gmail.com>
	<951545.53544.qm@web31306.mail.mud.yahoo.com>
Message-ID: <8e3843570709030554s70fb5028y4b0863f829c837f4@mail.gmail.com>

humm, entendi, faz assim, manda umas linhas de exemplo, pra eu tentar
reproduzir aqui.

From ptfzs em yahoo.com.br  Mon Sep  3 06:04:28 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 10:04:28 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <8e3843570709030554s70fb5028y4b0863f829c837f4@mail.gmail.com>
Message-ID: <754964.89656.qm@web31302.mail.mud.yahoo.com>

:DNome,data,end,"DD","H1","H2","H3","H4"
Name2,2005-05-20 00:00:00,MG,"01","69.6","-1","55.215","25.1231"
Name2,2005-05-20 03:00:00,SP,"02","-1","1.23","1.45","-1"
.
.
.

No Caso preciso recuperar a 1 linha que sera as variaveis para inserir no banco..
Estou fazendo aqui sem usar o text:CSV.. :D  posto quando terminar :D


Obrigada



Otávio Fernandes <otaviof em gmail.com> escreveu: humm, entendi, faz assim, manda umas linhas de exemplo, pra eu tentar
reproduzir aqui.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/b0e6112a/attachment.html 

From nferraz em gmail.com  Mon Sep  3 06:16:58 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 3 Sep 2007 14:16:58 +0100
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <550469.89646.qm@web31314.mail.mud.yahoo.com>
References: <550469.89646.qm@web31314.mail.mud.yahoo.com>
Message-ID: <B15F5118-2D38-4B64-B6F1-631F4B00F90D@gmail.com>

> open CSV, $file or die $!;
> my @csv_content = <CSV>;
> close CSV;my $csv = Text::CSV->new();

Por que você coloca todo o arquivo na memória, de uma vez? Não seria  
melhor ler e processar uma linha por vez?

> values = $csv->fields();
> $status = $csv->combine(@values);
> $line = $csv->string();

Por que você não faz um join?

my $fields = join(',', @fields);
my $values = join(',', @values);

> $statement = "INSERT INTO $table($field_line) VALUES($line);";
> print $statement."\n";
> $sth = $dbh->prepare( $statement );
> $sth->execute() or die "$! $DBI::errstr";

E, mais uma vez, por que você não usa strict?

From otaviof em gmail.com  Mon Sep  3 06:17:26 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 3 Sep 2007 10:17:26 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <754964.89656.qm@web31302.mail.mud.yahoo.com>
References: <8e3843570709030554s70fb5028y4b0863f829c837f4@mail.gmail.com>
	<754964.89656.qm@web31302.mail.mud.yahoo.com>
Message-ID: <8e3843570709030617w4d2734dem638e9af61c4163dd@mail.gmail.com>

On 9/3/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> :D
> Nome,data,end,"DD","H1","H2","H3","H4"
> Name2,2005-05-20 00:00:00,MG,"01","69.6","-1","55.215","25.1231"
> Name2,2005-05-20 03:00:00,SP,"02","-1","1.23","1.45","-1"
> .
> .
> .
>
> No Caso preciso recuperar a 1 linha que sera as variaveis para inserir no
> banco..
> Estou fazendo aqui sem usar o text:CSV.. :D  posto quando terminar :D
>
>
> Obrigada
>
>
> Otávio Fernandes <otaviof em gmail.com> escreveu:
>  humm, entendi, faz assim, manda umas linhas de exemplo, pra eu tentar
> reproduzir aqui.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
>  Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Patty,

Você já viu o Text::CSV::Simple ? Acredito que para o seu caso vai
ficar bem melhor (leia-se mais fácil e simples) do q

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From otaviof em gmail.com  Mon Sep  3 06:23:54 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 3 Sep 2007 10:23:54 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <754964.89656.qm@web31302.mail.mud.yahoo.com>
References: <8e3843570709030554s70fb5028y4b0863f829c837f4@mail.gmail.com>
	<754964.89656.qm@web31302.mail.mud.yahoo.com>
Message-ID: <8e3843570709030623t35108d2dq95d0149780d4bf8d@mail.gmail.com>

Patty,

Fiz um exemplo com o Text::CSV::Simple, e funcionou, veja se este
código te ajuda:

$ cat csv.txt
Nome,data,end,"DD","H1","H2","H3","H4"
Name2,2005-05-20 00:00:00,MG,"01","69.6","-1","55.215","25.1231"
Name2,2005-05-20 03:00:00,SP,"02","-1","1.23","1.45","-1"

--
#!/usr/bin/perl -w

use strict;
use warnings;

use Text::CSV::Simple;
use Data::Dumper;

my $csv = new Text::CSV::Simple();

$csv->field_map(qw/nome data/);

my @data = $csv->read_file('csv.txt');

foreach ( @data ) {
	print "Debug -> ", Dumper $_, "\n";
}

__END__
--

Depois dá uma olhada aqui na CPAN (
http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm)
porque eu acho que neste módulo vai ter tudo o que você quer.

boa sorte,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From nferraz em gmail.com  Mon Sep  3 06:24:11 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 3 Sep 2007 14:24:11 +0100
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <754964.89656.qm@web31302.mail.mud.yahoo.com>
References: <754964.89656.qm@web31302.mail.mud.yahoo.com>
Message-ID: <3B8E83E4-41DA-4973-9578-6FAC4D8375B0@gmail.com>

> No Caso preciso recuperar a 1 linha que sera as variaveis para  
> inserir no banco..
> Estou fazendo aqui sem usar o text:CSV.. :D  posto quando terminar :D
>

Não faça isso: você já identificou o módulo, só precisa usá-lo  
corretamente.

Essa estratégia de "modificar o código até que ele funcione" é típica  
de POG.


From ptfzs em yahoo.com.br  Mon Sep  3 06:54:08 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 10:54:08 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <3B8E83E4-41DA-4973-9578-6FAC4D8375B0@gmail.com>
Message-ID: <230444.38258.qm@web31307.mail.mud.yahoo.com>

ok :D
uma pergunta :-)  no caso, o cabecalho estao assim:
ID.Nome,ID.END,ID.CASA (ex)

eu lendo linha por linha..
  $linha=<FILE_IN>;


    $linha=~ s/^.?N\/A,//;        # Elimina N/A

    @fields= split(/,/,$linha);        

Para eliminar tudo que esta antes do . eu fiz:
 foreach $campo (@fields) 
    {
    $campo=~ s/\.(\w*)//;
    push(@variaveis,$1);

    }

tem como eu eliminar sem usar o foreach :D

Obrigada
    

Nelson Ferraz <nferraz em gmail.com> escreveu: > No Caso preciso recuperar a 1 linha que sera as variaveis para  
> inserir no banco..
> Estou fazendo aqui sem usar o text:CSV.. :D  posto quando terminar :D
>

Não faça isso: você já identificou o módulo, só precisa usá-lo  
corretamente.

Essa estratégia de "modificar o código até que ele funcione" é típica  
de POG.

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/faf44b3b/attachment-0001.html 

From nferraz em gmail.com  Mon Sep  3 07:24:04 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 3 Sep 2007 15:24:04 +0100
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <230444.38258.qm@web31307.mail.mud.yahoo.com>
References: <230444.38258.qm@web31307.mail.mud.yahoo.com>
Message-ID: <74B9FDE7-A772-4465-9059-4E0161F74F42@gmail.com>

Em Sep 3, 2007, às 2:54 PM, Patty Silva escreveu:

> Para eliminar tudo que esta antes do . eu fiz:
>  foreach $campo (@fields)
>     {
>     $campo=~ s/\.(\w*)//;
>     push(@variaveis,$1);
>
>     }
>
> tem como eu eliminar sem usar o foreach :D

Tem.

Em geral, quando você quiser transformar uma array, você pode (deve)  
usar "map".

	my @new_array = map { do something with $_ } @old_array;

Por exemplo:

	my @clean_fields = map { /\.(.+)$/ } @fields;

Esta é apenas uma forma, existem inúmeras maneiras diferentes.

Mas o seu código continuará errado enquanto você não colocar "strict"  
e "warnings" no começo do seu programa.

(E eu me vejo obrigado a repetir sempre a mesma cantilena, para que  
esse mau exemplo não seja repetido por outras pessoas -- estas sim,  
eu espero, capazes de aprender.)


From ptfzs em yahoo.com.br  Mon Sep  3 07:28:11 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 11:28:11 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <74B9FDE7-A772-4465-9059-4E0161F74F42@gmail.com>
Message-ID: <900896.97896.qm@web31304.mail.mud.yahoo.com>

Obrigada :D
Esse programa tem strict e warnings :D eh que coloquei um pedaço somente 

Obrigada

Nelson Ferraz <nferraz em gmail.com> escreveu: Em Sep 3, 2007, às 2:54 PM, Patty Silva escreveu:

> Para eliminar tudo que esta antes do . eu fiz:
>  foreach $campo (@fields)
>     {
>     $campo=~ s/\.(\w*)//;
>     push(@variaveis,$1);
>
>     }
>
> tem como eu eliminar sem usar o foreach :D

Tem.

Em geral, quando você quiser transformar uma array, você pode (deve)  
usar "map".

 my @new_array = map { do something with $_ } @old_array;

Por exemplo:

 my @clean_fields = map { /\.(.+)$/ } @fields;

Esta é apenas uma forma, existem inúmeras maneiras diferentes.

Mas o seu código continuará errado enquanto você não colocar "strict"  
e "warnings" no começo do seu programa.

(E eu me vejo obrigado a repetir sempre a mesma cantilena, para que  
esse mau exemplo não seja repetido por outras pessoas -- estas sim,  
eu espero, capazes de aprender.)

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/be9c7206/attachment.html 

From igor.sutton em yahoo.co.uk  Mon Sep  3 07:36:11 2007
From: igor.sutton em yahoo.co.uk (Igor Lopes)
Date: Mon, 3 Sep 2007 15:36:11 +0100 (BST)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <900896.97896.qm@web31304.mail.mud.yahoo.com>
Message-ID: <869471.72320.qm@web23012.mail.ird.yahoo.com>

Tem como você postar o programa inteiro?

--- Patty Silva <ptfzs em yahoo.com.br> wrote:

> Obrigada :D
> Esse programa tem strict e warnings :D eh que
> coloquei um pedaço somente 
> 
> Obrigada
> 
> Nelson Ferraz <nferraz em gmail.com> escreveu: Em Sep
> 3, 2007, às 2:54 PM, Patty Silva escreveu:
> 
> > Para eliminar tudo que esta antes do . eu fiz:
> >  foreach $campo (@fields)
> >     {
> >     $campo=~ s/\.(\w*)//;
> >     push(@variaveis,$1);
> >
> >     }
> >
> > tem como eu eliminar sem usar o foreach :D
> 
> Tem.
> 
> Em geral, quando você quiser transformar uma array,
> você pode (deve)  
> usar "map".
> 
>  my @new_array = map { do something with $_ }
> @old_array;
> 
> Por exemplo:
> 
>  my @clean_fields = map { /\.(.+)$/ } @fields;
> 
> Esta é apenas uma forma, existem inúmeras maneiras
> diferentes.
> 
> Mas o seu código continuará errado enquanto você não
> colocar "strict"  
> e "warnings" no começo do seu programa.
> 
> (E eu me vejo obrigado a repetir sempre a mesma
> cantilena, para que  
> esse mau exemplo não seja repetido por outras
> pessoas -- estas sim,  
> eu espero, capazes de aprender.)
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
>        Flickr agora em português. Você clica, todo
> mundo vê. Saiba mais.>
_______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm



      ___________________________________________________________
Yahoo! Answers - Got a question? Someone out there knows the answer. Try it
now.
http://uk.answers.yahoo.com/ 


From nferraz em gmail.com  Mon Sep  3 07:45:49 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 3 Sep 2007 15:45:49 +0100
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <900896.97896.qm@web31304.mail.mud.yahoo.com>
References: <900896.97896.qm@web31304.mail.mud.yahoo.com>
Message-ID: <B207E3A3-E356-4C09-B75D-72FB6B144BC1@gmail.com>


Em Sep 3, 2007, às 3:28 PM, Patty Silva escreveu:

> Esse programa tem strict e warnings :D eh que coloquei um pedaço  
> somente

Então você precisa prestar atenção a alguns detalhes:

Ao invés de:

 > foreach $campo (@fields)
 > {
 > $campo=~ s/\.(\w*)//;
 > push(@variaveis,$1);
 >
 > }

Procure enviar algo que MOSTRE que você usou strict:

	my @variaveis = ();
	
	foreach my $campo ( @fields ) {
	    $campo =~ s/\.(\w*)//;
	    push @variaveis, $1;
	}

Lembre-se de declarar as variáveis no menor escopo possível -- veja,  
por exemplo, que eu declarei @variaveis logo antes do loop onde ela  
será usada, e $campo dentro do foreach.

Quando você fizer isso eu *prometo* que vou parar de chamar sua  
atenção. :-)


From ptfzs em yahoo.com.br  Mon Sep  3 08:20:49 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 12:20:49 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <B207E3A3-E356-4C09-B75D-72FB6B144BC1@gmail.com>
Message-ID: <181360.469.qm@web31308.mail.mud.yahoo.com>

Aproeitando q vc tocou nesse assunto :)
vou tirar algumas duvidas em definicoes de variaveis.. :D

qual a melhor pratica? definir todas as variaveis antes?
my $var1;
my $var2;
 sem atribuicoes? ou como:
my $var1 ="";
my $var2 ="";

e outra coisa..

se eu colocar dentro de uma subrotina 
a variavel 
my ($var1,var2)=@_;
e
local ($var1,var2)=@_;

eu preciso declara-las antes? :D

Obrigada

Nelson Ferraz <nferraz em gmail.com> escreveu: 
Em Sep 3, 2007, às 3:28 PM, Patty Silva escreveu:

> Esse programa tem strict e warnings :D eh que coloquei um pedaço  
> somente

Então você precisa prestar atenção a alguns detalhes:

Ao invés de:

 > foreach $campo (@fields)
 > {
 > $campo=~ s/\.(\w*)//;
 > push(@variaveis,$1);
 >
 > }

Procure enviar algo que MOSTRE que você usou strict:

 my @variaveis = ();
 
 foreach my $campo ( @fields ) {
     $campo =~ s/\.(\w*)//;
     push @variaveis, $1;
 }

Lembre-se de declarar as variáveis no menor escopo possível -- veja,  
por exemplo, que eu declarei @variaveis logo antes do loop onde ela  
será usada, e $campo dentro do foreach.

Quando você fizer isso eu *prometo* que vou parar de chamar sua  
atenção. :-)

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/e65b4c6b/attachment.html 

From edencardim em gmail.com  Mon Sep  3 08:25:08 2007
From: edencardim em gmail.com (eden)
Date: Mon, 3 Sep 2007 12:25:08 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <181360.469.qm@web31308.mail.mud.yahoo.com>
References: <B207E3A3-E356-4C09-B75D-72FB6B144BC1@gmail.com>
	<181360.469.qm@web31308.mail.mud.yahoo.com>
Message-ID: <3de55ead0709030825i5a909afbjd6c1133854a109e3@mail.gmail.com>

On 9/3/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Aproeitando q vc tocou nesse assunto :)
> vou tirar algumas duvidas em definicoes de variaveis.. :D
>
> qual a melhor pratica? definir todas as variaveis antes?
> my $var1;
> my $var2;
>  sem atribuicoes? ou como:
> my $var1 ="";
> my $var2 ="";

Declare suas variáveis no menor escopo possível, geralmente isso é
feito "perto" do lugar onde você vai usá-las, de preferência já
inicializando. Declarar variáveis sem inicializar ou atribuindo
strings vazias geralmente é um sinal de que a variável está declarada
no lugar errado.

> e outra coisa..
>
> se eu colocar dentro de uma subrotina
> a variavel
> my ($var1,var2)=@_;
> e
> local ($var1,var2)=@_;
>
> eu preciso declara-las antes? :D

Experimenta pra ver o que acontece...

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Mon Sep  3 08:43:50 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 3 Sep 2007 12:43:50 -0300 (ART)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <3de55ead0709030825i5a909afbjd6c1133854a109e3@mail.gmail.com>
Message-ID: <612610.61976.qm@web31311.mail.mud.yahoo.com>

oks :D

pq esta dando esse erro:
Use of uninitialized value in numeric ne (!=) at teste.pl line 749, <Arq_IN> line 801

my $missing=-8888;

if (($var1 != $missing) && ($var2 != $missing) && ( $var1 ne "" ) && ($var2 ne "") ) 



ja tentei mudar != para ne e nada :D

pq desse erro? pelo q entendi .. estou usando != ao invez de ne.. mas se colocar ne nao funciona tb :(

eden <edencardim em gmail.com> escreveu: On 9/3/07, Patty Silva 
 wrote:
> Aproeitando q vc tocou nesse assunto :)
> vou tirar algumas duvidas em definicoes de variaveis.. :D
>
> qual a melhor pratica? definir todas as variaveis antes?
> my $var1;
> my $var2;
>  sem atribuicoes? ou como:
> my $var1 ="";
> my $var2 ="";

Declare suas variáveis no menor escopo possível, geralmente isso é
feito "perto" do lugar onde você vai usá-las, de preferência já
inicializando. Declarar variáveis sem inicializar ou atribuindo
strings vazias geralmente é um sinal de que a variável está declarada
no lugar errado.

> e outra coisa..
>
> se eu colocar dentro de uma subrotina
> a variavel
> my ($var1,var2)=@_;
> e
> local ($var1,var2)=@_;
>
> eu preciso declara-las antes? :D

Experimenta pra ver o que acontece...

-- 
edenc.vox.com
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/34adff57/attachment.html 

From igor.sutton em yahoo.co.uk  Mon Sep  3 08:48:14 2007
From: igor.sutton em yahoo.co.uk (Igor Lopes)
Date: Mon, 3 Sep 2007 16:48:14 +0100 (BST)
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <612610.61976.qm@web31311.mail.mud.yahoo.com>
Message-ID: <113779.7243.qm@web23012.mail.ird.yahoo.com>


--- Patty Silva <ptfzs em yahoo.com.br> wrote:

> oks :D
> 
> pq esta dando esse erro:
> Use of uninitialized value in numeric ne (!=) at
> teste.pl line 749, <Arq_IN> line 801
> 
> my $missing=-8888;
> 
> if (($var1 != $missing) && ($var2 != $missing) && (
> $var1 ne "" ) && ($var2 ne "") ) 
> 
> 
> 
> ja tentei mudar != para ne e nada :D
> 
> pq desse erro? pelo q entendi .. estou usando != ao
> invez de ne.. mas se colocar ne nao funciona tb :(

O quê deve estar faltando é $var1 ou  $var2...

if ($var1 && $var1 != $missing) { ...

Lembre-se também que 'ne' é utilizado para strings e
'!=' utilizado para números.


      ___________________________________________________________ 
Want ideas for reducing your carbon footprint? Visit Yahoo! For Good  http://uk.promotions.yahoo.com/forgood/environment.html


From nferraz em gmail.com  Mon Sep  3 08:58:01 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 3 Sep 2007 16:58:01 +0100
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <612610.61976.qm@web31311.mail.mud.yahoo.com>
References: <612610.61976.qm@web31311.mail.mud.yahoo.com>
Message-ID: <C08DE0A3-74EE-4DE6-B9B6-D7998B4C17A0@gmail.com>

> pq esta dando esse erro:
> Use of uninitialized value in numeric ne (!=) at teste.pl line 749,  
> <Arq_IN> line 801

Isso não é um erro, é um alerta.

Em resumo, ele diz exatamente o que está escrito: uso de um valor não  
inicializado numa comparação numérica.

> ja tentei mudar != para ne e nada :D

Se você não entendeu a mensagem, não mude o código aleatoriamente na  
esperança que, de uma hora para outra, ele volte a funcionar.

Inclua a linha "use diagnostics", logo depois do "use warnings", para  
obter uma explicação mais completa sobre o alerta.

Entenda o problema antes de buscar uma solução.


From flaviobei em gmail.com  Mon Sep  3 12:05:17 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Mon, 3 Sep 2007 16:05:17 -0300
Subject: [Cascavel-pm] =?utf-8?q?saber_se_o_arquivo_est=C3=A1_aberto?=
In-Reply-To: <42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
	<42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
Message-ID: <557376b60709031205l46be2c7fjd3222fd04910c7a9@mail.gmail.com>

ae marco e solli, valeu pelas dicas...
montei um esquema aqui com o fuser, e fico batendo no arquivo, vendo
se ele ta terminado, quando o ftp termina, o arquivo fica liberado e
eu renomeio ele...
com isso, outro programa busca no diretório por arquivos com a nova
extensão... dai pra frente ta sussa...
agora acho que vai funcionar..
assim que rolar 100% eu posto a solução aqui...

caras, to curtindo o perl, realmente tem mais de um jeito pra resolver
um problema....


abraços


Em 02/09/07, Marco A P D'Andrade<mdacwb em gmail.com> escreveu:
> Sei que estou um tanto atrasado na questão, mas seguem minhas considerações:
>
> Vc poderia ter controle no tempo de execução do robo ? Algo do genero
> ao término fazer um rotate? (isto é solicitavel a quem controla?)
>
> Estes diretórios, são acessados somente por este robo e o seu script,
> ou por outros processos ?
> - Se for somente os 2, vc poderia utilizar um "fuser", para ver se
> algum processo está lendo o arquivo diretorio ... para algo mais
> elaborado, vc poderia até ver o código do fuser (nao aconselho, mas
> viajando demais ;) )
> ** Nem tanto... ao termino fui buscar em nosso "dicionario" :)
>  http://search.cpan.org/~jstowe/Linux-Fuser-1.4/lib/Linux/Fuser.pm
>
>
> Os arquivos alterados são sempre os mesmos ? Ou existe algum mecanismo
> para renomear os arquivos anteriores (do genero date yyyymmddhhss, pid
> ou .old)  ?
> - Se houver, melhor, se não, poderia pedir ?
>
> Vc sabe de quanto em quanto tempo os arquivos são reescritos ? Quanto
> tempo leva ?
> - Outra abordagem poderia ser o "stat", verificando a ultima
> alteração, e se for acima do esperado pelo processo, vc poderia
> iniciar o uso. - eventualmente utilizando também o "fuser".
>
> Vc comentou sobre "trailer", indicado no final...
> - Esta seria uma abordagem que lhe garantiria consistencia, se não
> estiver marcado como concluido, vc aguarda ;)
>
>
> Agora uma coisa que eu utilizo como pratica preservacionista em meu trabalho...
>
> Perl faz mágica, mas eu não. Me digam como controlar a situação (e
> assumam o risco), e depois não venha me dizer que "Perl não é bom para
> este problema", pois se não for bem elaborada a solução, vc com
> certeza ouvirá isto ;)
>
>
> PS: Gastarei mais um paragrafo para pedir desculpas pelo comprimento
> de meu email eheheh
>
>
> Sds,
> Marco Antonio
>
> Em 31/08/07, Solli Honorio<shonorio em gmail.com> escreveu:
> > Cara, eu acho que você pode utilizar também o Linux::Inotify2. Este link
> > (http://peter.makholm.net/2007/08/21/on-handling-email/ )
> > possue um exemplo interessante.
> >
> > Abaixo tem um código meu mais simples ....
> >
> > <code>
> > #!/usr/bin/perl
> > use Linux::Inotify2;
> >
> > my $inotify = new Linux::Inotify2
> >      or die "Unable to create new inotify object: $!";
> >
> > $inotify->watch('/tmp/t.txt', IN_ALL_EVENTS)
> >      or die "Watch creation failed: $!" ; # Take a look at the directory for
> > file changes
> >
> > while () { # Loop forever
> >     my @events = $inotify->read;
> >     $e = shift(@events);
> >     my $name = $e->fullname;
> >     print "$name was accessed\n" if $e->IN_ACCESS;
> >     print "$name is no longer mounted\n" if $e->IN_UNMOUNT;
> >     print "$name is gone\n" if $e->IN_IGNORED;
> >     print "$name is close from write\n" if $e->IN_CLOSE_WRITE;
> >     print "$name is opened\n" if $e->IN_OPEN;
> >     print "events for $name have been lost\n" if $e->IN_Q_OVERFLOW;
> > }
> > </code>
> >
> > On 8/31/07, Flavio Bei <flaviobei em gmail.com > wrote:
> > > opa Ednardo, blz?
> > > eu não posso renomear ele antes de terminar, pois o processo pra
> > > renomear vai ser executado junto com uma mudança dop local do arquivo,
> > > para ele ser processado por outro programa..
> > > sei que parece uma zona, mas é um esquema que já funcionava aqui.,...
> > > mas era manual..
> > >
> > > e hoje apareceu mais uma novidade, esse arquivo vai estar em uso por
> > > um ftp, então preciso esperar o ftp acabar pra mecher nele...
> > >
> > > to tentando o fuser, mas não ta resultando nada útil...
> > >
> > > abraços
> > >
> > > Em 30/08/07, Luciano Giordani Bassani< lgbassani em terra.com.br> escreveu:
> > > > Eu não sabia deste pc -C <nome_prog>, mas aqui funcionou.
> > > > Em todo caso, se tu quiser mesmo utilizar o esquema com o grep, eu
> > recomendo
> > > > tu mudar para algo assim:
> > > > $teste = (`ps xa | grep $retorno\$ | grep -v grep`);
> > > >
> > > > Isso é para evitar que o próprio comando "ps xa | grep" gere um
> > > > "falso-positivo".
> > > >
> > > >
> > > > SDS,
> > > >
> > > > Luciano
> > > >
> > > >
> > > >
> > > > Fernando Oliveira escreveu:
> > > > pq, ao invez de usar 2 comando,  não usa só o ps -C nome_prog???
> > > >
> > > > Em 30/08/07, Flavio Bei < flaviobei em gmail.com > escreveu:
> > > > > consegui uma solução assim, deu certo, mas to com dúvidas... será que
> > > > > o resultado será sempre preciso?
> > > > >
> > > > > o código ficou + - assim
> > > > >
> > > > > ##########################################
> > > > > #!/usr/bin/perl
> > > > > # sistema que vai buscar em um diretório um determinado arquivo
> > > > > # caso o arquivo não esteja em uso por nenhum processo ele é renomeado
> > > > > ##########################################
> > > > >
> > > > > use strict;
> > > > > my $caminho = "/home/user/pasta/";
> > > > > my $extensao = "*.txt";
> > > > > my $completo = $caminho.$extensao;
> > > > > my @encontrados;
> > > > > my $retorno;
> > > > > my $lista;
> > > > > my $teste;
> > > > >
> > > > > $lista = (`ls -1 $completo`);
> > > > >
> > > > > if ($lista ne '')
> > > > > {
> > > > > @encontrados = split('\n', $lista);
> > > > > }
> > > > >
> > > > > foreach $retorno (@encontrados) {
> > > > >
> > > > > $teste = (`ps xa |grep $retorno\$`);
> > > > >
> > > > >         if ($teste eq '')
> > > > >         {
> > > > >         #processa o arquivo pois ele não está em uso por nenhum
> > processo
> > > > >         print ("=======>>> Altera o arquivo $retorno pois não está em
> > > > uso\n");
> > > > >         `mv $retorno $retorno.new`;
> > > > >         }
> > > > >         else
> > > > >         {
> > > > >         #não processa o arquivo pois ele está em uso por algum
> > processo
> > > > >         print ("========>!!!! Não altera o arquivo $retorno\n");
> > > > >         }
> > > > > }
> > > > > ##############################################
> > > > > deu certo, e está rodando de boa, dai joguei na cron e ele fica
> > > > > verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
> > > > > que tem hora que ele não mostra o  processo sendo executado por outro
> > > > > usuário, tem hora que mostra normal...
> > > > > _______________________________________________
> > > > > Cascavel-pm mailing list
> > > > > Cascavel-pm em pm.org
> > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > > >
> > > >
> > > >
> > > >
> > > > --
> > > > []'s Fernando ________________________________
> > > >
> > > _______________________________________________
> > > Cascavel-pm
> > > > mailing
> > > > list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > > > _______________________________________________
> > > > Cascavel-pm mailing list
> > > > Cascavel-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > >
> > >
> > > --
> > > --
> > > Flávio Bei
> > > Webdesigner
> > > (11) 8964 5315
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> >
> > --
> > "o animal satisfeito dorme". - Guimarães Rosa
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From flaviobei em gmail.com  Mon Sep  3 12:09:08 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Mon, 3 Sep 2007 16:09:08 -0300
Subject: [Cascavel-pm] Download de arquivo
In-Reply-To: <83d8367f0709021725oe7e9d82l1dc073cb387fc6e@mail.gmail.com>
References: <ec735bfd0709011534k2c94fbb1k9215e7d8e8b911fb@mail.gmail.com>
	<BAY121-W18BDC6091396CAD1513964F5C80@phx.gbl>
	<ec735bfd0709021146q2effad99yf49bc8acdec98609@mail.gmail.com>
	<83d8367f0709021500p7a6b4e2bn8fd1cd38a402a665@mail.gmail.com>
	<42dcdd750709021707o287e64afxe5b04d4e3df8ccd8@mail.gmail.com>
	<83d8367f0709021725oe7e9d82l1dc073cb387fc6e@mail.gmail.com>
Message-ID: <557376b60709031209n14f85a26u7de1a6a52f7bf8ff@mail.gmail.com>

pra testar JS no firefox, usa o firebug, é o melhor....

https://addons.mozilla.org/en-US/firefox/addon/1843

abraços


-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From shonorio em gmail.com  Mon Sep  3 12:15:09 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Mon, 3 Sep 2007 16:15:09 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
	<42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
Message-ID: <12d1f4ee0709031215v7e6f79c1sb65ef1c347bfdd72@mail.gmail.com>

On 9/2/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
>
> Sei que estou um tanto atrasado na questão, mas seguem minhas
> considerações:
>
> Vc poderia ter controle no tempo de execução do robo ? Algo do genero
> ao término fazer um rotate? (isto é solicitavel a quem controla?)
>
> Estes diretórios, são acessados somente por este robo e o seu script,
> ou por outros processos ?
> - Se for somente os 2, vc poderia utilizar um "fuser", para ver se
> algum processo está lendo o arquivo diretorio ... para algo mais
> elaborado, vc poderia até ver o código do fuser (nao aconselho, mas
> viajando demais ;) )
> ** Nem tanto... ao termino fui buscar em nosso "dicionario" :)
>   http://search.cpan.org/~jstowe/Linux-Fuser-1.4/lib/Linux/Fuser.pm


Cara eu estava justamente procurando isto para responder ao email, mas não
procurei pelo óbvio (fuser) e aí encontrei outras soluções. Mas também
acredito que o FUSER é muito melhor para este caso...

-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070903/01c6e038/attachment.html 

From luismottacampos em yahoo.co.uk  Mon Sep  3 09:55:35 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 3 Sep 2007 18:55:35 +0200
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <3B8E83E4-41DA-4973-9578-6FAC4D8375B0@gmail.com>
References: <754964.89656.qm@web31302.mail.mud.yahoo.com>
	<3B8E83E4-41DA-4973-9578-6FAC4D8375B0@gmail.com>
Message-ID: <200709031855.35548.luismottacampos@yahoo.co.uk>

On Monday 03 September 2007 15:24, Nelson Ferraz wrote:
> > No Caso preciso recuperar a 1 linha que sera as variaveis para
> > inserir no banco..
> > Estou fazendo aqui sem usar o text:CSV.. :D  posto quando terminar :D
>
> Não faça isso: você já identificou o módulo, só precisa usá-lo
> corretamente.
>
> Essa estratégia de "modificar o código até que ele funcione" é típica
> de POG.

  Esta, nem eu sei o que é, Nélson.
  Você pode por favor expandir o acrônimo?

  Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}

From oberdan.luiz em gmail.com  Mon Sep  3 14:28:16 2007
From: oberdan.luiz em gmail.com (Oberdan Luiz May)
Date: Mon, 3 Sep 2007 18:28:16 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <200709031855.35548.luismottacampos@yahoo.co.uk>
References: <754964.89656.qm@web31302.mail.mud.yahoo.com>
	<3B8E83E4-41DA-4973-9578-6FAC4D8375B0@gmail.com>
	<200709031855.35548.luismottacampos@yahoo.co.uk>
Message-ID: <ac3a9ba80709031428w7edb3b9apbd629263e7d4f3f8@mail.gmail.com>

    Acho que é isso aqui:

   http://desciclo.pedia.ws/wiki/POG

   Uma boa leitura, diga-se de passagem :-)

   []'s



On 9/3/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> On Monday 03 September 2007 15:24, Nelson Ferraz wrote:
> > > No Caso preciso recuperar a 1 linha que sera as variaveis para
> > > inserir no banco..
> > > Estou fazendo aqui sem usar o text:CSV.. :D  posto quando terminar :D
> >
> > Não faça isso: você já identificou o módulo, só precisa usá-lo
> > corretamente.
> >
> > Essa estratégia de "modificar o código até que ele funcione" é típica
> > de POG.
>
>   Esta, nem eu sei o que é, Nélson.
>   Você pode por favor expandir o acrônimo?
>
>   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
>

From edencardim em gmail.com  Mon Sep  3 14:31:06 2007
From: edencardim em gmail.com (eden)
Date: Mon, 3 Sep 2007 18:31:06 -0300
Subject: [Cascavel-pm] Duvida Text:CSV
In-Reply-To: <200709031855.35548.luismottacampos@yahoo.co.uk>
References: <754964.89656.qm@web31302.mail.mud.yahoo.com>
	<3B8E83E4-41DA-4973-9578-6FAC4D8375B0@gmail.com>
	<200709031855.35548.luismottacampos@yahoo.co.uk>
Message-ID: <3de55ead0709031431y2a8334c1u5c00b9ed6b8f1ee8@mail.gmail.com>

On 9/3/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>   Esta, nem eu sei o que é, Nélson.
>   Você pode por favor expandir o acrônimo?

É sua velha conhecida, só que com outro nome. ;)

-- 
edenc.vox.com

From mdacwb em gmail.com  Mon Sep  3 20:48:10 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Tue, 4 Sep 2007 00:48:10 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <12d1f4ee0709031215v7e6f79c1sb65ef1c347bfdd72@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
	<42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
	<12d1f4ee0709031215v7e6f79c1sb65ef1c347bfdd72@mail.gmail.com>
Message-ID: <42dcdd750709032048x13009710x29d082abc88431a9@mail.gmail.com>

É bom saber que uma das bolas chutadas atingiu o gol :)


Em 03/09/07, Solli Honorio<shonorio em gmail.com> escreveu:
>
> On 9/2/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> > Sei que estou um tanto atrasado na questão, mas seguem minhas
> considerações:
> >
> > Vc poderia ter controle no tempo de execução do robo ? Algo do genero
> > ao término fazer um rotate? (isto é solicitavel a quem controla?)
> >
> > Estes diretórios, são acessados somente por este robo e o seu script,
> > ou por outros processos ?
> > - Se for somente os 2, vc poderia utilizar um "fuser", para ver se
> > algum processo está lendo o arquivo diretorio ... para algo mais
> > elaborado, vc poderia até ver o código do fuser (nao aconselho, mas
> > viajando demais ;) )
> > ** Nem tanto... ao termino fui buscar em nosso "dicionario" :)
> >
> http://search.cpan.org/~jstowe/Linux-Fuser-1.4/lib/Linux/Fuser.pm
>
> Cara eu estava justamente procurando isto para responder ao email, mas não
> procurei pelo óbvio (fuser) e aí encontrei outras soluções. Mas também
> acredito que o FUSER é muito melhor para este caso...
>
> --
>
> "o animal satisfeito dorme". - Guimarães Rosa
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From wilson em bhmoveis.com  Tue Sep  4 05:52:15 2007
From: wilson em bhmoveis.com (wilsonalencar)
Date: Tue, 4 Sep 2007 09:52:15 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Acentua=E7=E3o?=
Message-ID: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>

Olá amigos. Sou novo na lista, e também em programação em Perl. Já consegui
escrever alguns programinhas mas estou com problemas na apresentação de
caracteres especiais como ã,ô,é etc.. Eles não aparecem da forma correta.
Como faço para que o perl interprete o caracter corretamente. Estou salvando
o arquivo .pl como ASCII utf8 without boom. Sei que deve ser uma coisa
simples mas realmente não consigo descobrir como faze-lo. Só quero que por
exemplo print “avião”, apareça avião no cmd. A propósito estou utilizando o
Active Perl 5.8.8 com windows XP. 

 

Desde já obrigado e espero no futuro ser útil a lista.

 

Abraços

 

Wilson


No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007
09:14
 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/19291ac3/attachment.html 

From flaviobei em gmail.com  Tue Sep  4 06:29:37 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Tue, 4 Sep 2007 10:29:37 -0300
Subject: [Cascavel-pm] =?utf-8?q?saber_se_o_arquivo_est=C3=A1_aberto?=
In-Reply-To: <42dcdd750709032048x13009710x29d082abc88431a9@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
	<42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
	<12d1f4ee0709031215v7e6f79c1sb65ef1c347bfdd72@mail.gmail.com>
	<42dcdd750709032048x13009710x29d082abc88431a9@mail.gmail.com>
Message-ID: <557376b60709040629w1e88cd34p3f867bec136386f8@mail.gmail.com>

outro problema, sei que deve ser besteira.. mas não achei a solução...
alguém tem idéia do que pode ser?

eu estava testando o programa rodando na mesma pasta dos arquivos,
agora eu to tentando jogar o sistema em uma pasta qualquer e chamar os
arquivos, até ai blz, mas não ta funcionando,... não sei o que pode
ser, mas ele não acha o caminho....

o código é esse:

#===============================================
use strict;
use warnings;
my $caminho = '/home/flavio/upload/';

opendir( DIR, $caminho ) || die "Não pude abrir o diretorio $!\n";
my @files = readdir( DIR );
closedir( DIR );

foreach( @files ){

   my $f =  $_;
   if (lc(substr($f, -3,3)) eq "txt"){	
   my $o =  `/sbin/fuser $f`;
       if( $o eq '' ){
       $c = system ("mv -f $f /home/flavio/uso/$f.ok");
             if( $c ){
             die 'ERROR mv: '.$c."\n";
             }
      }
  }
}

#=====================================================

não funciona.. ele simplesmente não acha a pasta e não meche no arquivo..


abraços
-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From nferraz em gmail.com  Tue Sep  4 06:45:15 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 4 Sep 2007 14:45:15 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <557376b60709040629w1e88cd34p3f867bec136386f8@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
	<42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
	<12d1f4ee0709031215v7e6f79c1sb65ef1c347bfdd72@mail.gmail.com>
	<42dcdd750709032048x13009710x29d082abc88431a9@mail.gmail.com>
	<557376b60709040629w1e88cd34p3f867bec136386f8@mail.gmail.com>
Message-ID: <DC2BE969-54DD-46F9-ACEB-31C7B5761BF5@gmail.com>


Em Sep 4, 2007, às 2:29 PM, Flavio Bei escreveu:

> outro problema, sei que deve ser besteira.. mas não achei a solução...
> alguém tem idéia do que pode ser?
>
> eu estava testando o programa rodando na mesma pasta dos arquivos,
> agora eu to tentando jogar o sistema em uma pasta qualquer e chamar os
> arquivos, até ai blz, mas não ta funcionando,... não sei o que pode
> ser, mas ele não acha o caminho....
>
> o código é esse:
>
> #===============================================
> use strict;
> use warnings;
> my $caminho = '/home/flavio/upload/';
>
> opendir( DIR, $caminho ) || die "Não pude abrir o diretorio $!\n";
> my @files = readdir( DIR );
> closedir( DIR );
>
> foreach( @files ){
>
>    my $f =  $_;
>    if (lc(substr($f, -3,3)) eq "txt"){	
>    my $o =  `/sbin/fuser $f`;

Será que não faltou o caminho antes do nome do arquivo?

foreach my $filename ( @files ) {
	next if $filename !~ /\.txt$/i; # poderia ter feito um grep antes,  
ou usado um glob

	my $o = `/sbin/fuser $caminho/$filename`;

(A propósito... procure escolher nomes de variáveis melhores, como  
"$filename" ao invés de "$f", e... sei lá o que você estava pensando,  
ao invés de "$o".)

[]s

Nelson


From flaviobei em gmail.com  Tue Sep  4 06:48:55 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Tue, 4 Sep 2007 10:48:55 -0300
Subject: [Cascavel-pm] =?utf-8?b?QWNlbnR1YcOnw6Nv?=
In-Reply-To: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
References: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
Message-ID: <557376b60709040648u1cb21c6pfc0ae0ad5e1764af@mail.gmail.com>

opa wilson, blz?
achei esse link, ta em espanhol, mas deve dar um help... unicode, utf,
coisas do tipo, abraço

http://www.uco.es/ccc/x500/Charset.html

-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From wilson em bhmoveis.com  Tue Sep  4 07:27:18 2007
From: wilson em bhmoveis.com (wilsonalencar)
Date: Tue, 4 Sep 2007 11:27:18 -0300
Subject: [Cascavel-pm] =?utf-8?b?UkVTOiAgQWNlbnR1YcOnw6Nv?=
In-Reply-To: <557376b60709040648u1cb21c6pfc0ae0ad5e1764af@mail.gmail.com>
References: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
	<557376b60709040648u1cb21c6pfc0ae0ad5e1764af@mail.gmail.com>
Message-ID: <00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>

Oi Flávio, obrigado pela ajuda. Muito bom o texto porém devo estar fazendo alguma coisa errada. Segui o exemplo do texto e continua dando errado.O código que usei foi:

  #!/usr/local/bin/perl
  use Unicode::String qw(latin1);
  $u = latin1( "á");
  print $u, "\n";

O que retorna é ?â?í.  

Estou meio perdido, acho que o fato de usar activeperl pode ser 


-----Mensagem original-----
De: cascavel-pm-bounces+wilson=bhmoveis.com em pm.org [mailto:cascavel-pm-bounces+wilson=bhmoveis.com em pm.org] Em nome de Flavio Bei
Enviada em: terça-feira, 4 de setembro de 2007 10:49
Para: Cascavel Perl Mongers
Assunto: Re: [Cascavel-pm] Acentuação

opa wilson, blz?
achei esse link, ta em espanhol, mas deve dar um help... unicode, utf,
coisas do tipo, abraço

http://www.uco.es/ccc/x500/Charset.html

-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 03/09/2007 / Versão: 5.1.00/5111
Proteja o seu e-mail Terra: http://mail.terra.com.br/


No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007 09:14
 

No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007 09:14
 


From flaviobei em gmail.com  Tue Sep  4 07:44:51 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Tue, 4 Sep 2007 11:44:51 -0300
Subject: [Cascavel-pm] =?utf-8?b?UkVTOiBBY2VudHVhw6fDo28=?=
In-Reply-To: <00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>
References: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
	<557376b60709040648u1cb21c6pfc0ae0ad5e1764af@mail.gmail.com>
	<00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>
Message-ID: <557376b60709040744n7ac4e4batbb4bafe1a6543dd9@mail.gmail.com>

testei aqui no linux, roda direto sem configurar unicode, pq meu
kurumin ta como latin-1... to fuçando pra tentar achar como é o endode
do dos..
abraço

Em 04/09/07, wilsonalencar<wilson em bhmoveis.com> escreveu:
> Oi Flávio, obrigado pela ajuda. Muito bom o texto porém devo estar fazendo alguma coisa errada. Segui o exemplo do texto e continua dando errado.O código que usei foi:
>
>  #!/usr/local/bin/perl
>  use Unicode::String qw(latin1);
>  $u = latin1( "á");
>  print $u, "\n";
>
> O que retorna é ?â?í.
>
> Estou meio perdido, acho que o fato de usar activeperl pode ser
>
>
> -----Mensagem original-----
> De: cascavel-pm-bounces+wilson=bhmoveis.com em pm.org [mailto:cascavel-pm-bounces+wilson=bhmoveis.com em pm.org] Em nome de Flavio Bei
> Enviada em: terça-feira, 4 de setembro de 2007 10:49
> Para: Cascavel Perl Mongers
> Assunto: Re: [Cascavel-pm] Acentuação
>
> opa wilson, blz?
> achei esse link, ta em espanhol, mas deve dar um help... unicode, utf,
> coisas do tipo, abraço
>
> http://www.uco.es/ccc/x500/Charset.html
>
> --
> --
> Flávio Bei
> Webdesigner
> (11) 8964 5315
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 03/09/2007 / Versão: 5.1.00/5111
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007 09:14
>
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.485 / Virus Database: 269.13.5/988 - Release Date: 4/9/2007 09:14
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm


-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From glasswalk3r em hotmail.com  Tue Sep  4 09:18:14 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Tue, 4 Sep 2007 19:18:14 +0300
Subject: [Cascavel-pm] =?utf-8?b?UkVTOiAgQWNlbnR1YcOnw6Nv?=
In-Reply-To: <00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>
References: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
	<557376b60709040648u1cb21c6pfc0ae0ad5e1764af@mail.gmail.com> 
	<00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>
Message-ID: <BAY121-W2BCB0383008EDFF4E6CE3F5CA0@phx.gbl>

> From: wilson em bhmoveis.com
> To: cascavel-pm em pm.org
> 
> Oi Flávio, obrigado pela ajuda. Muito bom o texto porém devo estar fazendo alguma coisa errada. Segui o exemplo do texto e continua dando errado.O código que usei foi:
> 
>   #!/usr/local/bin/perl
>   use Unicode::String qw(latin1);
>   $u = latin1( "á");
>   print $u, "\n";
> 
> O que retorna é ├â┬í.  
> 
> Estou meio perdido, acho que o fato de usar activeperl pode ser 

Wilson, eu acho que é o terminal do Windows mesmo... acho que ele não suporta UTF-8. Dá uma pesquisa para ter certeza.

Se for isso mesmo, você vai ter que pensar em converter a saída para ASCII ou fazer seu programa gerar uma saída em outro lugar.

[]'s
Alceu

_________________________________________________________________
Connect to the next generation of MSN Messenger 
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/31750c08/attachment.html 

From rafamv1 em ig.com.br  Tue Sep  4 10:08:05 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Tue, 4 Sep 2007 14:08:05 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
Message-ID: <20070904_170805_031059.rafamv1@ig.com.br>

Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou escrevendo 
para apagar vários valores em um arquivo de texto. Quando digito os nomes 
que serão removidos e teclo enter, todos os dados do arquivo são apagados. 
Estou utilizando a sub "excluir_nomes" de forma incorreta?! 

my $name; 
foreach $name(@nomes) { 
excluir_nomes($name); 
} 
copy($file, $backup); 
open( ARQUIVO, '>', "$file" ); 
open( BACKUP, '<', "$backup" ); 

sub excluir_nomes { 
foreach (<BACKUP>) { 
next if $_ =~ /^$name$/; 
print ARQUIVO $_; 
   } 
} 
close (ARQUIVO); 
close (BACKUP); 



From a.r.ferreira em gmail.com  Tue Sep  4 11:33:46 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Tue, 4 Sep 2007 15:33:46 -0300
Subject: [Cascavel-pm] [RFC] perldoc -L <lang>
Message-ID: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>

Olá.

Recentemente foi introduzido uma nova opção "-L" no utilitário
"perldoc". Ela funciona assim:

$ perldoc -L it perlintro # perlintro em Italiano
$ perldoc -L fr -f pack # leia sobre pack() em Francês
$ perldoc -L eo -q shell # busque a versão em Esperando dos FAQs
procurando por 'shell'
$ perldoc -L tlh Acme::DonMartin # a documentação de Acme::DonMartin em Klingon

(Obviamente, só funciona se você tiver os PODs correspondentes instalados.)

Estas mudanças foram aplicadas à versão de desenvolmento do Perl
(bleadperl) e publicados no CPAN na release 3.14_01
(http://search.cpan.org/~ferreira/Pod-Perldoc-3.14_01/). O trabalho
original foi feito pelo grupo de Perl Mongers da Itália e um pacote
semelhante foi liberado logo a seguida para um pacote de traduções
para francês (POD2::IT -- http://search.cpan.org/dist/POD2-IT/ -- e
POD2::FR -- http://search.cpan.org/dist/POD2-FR/). Estas distribuições
continham código que o Pod::Perldoc chamava como um plugin se
disponível.

Depois de trabalhar um pouco sobre o código envolvido, tornou-se
evidente que o fato essential da distribuições dos PODs traduzidos é
uma convenção estupidamente simples. Estes PODs vivem no namespace
correspondente POD2::<lang>. É basicamente isto (embora existem alguns
detalhes que devem ser tratados em breve).

Com o reaproveitamento do código original em POD2::IT e algumas
mudanças correspondentes em Pod::Perldoc, é possível distribuir e usar
os PODs traduzidos de uma maneira muito simples. Os passos necessários
são:

    * instalar POD2::Base (http://search.cpan.org/dist/POD2-Base/)
    * instalar Pod::Perldoc 3.14_03
(http://search.cpan.org/~ferreira/Pod-Perldoc-3.14_01/)
    * garantir que seus PODs traduzidos sejam empacotados e instalados
no namespace correto POD2::<lang>, por exemplo, POD2::PT

Feito isto, temos uma simplória internacionalização do perldoc funcionando.

Em breve vou submeter as mudanças do Pod::Perldoc ao bleadperl.
Enquanto isso, estou atento a sugestões, comentários, etc.

Adriano Ferreira

From glasswalk3r em hotmail.com  Tue Sep  4 12:40:26 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Tue, 4 Sep 2007 22:40:26 +0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <20070904_170805_031059.rafamv1@ig.com.br>
References: <20070904_170805_031059.rafamv1@ig.com.br>
Message-ID: <BAY121-W165CCAE2E5711B281EE6D1F5CA0@phx.gbl>

> To: cascavel-pm em pm.org
> From: rafamv1 em ig.com.br
> 
> Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou escrevendo 
> para apagar vários valores em um arquivo de texto. Quando digito os nomes 
> que serão removidos e teclo enter, todos os dados do arquivo são apagados. 
> Estou utilizando a sub "excluir_nomes" de forma incorreta?! 
> 
> my $name; 
> foreach $name(@nomes) { 
> excluir_nomes($name); 
> } 
> copy($file, $backup); 
> open( ARQUIVO, '>', "$file" ); 
> open( BACKUP, '<', "$backup" ); 
> 
> sub excluir_nomes { 
> foreach (<BACKUP>) { 
> next if $_ =~ /^$name$/; 
> print ARQUIVO $_; 
>    } 
> } 
> close (ARQUIVO); 
> close (BACKUP); 

Não executei, mas parece correto.

Talvez você ache bastante conveniente usar uma interface "tie" para seu programa. Você recria a estrutura do arquivo numa estrutura de dados do Perl, e ao remover uma linha desse estrutura, automaticamente o arquivo será atualizado.


Seu programa também não está exatamente escrito para ter boa performance, mas se isso não é um problema, está correto. :-)

[]'s
Alceu

_________________________________________________________________
Invite your mail contacts to join your friends list with Windows Live Spaces. It's easy!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/2a07941c/attachment.html 

From glasswalk3r em hotmail.com  Tue Sep  4 12:45:19 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Tue, 4 Sep 2007 22:45:19 +0300
Subject: [Cascavel-pm] [RFC] perldoc -L <lang>
In-Reply-To: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>
References: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>
Message-ID: <BAY121-W2455FCF6B72C4588BA4C06F5CA0@phx.gbl>

> Date: Tue, 4 Sep 2007 15:33:46 -0300
> From: a.r.ferreira em gmail.com
> 
> Feito isto, temos uma simplória internacionalização do perldoc funcionando.
> 
> Em breve vou submeter as mudanças do Pod::Perldoc ao bleadperl.
> Enquanto isso, estou atento a sugestões, comentários, etc.

Acho que eu só posso dizer uma coisa: obrigado! :-)

Talvez seria legal também que automaticamente o perldoc detectasse a língua padrão do ambiente e exibisse a documentação na tradução correspondente. Fazer isso para todas as plataformas em que Perl roda pode ser um pouco complicado, no entanto (alguém tem VMS instalado aí?)

[]'s
Alceu

_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/b4db83fe/attachment.html 

From rafamv1 em ig.com.br  Tue Sep  4 13:05:46 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Tue, 4 Sep 2007 17:05:46 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
Message-ID: <20070904_200546_002299.rafamv1@ig.com.br>


>> my $name; 
>> foreach $name(@nomes) { 
>> excluir_nomes($name); 
>> } 
>> copy($file, $backup); 
>> open( ARQUIVO, '>', "$file" ); 
>> open( BACKUP, '<', "$backup" ); 
>> 
>> sub excluir_nomes { 
>> foreach ( ) { 
>> next if $_ =~ /^$name$/; 
>> print ARQUIVO $_; 
>> } 
>> } 
>> close (ARQUIVO); 
>> close (BACKUP); 
> 
>Não executei, mas parece correto. 
> 
>Talvez você ache bastante conveniente usar uma interface "tie" para seu 
programa. Você recria a estrutura do arquivo numa estrutura de dados do 
Perl, e ao remover uma linha desse estrutura, automaticamente o arquivo será 
atualizado. 
> 
>Seu programa também não está exatamente escrito para ter boa performance, 
mas se isso não é um problema, está correto. :-) 
> 
>[]'s 
>Alceu 

Olá Alceu.. Vou estudar um pouco mais sobre o "tie" e seguir a sua 
orientação. Se a minha lógica está correta, o código deveria apagar  no 
arquivo, todos os nomes da lista "@nomes". Tentei novamente aqui e ele apaga 
todo o conteúdo mesmo!  Tem um detalhe também, depois de executar o código 
ele me retorna: 

readline() on unopened filehandle BACKUP at apgsub.pl line 36. 

mas, se estou certo, "BACKUP" está aberto! 



From gabriel.vieira em gmail.com  Tue Sep  4 13:16:32 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 4 Sep 2007 17:16:32 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <20070904_200546_002299.rafamv1@ig.com.br>
References: <20070904_200546_002299.rafamv1@ig.com.br>
Message-ID: <83d8367f0709041316m720ca7c4y654cf731704583af@mail.gmail.com>

tb nao executei mas o foreach aciona a subrotina antes de abrir os
arquivos, não?


On 9/4/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
>
> >> my $name;
> >> foreach $name(@nomes) {
> >> excluir_nomes($name);
> >> }
> >> copy($file, $backup);
> >> open( ARQUIVO, '>', "$file" );
> >> open( BACKUP, '<', "$backup" );
> >>
> >> sub excluir_nomes {
> >> foreach ( ) {
> >> next if $_ =~ /^$name$/;
> >> print ARQUIVO $_;
> >> }
> >> }
> >> close (ARQUIVO);
> >> close (BACKUP);
> >
> >Não executei, mas parece correto.
> >
> >Talvez você ache bastante conveniente usar uma interface "tie" para seu
> programa. Você recria a estrutura do arquivo numa estrutura de dados do
> Perl, e ao remover uma linha desse estrutura, automaticamente o arquivo será
> atualizado.
> >
> >Seu programa também não está exatamente escrito para ter boa performance,
> mas se isso não é um problema, está correto. :-)
> >
> >[]'s
> >Alceu
>
> Olá Alceu.. Vou estudar um pouco mais sobre o "tie" e seguir a sua
> orientação. Se a minha lógica está correta, o código deveria apagar  no
> arquivo, todos os nomes da lista "@nomes". Tentei novamente aqui e ele apaga
> todo o conteúdo mesmo!  Tem um detalhe também, depois de executar o código
> ele me retorna:
>
> readline() on unopened filehandle BACKUP at apgsub.pl line 36.
>
> mas, se estou certo, "BACKUP" está aberto!
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From cromo.jml em gmail.com  Tue Sep  4 13:20:56 2007
From: cromo.jml em gmail.com (=?ISO-8859-1?Q?M=E1rcio_Vitor?=)
Date: Tue, 4 Sep 2007 17:20:56 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <83d8367f0709041316m720ca7c4y654cf731704583af@mail.gmail.com>
References: <20070904_200546_002299.rafamv1@ig.com.br>
	<83d8367f0709041316m720ca7c4y654cf731704583af@mail.gmail.com>
Message-ID: <3530b8ce0709041320p2f2d3847kaa37fe904be78dbd@mail.gmail.com>

A melhor opção para o caso seria mesmo o "tie", sem o tie eu faria desta
maneira:
...
foreach my $name(@nomes) {
        excluir_nomes($name);
}
sub excluir_nomes {
        my $name = shift;
        open(my $backup, '<', "$backupname" );
        open(my $file, '>', "$filename" );
        while (<$backup>) {
                next if $_ =~ /^$name$/;
                print $file $_;
        }
        close($file);
        close ($backup);
}

Não sei se isto resolve o problema, mas derepente elucida.

Márcio Vitor

On 9/4/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
>
> tb nao executei mas o foreach aciona a subrotina antes de abrir os
> arquivos, não?
>
>
> On 9/4/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> >
> > >> my $name;
> > >> foreach $name(@nomes) {
> > >> excluir_nomes($name);
> > >> }
> > >> copy($file, $backup);
> > >> open( ARQUIVO, '>', "$file" );
> > >> open( BACKUP, '<', "$backup" );
> > >>
> > >> sub excluir_nomes {
> > >> foreach ( ) {
> > >> next if $_ =~ /^$name$/;
> > >> print ARQUIVO $_;
> > >> }
> > >> }
> > >> close (ARQUIVO);
> > >> close (BACKUP);
> > >
> > >Não executei, mas parece correto.
> > >
> > >Talvez você ache bastante conveniente usar uma interface "tie" para seu
> > programa. Você recria a estrutura do arquivo numa estrutura de dados do
> > Perl, e ao remover uma linha desse estrutura, automaticamente o arquivo
> será
> > atualizado.
> > >
> > >Seu programa também não está exatamente escrito para ter boa
> performance,
> > mas se isso não é um problema, está correto. :-)
> > >
> > >[]'s
> > >Alceu
> >
> > Olá Alceu.. Vou estudar um pouco mais sobre o "tie" e seguir a sua
> > orientação. Se a minha lógica está correta, o código deveria apagar  no
> > arquivo, todos os nomes da lista "@nomes". Tentei novamente aqui e ele
> apaga
> > todo o conteúdo mesmo!  Tem um detalhe também, depois de executar o
> código
> > ele me retorna:
> >
> > readline() on unopened filehandle BACKUP at apgsub.pl line 36.
> >
> > mas, se estou certo, "BACKUP" está aberto!
> >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> Gabriel Vieira
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/6f382b13/attachment.html 

From gabriel.vieira em gmail.com  Tue Sep  4 13:30:25 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 4 Sep 2007 17:30:25 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <3530b8ce0709041320p2f2d3847kaa37fe904be78dbd@mail.gmail.com>
References: <20070904_200546_002299.rafamv1@ig.com.br>
	<83d8367f0709041316m720ca7c4y654cf731704583af@mail.gmail.com>
	<3530b8ce0709041320p2f2d3847kaa37fe904be78dbd@mail.gmail.com>
Message-ID: <83d8367f0709041330m6210a16ek9c11189e1d0a8d75@mail.gmail.com>

Abriria o arquivo a cada execução sem necessidade :)

On 9/4/07, Márcio Vitor <cromo.jml em gmail.com> wrote:
> A melhor opção para o caso seria mesmo o "tie", sem o tie eu faria desta
> maneira:
> ...
> foreach my $name(@nomes) {
>         excluir_nomes($name);
> }
> sub excluir_nomes {
>         my $name = shift;
>          open(my $backup, '<', "$backupname" );
>         open(my $file, '>', "$filename" );
>         while (<$backup>) {
>                 next if $_ =~ /^$name$/;
>                 print $file $_;
>         }
>         close($file);
>         close ($backup);
> }
>
> Não sei se isto resolve o problema, mas derepente elucida.
>
> Márcio Vitor
>
>
> On 9/4/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> >
> > tb nao executei mas o foreach aciona a subrotina antes de abrir os
> > arquivos, não?
> >
> >
> > On 9/4/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> > >
> > > >> my $name;
> > > >> foreach $name(@nomes) {
> > > >> excluir_nomes($name);
> > > >> }
> > > >> copy($file, $backup);
> > > >> open( ARQUIVO, '>', "$file" );
> > > >> open( BACKUP, '<', "$backup" );
> > > >>
> > > >> sub excluir_nomes {
> > > >> foreach ( ) {
> > > >> next if $_ =~ /^$name$/;
> > > >> print ARQUIVO $_;
> > > >> }
> > > >> }
> > > >> close (ARQUIVO);
> > > >> close (BACKUP);
> > > >
> > > >Não executei, mas parece correto.
> > > >
> > > >Talvez você ache bastante conveniente usar uma interface "tie" para seu
> > > programa. Você recria a estrutura do arquivo numa estrutura de dados do
> > > Perl, e ao remover uma linha desse estrutura, automaticamente o arquivo
> será
> > > atualizado.
> > > >
> > > >Seu programa também não está exatamente escrito para ter boa
> performance,
> > > mas se isso não é um problema, está correto. :-)
> > > >
> > > >[]'s
> > > >Alceu
> > >
> > > Olá Alceu.. Vou estudar um pouco mais sobre o "tie" e seguir a sua
> > > orientação. Se a minha lógica está correta, o código deveria apagar  no
> > > arquivo, todos os nomes da lista "@nomes". Tentei novamente aqui e ele
> apaga
> > > todo o conteúdo mesmo!  Tem um detalhe também, depois de executar o
> código
> > > ele me retorna:
> > >
> > > readline() on unopened filehandle BACKUP at apgsub.pl line 36.
> > >
> > > mas, se estou certo, "BACKUP" está aberto!
> > >
> > >
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > --
> > Gabriel Vieira
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From cromo.jml em gmail.com  Tue Sep  4 13:42:56 2007
From: cromo.jml em gmail.com (=?ISO-8859-1?Q?M=E1rcio_Vitor?=)
Date: Tue, 4 Sep 2007 17:42:56 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <83d8367f0709041330m6210a16ek9c11189e1d0a8d75@mail.gmail.com>
References: <20070904_200546_002299.rafamv1@ig.com.br>
	<83d8367f0709041316m720ca7c4y654cf731704583af@mail.gmail.com>
	<3530b8ce0709041320p2f2d3847kaa37fe904be78dbd@mail.gmail.com>
	<83d8367f0709041330m6210a16ek9c11189e1d0a8d75@mail.gmail.com>
Message-ID: <3530b8ce0709041342k3f13c4a0w217177d5294fda4@mail.gmail.com>

MAL!!
Então melhor assim né ?

open(my $backup, '<', "$backupname" );
open(my $file, '>', "$filename" );

foreach my $name(@nomes) {
        excluir_nomes($name);
}

sub excluir_nomes {
        my $name = shift;
        while (<$backup>) {
                next if $_ =~ /^$name$/;
                print $file $_;
        }
}
close($file);
close ($backup);


On 9/4/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
>
> Abriria o arquivo a cada execução sem necessidade :)
>
> On 9/4/07, Márcio Vitor <cromo.jml em gmail.com> wrote:
> > A melhor opção para o caso seria mesmo o "tie", sem o tie eu faria desta
> > maneira:
> > ...
> > foreach my $name(@nomes) {
> >         excluir_nomes($name);
> > }
> > sub excluir_nomes {
> >         my $name = shift;
> >          open(my $backup, '<', "$backupname" );
> >         open(my $file, '>', "$filename" );
> >         while (<$backup>) {
> >                 next if $_ =~ /^$name$/;
> >                 print $file $_;
> >         }
> >         close($file);
> >         close ($backup);
> > }
> >
> > Não sei se isto resolve o problema, mas derepente elucida.
> >
> > Márcio Vitor
> >
> >
> > On 9/4/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> > >
> > > tb nao executei mas o foreach aciona a subrotina antes de abrir os
> > > arquivos, não?
> > >
> > >
> > > On 9/4/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> > > >
> > > > >> my $name;
> > > > >> foreach $name(@nomes) {
> > > > >> excluir_nomes($name);
> > > > >> }
> > > > >> copy($file, $backup);
> > > > >> open( ARQUIVO, '>', "$file" );
> > > > >> open( BACKUP, '<', "$backup" );
> > > > >>
> > > > >> sub excluir_nomes {
> > > > >> foreach ( ) {
> > > > >> next if $_ =~ /^$name$/;
> > > > >> print ARQUIVO $_;
> > > > >> }
> > > > >> }
> > > > >> close (ARQUIVO);
> > > > >> close (BACKUP);
> > > > >
> > > > >Não executei, mas parece correto.
> > > > >
> > > > >Talvez você ache bastante conveniente usar uma interface "tie" para
> seu
> > > > programa. Você recria a estrutura do arquivo numa estrutura de dados
> do
> > > > Perl, e ao remover uma linha desse estrutura, automaticamente o
> arquivo
> > será
> > > > atualizado.
> > > > >
> > > > >Seu programa também não está exatamente escrito para ter boa
> > performance,
> > > > mas se isso não é um problema, está correto. :-)
> > > > >
> > > > >[]'s
> > > > >Alceu
> > > >
> > > > Olá Alceu.. Vou estudar um pouco mais sobre o "tie" e seguir a sua
> > > > orientação. Se a minha lógica está correta, o código deveria
> apagar  no
> > > > arquivo, todos os nomes da lista "@nomes". Tentei novamente aqui e
> ele
> > apaga
> > > > todo o conteúdo mesmo!  Tem um detalhe também, depois de executar o
> > código
> > > > ele me retorna:
> > > >
> > > > readline() on unopened filehandle BACKUP at apgsub.pl line 36.
> > > >
> > > > mas, se estou certo, "BACKUP" está aberto!
> > > >
> > > >
> > > >
> > > > _______________________________________________
> > > > Cascavel-pm mailing list
> > > > Cascavel-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > > >
> > >
> > >
> > > --
> > > Gabriel Vieira
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> Gabriel Vieira
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/65a32b05/attachment.html 

From wendelscardua em gmail.com  Tue Sep  4 13:46:34 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Tue, 4 Sep 2007 17:46:34 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <20070904_170805_031059.rafamv1@ig.com.br>
References: <20070904_170805_031059.rafamv1@ig.com.br>
Message-ID: <726229b50709041346p6b924a34yd5c2f1d811108048@mail.gmail.com>

Que tal algo assim (como uma solução inicial, mas não-ótima) :

copy($file, $backup);
open( ARQUIVO, '>', "$file" );
open( BACKUP, '<', "$backup" );
while(my $linha = <BACKUP>) {
     chomp $linha;

     if ( ! grep { $linha eq $_ } @nomes ) { # se ( linha não tá na lista de
nomes )
            print ARQUIVO $linha,"\n";
     }
}
close ARQUIVO;
close BACKUP;

Claro, usar grep aqui é feio, mas é só uma solução inicial... o ideal seria
usar first() (List::Util ? ) ou fazer um loop à mão, testando com eq - pra
quê regexp ?.

Ou então o que *eu* faria:

# no começo
my %hash_nomes; @hash_nomes{ @nomes } = (); # automagicamente criar um hash
cujas chaves sejam os nomes.

# no lugar daquele if:
if ( ! exists $hash_nomes{ $linha } ) { # se (existe a chave $linha no hash
de nomes)

Mas fique de olho no fluxo do seu programa: você tava fazendo um loop que
chama o excluir_nomes, e só depois de acabar o loop é que você tava abrindo
os arquivos.

E, o mais importante:
use strict;
use warnings;

[]s

Wendel


On 9/4/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
>
> Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou
> escrevendo
> para apagar vários valores em um arquivo de texto. Quando digito os nomes
> que serão removidos e teclo enter, todos os dados do arquivo são apagados.
> Estou utilizando a sub "excluir_nomes" de forma incorreta?!
>
> my $name;
> foreach $name(@nomes) {
> excluir_nomes($name);
> }
> copy($file, $backup);
> open( ARQUIVO, '>', "$file" );
> open( BACKUP, '<', "$backup" );
>
> sub excluir_nomes {
> foreach (<BACKUP>) {
> next if $_ =~ /^$name$/;
> print ARQUIVO $_;
>    }
> }
> close (ARQUIVO);
> close (BACKUP);
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/5c058db8/attachment.html 

From wendelscardua em gmail.com  Tue Sep  4 13:53:18 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Tue, 4 Sep 2007 17:53:18 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <3530b8ce0709041342k3f13c4a0w217177d5294fda4@mail.gmail.com>
References: <20070904_200546_002299.rafamv1@ig.com.br>
	<83d8367f0709041316m720ca7c4y654cf731704583af@mail.gmail.com>
	<3530b8ce0709041320p2f2d3847kaa37fe904be78dbd@mail.gmail.com>
	<83d8367f0709041330m6210a16ek9c11189e1d0a8d75@mail.gmail.com>
	<3530b8ce0709041342k3f13c4a0w217177d5294fda4@mail.gmail.com>
Message-ID: <726229b50709041353m36d5a274j58c798db43024cfd@mail.gmail.com>

Beeem melhor (principalmente os open()s).... mas ainda assim, não tá fazendo
a coisa certa...

Note que, da primeira vez que você chamar excluir_nomes, você vai percorrer
todas as linhas do arquivo backup.

Quando você chama excluir_nomes de novo, não vai ter mais linhas pra ler,
então você só vai ter excluido o primeiro nome.

O certo seria você olhar pra cada linha de backup, e decidir de se ela vive
ou morre com base na lista de todos os nomes.  (ou abrir e fechar os
arquivos dentro da função, o que não é muito eficiente)

[]s

Wendel

On 9/4/07, Márcio Vitor <cromo.jml em gmail.com> wrote:
>
> MAL!!
> Então melhor assim né ?
>
> open(my $backup, '<', "$backupname" );
> open(my $file, '>', "$filename" );
>
> foreach my $name(@nomes) {
>         excluir_nomes($name);
> }
>
> sub excluir_nomes {
>         my $name = shift;
>         while (<$backup>) {
>                 next if $_ =~ /^$name$/;
>                 print $file $_;
>         }
> }
> close($file);
> close ($backup);
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070904/d5e55d0e/attachment.html 

From rafamv1 em ig.com.br  Tue Sep  4 13:53:31 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Tue, 4 Sep 2007 17:53:31 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
Message-ID: <20070904_205331_035514.rafamv1@ig.com.br>




> 
> Que tal algo assim (como uma solução inicial, mas não-ótima) : 
> 
>copy($file, $backup); 
>open( ARQUIVO, '>', "$file" ); 
>open( BACKUP, '<', "$backup" ); 
>while(my $linha = ) { 
> 
> chomp $linha; 
> 
> if ( ! grep { $linha eq $_ } @nomes ) { # se ( linha não tá na lista de 
nomes ) 
> print ARQUIVO $linha,"\n"; 
> } 
>} 
>close ARQUIVO; 
>close BACKUP; 
> 
>Claro, usar grep aqui é feio, mas é só uma solução inicial... o ideal seria 
usar first() (List::Util ? ) ou fazer um loop à mão, testando com eq - pra 
quê regexp ?. 
> 
>Ou então o que *eu* faria: 
> 
># no começo 
> 
>my %hash_nomes; @hash_nomes{ @nomes } = (); # automa g icamente criar um 
hash cujas chaves sejam os nomes. 
> 
># no lugar daquele if: 
>if ( ! exists $hash_nomes{ $linha } ) { # se (existe a chave $linha no hash 
de nomes) 
> 
>Mas fique de olho no fluxo do seu programa: você tava fazendo um loop que 
chama o excluir_nomes, e só depois de acabar o loop é que você tava abrindo 
os arquivos. 
> 
>E, o mais importante: 
>use strict; 
>use warnings; 
> 
>[]s 
> 
>Wendel 
> 
> On 9/4/07, Rafael Lebrão Martins < rafamv1 em ig.com.br > wrote: 
>Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou 
escrevendo 
>para apagar vários valores em um arquivo de texto. Quando digito os nomes 
>que serão removidos e teclo enter, todos os dados do arquivo são apagados. 
> 
>Estou utilizando a sub "excluir_nomes" de forma incorreta?! 
> 
>my $name; 
>foreach $name(@nomes) { 
>excluir_nomes($name); 
>} 
>copy($file, $backup); 
>open( ARQUIVO, '>', "$file" ); 
> 
>open( BACKUP, '<', "$backup" ); 
> 
>sub excluir_nomes { 
>foreach ( ) { 
>next if $_ =~ /^$name$/; 
>print ARQUIVO $_; 
> } 
>} 
>close (ARQUIVO); 
>close (BACKUP); 
> 

Estou usando o "strict" e o "warnings", é porque coloquei apenas um pedaço 
do "código"... Obrigado pelas dicas.. 
Vou precisar sair, mas assim que chegar, eu posto o resultado na lista! 
Grato... 



From igor.sutton em yahoo.co.uk  Tue Sep  4 15:01:41 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Wed, 5 Sep 2007 00:01:41 +0200
Subject: [Cascavel-pm] =?iso-8859-1?q?Acentua=E7=E3o?=
In-Reply-To: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
References: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
Message-ID: <C4AFCE0A-4F9E-4EE1-8424-9EBD5CB170E7@yahoo.co.uk>


On Sep 4, 2007, at 2:52 PM, wilsonalencar wrote:

> ASCII utf8 without boom. Sei que deve ser uma coisa simples mas  
> realmente não consigo descobrir como faze-
ASCII utf8?

Decida-se :-)

Dica: se você tem caracteres utf8 DENTRO do seu programa, utilize o  
pragma 'utf8'

<code>
use strict;
use warnings;
use utf8; # supondo que você está gravando seu arquivo com encoding utf8

my $var = "á";
</code>

Boa sorte!

-- Igor


-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070905/6b73a604/attachment-0001.html 

From rafamv1 em ig.com.br  Wed Sep  5 03:49:05 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Wed, 5 Sep 2007 07:49:05 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
Message-ID: <20070905_104905_073091.rafamv1@ig.com.br>

> Beeem melhor (principalmente os open()s).... mas ainda assim, não tá 
fazendo a coisa certa... 
> 
>Note que, da primeira vez que você chamar excluir_nomes, você vai percorrer 
todas as linhas do arquivo backup. 
> 
>Quando você chama excluir_nomes de novo, não vai ter mais linhas pra ler, 
então você só vai ter excluido o primeiro nome. 
> 
>O certo seria você olhar pra cada linha de backup, e decidir de se ela vive 
ou morre com base na lista de todos os nomes. (ou abrir e fechar os arquivos 
dentro da função, o que não é muito eficiente) 
> 
>[]s 
> 
>Wendel 

Alterei o loop, mas continua excluindo apenas o primeiro nome.. Acho que da 
forma que fiz agora, teria que excluir, não? 

copy( $file, $backup ); 
open( ARQUIVO, '>', "$file" ); 
open( BACKUP, '<', "$backup" ); 

foreach my $name(@nomes) { 
excluir_nomes($name); 
} 

sub excluir_nomes{ 
my $name = shift; 
foreach(<BACKUP>) { 
next if $_ =~ /^$name$/; 
print ARQUIVO $_; 
}} 
close (ARQUIVO); 
close (BACKUP); 



From igor.sutton em yahoo.co.uk  Wed Sep  5 04:58:30 2007
From: igor.sutton em yahoo.co.uk (Igor Lopes)
Date: Wed, 5 Sep 2007 12:58:30 +0100 (BST)
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <20070905_104905_073091.rafamv1@ig.com.br>
Message-ID: <160792.40982.qm@web23002.mail.ird.yahoo.com>


--- Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:

> copy( $file, $backup ); 
> open( ARQUIVO, '>', "$file" ); 
> open( BACKUP, '<', "$backup" ); 
> 
> foreach my $name(@nomes) { 
> excluir_nomes($name); 
> } 
> 
> sub excluir_nomes{ 
> my $name = shift; 
> foreach(<BACKUP>) { 
> next if $_ =~ /^$name$/; 
> print ARQUIVO $_; 
> }} 
> close (ARQUIVO); 
> close (BACKUP); 

# abre arquivos utilizando variaveis lexicas
open( my $in,  '<', "in.txt" )  or die "Problemas ao
abrir in.txt: $!";
open( my $out, '>', "out.txt" ) or die "Problemas ao
abrir out.txt: $!";

# nomes que queremos excluir
my @names = qw(larry damian randal);

# cria expressao regular com os nomes declarados
my $names_re = sprintf "(?:%s)", join( '|', @names );

# itera arquivo de entrada
while (<$in>) {
    chomp;
    next if m{$names_re};
    print $out $_, $/;
}

# fecha arquivos
close($out);
close($in);




      ___________________________________________________________
Yahoo! Answers - Got a question? Someone out there knows the answer. Try it
now.
http://uk.answers.yahoo.com/ 

From a.r.ferreira em gmail.com  Wed Sep  5 05:10:39 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Wed, 5 Sep 2007 09:10:39 -0300
Subject: [Cascavel-pm] [RFC] perldoc -L <lang>
In-Reply-To: <BAY121-W2455FCF6B72C4588BA4C06F5CA0@phx.gbl>
References: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>
	<BAY121-W2455FCF6B72C4588BA4C06F5CA0@phx.gbl>
Message-ID: <73ddeb6c0709050510m52ea6123k9a3330f489b47a2b@mail.gmail.com>

On 9/4/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
>
> > Date: Tue, 4 Sep 2007 15:33:46 -0300
> > From: a.r.ferreira em gmail.com
> >
> > Feito isto, temos uma simplória internacionalização do perldoc
> funcionando.
> >
> > Em breve vou submeter as mudanças do Pod::Perldoc ao bleadperl.
> > Enquanto isso, estou atento a sugestões, comentários, etc.
>
> Acho que eu só posso dizer uma coisa: obrigado! :-)
>
> Talvez seria legal também que automaticamente o perldoc detectasse a língua
> padrão do ambiente e exibisse a documentação na tradução correspondente.
> Fazer isso para todas as plataformas em que Perl roda pode ser um pouco
> complicado, no entanto (alguém tem VMS instalado aí?)

Obrigado pelo retorno, Alceu. Quanto à detecção automática, eu creio
que possa ser colocado algum plugin para habilitar este tipo de coisa,
mas não acho que deva fazer parte da configuração default.

O programador Perl é basicamente um orgulhoso, orgulhoso pelo seu
código, orgulhoso pelo seu conhecimento. Depois de anos lendo a
documentação em inglês, ele pode ficar aborrecido de uma configuração
automática que ele não escolheu que determina que agora sua opção
padrão é ler a documentação em português. E em geral, a documentação
original tem a maior expressividade e densidade de informação. Também,
a gente pode estar tão acostumado ao inglês, que tem dificuldades de
entender uma tradução onde não se reconhece imediatamente alguns
termos técnicos.

Por exemplo, lembro de uma questão de SQL onde só depois de algum
tempo consegui ligar "junção" como tradução de "join".

Em Unix, você sempre pode incluir algo como

  alias perldoc='perldoc -L pt_br'

em .bash_profile ou coisa correspondente para o shell que você usa. Em
Windows (e também em Unix) você pode configurar a variável de ambiente
PERLDOC para conter "-L pt_br" com o mesmo efeito.

Como um outro exemplo, não gostei muito quando o Google passou a
escolher a interface em português quando eu usava a máquina de busca.
Felizmente eles tornaram um incômodo permanente que você escolhesse
por si sua interface preferida. Acredito que este tipo de coisa tem de
ser uma escolha explícita do usuário.

E como outro ponto problemático, eu já me cansei de máquinas mal
configuradas que não decidirão corretamente sobre o 'locale' e
'language' que você deveria estar usando. Em geral, será frustrante
para quem pensou que ia começar a ler a documentação em português e
descobre que tem que aprender mais da configuração do seu Unix que
jura que ele está na Califórnia.

Mas a idéia do plugin que pode ser habilitado para fazer a detecção
automática não está descartada e contribuições são bem vindas.

Saudações,
Adriano Ferreira

From rafamv1 em ig.com.br  Wed Sep  5 05:17:14 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Wed, 5 Sep 2007 09:17:14 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
Message-ID: <20070905_121714_030724.rafamv1@ig.com.br>




># abre arquivos utilizando variaveis lexicas 
>open( my $in, '<', "in.txt" ) or die "Problemas ao 
>abrir in.txt: $!"; 
>open( my $out, '>', "out.txt" ) or die "Problemas ao 
>abrir out.txt: $!"; 
> 
># nomes que queremos excluir 
>my @names = qw(larry damian randal); 
> 
># cria expressao regular com os nomes declarados 
>my $names_re = sprintf "(?:%s)", join( '|', @names ); 
> 
># itera arquivo de entrada 
>while (<$in>) { 
> chomp; 
> next if m{$names_re}; 
> print $out $_, $/; 
>} 
> 
># fecha arquivos 
>close($out); 
>close($in); 

Oi Igor, testei aqui e funcionou corretamente. Obrigado.. Havia algo errado 
no "código" que eu escrevi? 

sub excluir_usuario { 
my $name = shift; 
foreach (<BACKUP>) { 
next if $_ =~ /^$name$/; 
print ARQUIVO $_; 
   } 
 } 

Com isso ai ele não deveria excluir um por um?? 



From ptfzs em yahoo.com.br  Wed Sep  5 06:13:01 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 5 Sep 2007 10:13:01 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
Message-ID: <270374.91609.qm@web31311.mail.mud.yahoo.com>

Pessoal.. nao sei se é a melhor forma..
mas tenho um arquivo e preciso ler a 2 linha ( eh o cabecalho) e a 4 linha em diante( sao os dados )

my $arquivo;
my $linha;

while ($arquivo = <*.dat>) 
{
    my $file= $caminho.$arquivo;
    open(INFILE,"< $file") or die "Impossivel abrir o arquivo $_\n";        

    $linha=<INFILE>;            # le a 1 linha e descarta
    $linha=<INFILE>;            # le a 2 linha de variaveis
    @fields= split(/,/,$linha);    --> aqui eh o cabecalho que eu guardo...
.
.
.
 $linha=<Arq_IN>;   # descarta a 3 linha
    
    while ( $linha=<Arq_IN> ) 
    {    # Loop para ler as linhas seguintes...

.........


ele nao esta descartando a 3 linha..
:D



       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070905/9839155a/attachment.html 

From rafamv1 em ig.com.br  Wed Sep  5 06:31:42 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Wed, 5 Sep 2007 10:31:42 -0300
Subject: [Cascavel-pm] Ler Arquivo
Message-ID: <20070905_133142_008792.rafamv1@ig.com.br>



> Pessoal.. nao sei se é a melhor forma.. 
>mas tenho um arquivo e preciso ler a 2 linha ( eh o cabecalho) e a 4 linha 
em diante( sao os dados ) 
> 
>my $arquivo; 
>my $linha; 
> 
>while ($arquivo = <*.dat>) 
>{ 
> my $file= $caminho.$arquivo; 
> open(INFILE,"< $file") or die "Impossivel abrir o arquivo $_\n"; 
> 
> $linha= ; # le a 1 linha e descarta 
> $linha= ; # le a 2 linha de variaveis 
> @fields= split(/,/,$linha); --> aqui eh o cabecalho que eu guardo... 
>. 
>. 
>. 
> $linha= ; # descarta a 3 linha 
> 
> while ( $linha= ) 
> { # Loop para ler as 
> linhas seguintes... 
> 
>......... 
> 
>ele nao esta descartando a 3 linha.. 
>:D 

Eu faria desta forma: 

#!/usr/bin/perl 

use strict; 
use warnings; 

my $arquivo = 'caminho'; 
open (my $infile, '<', "$arquivo"); 
my @linhas = <$infile>; 

foreach (@linhas) { 
next if eq $linhas[2]; 
close ($infile); 
} 



From rafamv1 em ig.com.br  Wed Sep  5 06:37:20 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Wed, 5 Sep 2007 10:37:20 -0300
Subject: [Cascavel-pm] Ler Arquivo
Message-ID: <20070905_133720_067700.rafamv1@ig.com.br>

Correção.. Faltou "$_" na linha: next if ... 

#!/usr/bin/perl 

use strict; 
use warnings; 

my $arquivo = 'caminho'; 
open (my $infile, '<', "$arquivo"); 
my @linhas = <$infile>; 

foreach (@linhas) { 
next if $_ eq $linhas[2]; 
close ($infile); 



From ptfzs em yahoo.com.br  Wed Sep  5 06:39:05 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 5 Sep 2007 10:39:05 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20070905_133142_008792.rafamv1@ig.com.br>
Message-ID: <249664.48951.qm@web31302.mail.mud.yahoo.com>

Mas desse jeito, vc carrrega o arquivo inteiro de uma vez.. :D
Nao eh Nelson?? :) isso nao eh tao elegante assim para um arquivo com diversas linhas :D

Rafael Lebrão Martins <rafamv1 em ig.com.br> escreveu: 

> Pessoal.. nao sei se é a melhor forma.. 
>mas tenho um arquivo e preciso ler a 2 linha ( eh o cabecalho) e a 4 linha 
em diante( sao os dados ) 
> 
>my $arquivo; 
>my $linha; 
> 
>while ($arquivo = <*.dat>) 
>{ 
> my $file= $caminho.$arquivo; 
> open(INFILE,"< $file") or die "Impossivel abrir o arquivo $_\n"; 
> 
> $linha= ; # le a 1 linha e descarta 
> $linha= ; # le a 2 linha de variaveis 
> @fields= split(/,/,$linha); --> aqui eh o cabecalho que eu guardo... 
>. 
>. 
>. 
> $linha= ; # descarta a 3 linha 
> 
> while ( $linha= ) 
> { # Loop para ler as 
> linhas seguintes... 
> 
>......... 
> 
>ele nao esta descartando a 3 linha.. 
>:D 

Eu faria desta forma: 

#!/usr/bin/perl 

use strict; 
use warnings; 

my $arquivo = 'caminho'; 
open (my $infile, '<', "$arquivo"); 
my @linhas = <$infile>; 

foreach (@linhas) { 
next if eq $linhas[2]; 
close ($infile); 
} 


_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070905/2f54cd1c/attachment-0001.html 

From frederico em gmail.com  Wed Sep  5 06:48:00 2007
From: frederico em gmail.com (Frederico Recsky)
Date: Wed, 5 Sep 2007 10:48:00 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <249664.48951.qm@web31302.mail.mud.yahoo.com>
References: <20070905_133142_008792.rafamv1@ig.com.br>
	<249664.48951.qm@web31302.mail.mud.yahoo.com>
Message-ID: <88fe68ee0709050648q6f8558e8xe6d334878a79338e@mail.gmail.com>

Olá!

On 9/5/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Mas desse jeito, vc carrrega o arquivo inteiro de uma vez.. :D
> Nao eh Nelson?? :) isso nao eh tao elegante assim para um arquivo com
> diversas linhas :D

Apenas uma sugestão.

Com certeza essa seu cabe?alho da padrão com alguma coisa, assim como
a 1 e a 3 linha tambem tendem a ser diferentes da 4 para frente. Se
isso for verdade voce poderia fazer somente um while(<%$fh>) e filtrar
por regex ou if , etc..

while(<$fh>){

next if /condicao/;  1 linha
if (/condicao) { $header = $_ ; }

...

}


O legal disso é que você valida o arquivo junto com a "penera" ;)

[]'s


-- 
____________________________
Frederico Recsky
Linux User: #253572
http://www.fred.eti.br
http://www.perl.org.br

From wendelscardua em gmail.com  Wed Sep  5 07:00:26 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Wed, 5 Sep 2007 11:00:26 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
In-Reply-To: <20070905_121714_030724.rafamv1@ig.com.br>
References: <20070905_121714_030724.rafamv1@ig.com.br>
Message-ID: <726229b50709050700h1adbd7f2v5c13fce560162f17@mail.gmail.com>

Você ignorou meu comentário :-(

Olhe direito para a sua função... Leia o que você escreveu, e não o que você
quis escrever [1]

A função excluir_usuário está lendo, uma por uma, todas as linhas do
arquivo, até chegar no final do arquivo. Quando ele chega no final do
arquivo, ele não volta automagicamente pro começo do mesmo.

Quando você chama a função pela segunda vez, o filehandle continua apontando
para o final do arquivo, não havendo mais linhas para ler.

Sim, você poderia "rebobinar" o cursor pro começo do arquivo, mas se você
prestar atenção no que está acontecendo, vai ver que não vai dar certo. (mas
se não conseguir ver o problema que isso causaria, faça seek(BACKUP,0,0) pra
ver por si mesmo, hehehe).

Espero que agora esteja mais claro :-)

[]s

Wendel

[1] - Pelo menos pra mim (e pra algumas pessoas) isso é o que mais atrapalha
na hora de encontrar bugs - só enxergarmos o que quisemos escrever, não o
que de fato foi escrito. Por isso que às vezes, depois de horas quebrando a
cabeça, um amigo pode chegar, bater o olho no seu código e de cara apontar
onde tá o problema :-)

On 9/5/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
>
>
>
> Oi Igor, testei aqui e funcionou corretamente. Obrigado.. Havia algo
> errado
> no "código" que eu escrevi?
>
> sub excluir_usuario {
> my $name = shift;
> foreach (<BACKUP>) {
> next if $_ =~ /^$name$/;
> print ARQUIVO $_;
>    }
> }
>
> Com isso ai ele não deveria excluir um por um??
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070905/2e47ca81/attachment.html 

From rafamv1 em ig.com.br  Wed Sep  5 07:05:22 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Wed, 5 Sep 2007 11:05:22 -0300
Subject: [Cascavel-pm] Apagar nomes em arquivo.
Message-ID: <20070905_140522_047710.rafamv1@ig.com.br>




> Você ignorou meu comentário :-( 
> 
>Olhe direito para a sua função... Leia o que você escreveu, e não o que 
você quis escrever [1] 
> 
>A função excluir_usuário está lendo, uma por uma, todas as linhas do 
arquivo, até chegar no final do arquivo. Quando ele chega no final do 
arquivo, ele não volta automagicamente pro começo do mesmo. 
> 
>Quando você chama a função pela segunda vez, o filehandle continua 
apontando para o final do arquivo, não havendo mais linhas para ler. 
> 
>Sim, você poderia "rebobinar" o cursor pro começo do arquivo, mas se você 
prestar atenção no que está acontecendo, vai ver que não vai dar certo. (mas 
se não conseguir ver o problema que isso causaria, faça seek(BACKUP,0,0) pra 
ver por si mesmo, hehehe). 
> 
>Espero que agora esteja mais claro :-) 
> 
>[]s 
> 
>Wendel 
> 
>[1] - Pelo menos pra mim (e pra algumas pessoas) isso é o que mais 
atrapalha na hora de encontrar 
>bugs - só enxergarmos o que quisemos escrever, não o que de fato foi 
>escrito. Por isso que às vezes, depois de horas quebrando a cabeça, um 
amigo pode chegar, bater o olho no seu código e de cara apontar onde tá o 
problema :-) 
> 
> On 9/5/07, 
>Rafael Lebrão Martins < rafamv1 em ig.com.br > wrote: 
> 
>Oi Igor, testei aqui e funcionou corretamente. Obrigado.. Havia algo errado 
>no "código" que eu escrevi? 
> 
>sub excluir_usuario { 
>my $name = shift; 
>foreach ( ) { 
>next if $_ =~ /^$name$/; 
> 
>print ARQUIVO $_; 
> } 
> } 

Foi mal!! :) Agora eu entendi..Por isso ele apagava apenas o primeiro valor 
da lista.. Obrigado!! 



From flaviobei em gmail.com  Wed Sep  5 08:59:44 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Wed, 5 Sep 2007 12:59:44 -0300
Subject: [Cascavel-pm] =?utf-8?q?sequ=C3=AAncias_de_dados?=
Message-ID: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>

ae pessoal, blz? to com o seguinte problema...

o código a seguir abre um txt e faz algumas verificações, pra testar a
consistencia do mesmo, está funcionando de boa, mas preciso de uma
função a mais, que não consigo achar um jeito de fazer, hj ele está
assim:
isso é uma parte do meio, to usando strict e warnings...

o arquivo é + - assim
H445090    - informações do header
P009988373xxxxxnome.......  - informações do cliente
I97934857985755454             - informações dos pedidos do cliente
(vários I por cliente)
I97934857985755454
I97934857985755454
I97934857985755454
P009988373xxxxxnome.......
I97934857985755454
I97934857985755454
T0000000200000006     - informações sobre o número de clientes e pedidos

hoje eu só pego o número de clientes e confiro com o trailer da ultima
linha, se bater, processo o arquivo para higienização e impressão....
mas agora inventaram que preciso também saber a quantidade de pedidos
(I) por cliente (P)... dai to tentando várias coisas, mas não consigo
relacionar as linhas I com o cliente da linha P acima.... alguma
sugestão?

#=================================================
opendir( DIR, $caminho ) || die "Não pude abrir o diretorio $!\n";
my @files = readdir( DIR );
closedir( DIR );

        foreach( @files ){
        $f =  $_;
        my $completo = $caminho.$f;
        my $extensao = substr($f, -3,3);
        my $trailer = ();
        my $contador = ();

      if ($extensao eq ".ok"){
      open($arquivo, $completo);

      while ($linha = <$arquivo>) {

      #verifica o tipo da linha pelo primeiro caractere (P - cliente,
I - item, T - trailer)
      $tipo = substr $linha, 0, 1;
    				  			
        if ($tipo eq "P"){
        my $nome = substr($linha, 11,49);
        $contador->{$f} ++;
        }elsif ($tipo eq "T"){
        $trailer->{$f} = substr($linha, 1, 8);
        }
      }
			
     if ($contador->{$f} == $trailer->{$f}){.....
    #se verificar o trailer e o número de registros lidos forem iguais
 daqui pra frente blz...-
#=================================================
-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From otaviof em gmail.com  Wed Sep  5 09:17:53 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Wed, 5 Sep 2007 13:17:53 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?sequ=EAncias_de_dados?=
In-Reply-To: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
References: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
Message-ID: <8e3843570709050917g3a4d601g8ae5d41d4f9e1f37@mail.gmail.com>

Flávio,

O seu problema não é codificação, é planejamento.

Acredito que se você orientar o seu código sobre um hash ficaria muito
mais facil, talvez algo assim (só um exemplo):

$hash = {
    <CODCLIENTE> {
        PEDIDOS=> [ (P1), (P2), (P3) ],
        TRAILERS=> [ (T1), (T2), (T3) ],
    }
};

Na hora de inserir um novo cliente, você verifica se ele já existe no
hash, caso afirmativo, você apenas complementa, caso negativo, dá um
append em mais um registro.

Se vc montar uma estrutura assim, ao invés de simplesmente contar, vc
vai conseguir relacionar os seus dados depois, sem contar que fica
organizado para outros métodos/estrutruturas.

um abraço,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From glasswalk3r em hotmail.com  Wed Sep  5 09:56:54 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Wed, 5 Sep 2007 19:56:54 +0300
Subject: [Cascavel-pm] =?iso-8859-1?q?sequ=EAncias_de_dados?=
In-Reply-To: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
References: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
Message-ID: <BAY121-W272F4F6710E8E60ADE9A19F5CB0@phx.gbl>

> Date: Wed, 5 Sep 2007 12:59:44 -0300
> From: flaviobei em gmail.com
>
> o arquivo é + - assim
> H445090    - informações do header
> P009988373xxxxxnome.......  - informações do cliente
> I97934857985755454             - informações dos pedidos do cliente
> (vários I por cliente)
> I97934857985755454
> I97934857985755454
> I97934857985755454
> P009988373xxxxxnome.......
> I97934857985755454
> I97934857985755454
> T0000000200000006     - informações sobre o número de clientes e pedidos
> 
> hoje eu só pego o número de clientes e confiro com o trailer da ultima
> linha, se bater, processo o arquivo para higienização e impressão....
> mas agora inventaram que preciso também saber a quantidade de pedidos
> (I) por cliente (P)... dai to tentando várias coisas, mas não consigo
> relacionar as linhas I com o cliente da linha P acima.... alguma
> sugestão?

Como o Otávio já disse, você precisa encontrar uma forma de estruturar as informações desse arquivo para depois descobrir como fazer a pesquisa que precisa. Sua estrutura final até pode ser criada de forma a facilitar a pesquisa depois, mas procure fazer cada passo separadamente, fica mais fácil resolver o problema. As opções são muitas, mas se você perceber a possibilidade de solicitarem outras informações, considere alimentar um banco de dados relacional com esses dados e depois trabalhar com pesquisas. Se o arquivo de dados for muito grande, pode ser impraticável você tentar separar os dados com um hash em memória.

Pelo exemplo dado, não consegui identificar como relacionar um pedido com o cliente... talvez esteja faltando dados aí.

[]'s
Alceu

_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070905/ec0fdfef/attachment.html 

From fernandolouis em terra.com.br  Wed Sep  5 10:33:16 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Wed, 5 Sep 2007 14:33:16 -0300
Subject: [Cascavel-pm] [OFF] Servlets e JSP
References: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
	<8e3843570709050917g3a4d601g8ae5d41d4f9e1f37@mail.gmail.com>
Message-ID: <003901c7efe2$d84caee0$0e01a8c0@servidorliz>

Amigos, pra que servem o servlets e jsp?

O quão útil eles podem ser numa aplicação web?


[],
Fernando 


From flaviobei em gmail.com  Wed Sep  5 12:44:21 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Wed, 5 Sep 2007 16:44:21 -0300
Subject: [Cascavel-pm] [OFF] Servlets e JSP
In-Reply-To: <003901c7efe2$d84caee0$0e01a8c0@servidorliz>
References: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
	<8e3843570709050917g3a4d601g8ae5d41d4f9e1f37@mail.gmail.com>
	<003901c7efe2$d84caee0$0e01a8c0@servidorliz>
Message-ID: <557376b60709051244p7c2e9782r783b9607b89e41eb@mail.gmail.com>

ae brother, blz?
mano, acho que vc caiu meio de paraquedas na comu do perl, talvez
procure na comu de java...

o que pode rolar entre perl e java é no máximo uma requisição via url,
eu acho...hehe
tem um link ae sobre servlets, ve se ajuda...

http://pt.wikipedia.org/wiki/Servlet

abraço

att

Flávio Bei
Webdesigner
(11) 8964 5315

From edencardim em gmail.com  Wed Sep  5 12:56:27 2007
From: edencardim em gmail.com (eden)
Date: Wed, 5 Sep 2007 16:56:27 -0300
Subject: [Cascavel-pm] [OFF] Servlets e JSP
In-Reply-To: <557376b60709051244p7c2e9782r783b9607b89e41eb@mail.gmail.com>
References: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
	<8e3843570709050917g3a4d601g8ae5d41d4f9e1f37@mail.gmail.com>
	<003901c7efe2$d84caee0$0e01a8c0@servidorliz>
	<557376b60709051244p7c2e9782r783b9607b89e41eb@mail.gmail.com>
Message-ID: <3de55ead0709051256j2602afc0g21e05359daf2029a@mail.gmail.com>

On 9/5/07, Flavio Bei <flaviobei em gmail.com> wrote:
> ae brother, blz?
> mano, acho que vc caiu meio de paraquedas na comu do perl, talvez
> procure na comu de java...
>
> o que pode rolar entre perl e java é no máximo uma requisição via url,
> eu acho...hehe

Podem rolar coisas muito mais promíscuas:
http://search.cpan.org/author/PATL/Inline-Java-0.52/Java.pod

Não recomendo, mas taí, como curiosidade.
-- 
edenc.vox.com

From mdacwb em gmail.com  Wed Sep  5 20:56:07 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Thu, 6 Sep 2007 00:56:07 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <DC2BE969-54DD-46F9-ACEB-31C7B5761BF5@gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
	<12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>
	<42dcdd750709020953u3aca1aeep70885b216ccb3517@mail.gmail.com>
	<12d1f4ee0709031215v7e6f79c1sb65ef1c347bfdd72@mail.gmail.com>
	<42dcdd750709032048x13009710x29d082abc88431a9@mail.gmail.com>
	<557376b60709040629w1e88cd34p3f867bec136386f8@mail.gmail.com>
	<DC2BE969-54DD-46F9-ACEB-31C7B5761BF5@gmail.com>
Message-ID: <42dcdd750709052056g7741d577gadafad4ab9324387@mail.gmail.com>

Ih, já que o Nelson deixou passar, vou sugerir ...

Evite carregar tudo em memoria, parece (e possivelmente é) besteira, mas se
vc não precisa fazer assim, não o faça:

> opendir( DIR, $caminho ) || die "Não pude abrir o diretorio $!\n";


foreach ( readdir(DIR) ) { ... }


>    my $o =  `/sbin/fuser $f`;



E como o Nelson alertou, parece ser o caminho realmente ... uma sugestão
seria:

unless ( chdir($caminho) ) {
   die "Caminho $caminho  inacessivel";
}


Agora, como vc não está usando o caminho absoluto, tudo passa a funcionar
opendir(DIR, ".") || die " ... ";


Mas, seguindo a sugestão glob ... vc dispensa opendir, readdir e closedir
...

foreach ( glob("*.txt") ) { ... }


Outra coisa é o "mv", não use systemcall sem necessidade... use a função
rename!

unless ( rename($source, $target) ) {
   die "Falha ao renomear $source para $target";
}




Sds,
Marco Antonio


Em 04/09/07, Nelson Ferraz <nferraz em gmail.com> escreveu:
>
>
> Em Sep 4, 2007, às 2:29 PM, Flavio Bei escreveu:
>
> > outro problema, sei que deve ser besteira.. mas não achei a solução...
> > alguém tem idéia do que pode ser?
> >
> > eu estava testando o programa rodando na mesma pasta dos arquivos,
> > agora eu to tentando jogar o sistema em uma pasta qualquer e chamar os
> > arquivos, até ai blz, mas não ta funcionando,... não sei o que pode
> > ser, mas ele não acha o caminho....
> >
> > o código é esse:
> >
> > #===============================================
> > use strict;
> > use warnings;
> > my $caminho = '/home/flavio/upload/';
> >
> > opendir( DIR, $caminho ) || die "Não pude abrir o diretorio $!\n";
> > my @files = readdir( DIR );
> > closedir( DIR );
> >
> > foreach( @files ){
> >
> >    my $f =  $_;
> >    if (lc(substr($f, -3,3)) eq "txt"){
> >    my $o =  `/sbin/fuser $f`;
>
> Será que não faltou o caminho antes do nome do arquivo?
>
> foreach my $filename ( @files ) {
>         next if $filename !~ /\.txt$/i; # poderia ter feito um grep antes,
> ou usado um glob
>
>         my $o = `/sbin/fuser $caminho/$filename`;
>
> (A propósito... procure escolher nomes de variáveis melhores, como
> "$filename" ao invés de "$f", e... sei lá o que você estava pensando,
> ao invés de "$o".)
>
> []s
>
> Nelson
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070906/67a805ad/attachment.html 

From rafamv1 em ig.com.br  Thu Sep  6 05:24:08 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 6 Sep 2007 09:24:08 -0300
Subject: Atualização de arquivo.
Message-ID: <20070906_122408_092856.rafamv1@ig.com.br>

Bom dia, Senhores. 
Tenho um arquivo de texto com várias seções.. 
Preciso inserir uma linha numa sessão específica. Tentei fazer o proposto 
assim: 

open (my $in, '+<', "$arquivo"); 
while (<$in>) { 
if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) { 
print $in "algum texto $comando; 
}} 
close ($in); 

O problema é que  (algum texto "$comando") está sobrescrevendo a linha que 
está abaixo do título da 
seção. 
Já tentei resolver adicionando \n antes do comando print e até mesmo 
deixando um grande espaço entre o 
título da seção e o primeiro comando abaixo dele, mas não adiantou. 




From gabriel.vieira em gmail.com  Thu Sep  6 05:31:33 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Thu, 6 Sep 2007 09:31:33 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Atualiza=E7=E3o_de_arquivo=2E?=
In-Reply-To: <20070906_122408_092856.rafamv1@ig.com.br>
References: <20070906_122408_092856.rafamv1@ig.com.br>
Message-ID: <83d8367f0709060531g457af3f6nadc25569f9bc9b24@mail.gmail.com>

experimente escrever junto o conteúdo da linha em questão via $_. :)

On 9/6/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Bom dia, Senhores.
> Tenho um arquivo de texto com várias seções..
> Preciso inserir uma linha numa sessão específica. Tentei fazer o proposto
> assim:
>
> open (my $in, '+<', "$arquivo");
> while (<$in>) {
> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) {
> print $in "algum texto $comando;
> }}
> close ($in);
>
> O problema é que  (algum texto "$comando") está sobrescrevendo a linha que
> está abaixo do título da
> seção.
> Já tentei resolver adicionando \n antes do comando print e até mesmo
> deixando um grande espaço entre o
> título da seção e o primeiro comando abaixo dele, mas não adiantou.
>
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From rafamv1 em ig.com.br  Thu Sep  6 06:03:10 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 6 Sep 2007 10:03:10 -0300
Subject: [Cascavel-pm] Atualização de arquivo.
Message-ID: <20070906_130310_029864.rafamv1@ig.com.br>




Em (09:31:33), Cascavel Perl Mongers escreveu: 


>experimente escrever junto o conteúdo da linha em questão via $_. :) 

Eu recebo a linha da entrada padrão e imprimo no arquivo.. 

my $comando = <STDIN>: 
chomp $comando; 
>> open (my $in, '+<', "$arquivo"); 
>> while (<$in>) { 
>> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) { 
>> print $in "algum texto $comando; 
>> }} 
>> close ($in); 



From filipe.guelber em gmail.com  Thu Sep  6 06:20:24 2007
From: filipe.guelber em gmail.com (Filipe Melo)
Date: Thu, 6 Sep 2007 10:20:24 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Atualiza=E7=E3o_de_arquivo=2E?=
In-Reply-To: <20070906_122408_092856.rafamv1@ig.com.br>
References: <20070906_122408_092856.rafamv1@ig.com.br>
Message-ID: <36cce9920709060620g68e72c0ft8682e1a1867e2ed9@mail.gmail.com>

Nao sei se eh a melhor solucao, mas vc pode fazer dessa forma:
while (<$in>) {
> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) {
           $achei = 1;
           next;
   }
> if($achei){
          print $in "algum texto $comando;
          $achei=0;
> }}
> close ($in);

Outra forma seria abrir em um arquivo e escrever em outro temporario
adicionando a sua linha quando casar a secao.
[]s

Filipe

On 9/6/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Bom dia, Senhores.
> Tenho um arquivo de texto com várias seções..
> Preciso inserir uma linha numa sessão específica. Tentei fazer o proposto
> assim:
>
> open (my $in, '+<', "$arquivo");
> while (<$in>) {
> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) {
> print $in "algum texto $comando;
> }}
> close ($in);
>
> O problema é que  (algum texto "$comando") está sobrescrevendo a linha que
> está abaixo do título da
> seção.
> Já tentei resolver adicionando \n antes do comando print e até mesmo
> deixando um grande espaço entre o
> título da seção e o primeiro comando abaixo dele, mas não adiantou.
>
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Filipe
"Programming today is a race between software engineers striving to
build bigger and better idiot-proof programs, and the Universe trying
to produce bigger and better idiots. So far, the Universe is winning."
Rich Cook

From rafamv1 em ig.com.br  Thu Sep  6 06:38:13 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 6 Sep 2007 10:38:13 -0300
Subject: [Cascavel-pm] Atualização de arquivo.
Message-ID: <20070906_133813_063276.rafamv1@ig.com.br>

Ocorre o mesmo problema. Não sei se abrir um arquivo temporário seria a 
melhor solução. 


>Nao sei se eh a melhor solucao, mas vc pode fazer dessa forma: 
>while (<$in>) { 
>> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) { 
> $achei = 1; 
> next; 
> } 
>> if($achei){ 
> print $in "algum texto $comando; 
> $achei=0; 
>> }} 
>> close ($in); 
> 
>Outra forma seria abrir em um arquivo e escrever em outro temporario 
>adicionando a sua linha quando casar a secao. 
>[]s 
> 
>Filipe 



From nferraz em gmail.com  Thu Sep  6 07:25:09 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 6 Sep 2007 15:25:09 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Atualiza=E7=E3o_de_arquivo=2E?=
In-Reply-To: <20070906_122408_092856.rafamv1@ig.com.br>
References: <20070906_122408_092856.rafamv1@ig.com.br>
Message-ID: <B75C86FC-7962-451A-A9FE-055B177E2A15@gmail.com>

> Bom dia, Senhores.
> Tenho um arquivo de texto com várias seções..

Essa descrição está muito genérica.

Que tipo de arquivo texto? Um arquivo de configuração? Alguma coisa  
parecida com um arquivo INI?

Se for, existem módulos prontos para isso. Se não for, explique  
melhor o seu problema.

[]s

Nelson

From rafamv1 em ig.com.br  Thu Sep  6 07:50:38 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 6 Sep 2007 11:50:38 -0300
Subject: [Cascavel-pm] Atualização de arquivo.
Message-ID: <20070906_145038_055669.rafamv1@ig.com.br>

 Bom dia, Nelson. É um arquivo de configuração, para ser mais exato, 
"squid.conf", o arquivo de configuração do Proxy. O texto que eu irei 
adicionar é algo parecido com: 

acl gdiretoria proxy_auth "/etc/squid/arquivos/grupos/gdiretoria" REQUIRED 

no código: 
acl g$group proxy_auth \"\/etc\/squid\/arquivos\/grupos\/g$group\" REQUIRED 


>Essa descrição está muito genérica. 
> 
>Que tipo de arquivo texto? Um arquivo de configuração? Alguma coisa 
>parecida com um arquivo INI? 
> 
>Se for, existem módulos prontos para isso. Se não for, explique 
>melhor o seu problema. 
> 
>[]s 
> 
>Nelson 



From nferraz em gmail.com  Thu Sep  6 08:21:02 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 6 Sep 2007 16:21:02 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Atualiza=E7=E3o_de_arquivo=2E?=
In-Reply-To: <20070906_145038_055669.rafamv1@ig.com.br>
References: <20070906_145038_055669.rafamv1@ig.com.br>
Message-ID: <2F15A7B2-72C0-4B0E-B550-67E1D97A19FD@gmail.com>

Em Sep 6, 2007, às 3:50 PM, Rafael Lebrão Martins escreveu:

>  Bom dia, Nelson. É um arquivo de configuração, para ser mais exato,
> "squid.conf"

É interessante incluir esse tipo de informação na sua pergunta.

Dá uma olhada no Config::General e outros módulos do namespace Config.

[]s

Nelson

From fernandolouis em terra.com.br  Thu Sep  6 12:47:28 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 6 Sep 2007 16:47:28 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
Message-ID: <001401c7f0be$c28447d0$0e01a8c0@servidorliz>

Fiz um programa para mandar um email marketing e não sei o por quê que no 
IG, o email não abre, é apenas exibido o código fonte (html).

será que é alguma coisa na geração do cabeçalho? Desenvolvi da seguinte 
mandeira:

$email: qualquercoisa em ig.com.br;

open (MAIL, "|/usr/sbin/sendmail -t")
or die "can't open mail program" ;
select MAIL;

print "X-Originating-IP: $ip\n";
print "To: \"$email\" <$email>\n";
print "From: \"Fernando\" <fernandolouis em terra.com.br>\n";
print "Return-Path: fernandolouis em terra.com.br\n";
print "Reply-To: fernandolouis em terra.com.br\n";
print "Subject: Teste email marketing para o email $email?\n";

print "Content-type:text/html\n\n";
print <<"imprime";

<html>
<head>
</head>
<body>
<h1>texto</h1>
</body>
</html>

imprime

select STDOUT;
close MAIL; 


From otaviof em gmail.com  Thu Sep  6 13:25:06 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Thu, 6 Sep 2007 17:25:06 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
In-Reply-To: <001401c7f0be$c28447d0$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
Message-ID: <8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>

On 9/6/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> Fiz um programa para mandar um email marketing e não sei o por quê que no
> IG, o email não abre, é apenas exibido o código fonte (html).
>
> será que é alguma coisa na geração do cabeçalho? Desenvolvi da seguinte
> mandeira:
>
> $email: qualquercoisa em ig.com.br;
>
> open (MAIL, "|/usr/sbin/sendmail -t")
> or die "can't open mail program" ;
> select MAIL;
>
> print "X-Originating-IP: $ip\n";
> print "To: \"$email\" <$email>\n";
> print "From: \"Fernando\" <fernandolouis em terra.com.br>\n";
> print "Return-Path: fernandolouis em terra.com.br\n";
> print "Reply-To: fernandolouis em terra.com.br\n";
> print "Subject: Teste email marketing para o email $email?\n";
>
> print "Content-type:text/html\n\n";
> print <<"imprime";
>
> <html>
> <head>
> </head>
> <body>
> <h1>texto</h1>
> </body>
> </html>
>
> imprime
>
> select STDOUT;
> close MAIL;
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Fernando,

O problema está no cabeçalho, você tem que declarar o "content-type"
mostrando o que cada parte do seu e-mail conterá, por exemplo
"text-html". Porem, uma dica, nao perca seu tempo fazendo um e-mail na
mão, apenas use o MIME::Lite e seja feliz !

http://search.cpan.org/~rjbs/MIME-Lite-3.020/lib/MIME/Lite.pm

Para ajudar na "adaptação" segue também um ótimo artigo:

http://www.revsys.com/writings/perl/sending-email-with-perl.html

boa sorte,

um abraço,

P.S.: tenha uma ótima campanha de e-mail marketing, mas por favor, não
esqueça do reverso e se o meu e-mail estiver na lista, retire-o :-).

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From flaviobei em gmail.com  Thu Sep  6 14:27:51 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Thu, 6 Sep 2007 18:27:51 -0300
Subject: [Cascavel-pm]
	=?utf-8?q?IG_exibe_c=C3=B3digo_fonte_e_n=C3=A3o_o_e?=
	=?utf-8?q?mail_em_html?=
In-Reply-To: <8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
Message-ID: <557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>

exemplo de uso do Mime::Lite

#-----------------manda email
my $from_address = 'from em suaempresa.com.br';
my $to_address   = 'to em suaempresa.com.br';
my $subject      = "Título Email;
my $mime_type    = 'multipart/mixed';

my $msg = MIME::Lite->new(
        To      => $to_address,
        From    => $from_address,
        Subject => $subject,
        Type    => $mime_type
        );

        $msg->attach(Type => 'text/html',
        Data => qq{ <body>
        Aqui vai sua mensagem.
        <br>
        Com html inclusive
        <br>
        </body> }
);

$msg->send('smtp', 'mail');
#------------------ fim email


abraços

--
Flávio Bei
Webdesigner
(11) 8964 5315

From acid06 em gmail.com  Fri Sep  7 14:29:20 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 7 Sep 2007 18:29:20 -0300
Subject: [Cascavel-pm] =?utf-8?b?UkVTOiBBY2VudHVhw6fDo28=?=
In-Reply-To: <00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>
References: <00c301c7eef2$6c8d3bc0$a600a8c0@NOTEDELL>
	<557376b60709040648u1cb21c6pfc0ae0ad5e1764af@mail.gmail.com>
	<00d101c7eeff$b37b9380$a600a8c0@NOTEDELL>
Message-ID: <9a08c9b40709071429j58ce1244s7dae32a08cb4ebc1@mail.gmail.com>

On 9/4/07, wilsonalencar <wilson em bhmoveis.com> wrote:
>   #!/usr/local/bin/perl
>   use Unicode::String qw(latin1);
>   $u = latin1( "á");
>   print $u, "\n";
>
> O que retorna é ?â?í.

O shell do Windows (cmd.exe) utiliza um encoding bizarro. Ele não
utiliza iso-8859-1 (latin1) ou utf-8. Se não me engano ele utiliza a
codepage 1252 ou algo similar.

-Nilson Santos F. Jr.

From luismottacampos em yahoo.co.uk  Sat Sep  8 04:03:13 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Sat, 8 Sep 2007 13:03:13 +0200
Subject: [Cascavel-pm] =?iso-8859-1?q?N=E3o_serve=2C_claro=2E_=5BWas=3A_?=
	=?iso-8859-1?q?=5BOFF=5D_Servlets_e_JSP=5D?=
In-Reply-To: <003901c7efe2$d84caee0$0e01a8c0@servidorliz>
References: <557376b60709050859k2574286y2f21aa3565dfe1f4@mail.gmail.com>
	<8e3843570709050917g3a4d601g8ae5d41d4f9e1f37@mail.gmail.com>
	<003901c7efe2$d84caee0$0e01a8c0@servidorliz>
Message-ID: <200709081303.14170.luismottacampos@yahoo.co.uk>

On Wednesday 05 September 2007 19:33, fernandolouis em terra.com.br wrote:
> Amigos, pra que servem o servlets e jsp?

  Para nada.

> O quão útil eles podem ser numa aplicação web?

  Eu acho que a primeira resposta responde esta aqui também, Fernando. ;-)

  Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}

From ptfzs em yahoo.com.br  Mon Sep 10 05:05:49 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 10 Sep 2007 09:05:49 -0300 (ART)
Subject: [Cascavel-pm] Melhor forma de abrir um arquivo
Message-ID: <183811.57393.qm@web31310.mail.mud.yahoo.com>

Ola Pessoal.. qual  a melhor forma de abrir um arquivo lendo-o linha a linha:



opendir( DIR, $basedir ) or die "Problemas ao abrir diretorio: $!";

foreach my $file (sort(readdir DIR))
{
    next if $file eq '.' or $file eq '..';

    chdir($basedir) || die "\n *** Erro no diretorio $basedir ***";
  
    open my $fh, "<", $file or die "Nao foi Possivel Abrir o Arquivo: $!";
.
..
..
..


ou
----------------------------------------------------------------
chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";

while (my $arquivo = <*.TXT>)
{

  my $infile= $caminho.$arquivo;

  open(ARQIN,$inFile);

...


:)
Obrigada

       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070910/609df0e8/attachment.html 

From nferraz em gmail.com  Mon Sep 10 05:42:52 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 10 Sep 2007 13:42:52 +0100
Subject: [Cascavel-pm] Melhor forma de abrir um arquivo
In-Reply-To: <183811.57393.qm@web31310.mail.mud.yahoo.com>
References: <183811.57393.qm@web31310.mail.mud.yahoo.com>
Message-ID: <46EA4418-40D9-4800-8E26-FC1DD72E3A26@gmail.com>

Em Sep 10, 2007, às 1:05 PM, Patty Silva escreveu:

> Ola Pessoal.. qual  a melhor forma de abrir um arquivo lendo-o  
> linha a linha:
>
> opendir( DIR, $basedir ) or die "Problemas ao abrir diretorio: $!";
>
> foreach my $file (sort(readdir DIR))
> {
>     next if $file eq '.' or $file eq '..';
>
>     chdir($basedir) || die "\n *** Erro no diretorio $basedir ***";
>
>     open my $fh, "<", $file or die "Nao foi Possivel Abrir o  
> Arquivo: $!";
>
>
> ou
> ----------------------------------------------------------------
> chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";
>
> while (my $arquivo = <*.TXT>)
> {
>
>   my $infile= $caminho.$arquivo;
>
>   open(ARQIN,$inFile);

Patty,

A melhor solução talvez seja uma mistura dos dois exemplos:

No primeiro exemplo você faz um chdir antes de abrir o arquivo, o que  
pode levar a problemas se você tiver que trabalhar com diretórios  
diferentes. É melhor definir o caminho explicitamente ao abrir o  
arquivo.

No segundo exemplo você usou um open com apenas dois parâmetros -- e  
não verificou se o open retornou um erro. É melhor usar a forma de  
três parâmetros, verificando o erro como no primeiro exemplo.

[]s

Nelson


From ptfzs em yahoo.com.br  Mon Sep 10 07:41:47 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 10 Sep 2007 11:41:47 -0300 (ART)
Subject: [Cascavel-pm] Arquivo de configuracao
Message-ID: <140677.78600.qm@web31309.mail.mud.yahoo.com>

Pessoal, tenho um arquivo de configuracao em que adiciono ele cmo chave e valor:
assim:

config:
home/home/xxx
dir=/home/xxx/dados/

-----------------------------------------------------------------------------------------------------------------
my %config;
my $config = "/home/xxx/configuracao/config"; 

open (CONFIG,"<$config") || die "O arquivo nao pode ser aberto para leitura\n";

while (<CONFIG>)
{
     my ($chave,$valor) = split(/=/,$_);

     $config{$chave}=$valor;

}

my $diretorio=$config{dir};

chdir ($diretorio) || die "Erro: $caminho \n";  

--> diretorio=/home/xxx/dados/


so que da esse erro:
Uncaught exception from user code:
        Erro : /home/xxx/dados/


e se eu colocar manualmente:
my $diretorio="/home/xxx/dados/"
ai funciona :D

pq sera??

Obrigada

       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070910/ab86423a/attachment.html 

From nferraz em gmail.com  Mon Sep 10 08:03:53 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 10 Sep 2007 16:03:53 +0100
Subject: [Cascavel-pm] Arquivo de configuracao
In-Reply-To: <140677.78600.qm@web31309.mail.mud.yahoo.com>
References: <140677.78600.qm@web31309.mail.mud.yahoo.com>
Message-ID: <3D29E307-0003-4BF9-9DB1-9DF60056FCAF@gmail.com>

> Pessoal, tenho um arquivo de configuracao em que adiciono ele cmo  
> chave e valor:
> assim:
>
> config:
> home/home/xxx
> dir=/home/xxx/dados/

Você precisa *mesmo* escrever este código? Não pode usar um módulo  
pronto?

     use Config::General;
     $conf = new Config::General("file.conf");
     my %config = $conf->getall;

[]s

Nelson


From ptfzs em yahoo.com.br  Mon Sep 10 08:32:17 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 10 Sep 2007 12:32:17 -0300 (ART)
Subject: [Cascavel-pm] Arquivo de configuracao
In-Reply-To: <3D29E307-0003-4BF9-9DB1-9DF60056FCAF@gmail.com>
Message-ID: <813599.47934.qm@web31312.mail.mud.yahoo.com>

oks :) Funcionou Legal..
mas pq sera que nao funcionou com o codigo anterior?? :D

esse use Config::General eu posso escolher o delimitador?
no caso o meu foi = e se eu quisesse |

Obrigada
:D
Nelson Ferraz <nferraz em gmail.com> escreveu: > Pessoal, tenho um arquivo de configuracao em que adiciono ele cmo  
> chave e valor:
> assim:
>
> config:
> home/home/xxx
> dir=/home/xxx/dados/

Você precisa *mesmo* escrever este código? Não pode usar um módulo  
pronto?

     use Config::General;
     $conf = new Config::General("file.conf");
     my %config = $conf->getall;

[]s

Nelson

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


       Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070910/66167a71/attachment.html 

From merlin em camelot.co.pt  Mon Sep 10 09:17:43 2007
From: merlin em camelot.co.pt (Merlin, the Mage)
Date: Mon, 10 Sep 2007 17:17:43 +0100
Subject: [Cascavel-pm] Arquivo de configuracao
In-Reply-To: <813599.47934.qm@web31312.mail.mud.yahoo.com>
References: <813599.47934.qm@web31312.mail.mud.yahoo.com>
Message-ID: <200709101717.43950.merlin@camelot.co.pt>

oix,

Eu diria que o problema são os [\n\r]+ que ficam no final da linhas.

themage

On Monday 10 September 2007 16:32:17 Patty Silva wrote:
> oks :) Funcionou Legal..
> mas pq sera que nao funcionou com o codigo anterior?? :D
>
> esse use Config::General eu posso escolher o delimitador?
> no caso o meu foi = e se eu quisesse |
>
> Obrigada
>
> :D
>
> Nelson Ferraz <nferraz em gmail.com> escreveu: > Pessoal, tenho um arquivo de
> configuracao em que adiciono ele cmo
>
> > chave e valor:
> > assim:
> >
> > config:
> > home/home/xxx
> > dir=/home/xxx/dados/
>
> Você precisa *mesmo* escrever este código? Não pode usar um módulo
> pronto?
>
>      use Config::General;
>      $conf = new Config::General("file.conf");
>      my %config = $conf->getall;
>
> []s
>
> Nelson
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>        Flickr agora em português. Você clica, todo mundo vê. Saiba mais.



-- 
L4SJmhu6pT_vBnPU!VtK em 4yYaWh5kzeQ6JNNb291Dq1A]==slGTESiq78r[%P]#Iw
H83j0O3Uk7.lYX$dCgZGfcoc92wM#HD[vguVa0KLxtixFQf%R$Fz_RB!5ZdXjy


From nferraz em gmail.com  Mon Sep 10 09:26:29 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 10 Sep 2007 17:26:29 +0100
Subject: [Cascavel-pm] Arquivo de configuracao
In-Reply-To: <813599.47934.qm@web31312.mail.mud.yahoo.com>
References: <813599.47934.qm@web31312.mail.mud.yahoo.com>
Message-ID: <79B22CF3-B473-4CDC-9CB8-40443DC30EA0@gmail.com>

> oks :) Funcionou Legal..
> mas pq sera que nao funcionou com o codigo anterior?? :D

Isso você mesma pode descobrir, se imprimir o valor de $! junto com a  
mensagem de erro:

	open (CONFIG,"<$config") or die "Nao le '$config': $!\n";
	chdir ($diretorio) or die "Não entra em '$caminho': $! \n";

[]s

Nelson

From fernandolouis em terra.com.br  Mon Sep 10 10:40:59 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 10 Sep 2007 14:40:59 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
Message-ID: <00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>

Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)

Retornou o seguinte:

Out of memory!
Callback called exit.
END failed--call queue aborted

Porque será!??

[]s,
Fernando

----- Original Message ----- 
From: "Flavio Bei" <flaviobei em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, September 06, 2007 6:27 PM
Subject: Re: [Cascavel-pm]IG exibe código fonte e não o email em html


exemplo de uso do Mime::Lite

#-----------------manda email
my $from_address = 'from em suaempresa.com.br';
my $to_address   = 'to em suaempresa.com.br';
my $subject      = "Título Email;
my $mime_type    = 'multipart/mixed';

my $msg = MIME::Lite->new(
        To      => $to_address,
        From    => $from_address,
        Subject => $subject,
        Type    => $mime_type
        );

        $msg->attach(Type => 'text/html',
        Data => qq{ <body>
        Aqui vai sua mensagem.
        <br>
        Com html inclusive
        <br>
        </body> }
);

$msg->send('smtp', 'mail');
#------------------ fim email


abraços

--
Flávio Bei
Webdesigner
(11) 8964 5315
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From otaviof em gmail.com  Mon Sep 10 12:47:10 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 10 Sep 2007 16:47:10 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
In-Reply-To: <00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
	<00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>
Message-ID: <8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com>

On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)
>
> Retornou o seguinte:
>
> Out of memory!
> Callback called exit.
> END failed--call queue aborted
>
> Porque será!??
>
> []s,
> Fernando
>
> ----- Original Message -----
> From: "Flavio Bei" <flaviobei em gmail.com>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Thursday, September 06, 2007 6:27 PM
> Subject: Re: [Cascavel-pm]IG exibe código fonte e não o email em html
>
>
> exemplo de uso do Mime::Lite
>
> #-----------------manda email
> my $from_address = 'from em suaempresa.com.br';
> my $to_address   = 'to em suaempresa.com.br';
> my $subject      = "Título Email;
> my $mime_type    = 'multipart/mixed';
>
> my $msg = MIME::Lite->new(
>         To      => $to_address,
>         From    => $from_address,
>         Subject => $subject,
>         Type    => $mime_type
>         );
>
>         $msg->attach(Type => 'text/html',
>         Data => qq{ <body>
>         Aqui vai sua mensagem.
>         <br>
>         Com html inclusive
>         <br>
>         </body> }
> );
>
> $msg->send('smtp', 'mail');
> #------------------ fim email
>
>
> abraços
>
> --
> Flávio Bei
> Webdesigner
> (11) 8964 5315
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

inclui no seu código um "use diagnostics" e roda novamente, ele vei
explicar o porque do erro.

From fernandolouis em terra.com.br  Mon Sep 10 13:11:05 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 10 Sep 2007 17:11:05 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com><557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com><00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>
	<8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com>
Message-ID: <003301c7f3e6$bb991d30$0e01a8c0@servidorliz>

> > On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> 
> > wrote:
> > Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)
> >
> > Retornou o seguinte:
> >
> > Out of memory!
> > Callback called exit.
> > END failed--call queue aborted
> >
> > Porque será!??
> >
> > []s,
> > Fernando

> inclui no seu código um "use diagnostics" e roda novamente, ele vei
> explicar o porque do erro.

Deu "Falha de segmentação".

Obrigado pela dica, nunca usei o "use diagnostics"...
Pq será que está dando "Falha de segmentação"?

[]s,
Fernando 


From fernandolouis em terra.com.br  Mon Sep 10 13:28:15 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 10 Sep 2007 17:28:15 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Confirma=E7=E3o_de_leitura_-_enviar_?=
	=?iso-8859-1?q?email_usando_perl?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
Message-ID: <003601c7f3e9$1e0fa5e0$0e01a8c0@servidorliz>

O que usar para confirmação de leitura:

- disposition-notification-to:?

ou

- x-confirm-reading-to: ?

[]s,
Fernando 


From otaviof em gmail.com  Mon Sep 10 13:34:15 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 10 Sep 2007 17:34:15 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
In-Reply-To: <003301c7f3e6$bb991d30$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
	<00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>
	<8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com>
	<003301c7f3e6$bb991d30$0e01a8c0@servidorliz>
Message-ID: <8e3843570709101334n6a2998b9q5210bcc042978df0@mail.gmail.com>

On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> > > On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
> > > wrote:
> > > Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)
> > >
> > > Retornou o seguinte:
> > >
> > > Out of memory!
> > > Callback called exit.
> > > END failed--call queue aborted
> > >
> > > Porque será!??
> > >
> > > []s,
> > > Fernando
>
> > inclui no seu código um "use diagnostics" e roda novamente, ele vei
> > explicar o porque do erro.
>
> Deu "Falha de segmentação".
>
> Obrigado pela dica, nunca usei o "use diagnostics"...
> Pq será que está dando "Falha de segmentação"?
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Fernando,

Este erro está me parecendo ser a sua estação ou servidor (onde você
está rodando o script), dá uma olhada no '$ perldoc diagnostics',
porque tem mais opções para aumentar o nível de detalhes do erro.

um abraço,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From otaviof em gmail.com  Mon Sep 10 13:39:59 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 10 Sep 2007 17:39:59 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Confirma=E7=E3o_de_leitura_-_enviar_?=
	=?iso-8859-1?q?email_usando_perl?=
In-Reply-To: <003601c7f3e9$1e0fa5e0$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
	<003601c7f3e9$1e0fa5e0$0e01a8c0@servidorliz>
Message-ID: <8e3843570709101339r153a439es8351b51d3af037a1@mail.gmail.com>

On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> O que usar para confirmação de leitura:
>
> - disposition-notification-to:?
>
> ou
>
> - x-confirm-reading-to: ?
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Dei uma olhada nos headers dos meus e-mails recebidos e encontrei
muitos "Disposition-Notification-To", acredito que deve ser o certo,
mas só um teste pra confirmar ;-)

From agnaldo em starweb-software.com.br  Mon Sep 10 13:46:54 2007
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Mon, 10 Sep 2007 17:46:54 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Confirma=E7=E3o_de_leitura_-_enviar_?=
	=?iso-8859-1?q?email_usando_perl?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com><557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
	<003601c7f3e9$1e0fa5e0$0e01a8c0@servidorliz>
Message-ID: <008501c7f3eb$b949e3c0$6401a8c0@swmobile>


Disposition-Notification-To:



----- Original Message ----- 
From: <fernandolouis em terra.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Monday, September 10, 2007 5:28 PM
Subject: [Cascavel-pm] Confirmação de leitura - enviar email usando perl


O que usar para confirmação de leitura:

- disposition-notification-to:?

ou

- x-confirm-reading-to: ?

[]s,
Fernando

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 


From gabriel.vieira em gmail.com  Mon Sep 10 18:48:25 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Mon, 10 Sep 2007 22:48:25 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
In-Reply-To: <8e3843570709101334n6a2998b9q5210bcc042978df0@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
	<00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>
	<8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com>
	<003301c7f3e6$bb991d30$0e01a8c0@servidorliz>
	<8e3843570709101334n6a2998b9q5210bcc042978df0@mail.gmail.com>
Message-ID: <83d8367f0709101848l69b6a8a5le82d498ad3e05899@mail.gmail.com>

Quanta complicação!!!

O próprio erro já revela:

my $subject      = "Título Email; # falta o " para fechar

On 9/10/07, Otávio Fernandes <otaviof em gmail.com> wrote:
> On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> > > > On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
> > > > wrote:
> > > > Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)
> > > >
> > > > Retornou o seguinte:
> > > >
> > > > Out of memory!
> > > > Callback called exit.
> > > > END failed--call queue aborted
> > > >
> > > > Porque será!??
> > > >
> > > > []s,
> > > > Fernando
> >
> > > inclui no seu código um "use diagnostics" e roda novamente, ele vei
> > > explicar o porque do erro.
> >
> > Deu "Falha de segmentação".
> >
> > Obrigado pela dica, nunca usei o "use diagnostics"...
> > Pq será que está dando "Falha de segmentação"?
> >
> > []s,
> > Fernando
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
> Fernando,
>
> Este erro está me parecendo ser a sua estação ou servidor (onde você
> está rodando o script), dá uma olhada no '$ perldoc diagnostics',
> porque tem mais opções para aumentar o nível de detalhes do erro.
>
> um abraço,
>
> --
>  | --
>  | Otávio Fernandes < otaviof | gmail | com >
>  | FreeBSD 6.2 Release && GNU/Linux User: 283.396
>  | (( Especial Programação )) http://geekbr.podcastbrasil.com/
>  | --
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From fernandolouis em terra.com.br  Tue Sep 11 09:46:09 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Tue, 11 Sep 2007 13:46:09 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com><557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com><00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz><8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com><003301c7f3e6$bb991d30$0e01a8c0@servidorliz><8e3843570709101334n6a2998b9q5210bcc042978df0@mail.gmail.com>
	<83d8367f0709101848l69b6a8a5le82d498ad3e05899@mail.gmail.com>
Message-ID: <006801c7f493$41b09590$0e01a8c0@servidorliz>

Não, não... eu já havia percebido que faltava fechar aspas. O erro está em 
outra coisa, mas não consigo achar de jeito nenhum

[]s,
Fernando

----- Original Message ----- 
From: "Gabriel Vieira" <gabriel.vieira em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Monday, September 10, 2007 10:48 PM
Subject: Re: [Cascavel-pm]IG exibe código fonte e não o email em html


Quanta complicação!!!

O próprio erro já revela:

my $subject      = "Título Email; # falta o " para fechar

On 9/10/07, Otávio Fernandes <otaviof em gmail.com> wrote:
> On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> > > > On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
> > > > wrote:
> > > > Amigo, criei um teste_email.pl e fiz um teste (perl -w 
> > > > teste_email.pl)
> > > >
> > > > Retornou o seguinte:
> > > >
> > > > Out of memory!
> > > > Callback called exit.
> > > > END failed--call queue aborted
> > > >
> > > > Porque será!??
> > > >
> > > > []s,
> > > > Fernando
> >
> > > inclui no seu código um "use diagnostics" e roda novamente, ele vei
> > > explicar o porque do erro.
> >
> > Deu "Falha de segmentação".
> >
> > Obrigado pela dica, nunca usei o "use diagnostics"...
> > Pq será que está dando "Falha de segmentação"?
> >
> > []s,
> > Fernando
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
> Fernando,
>
> Este erro está me parecendo ser a sua estação ou servidor (onde você
> está rodando o script), dá uma olhada no '$ perldoc diagnostics',
> porque tem mais opções para aumentar o nível de detalhes do erro.
>
> um abraço,
>
> --
>  | --
>  | Otávio Fernandes < otaviof | gmail | com >
>  | FreeBSD 6.2 Release && GNU/Linux User: 283.396
>  | (( Especial Programação )) http://geekbr.podcastbrasil.com/
>  | --
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From thomas em tcnet.com.br  Tue Sep 11 10:10:02 2007
From: thomas em tcnet.com.br (Thomas Britis)
Date: Tue, 11 Sep 2007 14:10:02 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
 =?iso-8859-1?q?ail_em_html?=
In-Reply-To: <83d8367f0709101848l69b6a8a5le82d498ad3e05899@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>	<00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>	<8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com>	<003301c7f3e6$bb991d30$0e01a8c0@servidorliz>	<8e3843570709101334n6a2998b9q5210bcc042978df0@mail.gmail.com>
	<83d8367f0709101848l69b6a8a5le82d498ad3e05899@mail.gmail.com>
Message-ID: <46E6CBEA.5010705@tcnet.com.br>

Como assim 'o erro já revela'??? Não consegui entender.

Gabriel Vieira wrote:
> Quanta complicação!!!
> 
> O próprio erro já revela:
> 
> my $subject      = "Título Email; # falta o " para fechar
> 
> On 9/10/07, Otávio Fernandes <otaviof em gmail.com> wrote:
> 
>>On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
>>
>>>>>On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
>>>>>wrote:
>>>>>Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)
>>>>>
>>>>>Retornou o seguinte:
>>>>>
>>>>>Out of memory!
>>>>>Callback called exit.
>>>>>END failed--call queue aborted
>>>>>
>>>>>Porque será!??
>>>>>
>>>>>[]s,
>>>>>Fernando
>>>
>>>>inclui no seu código um "use diagnostics" e roda novamente, ele vei
>>>>explicar o porque do erro.
>>>
>>>Deu "Falha de segmentação".
>>>
>>>Obrigado pela dica, nunca usei o "use diagnostics"...
>>>Pq será que está dando "Falha de segmentação"?
>>>
>>>[]s,
>>>Fernando
>>>
>>>_______________________________________________
>>>Cascavel-pm mailing list
>>>Cascavel-pm em pm.org
>>>http://mail.pm.org/mailman/listinfo/cascavel-pm
>>>
>>
>>Fernando,
>>
>>Este erro está me parecendo ser a sua estação ou servidor (onde você
>>está rodando o script), dá uma olhada no '$ perldoc diagnostics',
>>porque tem mais opções para aumentar o nível de detalhes do erro.
>>
>>um abraço,
>>
>>--
>> | --
>> | Otávio Fernandes < otaviof | gmail | com >
>> | FreeBSD 6.2 Release && GNU/Linux User: 283.396
>> | (( Especial Programação )) http://geekbr.podcastbrasil.com/
>> | --
>>_______________________________________________
>>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

From gabriel.vieira em gmail.com  Tue Sep 11 10:43:44 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 11 Sep 2007 14:43:44 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?IG_exibe_c=F3digo_fonte_e_n=E3o_o_em?=
	=?iso-8859-1?q?ail_em_html?=
In-Reply-To: <46E6CBEA.5010705@tcnet.com.br>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<8e3843570709061325y73e8561r79554ec02aee054d@mail.gmail.com>
	<557376b60709061427w3666b70fqecc4f887a38ef98b@mail.gmail.com>
	<00f501c7f3d1$c031ebc0$0e01a8c0@servidorliz>
	<8e3843570709101247w31761743j2b9bc6520ae1a1f9@mail.gmail.com>
	<003301c7f3e6$bb991d30$0e01a8c0@servidorliz>
	<8e3843570709101334n6a2998b9q5210bcc042978df0@mail.gmail.com>
	<83d8367f0709101848l69b6a8a5le82d498ad3e05899@mail.gmail.com>
	<46E6CBEA.5010705@tcnet.com.br>
Message-ID: <83d8367f0709111043o398b1021weadb68b525db16ac@mail.gmail.com>

* o código eu quis dizer

pensamento não acompanhou a digitação :)

On 9/11/07, Thomas Britis <thomas em tcnet.com.br> wrote:
> Como assim 'o erro já revela'??? Não consegui entender.
>
> Gabriel Vieira wrote:
> > Quanta complicação!!!
> >
> > O próprio erro já revela:
> >
> > my $subject      = "Título Email; # falta o " para fechar
> >
> > On 9/10/07, Otávio Fernandes <otaviof em gmail.com> wrote:
> >
> >>On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> >>
> >>>>>On 9/10/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
> >>>>>wrote:
> >>>>>Amigo, criei um teste_email.pl e fiz um teste (perl -w teste_email.pl)
> >>>>>
> >>>>>Retornou o seguinte:
> >>>>>
> >>>>>Out of memory!
> >>>>>Callback called exit.
> >>>>>END failed--call queue aborted
> >>>>>
> >>>>>Porque será!??
> >>>>>
> >>>>>[]s,
> >>>>>Fernando
> >>>
> >>>>inclui no seu código um "use diagnostics" e roda novamente, ele vei
> >>>>explicar o porque do erro.
> >>>
> >>>Deu "Falha de segmentação".
> >>>
> >>>Obrigado pela dica, nunca usei o "use diagnostics"...
> >>>Pq será que está dando "Falha de segmentação"?
> >>>
> >>>[]s,
> >>>Fernando
> >>>
> >>>_______________________________________________
> >>>Cascavel-pm mailing list
> >>>Cascavel-pm em pm.org
> >>>http://mail.pm.org/mailman/listinfo/cascavel-pm
> >>>
> >>
> >>Fernando,
> >>
> >>Este erro está me parecendo ser a sua estação ou servidor (onde você
> >>está rodando o script), dá uma olhada no '$ perldoc diagnostics',
> >>porque tem mais opções para aumentar o nível de detalhes do erro.
> >>
> >>um abraço,
> >>
> >>--
> >> | --
> >> | Otávio Fernandes < otaviof | gmail | com >
> >> | FreeBSD 6.2 Release && GNU/Linux User: 283.396
> >> | (( Especial Programação )) http://geekbr.podcastbrasil.com/
> >> | --
> >>_______________________________________________
> >>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
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From igor.sutton em yahoo.co.uk  Tue Sep 11 07:21:18 2007
From: igor.sutton em yahoo.co.uk (Igor Lopes)
Date: Tue, 11 Sep 2007 15:21:18 +0100 (BST)
Subject: [Cascavel-pm] Fwd: [Jobs] Dada - Teleworking London
Message-ID: <364342.49710.qm@web23009.mail.ird.yahoo.com>


--- Hakim Cassimally <hakim.cassimally em gmail.com>
wrote:

> Date: Tue, 11 Sep 2007 14:59:08 +0200
> From: "Hakim Cassimally"
> <hakim.cassimally em gmail.com>
> To: Jobs em london.pm.org
> Subject: [Jobs] Dada - Teleworking London
> 
> Hi,
> 
> My employers, Dada are looking for good Perl devs
> and are currently looking at
> expanding the London office on a teleworking basis.
> 
> The rate is somewhat up for discussion while HR get
> to know the market, but
> it'll be benchmarked against London contract
> telework rates.
> 
> (Other locations are available too, see
> announcement).
> 
> If you're interested and want to know more official
> details, please send CVs
> and questions to the HR guys
> (recruiting em staff.dada.net).
> 
> Alternatively, I'm happy to chat /informally/ via
> email or IRC
> 
> Hakim (osfameron on #london.pm)
> 
> === announcement ===
> Dada S.p.A. is an Internet Company quoted on the
> Milan Stock Exchange.
> It's active in the main international markets and is
> leader in some fields
> within community and entertainment services
> (Internet & Mobile).  Due to the
> strong growth of our business (www.dada.net) we are
> looking for Perl Developers
> to join our international and passionate team.
> 
> The ideal candidate would have experience with
> Linux, XML and Open Source
> systems, and have been developing applications for
> the web over +the last few
> years.  Experience in the Mobile sector would be an
> advantage.
> 
> Requirements:
> *       IT or electronics background
> *       Good knowledge of Perl and Apache on
> Linux/Unix OS
> *       Fluent in English
> 
> Desired:
> 
> *       Passion for the Internet, new technologies
> and systems integration
> *       Interest and experience in community sites,
> especially in the consumer
> entertainment (web & mobile) field
> *       Willing to learn Italian
> 
> You Are:
> 
> *       A highly driven self starter
> *       Results focused
> *       Willing to work in a dynamic and exciting
> environment
> 
> Multiple locations: Florence, Milan, Barcelona,
> London, New York, Rio de
> Janeiro, Beijing.
> 
> Email your resume to recruiting em staff.dada.net
> _______________________________________________
> Jobs mailing list
> Jobs em london.pm.org
> http://london.pm.org/mailman/listinfo/jobs
> 



      ___________________________________________________________ 
Want ideas for reducing your carbon footprint? Visit Yahoo! For Good  http://uk.promotions.yahoo.com/forgood/environment.html

From otaviof em gmail.com  Tue Sep 11 11:45:36 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Tue, 11 Sep 2007 15:45:36 -0300
Subject: [Cascavel-pm] Loop dentro de outro loop
Message-ID: <8e3843570709111145i288d2029s5cb10095cf28c60c@mail.gmail.com>

Senhores,

Estou com a seguinte situação:

-------
while ( << foo >> ) {

    if ( $something ) { next; }

    foreach ( << foo2 >> ) {
          (...)
          if ( $otherstuff ) { goto next; }
          (...)
    }

    w_next: next;

}
-------

Porem, como um programador C, eu não vejo o goto como uma boa
alternativa, em termos de codificação, vocês conhecem alguma
alternativa para o meu caso ?

um abraço,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From wendelscardua em gmail.com  Tue Sep 11 11:52:48 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Tue, 11 Sep 2007 15:52:48 -0300
Subject: [Cascavel-pm] Loop dentro de outro loop
In-Reply-To: <8e3843570709111145i288d2029s5cb10095cf28c60c@mail.gmail.com>
References: <8e3843570709111145i288d2029s5cb10095cf28c60c@mail.gmail.com>
Message-ID: <726229b50709111152l4489af50ofc2ab5035f20d65c@mail.gmail.com>

No seu caso em particular...


while ( << foo >> ) {

    if ( $something ) { next; }

    foreach ( << foo2 >> ) {
          (...)
          if ( $otherstuff ) { last; }
          (...)
    }

    next;

}


[]s
Wendel


On 9/11/07, Otávio Fernandes <otaviof em gmail.com> wrote:
>
> Senhores,
>
> Estou com a seguinte situação:
>
> -------
> while ( << foo >> ) {
>
>     if ( $something ) { next; }
>
>     foreach ( << foo2 >> ) {
>           (...)
>           if ( $otherstuff ) { goto next; }
>           (...)
>     }
>
>     w_next: next;
>
> }
> -------
>
> Porem, como um programador C, eu não vejo o goto como uma boa
> alternativa, em termos de codificação, vocês conhecem alguma
> alternativa para o meu caso ?
>
> um abraço,
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070911/f81ea5ad/attachment.html 

From otaviof em gmail.com  Tue Sep 11 12:13:07 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Tue, 11 Sep 2007 16:13:07 -0300
Subject: [Cascavel-pm] Loop dentro de outro loop
In-Reply-To: <726229b50709111152l4489af50ofc2ab5035f20d65c@mail.gmail.com>
References: <8e3843570709111145i288d2029s5cb10095cf28c60c@mail.gmail.com>
	<726229b50709111152l4489af50ofc2ab5035f20d65c@mail.gmail.com>
Message-ID: <8e3843570709111213m17cbec41g74e9885244741c67@mail.gmail.com>

Então Wendel,

Bem simples a sua solução, mas não eh isso que eu espero, gostaria de
poder ter controle do meu loop primario dentro do secundário ... será
que tem como ?

um abraço,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From acid06 em gmail.com  Tue Sep 11 16:08:20 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 11 Sep 2007 20:08:20 -0300
Subject: [Cascavel-pm] Loop dentro de outro loop
In-Reply-To: <8e3843570709111213m17cbec41g74e9885244741c67@mail.gmail.com>
References: <8e3843570709111145i288d2029s5cb10095cf28c60c@mail.gmail.com>
	<726229b50709111152l4489af50ofc2ab5035f20d65c@mail.gmail.com>
	<8e3843570709111213m17cbec41g74e9885244741c67@mail.gmail.com>
Message-ID: <9a08c9b40709111608y1bff75a1t3f39a933984dd60c@mail.gmail.com>

On 9/11/07, Otávio Fernandes <otaviof em gmail.com> wrote:
> Bem simples a sua solução, mas não eh isso que eu espero, gostaria de
> poder ter controle do meu loop primario dentro do secundário ... será
> que tem como ?

LABEL1: while ( ... ) {
  LABEL2: while ( ... ) {
    next LABEL1 if ( .. );
  }
}

perldoc -f next

-Nilson Santos F. Jr.

From andreoandre em gmail.com  Wed Sep 12 04:13:51 2007
From: andreoandre em gmail.com (=?ISO-8859-1?Q?Andr=E9_Moura?=)
Date: Wed, 12 Sep 2007 08:13:51 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?F=F3rum_ABCD?=
Message-ID: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>

Senhores,

Estamos organizando um evento em santo andré - sp, que é o III forum
do ABC ( http://www.psl-abcd.org/psl-abcd/news.php ) sobre Software
Livre, gostaria de saber se alguém aqui da lista teria alguma palestra
que deseje apresentar?


O evento vai cerca de 200 a 300 pessoas...

Achei que seria interessante divulgamos algum assunto relacionado ao
Perl, pois muitos já ouviram falar da linguagem e poucos conhecem a
fundo, se algum monger puder informar uma proposta.....



-- 
André O Moura
http://andrem.wordpress.com

From shonorio em gmail.com  Wed Sep 12 05:25:49 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Wed, 12 Sep 2007 09:25:49 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?F=F3rum_ABCD?=
In-Reply-To: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
References: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
Message-ID: <12d1f4ee0709120525o3ad1411cy74a875676c925bc3@mail.gmail.com>

André, tenho todo o interesse pessoal e de divulgação na lista do São Paulo
Perl Mongers, só que não está claro para mim quando ocorrerá, qual o público
e como ocorrerá a seleção das palestras (se houver mais de uma é claro).

Solli

On 9/12/07, André Moura <andreoandre em gmail.com> wrote:
>
> Senhores,
>
> Estamos organizando um evento em santo andré - sp, que é o III forum
> do ABC ( http://www.psl-abcd.org/psl-abcd/news.php ) sobre Software
> Livre, gostaria de saber se alguém aqui da lista teria alguma palestra
> que deseje apresentar?
>
>
> O evento vai cerca de 200 a 300 pessoas...
>
> Achei que seria interessante divulgamos algum assunto relacionado ao
> Perl, pois muitos já ouviram falar da linguagem e poucos conhecem a
> fundo, se algum monger puder informar uma proposta.....
>
>
>
> --
> André O Moura
> http://andrem.wordpress.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070912/305b182a/attachment.html 

From fernandolouis em terra.com.br  Wed Sep 12 11:00:45 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Wed, 12 Sep 2007 15:00:45 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_SQL_-_puxar_v=E1rias_linhas?=
	=?iso-8859-1?q?_sem_acessar_uma-a-uma?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
Message-ID: <000801c7f566$e6c24870$0e01a8c0@servidorliz>

Amigos, utilizo banco de dados mysql e estou com uma dúvida:

Quero copiar várias linhas de uma tabela para outra.

As linhas que desejo copiar para outra tabela são todas que tenham `dados` = 
'1'.

Para isso, eu penso em fazer assim.

Fazer um select na `tabela_a` e puxar todas as linhas com `dados` = '1', 
então cada linha que
eu "puxar", vou gravando na `tabela_b`.

Não tem uma maneira mais prática para fazer isso num único comando? Do tipo:

copy `tabela_a` WHERE `dados` = '1'
to `tabela_b`;

:-)

[]s,
Fernando 


From glasswalk3r em hotmail.com  Wed Sep 12 11:07:20 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Wed, 12 Sep 2007 21:07:20 +0300
Subject: [Cascavel-pm] =?iso-8859-1?q?_RE=3A__=5BOT=5D_SQL_-_puxar_v=E1ria?=
 =?iso-8859-1?q?s_linhas_sem_acessar_uma-a-uma?=
In-Reply-To: <000801c7f566$e6c24870$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz> 
	<000801c7f566$e6c24870$0e01a8c0@servidorliz>
Message-ID: <BAY121-W17C0D668E7B7CF5714B88FF5C20@phx.gbl>

Não sei versões mais novas do MySQL, mas desde sempre o BD tem um utilitário de linha de comando para backup. Esse utilitário gera comandos SQL para criar a tabela e depois fazer os devidos inserts na tabela. Com um pouco de trabalho, você consegue separar apenas os comandos INSERT's e executá-los na outra tabela.

[]'s
Alceu

> From: fernandolouis em terra.com.br
> To: cascavel-pm em pm.org
> Amigos, utilizo banco de dados mysql e estou com uma dúvida:
> 
> Quero copiar várias linhas de uma tabela para outra.
> 
> As linhas que desejo copiar para outra tabela são todas que tenham `dados` = 
> '1'.
> 
> Para isso, eu penso em fazer assim.
> 
> Fazer um select na `tabela_a` e puxar todas as linhas com `dados` = '1', 
> então cada linha que
> eu "puxar", vou gravando na `tabela_b`.
> 
> Não tem uma maneira mais prática para fazer isso num único comando? Do tipo:
> 
> copy `tabela_a` WHERE `dados` = '1'
> to `tabela_b`;


_________________________________________________________________
Invite your mail contacts to join your friends list with Windows Live Spaces. It's easy!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070912/58955d1d/attachment.html 

From thomas em tcnet.com.br  Wed Sep 12 11:09:16 2007
From: thomas em tcnet.com.br (Thomas Britis)
Date: Wed, 12 Sep 2007 15:09:16 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?=5BOT=5D_SQL_-_puxar_v=E1rias_linhas?=
 =?iso-8859-1?q?_sem_acessar_uma-a-uma?=
In-Reply-To: <000801c7f566$e6c24870$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7f566$e6c24870$0e01a8c0@servidorliz>
Message-ID: <46E82B4C.5000304@tcnet.com.br>

CREATE table x AS SELECT * FROM y WHERE dados = 1; # Se for nova tabela

ou

INSERT INTO y (nome) SELECT x.nome FROM x WHERE dados = 1; # Untested

fernandolouis em terra.com.br wrote:
> Amigos, utilizo banco de dados mysql e estou com uma dúvida:
> 
> Quero copiar várias linhas de uma tabela para outra.
> 
> As linhas que desejo copiar para outra tabela são todas que tenham `dados` = 
> '1'.
> 
> Para isso, eu penso em fazer assim.
> 
> Fazer um select na `tabela_a` e puxar todas as linhas com `dados` = '1', 
> então cada linha que
> eu "puxar", vou gravando na `tabela_b`.
> 
> Não tem uma maneira mais prática para fazer isso num único comando? Do tipo:
> 
> copy `tabela_a` WHERE `dados` = '1'
> to `tabela_b`;
> 
> :-)
> 
> []s,
> Fernando 
> 
> _______________________________________________
> 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

From mmmferreira em gmail.com  Wed Sep 12 11:09:23 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Wed, 12 Sep 2007 15:09:23 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOT=5D_SQL_-_puxar_v=E1rias_linhas?=
	=?iso-8859-1?q?_sem_acessar_uma-a-uma?=
In-Reply-To: <000801c7f566$e6c24870$0e01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7f566$e6c24870$0e01a8c0@servidorliz>
Message-ID: <ab9b7e900709121109o360d11ao6f12e534ce15bcad@mail.gmail.com>

vc pode user a sintaxe "insert ... select ..."
no manual do MySQL vc encontra todos os detalhes dessa sintaxe.

Márcio Ferreira

Em 12/09/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
escreveu:
>
> Amigos, utilizo banco de dados mysql e estou com uma dúvida:
>
> Quero copiar várias linhas de uma tabela para outra.
>
> As linhas que desejo copiar para outra tabela são todas que tenham `dados`
> =
> '1'.
>
> Para isso, eu penso em fazer assim.
>
> Fazer um select na `tabela_a` e puxar todas as linhas com `dados` = '1',
> então cada linha que
> eu "puxar", vou gravando na `tabela_b`.
>
> Não tem uma maneira mais prática para fazer isso num único comando? Do
> tipo:
>
> copy `tabela_a` WHERE `dados` = '1'
> to `tabela_b`;
>
> :-)
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
www.Empregar.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070912/ab915137/attachment-0001.html 

From alexjfalcao em universia.com.br  Wed Sep 12 20:50:39 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Thu, 13 Sep 2007 00:50:39 -0300
Subject: [Cascavel-pm] Redirecionamento com Ajax
Message-ID: <d25a071d0709122050u7c2a229fy6f5f3085eec7539@mail.gmail.com>

Salve monges,

    estou fazendo algumas coisas simples com o CGI::Ajax, mas estou tendo um
problema.
    No codigo abaixo, quando digito o nome alex, mostro a mensagem, ai foi
facil.
    Mas o que eu preciso fazer e redirecionar para outra pagina quando
digito errado, no exemplo, simplesmente mostrei o texto, mas precisava
redirecionar.

   Alguem tem alguma ideia?

Obrigado a todos

<code>
use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;

my $ex_verifica = sub {
    my $nome = shift || undef;

    if ($nome eq 'alex') {
        return "OI $nome";
    } else {
        return "DIRECIONA PARA x.pl?n=$nome";
    }
};

my $inicial = sub {

    my $html =<<EOF;
        <html>
        <head></head>
        <body>
        DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
        <input value="envia" type="button" id="bt"
onClick="verifica(['nome'],['div_msg']);"><br>
        <div id="div_msg"></div>
        </body>
        </html>
EOF

    return $html;
};

my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
print $pjx->build_html($cgi,$inicial); # this outputs the html for the page

</code>

-- 

______________________________
                Alex Falcão
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070913/6ef81642/attachment.html 

From andreoandre em gmail.com  Thu Sep 13 04:14:18 2007
From: andreoandre em gmail.com (=?ISO-8859-1?Q?Andr=E9_Moura?=)
Date: Thu, 13 Sep 2007 08:14:18 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?F=F3rum_ABCD?=
In-Reply-To: <12d1f4ee0709120525o3ad1411cy74a875676c925bc3@mail.gmail.com>
References: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
	<12d1f4ee0709120525o3ad1411cy74a875676c925bc3@mail.gmail.com>
Message-ID: <f77315b60709130414u1390075bqe8a2dcb4dc651bc3@mail.gmail.com>

Solli,

Estamos acertando as coisas para este forum, nos anos anteriores já
palestraram pessoas como o cristiano anderson, marcelo tosatti, júlio
neves entre outros. o público são em sua maioria administradores de
redes e programadores, sendo que vai muita gente das faculdades da
região.

Vou informar sobre seu interesse e logo te passo noticias sobre......

Veja neste link como foi o fórum ano passado:

http://www.psl-abcd.org/forum/2006/

Vlw

From glasswalk3r em hotmail.com  Thu Sep 13 06:17:03 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Thu, 13 Sep 2007 16:17:03 +0300
Subject: [Cascavel-pm] Redirecionamento com Ajax
In-Reply-To: <d25a071d0709122050u7c2a229fy6f5f3085eec7539@mail.gmail.com>
References: <d25a071d0709122050u7c2a229fy6f5f3085eec7539@mail.gmail.com>
Message-ID: <BAY121-W21754F9461C5A8691CF1DEF5C30@phx.gbl>

Oi Alex,

Seu script Ajax está alterando apenas uma parte da página? Se for, acho que não dá para utilizar meta tags de refresh. Não sei se você consegue fazer isso via cabeçalho HTTP.

O que você poderia tentar fazer é enviar via Ajax um controle em Javascript mesmo para redirecionar o usuário depois de n segundos.

[]'s
Alceu

Date: Thu, 13 Sep 2007 00:50:39 -0300
From: alexjfalcao em universia.com.br
To: cascavel-pm em pm.org
Subject: [Cascavel-pm] Redirecionamento com Ajax

Salve monges,

    estou fazendo algumas coisas simples com o CGI::Ajax, mas estou tendo um problema.
    No codigo abaixo, quando digito o nome alex, mostro a mensagem, ai foi facil. 
    Mas o que eu preciso fazer e redirecionar para outra pagina quando digito errado, no exemplo, simplesmente mostrei o texto, mas precisava redirecionar.


   Alguem tem alguma ideia?

Obrigado a todos

<code>
use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;

my $ex_verifica = sub {
    my $nome = shift || undef;
    

    if ($nome eq 'alex') {
        return "OI $nome";
    } else {
        return "DIRECIONA PARA x.pl?n=$nome";
    }
};

my $inicial = sub {

    my $html =<<EOF;

        <html>
        <head></head>
        <body>
        DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
        <input value="envia" type="button" id="bt" onClick="verifica(['nome'],['div_msg']);"><br>

        <div id="div_msg"></div>
        </body>
        </html>
EOF

    return $html;
};

my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);

print $pjx->build_html($cgi,$inicial); # this outputs the html for the page

</code>
-- 

______________________________
                Alex Falcão

_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070913/ed2cb853/attachment.html 

From flaviobei em gmail.com  Thu Sep 13 06:42:41 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Thu, 13 Sep 2007 10:42:41 -0300
Subject: [Cascavel-pm] Aptana
Message-ID: <557376b60709130642v33d333e7w35e95fedbd14502@mail.gmail.com>

Opa pessoal, blz?
alguém ai usa o aptana?
comecei usando pra php, e achei um módulo muito bom pra perl, chamado epic...
pra quem ainda não conhece o aptana, é uma ide freeware, derivada do
eclipse, com módulo pra tudo que linguagem que vc imaginar...

pra quem já usa, o link do módulo epic, pra ser inserido na área de
atualização de software é: http://e-p-i-c.sf.net/updates

dai ele baixa um plugin de menos de 1 mb e começa a abrir perl com
vários recursos..

pra quem não usa o aptana ainda, esse é o link dele: www.aptana.com

eu consegui configurar ele no pendrive, ficou muito show, rodando
completo, com jre e tudo... só colocar o diretório /bin e /lib dentro
de uma pasta chamada jre na raiz do aptana, dai ele roda no pen
direitinho e leve...

abraços

-- 
--
Flávio Bei
Webdesigner
(11) 8964 5315

From alexjfalcao em universia.com.br  Thu Sep 13 07:28:07 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Thu, 13 Sep 2007 11:28:07 -0300
Subject: [Cascavel-pm] Redirecionamento com Ajax
In-Reply-To: <BAY121-W21754F9461C5A8691CF1DEF5C30@phx.gbl>
References: <d25a071d0709122050u7c2a229fy6f5f3085eec7539@mail.gmail.com>
	<BAY121-W21754F9461C5A8691CF1DEF5C30@phx.gbl>
Message-ID: <d25a071d0709130728l663790e1g152e5a52820797c7@mail.gmail.com>

Oi Alceu,

   muito obrigado, mas eu já havia tentado com javascript, talvez tenha
feito algo errado, pois não funcionou. Segue o código.

Se mais alguem tiver algum palpite, agradeço

Abraço a todos

<code>
use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;

my $ex_verifica = sub {
    my $nome = shift || undef;

    if ($nome eq 'alex') {
        return "OI $nome";
    } else {
        return "<script language=\"Javascript\">window.location=\"x.pl\
"</script>";
    }
};

my $inicial = sub {

    my $html =<<EOF;
        <html>
        <head>
        </head>
        <body>
        DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
        <input value="envia" type="button" id="bt"
onClick="verifica(['nome'],['div_msg']);"><br>
        <div id="div_msg"></div>
        </body>
        </html>
EOF

    return $html;
};

my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
print $pjx->build_html($cgi,$inicial);
</code>

Em 13/09/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
escreveu:
>
> Oi Alex,
>
> Seu script Ajax está alterando apenas uma parte da página? Se for, acho
> que não dá para utilizar meta tags de refresh. Não sei se você consegue
> fazer isso via cabeçalho HTTP.
>
> O que você poderia tentar fazer é enviar via Ajax um controle em
> Javascript mesmo para redirecionar o usuário depois de n segundos.
>
> []'s
> Alceu
>
> ------------------------------
> Date: Thu, 13 Sep 2007 00:50:39 -0300
> From: alexjfalcao em universia.com.br
> To: cascavel-pm em pm.org
> Subject: [Cascavel-pm] Redirecionamento com Ajax
>
> Salve monges,
>
>     estou fazendo algumas coisas simples com o CGI::Ajax, mas estou tendo
> um problema.
>     No codigo abaixo, quando digito o nome alex, mostro a mensagem, ai foi
> facil.
>     Mas o que eu preciso fazer e redirecionar para outra pagina quando
> digito errado, no exemplo, simplesmente mostrei o texto, mas precisava
> redirecionar.
>
>    Alguem tem alguma ideia?
>
> Obrigado a todos
>
> <code>
> use strict;
> use CGI;
> use CGI::Ajax;
>
> my $cgi = new CGI;
>
> my $ex_verifica = sub {
>     my $nome = shift || undef;
>
>     if ($nome eq 'alex') {
>         return "OI $nome";
>     } else {
>         return "DIRECIONA PARA x.pl?n=$nome";
>     }
> };
>
> my $inicial = sub {
>
>     my $html =<<EOF;
>         <html>
>         <head></head>
>         <body>
>         DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
>         <input value="envia" type="button" id="bt"
> onClick="verifica(['nome'],['div_msg']);"><br>
>         <div id="div_msg"></div>
>         </body>
>         </html>
> EOF
>
>     return $html;
> };
>
> my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
> print $pjx->build_html($cgi,$inicial); # this outputs the html for the
> page
>
> </code>
>
> --
>
> ______________________________
>                 Alex Falcão
>
>
> ------------------------------
> Get news, entertainment and everything you care about at Live.com. Check
> it out! <http://www.live.com/getstarted.aspx+>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 

______________________________
                Alex Falcão
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070913/5fc9784f/attachment-0001.html 

From glasswalk3r em hotmail.com  Thu Sep 13 08:44:21 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Thu, 13 Sep 2007 18:44:21 +0300
Subject: [Cascavel-pm] compartilhando objetos com scripts de testes
Message-ID: <BAY121-W12CAEE454CFF9F3DCC4F80F5C30@phx.gbl>

Olá monges,

Estou querendo executar alguns scripts de testes feitos com Test::More mas estou tendo uma performance ruim.

Os testes são feitos com pacotes DTS, sendo necessário instanciar um objeto (sempre o mesm) para começar a realizar os testes... só que essa operação é lenta, e para cada arquivo de teste, essa instanciação é feita.

Como estou usando Test::Assert para colher os resultados, pensei em criar uma classe derivada do Class::Singleton, mas para minha surpresa isso não mudou nada: cada arquivo de teste continua instanciando seu próprio objeto. Aparentemente o Test::Assert executa cada script de forma individual (como ele faz isso eu não sei) e depois captura a saída de cada um para gerar o relatório final.

Alguém já teve uma necessidade semelhante? A única coisa que me ocorreu para melhorar a performance é serializar o objeto em um lugar e verificar primeiro se ele já não existe antes de instanciar um outro objeto.

[]'s
Alceu

_________________________________________________________________
Discover the new Windows Vista
http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070913/9c5c21e7/attachment.html 

From thomas em tcnet.com.br  Thu Sep 13 10:44:53 2007
From: thomas em tcnet.com.br (Thomas Britis)
Date: Thu, 13 Sep 2007 14:44:53 -0300
Subject: [Cascavel-pm] Redirecionamento com Ajax
In-Reply-To: <d25a071d0709130728l663790e1g152e5a52820797c7@mail.gmail.com>
References: <d25a071d0709122050u7c2a229fy6f5f3085eec7539@mail.gmail.com>	<BAY121-W21754F9461C5A8691CF1DEF5C30@phx.gbl>
	<d25a071d0709130728l663790e1g152e5a52820797c7@mail.gmail.com>
Message-ID: <46E97715.7000607@tcnet.com.br>

Penso que você poderia setar um timer via javascript redirecionando o 
usuário para uma página gravada numa váriavel (somente se a variável 
existir). E seu return seria um javascript setando a variável.
	Mas, é só um palpite.

Alex Falcão wrote:
> Oi Alceu,
> 
>    muito obrigado, mas eu já havia tentado com javascript, talvez tenha 
> feito algo errado, pois não funcionou. Segue o código.
> 
> Se mais alguem tiver algum palpite, agradeço
> 
> Abraço a todos
> 
> <code>
> use strict;
> use CGI;
> use CGI::Ajax;
> 
> my $cgi = new CGI;
> 
> my $ex_verifica = sub {
>     my $nome = shift || undef;
>    
>     if ($nome eq 'alex') {
>         return "OI $nome";
>     } else {
>         return "<script 
> language=\"Javascript\">window.location=\"x.pl\"</script>";
>     }
> };
> 
> my $inicial = sub {
> 
>     my $html =<<EOF;
>         <html>
>         <head>
>         </head>
>         <body>
>         DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
>         <input value="envia" type="button" id="bt" 
> onClick="verifica(['nome'],['div_msg']);"><br>
>         <div id="div_msg"></div>
>         </body>
>         </html>
> EOF
> 
>     return $html;
> };
> 
> my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
> print $pjx->build_html($cgi,$inicial);
> </code>
> 
> Em 13/09/07, *Alceu Rodrigues de Freitas Junior * 
> <glasswalk3r em hotmail.com <mailto:glasswalk3r em hotmail.com>> escreveu:
> 
>     Oi Alex,
> 
>     Seu script Ajax está alterando apenas uma parte da página? Se for,
>     acho que não dá para utilizar meta tags de refresh. Não sei se você
>     consegue fazer isso via cabeçalho HTTP.
> 
>     O que você poderia tentar fazer é enviar via Ajax um controle em
>     Javascript mesmo para redirecionar o usuário depois de n segundos.
> 
>     []'s
>     Alceu
> 
>         ------------------------------------------------------------------------
>         Date: Thu, 13 Sep 2007 00:50:39 -0300
>         From: alexjfalcao em universia.com.br
>         <mailto:alexjfalcao em universia.com.br>
>         To: cascavel-pm em pm.org <mailto:cascavel-pm em pm.org>
>         Subject: [Cascavel-pm] Redirecionamento com Ajax
> 
> 
>         Salve monges,
> 
>             estou fazendo algumas coisas simples com o CGI::Ajax, mas
>         estou tendo um problema.
>             No codigo abaixo, quando digito o nome alex, mostro a
>         mensagem, ai foi facil.
>             Mas o que eu preciso fazer e redirecionar para outra pagina
>         quando digito errado, no exemplo, simplesmente mostrei o texto,
>         mas precisava redirecionar.
> 
>            Alguem tem alguma ideia?
> 
>         Obrigado a todos
> 
>         <code>
>         use strict;
>         use CGI;
>         use CGI::Ajax;
> 
>         my $cgi = new CGI;
> 
>         my $ex_verifica = sub {
>             my $nome = shift || undef;
>            
>             if ($nome eq 'alex') {
>                 return "OI $nome";
>             } else {
>                 return "DIRECIONA PARA x.pl?n=$nome";
>             }
>         };
> 
>         my $inicial = sub {
> 
>             my $html =<<EOF;
>                 <html>
>                 <head></head>
>                 <body>
>                 DIGITE SEU NOME: <input type="text" name="nome"
>         id="nome"><br>
>                 <input value="envia" type="button" id="bt"
>         onClick="verifica(['nome'],['div_msg']);"><br>
>                 <div id="div_msg"></div>
>                 </body>
>                 </html>
>         EOF
> 
>             return $html;
>         };
> 
>         my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
>         print $pjx->build_html($cgi,$inicial); # this outputs the html
>         for the page
> 
>         </code>
> 
>         -- 
> 
>         ______________________________
>                         Alex Falcão 
> 
> 
>     ------------------------------------------------------------------------
>     Get news, entertainment and everything you care about at Live.com
>     <http://Live.com>. Check it out! <http://www.live.com/getstarted.aspx+>
> 
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 
> 
> -- 
> 
> ______________________________
>                 Alex Falcão
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> 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

From alexjfalcao em universia.com.br  Thu Sep 13 11:38:25 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Thu, 13 Sep 2007 15:38:25 -0300
Subject: [Cascavel-pm] Redirecionamento com Ajax
In-Reply-To: <46E97715.7000607@tcnet.com.br>
References: <d25a071d0709122050u7c2a229fy6f5f3085eec7539@mail.gmail.com>
	<BAY121-W21754F9461C5A8691CF1DEF5C30@phx.gbl>
	<d25a071d0709130728l663790e1g152e5a52820797c7@mail.gmail.com>
	<46E97715.7000607@tcnet.com.br>
Message-ID: <d25a071d0709131138l727f3ef9te30bfe505315685e@mail.gmail.com>

Senhores,

    voces me ajudaram muito a achar o caminho, o código ficou assim.

Obrigado pela colaboração

<code>
use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;

my $ex_verifica = sub {
    my $nome = shift || undef;

    if ($nome eq 'alex') {
        return ('alex', 0);
    } else {
        return ('', 1);
    }
};

my $inicial = sub {

    my $html =<<EOF;
        <html>
        <head>
        </head>
        <body>
        DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
        <input value="envia" type="button" id="bt"
onClick="verifica(['nome'],[js_func], 'POST');"><br>
        <div id="div_msg"></div>
        <script language="Javascript\">
        function js_func() {
            var input1 = arguments[0];
            var input2 = arguments[1];
            document.getElementById('div_msg').innerHTML = input1;
            if (input2 == 1) {
                window.location="x.pl";
            }
        }
        </script>
        </body>
        </html>
EOF

    return $html;
};

my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
print $pjx->build_html($cgi,$inicial);

</code>

Em 13/09/07, Thomas Britis <thomas em tcnet.com.br> escreveu:
>
> Penso que você poderia setar um timer via javascript redirecionando o
> usuário para uma página gravada numa váriavel (somente se a variável
> existir). E seu return seria um javascript setando a variável.
>         Mas, é só um palpite.
>
> Alex Falcão wrote:
> > Oi Alceu,
> >
> >    muito obrigado, mas eu já havia tentado com javascript, talvez tenha
> > feito algo errado, pois não funcionou. Segue o código.
> >
> > Se mais alguem tiver algum palpite, agradeço
> >
> > Abraço a todos
> >
> > <code>
> > use strict;
> > use CGI;
> > use CGI::Ajax;
> >
> > my $cgi = new CGI;
> >
> > my $ex_verifica = sub {
> >     my $nome = shift || undef;
> >
> >     if ($nome eq 'alex') {
> >         return "OI $nome";
> >     } else {
> >         return "<script
> > language=\"Javascript\">window.location=\"x.pl\"</script>";
> >     }
> > };
> >
> > my $inicial = sub {
> >
> >     my $html =<<EOF;
> >         <html>
> >         <head>
> >         </head>
> >         <body>
> >         DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
> >         <input value="envia" type="button" id="bt"
> > onClick="verifica(['nome'],['div_msg']);"><br>
> >         <div id="div_msg"></div>
> >         </body>
> >         </html>
> > EOF
> >
> >     return $html;
> > };
> >
> > my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
> > print $pjx->build_html($cgi,$inicial);
> > </code>
> >
> > Em 13/09/07, *Alceu Rodrigues de Freitas Junior *
> > <glasswalk3r em hotmail.com <mailto:glasswalk3r em hotmail.com>> escreveu:
> >
> >     Oi Alex,
> >
> >     Seu script Ajax está alterando apenas uma parte da página? Se for,
> >     acho que não dá para utilizar meta tags de refresh. Não sei se você
> >     consegue fazer isso via cabeçalho HTTP.
> >
> >     O que você poderia tentar fazer é enviar via Ajax um controle em
> >     Javascript mesmo para redirecionar o usuário depois de n segundos.
> >
> >     []'s
> >     Alceu
> >
> >
> ------------------------------------------------------------------------
> >         Date: Thu, 13 Sep 2007 00:50:39 -0300
> >         From: alexjfalcao em universia.com.br
> >         <mailto:alexjfalcao em universia.com.br>
> >         To: cascavel-pm em pm.org <mailto:cascavel-pm em pm.org>
> >         Subject: [Cascavel-pm] Redirecionamento com Ajax
> >
> >
> >         Salve monges,
> >
> >             estou fazendo algumas coisas simples com o CGI::Ajax, mas
> >         estou tendo um problema.
> >             No codigo abaixo, quando digito o nome alex, mostro a
> >         mensagem, ai foi facil.
> >             Mas o que eu preciso fazer e redirecionar para outra pagina
> >         quando digito errado, no exemplo, simplesmente mostrei o texto,
> >         mas precisava redirecionar.
> >
> >            Alguem tem alguma ideia?
> >
> >         Obrigado a todos
> >
> >         <code>
> >         use strict;
> >         use CGI;
> >         use CGI::Ajax;
> >
> >         my $cgi = new CGI;
> >
> >         my $ex_verifica = sub {
> >             my $nome = shift || undef;
> >
> >             if ($nome eq 'alex') {
> >                 return "OI $nome";
> >             } else {
> >                 return "DIRECIONA PARA x.pl?n=$nome";
> >             }
> >         };
> >
> >         my $inicial = sub {
> >
> >             my $html =<<EOF;
> >                 <html>
> >                 <head></head>
> >                 <body>
> >                 DIGITE SEU NOME: <input type="text" name="nome"
> >         id="nome"><br>
> >                 <input value="envia" type="button" id="bt"
> >         onClick="verifica(['nome'],['div_msg']);"><br>
> >                 <div id="div_msg"></div>
> >                 </body>
> >                 </html>
> >         EOF
> >
> >             return $html;
> >         };
> >
> >         my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
> >         print $pjx->build_html($cgi,$inicial); # this outputs the html
> >         for the page
> >
> >         </code>
> >
> >         --
> >
> >         ______________________________
> >                         Alex Falcão
> >
> >
> >
> ------------------------------------------------------------------------
> >     Get news, entertainment and everything you care about at Live.com
> >     <http://Live.com>. Check it out! <
> http://www.live.com/getstarted.aspx+>
> >
> >     _______________________________________________
> >     Cascavel-pm mailing list
> >     Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
> >     http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> >
> >
> > --
> >
> > ______________________________
> >                 Alex Falcão
> >
> >
> > ------------------------------------------------------------------------
> >
> > _______________________________________________
> > 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
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 

______________________________
                Alex Falcão
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070913/9ccd99bc/attachment-0001.html 

From gabriel.vieira em gmail.com  Thu Sep 13 15:47:24 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Thu, 13 Sep 2007 19:47:24 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Fwd=3A_=5Bperlbr=5D_An=FAncio_de_Vag?=
	=?iso-8859-1?q?a_-_Java_/_Perl?=
In-Reply-To: <fcc3s0+ibuc@eGroups.com>
References: <fcc3s0+ibuc@eGroups.com>
Message-ID: <83d8367f0709131547p19aec32di76ea67ad0d796429@mail.gmail.com>

Repasso anúncio feito no PerlBR.

-----------------------------------

Resource Tecnologia, Integradora de Soluções com 16 anos na área de TI,
 busca profissionais com o seguinte perfil:

 Analista Programador
 Experiência com as ferramentas: Java, JSP, Spring, UNIX, Shell Script,
 Perl.
 Para atuar em projetos globais.
 Inglês fluente.

 Para atuar em SP.

 Os interessados deverão enviar CV para: isabel.bordin em resource.com.br

 Obrigada,
 Isabel Bordin
 Grupo Resource
 + 55 11 3748-6201
 isabel.bordin em resource.com.br
 Visite: http://www.resource.com.br

-- 
Gabriel Vieira

From joenio em gmail.com  Fri Sep 14 16:53:49 2007
From: joenio em gmail.com (Joenio Costa)
Date: Fri, 14 Sep 2007 20:53:49 -0300
Subject: [Cascavel-pm] [RFC] perldoc -L <lang>
In-Reply-To: <73ddeb6c0709050510m52ea6123k9a3330f489b47a2b@mail.gmail.com>
References: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>
	<BAY121-W2455FCF6B72C4588BA4C06F5CA0@phx.gbl>
	<73ddeb6c0709050510m52ea6123k9a3330f489b47a2b@mail.gmail.com>
Message-ID: <65934b450709141653s22ad0c66m862bae60d8465960@mail.gmail.com>

Uma curiosidade, como os projetos POD2::IT e POD2:FR extraem a
documentacao .pod dos fontes?

Tempos atras eu tinha comecado um script q fazia isso, mas algo
aconteceu e eu perdi grande parte do meu trabalho... pretendo retomar
isso.

Em 05/09/07, Adriano Ferreira<a.r.ferreira em gmail.com> escreveu:
> On 9/4/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> >
> > > Date: Tue, 4 Sep 2007 15:33:46 -0300
> > > From: a.r.ferreira em gmail.com
> > >
> > > Feito isto, temos uma simplória internacionalização do perldoc
> > funcionando.
> > >
> > > Em breve vou submeter as mudanças do Pod::Perldoc ao bleadperl.
> > > Enquanto isso, estou atento a sugestões, comentários, etc.
> >
> > Acho que eu só posso dizer uma coisa: obrigado! :-)
> >
> > Talvez seria legal também que automaticamente o perldoc detectasse a língua
> > padrão do ambiente e exibisse a documentação na tradução correspondente.
> > Fazer isso para todas as plataformas em que Perl roda pode ser um pouco
> > complicado, no entanto (alguém tem VMS instalado aí?)
>
> Obrigado pelo retorno, Alceu. Quanto à detecção automática, eu creio
> que possa ser colocado algum plugin para habilitar este tipo de coisa,
> mas não acho que deva fazer parte da configuração default.
>
> O programador Perl é basicamente um orgulhoso, orgulhoso pelo seu
> código, orgulhoso pelo seu conhecimento. Depois de anos lendo a
> documentação em inglês, ele pode ficar aborrecido de uma configuração
> automática que ele não escolheu que determina que agora sua opção
> padrão é ler a documentação em português. E em geral, a documentação
> original tem a maior expressividade e densidade de informação. Também,
> a gente pode estar tão acostumado ao inglês, que tem dificuldades de
> entender uma tradução onde não se reconhece imediatamente alguns
> termos técnicos.
>
> Por exemplo, lembro de uma questão de SQL onde só depois de algum
> tempo consegui ligar "junção" como tradução de "join".
>
> Em Unix, você sempre pode incluir algo como
>
>   alias perldoc='perldoc -L pt_br'
>
> em .bash_profile ou coisa correspondente para o shell que você usa. Em
> Windows (e também em Unix) você pode configurar a variável de ambiente
> PERLDOC para conter "-L pt_br" com o mesmo efeito.
>
> Como um outro exemplo, não gostei muito quando o Google passou a
> escolher a interface em português quando eu usava a máquina de busca.
> Felizmente eles tornaram um incômodo permanente que você escolhesse
> por si sua interface preferida. Acredito que este tipo de coisa tem de
> ser uma escolha explícita do usuário.
>
> E como outro ponto problemático, eu já me cansei de máquinas mal
> configuradas que não decidirão corretamente sobre o 'locale' e
> 'language' que você deveria estar usando. Em geral, será frustrante
> para quem pensou que ia começar a ler a documentação em português e
> descobre que tem que aprender mais da configuração do seu Unix que
> jura que ele está na Califórnia.
>
> Mas a idéia do plugin que pode ser habilitado para fazer a detecção
> automática não está descartada e contribuições são bem vindas.
>
> Saudações,
> Adriano Ferreira
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Joenio Costa
- Salvador Perl Mongers - Grupo de Usuário Perl de Salvador
- Colibre - Cooperativa de Tecnologias Livres
- PSL-BA - Projeto Software Livre Bahia

From shonorio em gmail.com  Mon Sep 17 07:40:39 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Mon, 17 Sep 2007 11:40:39 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?F=F3rum_ABCD?=
In-Reply-To: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
References: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
Message-ID: <12d1f4ee0709170740y3e9214c2g81c85aeb6ce8fa93@mail.gmail.com>

André você tem alguma informação sobre o evento, pois ví que as datas
informadas no site são do ano passado.

Abraços,

Solli M. Honório

On 9/12/07, André Moura <andreoandre em gmail.com> wrote:
>
> Senhores,
>
> Estamos organizando um evento em santo andré - sp, que é o III forum
> do ABC ( http://www.psl-abcd.org/psl-abcd/news.php ) sobre Software
> Livre, gostaria de saber se alguém aqui da lista teria alguma palestra
> que deseje apresentar?
>
>
> O evento vai cerca de 200 a 300 pessoas...
>
> Achei que seria interessante divulgamos algum assunto relacionado ao
> Perl, pois muitos já ouviram falar da linguagem e poucos conhecem a
> fundo, se algum monger puder informar uma proposta.....
>
>
>
> --
> André O Moura
> http://andrem.wordpress.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070917/a5f22a3d/attachment.html 

From a.r.ferreira em gmail.com  Mon Sep 17 13:19:21 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Mon, 17 Sep 2007 17:19:21 -0300
Subject: [Cascavel-pm] [RFC] perldoc -L <lang>
In-Reply-To: <65934b450709141653s22ad0c66m862bae60d8465960@mail.gmail.com>
References: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>
	<BAY121-W2455FCF6B72C4588BA4C06F5CA0@phx.gbl>
	<73ddeb6c0709050510m52ea6123k9a3330f489b47a2b@mail.gmail.com>
	<65934b450709141653s22ad0c66m862bae60d8465960@mail.gmail.com>
Message-ID: <73ddeb6c0709171319s4c3cc343w651a8eca0c916b4d@mail.gmail.com>

On 9/14/07, Joenio Costa <joenio em gmail.com> wrote:
> Uma curiosidade, como os projetos POD2::IT e POD2:FR extraem a
> documentacao .pod dos fontes?

Estes projetos são principalmente traduções dos *.pod que ficam em
$Config{installsitelib}/pods . Assim não há necessidade de extrair
nada: só traduzir os arquivos que são pura documentação.

> Tempos atras eu tinha comecado um script q fazia isso, mas algo
> aconteceu e eu perdi grande parte do meu trabalho... pretendo retomar
> isso.

Uma expressão útil para extração de PODs eu encontrei no próprio
material do perl.org.br na página
http://perl.org.br/bin/view/Cpandoc/WebHome

$ perldoc -oPod -dNetLDAP.pod Net::LDAP

lá no final da página. Ou não é bem isso que você tinha em mente.

> Em 05/09/07, Adriano Ferreira<a.r.ferreira em gmail.com> escreveu:
> > On 9/4/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> > >
> > > > Date: Tue, 4 Sep 2007 15:33:46 -0300
> > > > From: a.r.ferreira em gmail.com
> > > >
> > > > Feito isto, temos uma simplória internacionalização do perldoc
> > > funcionando.
> > > >
> > > > Em breve vou submeter as mudanças do Pod::Perldoc ao bleadperl.
> > > > Enquanto isso, estou atento a sugestões, comentários, etc.
> > >
> > > Acho que eu só posso dizer uma coisa: obrigado! :-)
> > >
> > > Talvez seria legal também que automaticamente o perldoc detectasse a língua
> > > padrão do ambiente e exibisse a documentação na tradução correspondente.
> > > Fazer isso para todas as plataformas em que Perl roda pode ser um pouco
> > > complicado, no entanto (alguém tem VMS instalado aí?)
> >
> > Obrigado pelo retorno, Alceu. Quanto à detecção automática, eu creio
> > que possa ser colocado algum plugin para habilitar este tipo de coisa,
> > mas não acho que deva fazer parte da configuração default.
> >
> > O programador Perl é basicamente um orgulhoso, orgulhoso pelo seu
> > código, orgulhoso pelo seu conhecimento. Depois de anos lendo a
> > documentação em inglês, ele pode ficar aborrecido de uma configuração
> > automática que ele não escolheu que determina que agora sua opção
> > padrão é ler a documentação em português. E em geral, a documentação
> > original tem a maior expressividade e densidade de informação. Também,
> > a gente pode estar tão acostumado ao inglês, que tem dificuldades de
> > entender uma tradução onde não se reconhece imediatamente alguns
> > termos técnicos.
> >
> > Por exemplo, lembro de uma questão de SQL onde só depois de algum
> > tempo consegui ligar "junção" como tradução de "join".
> >
> > Em Unix, você sempre pode incluir algo como
> >
> >   alias perldoc='perldoc -L pt_br'
> >
> > em .bash_profile ou coisa correspondente para o shell que você usa. Em
> > Windows (e também em Unix) você pode configurar a variável de ambiente
> > PERLDOC para conter "-L pt_br" com o mesmo efeito.
> >
> > Como um outro exemplo, não gostei muito quando o Google passou a
> > escolher a interface em português quando eu usava a máquina de busca.
> > Felizmente eles tornaram um incômodo permanente que você escolhesse
> > por si sua interface preferida. Acredito que este tipo de coisa tem de
> > ser uma escolha explícita do usuário.
> >
> > E como outro ponto problemático, eu já me cansei de máquinas mal
> > configuradas que não decidirão corretamente sobre o 'locale' e
> > 'language' que você deveria estar usando. Em geral, será frustrante
> > para quem pensou que ia começar a ler a documentação em português e
> > descobre que tem que aprender mais da configuração do seu Unix que
> > jura que ele está na Califórnia.
> >
> > Mas a idéia do plugin que pode ser habilitado para fazer a detecção
> > automática não está descartada e contribuições são bem vindas.
> >
> > Saudações,
> > Adriano Ferreira
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> Joenio Costa
> - Salvador Perl Mongers - Grupo de Usuário Perl de Salvador
> - Colibre - Cooperativa de Tecnologias Livres
> - PSL-BA - Projeto Software Livre Bahia
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From joenio em gmail.com  Mon Sep 17 19:58:08 2007
From: joenio em gmail.com (Joenio Costa)
Date: Mon, 17 Sep 2007 23:58:08 -0300
Subject: [Cascavel-pm] [RFC] perldoc -L <lang>
In-Reply-To: <73ddeb6c0709171319s4c3cc343w651a8eca0c916b4d@mail.gmail.com>
References: <73ddeb6c0709041133m74686287i4e2ddf427a292c9e@mail.gmail.com>
	<BAY121-W2455FCF6B72C4588BA4C06F5CA0@phx.gbl>
	<73ddeb6c0709050510m52ea6123k9a3330f489b47a2b@mail.gmail.com>
	<65934b450709141653s22ad0c66m862bae60d8465960@mail.gmail.com>
	<73ddeb6c0709171319s4c3cc343w651a8eca0c916b4d@mail.gmail.com>
Message-ID: <65934b450709171958w62c00c11m2f48c08ae4c07043@mail.gmail.com>

Tá blza... mas lá em $Config{installsitelib}/pods não tem tudo que se
encontra em perldoc.perl.org por exemplo os "Core Modules" estão quase
todos ausentes, os fontes estao lá com o pod dentro, mas nao encontro
(pelo menos aqui no meu slackware) tudo que vem na distribuicao padrao
do Perl em formato pod separado dos fontes...

Eu imaginava que alguem tinha feito algo semelhante ao script
installhtml que vem junto aos fontes do perl. O exemplo abaixo extrai
a documentacao e salva em html.

/src/perl-5.8.8$ perl installhtml --podpath=. --recurse --htmldir=../html

Será que meu $Config{installsitelib}/pods não está completo? Aqui nao
encontro o threads.pod por exemplo, já o comando acima extrai essa
documentacao mas salva em html.

Em 17/09/07, Adriano Ferreira<a.r.ferreira em gmail.com> escreveu:
> On 9/14/07, Joenio Costa <joenio em gmail.com> wrote:
> > Uma curiosidade, como os projetos POD2::IT e POD2:FR extraem a
> > documentacao .pod dos fontes?
>
> Estes projetos são principalmente traduções dos *.pod que ficam em
> $Config{installsitelib}/pods . Assim não há necessidade de extrair
> nada: só traduzir os arquivos que são pura documentação.
>
> > Tempos atras eu tinha comecado um script q fazia isso, mas algo
> > aconteceu e eu perdi grande parte do meu trabalho... pretendo retomar
> > isso.
>
> Uma expressão útil para extração de PODs eu encontrei no próprio
> material do perl.org.br na página
> http://perl.org.br/bin/view/Cpandoc/WebHome
>
> $ perldoc -oPod -dNetLDAP.pod Net::LDAP
>
> lá no final da página. Ou não é bem isso que você tinha em mente.
>
> > Em 05/09/07, Adriano Ferreira<a.r.ferreira em gmail.com> escreveu:
> > > On 9/4/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> > > >
> > > > > Date: Tue, 4 Sep 2007 15:33:46 -0300
> > > > > From: a.r.ferreira em gmail.com
> > > > >
> > > > > Feito isto, temos uma simplória internacionalização do perldoc
> > > > funcionando.
> > > > >
> > > > > Em breve vou submeter as mudanças do Pod::Perldoc ao bleadperl.
> > > > > Enquanto isso, estou atento a sugestões, comentários, etc.
> > > >
> > > > Acho que eu só posso dizer uma coisa: obrigado! :-)
> > > >
> > > > Talvez seria legal também que automaticamente o perldoc detectasse a língua
> > > > padrão do ambiente e exibisse a documentação na tradução correspondente.
> > > > Fazer isso para todas as plataformas em que Perl roda pode ser um pouco
> > > > complicado, no entanto (alguém tem VMS instalado aí?)
> > >
> > > Obrigado pelo retorno, Alceu. Quanto à detecção automática, eu creio
> > > que possa ser colocado algum plugin para habilitar este tipo de coisa,
> > > mas não acho que deva fazer parte da configuração default.
> > >
> > > O programador Perl é basicamente um orgulhoso, orgulhoso pelo seu
> > > código, orgulhoso pelo seu conhecimento. Depois de anos lendo a
> > > documentação em inglês, ele pode ficar aborrecido de uma configuração
> > > automática que ele não escolheu que determina que agora sua opção
> > > padrão é ler a documentação em português. E em geral, a documentação
> > > original tem a maior expressividade e densidade de informação. Também,
> > > a gente pode estar tão acostumado ao inglês, que tem dificuldades de
> > > entender uma tradução onde não se reconhece imediatamente alguns
> > > termos técnicos.
> > >
> > > Por exemplo, lembro de uma questão de SQL onde só depois de algum
> > > tempo consegui ligar "junção" como tradução de "join".
> > >
> > > Em Unix, você sempre pode incluir algo como
> > >
> > >   alias perldoc='perldoc -L pt_br'
> > >
> > > em .bash_profile ou coisa correspondente para o shell que você usa. Em
> > > Windows (e também em Unix) você pode configurar a variável de ambiente
> > > PERLDOC para conter "-L pt_br" com o mesmo efeito.
> > >
> > > Como um outro exemplo, não gostei muito quando o Google passou a
> > > escolher a interface em português quando eu usava a máquina de busca.
> > > Felizmente eles tornaram um incômodo permanente que você escolhesse
> > > por si sua interface preferida. Acredito que este tipo de coisa tem de
> > > ser uma escolha explícita do usuário.
> > >
> > > E como outro ponto problemático, eu já me cansei de máquinas mal
> > > configuradas que não decidirão corretamente sobre o 'locale' e
> > > 'language' que você deveria estar usando. Em geral, será frustrante
> > > para quem pensou que ia começar a ler a documentação em português e
> > > descobre que tem que aprender mais da configuração do seu Unix que
> > > jura que ele está na Califórnia.
> > >
> > > Mas a idéia do plugin que pode ser habilitado para fazer a detecção
> > > automática não está descartada e contribuições são bem vindas.
> > >
> > > Saudações,
> > > Adriano Ferreira
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> > --
> > Joenio Costa
> > - Salvador Perl Mongers - Grupo de Usuário Perl de Salvador
> > - Colibre - Cooperativa de Tecnologias Livres
> > - PSL-BA - Projeto Software Livre Bahia
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Joenio Costa
- Salvador Perl Mongers - Grupo de Usuário Perl de Salvador
- Colibre - Cooperativa de Tecnologias Livres
- PSL-BA - Projeto Software Livre Bahia

From andreoandre em gmail.com  Tue Sep 18 03:53:45 2007
From: andreoandre em gmail.com (=?ISO-8859-1?Q?Andr=E9_Moura?=)
Date: Tue, 18 Sep 2007 07:53:45 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?F=F3rum_ABCD?=
In-Reply-To: <12d1f4ee0709170740y3e9214c2g81c85aeb6ce8fa93@mail.gmail.com>
References: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
	<12d1f4ee0709170740y3e9214c2g81c85aeb6ce8fa93@mail.gmail.com>
Message-ID: <f77315b60709180353xe85a64fs97c47504d001eba2@mail.gmail.com>

Solli,

Neste sábado vai ter uma reunião com o grupo sobre isso, onde vamos
finalizar as decisões e começar a divulgar o mesmo..... te trago
respostas .....

From lorn.br em gmail.com  Tue Sep 18 09:28:44 2007
From: lorn.br em gmail.com (Lorn)
Date: Tue, 18 Sep 2007 13:28:44 -0300
Subject: [Cascavel-pm] YAPC::Vienna
Message-ID: <bb8590d00709180928o6fbec950n67a3492aae3be737@mail.gmail.com>

Rau! quem foi e está afim de fazer um relato? :)Estou curioso... e ainda não
apareceu nenhum relato :P

Falow.

-- 
Lindolfo "Lorn" Rodrigues
- www.slackwarezine.com.br
- http://lornlab.org
- http://sao-paulo.pm.org
use Catalyst;
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070918/966e2019/attachment.html 

From daniel em ruoso.com  Tue Sep 18 11:27:40 2007
From: daniel em ruoso.com (Daniel Ruoso)
Date: Tue, 18 Sep 2007 19:27:40 +0100
Subject: [Cascavel-pm] YAPC::Vienna
In-Reply-To: <bb8590d00709180928o6fbec950n67a3492aae3be737@mail.gmail.com>
References: <bb8590d00709180928o6fbec950n67a3492aae3be737@mail.gmail.com>
Message-ID: <1190140061.28001.16.camel@pitombeira>

Ter, 2007-09-18 às 13:28 -0300, Lorn escreveu:
> Rau! quem foi e está afim de fazer um relato? :)
> Estou curioso... e ainda não apareceu nenhum relato :P

Opa...

Bem... para começar tenho que dizer que a YAPC::EU, junto com a Debconf,
está na lista das duas melhores conferências do planeta. Mas enfim,
vamos ao relato: A conferência começou na terça, mas na segunda a noite
já foi possível encontrar umas figuras no "centímetro 3", que certamente
vai pensar em contratar pessoal extra quando tiver um evento desses.

No primeiro dia, para além da palestra muito divertida do cog, e da
palestra extremamente intrigante do Larry Wall, fiquei o dia quase todo
on hackathon do parrot. Dá pra dizer que eu e o flávio subvertemos o
hackathon e ficamos discutindo com a Alison Randal e o Jonathan
Worthington sobre como o projecto kp6 se relaciona com o Parrot. Foi
extremamente produtivo.

O segundo dia foi mais relax, algumas palestras interessantes, mas uma
palestra absolutamente pirante onde o Damian Conway falou sobre
Variáveis Positrônicas (sim, ele inventou isso), que seriam tipo umas
variáveis que funcionam em tempo negativo (precisa ver a palestra pra
entender). No segundo dia também teve o jantar da conferência num
restaurante com comidas típicas (quer dizer, acho que eram).

No terceiro dia tivemos o hackathon do kp6, onde pudemos contar com a
presença do Larry Wall, do Damian Conway, da Allison Randal e do
Jonathan Worthington na mesma sala sob o comando do Flávio Glock. Não é
nem possível explicar o quão produtivo foi esse hackathon, onde viu-se
que os esforços para o Perl 6, apesar de paralelos, estão caminhando em
uma mesma direção. Eu e o Gianni Ceccarelli (aka dakkar) desenhamos um
modelo para transformação de árvores.

Enfim,

Posso dizer que se vocês estão tristes por não ter ido, vocês tem toda a
razão ;)

daniel



From shonorio em gmail.com  Tue Sep 18 11:43:53 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Tue, 18 Sep 2007 15:43:53 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?F=F3rum_ABCD?=
In-Reply-To: <f77315b60709180353xe85a64fs97c47504d001eba2@mail.gmail.com>
References: <f77315b60709120413m1195c8f4m52c5acf68d262f3d@mail.gmail.com>
	<12d1f4ee0709170740y3e9214c2g81c85aeb6ce8fa93@mail.gmail.com>
	<f77315b60709180353xe85a64fs97c47504d001eba2@mail.gmail.com>
Message-ID: <12d1f4ee0709181143v43f4e29dmc5260d55eb663954@mail.gmail.com>

Obrigado.

Solli M. Honório

On 9/18/07, André Moura <andreoandre em gmail.com> wrote:
>
> Solli,
>
> Neste sábado vai ter uma reunião com o grupo sobre isso, onde vamos
> finalizar as decisões e começar a divulgar o mesmo..... te trago
> respostas .....
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070918/c1c97acd/attachment.html 

From gabriel.vieira em gmail.com  Tue Sep 18 19:45:37 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 18 Sep 2007 23:45:37 -0300
Subject: [Cascavel-pm] YAPC::Vienna
In-Reply-To: <1190140061.28001.16.camel@pitombeira>
References: <bb8590d00709180928o6fbec950n67a3492aae3be737@mail.gmail.com>
	<1190140061.28001.16.camel@pitombeira>
Message-ID: <83d8367f0709181945t4cf040ek65bd0573146356d4@mail.gmail.com>

hahah

to bobo :P

parabéns a vocês ;D

On 9/18/07, Daniel Ruoso <daniel em ruoso.com> wrote:
> Ter, 2007-09-18 às 13:28 -0300, Lorn escreveu:
> > Rau! quem foi e está afim de fazer um relato? :)
> > Estou curioso... e ainda não apareceu nenhum relato :P
>
> Opa...
>
> Bem... para começar tenho que dizer que a YAPC::EU, junto com a Debconf,
> está na lista das duas melhores conferências do planeta. Mas enfim,
> vamos ao relato: A conferência começou na terça, mas na segunda a noite
> já foi possível encontrar umas figuras no "centímetro 3", que certamente
> vai pensar em contratar pessoal extra quando tiver um evento desses.
>
> No primeiro dia, para além da palestra muito divertida do cog, e da
> palestra extremamente intrigante do Larry Wall, fiquei o dia quase todo
> on hackathon do parrot. Dá pra dizer que eu e o flávio subvertemos o
> hackathon e ficamos discutindo com a Alison Randal e o Jonathan
> Worthington sobre como o projecto kp6 se relaciona com o Parrot. Foi
> extremamente produtivo.
>
> O segundo dia foi mais relax, algumas palestras interessantes, mas uma
> palestra absolutamente pirante onde o Damian Conway falou sobre
> Variáveis Positrônicas (sim, ele inventou isso), que seriam tipo umas
> variáveis que funcionam em tempo negativo (precisa ver a palestra pra
> entender). No segundo dia também teve o jantar da conferência num
> restaurante com comidas típicas (quer dizer, acho que eram).
>
> No terceiro dia tivemos o hackathon do kp6, onde pudemos contar com a
> presença do Larry Wall, do Damian Conway, da Allison Randal e do
> Jonathan Worthington na mesma sala sob o comando do Flávio Glock. Não é
> nem possível explicar o quão produtivo foi esse hackathon, onde viu-se
> que os esforços para o Perl 6, apesar de paralelos, estão caminhando em
> uma mesma direção. Eu e o Gianni Ceccarelli (aka dakkar) desenhamos um
> modelo para transformação de árvores.
>
> Enfim,
>
> Posso dizer que se vocês estão tristes por não ter ido, vocês tem toda a
> razão ;)
>
> daniel
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From fernandolouis em terra.com.br  Wed Sep 19 13:09:31 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Wed, 19 Sep 2007 17:09:31 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?express=E3o_regular?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
Message-ID: <000801c7faf8$fe0e4550$0c01a8c0@servidorliz>

Quem adora regexp, por favor, me ajude nessa:

Preciso reconhecer uma palavra que comece com "pm", e que depois venha 
qualquer coisa. e depois não pode ter "@".

tentei:

/^(pm).?[^\@]/

mas não deu

[]s,
Fernando 


From cromo.jml em gmail.com  Wed Sep 19 13:27:21 2007
From: cromo.jml em gmail.com (=?ISO-8859-1?Q?M=E1rcio_Vitor?=)
Date: Wed, 19 Sep 2007 17:27:21 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?express=E3o_regular?=
In-Reply-To: <000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
Message-ID: <3530b8ce0709191327u6331684l8b299bb86a827d13@mail.gmail.com>

Assim casou:
/^pm.?[^@]+$/

Márcio Vitor

On 9/19/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
>
> Quem adora regexp, por favor, me ajude nessa:
>
> Preciso reconhecer uma palavra que comece com "pm", e que depois venha
> qualquer coisa. e depois não pode ter "@".
>
> tentei:
>
> /^(pm).?[^\@]/
>
> mas não deu
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070919/c660c3e8/attachment.html 

From perlnajaca em gmail.com  Wed Sep 19 13:35:09 2007
From: perlnajaca em gmail.com (Perl na Jaca)
Date: Wed, 19 Sep 2007 17:35:09 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?express=E3o_regular?=
In-Reply-To: <000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
Message-ID: <75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>

circunflexo é para inicio de linha. Para início ou fim de palavra use \b. Os
parênteses que vc usou são desnecessários.

Em 19/09/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
escreveu:
>
> Quem adora regexp, por favor, me ajude nessa:
>
> Preciso reconhecer uma palavra que comece com "pm", e que depois venha
> qualquer coisa. e depois não pode ter "@".
>
> tentei:
>
> /^(pm).?[^\@]/
>
> mas não deu
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Abraços,
Julio
http://www.julioneves.com - Um livro sobre Bash completo e on-line
:wq
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070919/bcc064f6/attachment.html 

From edencardim em gmail.com  Wed Sep 19 14:54:13 2007
From: edencardim em gmail.com (eden)
Date: Wed, 19 Sep 2007 18:54:13 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?express=E3o_regular?=
In-Reply-To: <75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
	<75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>
Message-ID: <3de55ead0709191454g2200c710h1a7f635be189cb28@mail.gmail.com>

On 9/19/07, Perl na Jaca <perlnajaca em gmail.com> wrote:
> circunflexo é para inicio de linha.

Na verdade, é para casar com o início da string. Sendo o primeiro
caracter de uma definição de classe de caracteres, serve como negação.

perldoc perlre

-- 
edenc.vox.com

From agnaldo em starweb-software.com.br  Wed Sep 19 20:15:30 2007
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Thu, 20 Sep 2007 00:15:30 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?C=F3digo_de_p=E1gina?=
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><000801c7faf8$fe0e4550$0c01a8c0@servidorliz><75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>
	<3de55ead0709191454g2200c710h1a7f635be189cb28@mail.gmail.com>
Message-ID: <000801c7fb34$80a61e30$6401a8c0@swmobile>


Possuo um script cgi em Perl que captura informações e repassa para outra 
aplicação via variaveis de ambiente.
Uso ISO-8859-1 como padrão.

Algumas strings, rodando sobre IIS (windows), quando não tratadas por URL 
ENCODE, apresentam problemas de código de página.
Fiz diversas tentativas de ajuste no script, porém percebi que o erro 
acontece apenas sobre IIS.
Sobre Apache, mesmo sobre Windows, tal problema não ocorre, uma vez que no 
Apache esta configurado para usar ISO-8859-1.

Apurei então que o problema esta no código de página usado pelo IIS.
Dei uma procuradano google, mas nada achei (a principio) que me desse uma 
luz.

Alguém do grupo saberia como alterar o código de página do IIS ?


From otaviof em gmail.com  Thu Sep 20 05:13:12 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Thu, 20 Sep 2007 09:13:12 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?C=F3digo_de_p=E1gina?=
In-Reply-To: <000801c7fb34$80a61e30$6401a8c0@swmobile>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
	<75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>
	<3de55ead0709191454g2200c710h1a7f635be189cb28@mail.gmail.com>
	<000801c7fb34$80a61e30$6401a8c0@swmobile>
Message-ID: <8e3843570709200513g2c9e5679ne6dc6eb67d50b386@mail.gmail.com>

Olá Agnaldo,

Aqui na empresa passamos por um problema parecido, ha uns dias atras,
o que nos fizemos para resolver, foi adotar UTF-8 como padrao, tanto
no servidor Web, paginas, scripts, etc, agora nao temos mais problemas
com codificacao ... nao seria possivel voce trabalhar com UTF-8 o
tempo todo e apenas na hora de exportar a variavel de ambiente
codificar para ISO ?

um abraco,

-- 
 | --
 | Otávio Fernandes < otaviof | gmail | com >
 | FreeBSD 6.2 Release && GNU/Linux User: 283.396
 | (( Especial Programação )) http://geekbr.podcastbrasil.com/
 | --

From glasswalk3r em hotmail.com  Thu Sep 20 12:07:38 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Thu, 20 Sep 2007 22:07:38 +0300
Subject: [Cascavel-pm] lidando com UTF-16LE
In-Reply-To: <1226.10.21.211.71.1190313094.squirrel@metromail.metrosp.com.br>
References: <1226.10.21.211.71.1190313094.squirrel@metromail.metrosp.com.br>
Message-ID: <BAY121-W698D5DE7990F1A3C68137F5BA0@phx.gbl>

Olá monges,

Estive lutando com um inconveniente ao lidar com arquivos em UTF-16LE com ActivePerl. Ao que parece, o BOM que fica no início do arquivo não é algo que o Perl consiga lidar internamente. Ao ler arquivos codificados eu sempre recebo a seguinte mensagem:

"Wide character in print at"

Olhando o arquivo em um editor hexadecimal eu vejo que o culpado realmente é o "fffe", que indica que o arquivo está codificado como "Little Endian" (o "LE" do UTF-16).

Eu achei esse link aqui que possívelmente oferece uma solução:
http://www.nntp.perl.org/group/perl.unicode/2005/09/msg2906.html

Mas achei um saco, porque teria que sair alterando meus scripts.

Alguém conhece alguma maneira menos trabalhosa de resolver isso? Estou usando ActivePerl  5.8.8 (built for MSWin32-x86-multi-thread).

[]'s
Alceu

_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070920/78e3e889/attachment.html 

From fernandolouis em terra.com.br  Thu Sep 20 12:36:11 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 20 Sep 2007 16:36:11 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
Message-ID: <000d01c7fbbd$8142ae10$0c01a8c0@servidorliz>

Como selecionar 5 colunas, sendo que duas delas não vem ter dados duplicados

"SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM 
`tabela` WHERE 1"

Não achar isso nos manuais...

[]s,
Fernando 


From fernandolouis em terra.com.br  Thu Sep 20 13:31:32 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 20 Sep 2007 17:31:32 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000d01c7fbbd$8142ae10$0c01a8c0@servidorliz>
Message-ID: <003801c7fbc5$3b806db0$0c01a8c0@servidorliz>

Monges, por favor, me dêem esse help. Não to conseguindo resolver este 
problema.


----- Original Message ----- 
From: <fernandolouis em terra.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, September 20, 2007 4:36 PM
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT


Como selecionar 5 colunas, sendo que duas delas não vem ter dados duplicados

"SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM
`tabela` WHERE 1"

Não achar isso nos manuais...

[]s,
Fernando

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From perlnajaca em gmail.com  Thu Sep 20 16:49:36 2007
From: perlnajaca em gmail.com (Perl na Jaca)
Date: Thu, 20 Sep 2007 20:49:36 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?express=E3o_regular?=
In-Reply-To: <3de55ead0709191454g2200c710h1a7f635be189cb28@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
	<75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>
	<3de55ead0709191454g2200c710h1a7f635be189cb28@mail.gmail.com>
Message-ID: <75ac033f0709201649s530d2adci8897892abd8db9ba@mail.gmail.com>

Não me referia ao circunflexo da lista. Este sim, qdo primeiro, nega toda a
lista. Me referia ao circunflexo antes de pm. Como o fernando procurava
casar palavras, disse que o início de uma palavra é o \b (borda) o
circunflexo só se aplicaria se a palavra fosse a primeira de cada registro.

Em 19/09/07, eden <edencardim em gmail.com> escreveu:
>
> On 9/19/07, Perl na Jaca <perlnajaca em gmail.com> wrote:
> > circunflexo é para inicio de linha.
>
> Na verdade, é para casar com o início da string. Sendo o primeiro
> caracter de uma definição de classe de caracteres, serve como negação.
>
> perldoc perlre
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070920/9ffb7272/attachment.html 

From wendelscardua em gmail.com  Thu Sep 20 19:12:57 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Thu, 20 Sep 2007 23:12:57 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?express=E3o_regular?=
In-Reply-To: <75ac033f0709201649s530d2adci8897892abd8db9ba@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000801c7faf8$fe0e4550$0c01a8c0@servidorliz>
	<75ac033f0709191335m2eda7b78y2bde53a2deaf235@mail.gmail.com>
	<3de55ead0709191454g2200c710h1a7f635be189cb28@mail.gmail.com>
	<75ac033f0709201649s530d2adci8897892abd8db9ba@mail.gmail.com>
Message-ID: <726229b50709201912m65eb9d6bqbf1d9eaf0595aff4@mail.gmail.com>

Mais um passo na recursão de meta-explicações...

O Eden não quis dizer que você se referia ao circunflexo da lista - ele só
passou de raspão por esse assunto. O que ele te corrigiu foi que ^ bate com
o início da string, e não da linha.  Note que a string

$foobar = "o jardineiro é jesus...\ne as árveres...\nsomos nozes...\n";

possui 3 linhas, e o ^ só bate em um lugar (a não ser que você use a opção
"m" da regexp).

[]s
Wendel

On 9/20/07, Perl na Jaca <perlnajaca em gmail.com> wrote:
>
> Não me referia ao circunflexo da lista. Este sim, qdo primeiro, nega toda
> a lista. Me referia ao circunflexo antes de pm. Como o fernando procurava
> casar palavras, disse que o início de uma palavra é o \b (borda) o
> circunflexo só se aplicaria se a palavra fosse a primeira de cada registro.
>
> Em 19/09/07, eden <edencardim em gmail.com> escreveu:
> >
> > On 9/19/07, Perl na Jaca <perlnajaca em gmail.com> wrote:
> > > circunflexo é para inicio de linha.
> >
> > Na verdade, é para casar com o início da string. Sendo o primeiro
> > caracter de uma definição de classe de caracteres, serve como negação.
> >
> > perldoc perlre
> >
> > --
> > edenc.vox.com
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070920/77b29148/attachment.html 

From mdacwb em gmail.com  Thu Sep 20 21:31:39 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Fri, 21 Sep 2007 01:31:39 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
In-Reply-To: <003801c7fbc5$3b806db0$0c01a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000d01c7fbbd$8142ae10$0c01a8c0@servidorliz>
	<003801c7fbc5$3b806db0$0c01a8c0@servidorliz>
Message-ID: <42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com>

hummm... WHERE coluna1 != coluna2 ...

Não ficou clara sua necessidade, uma vez que não existe tal função !

O que vc deseja ? Seja mais objetivo, para poder saber como auxiliar.

Em 20/09/07, fernandolouis em terra.com.br<fernandolouis em terra.com.br> escreveu:
> Monges, por favor, me dêem esse help. Não to conseguindo resolver este
> problema.
>
>
> ----- Original Message -----
> From: <fernandolouis em terra.com.br>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Thursday, September 20, 2007 4:36 PM
> Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
>
>
> Como selecionar 5 colunas, sendo que duas delas não vem ter dados duplicados
>
> "SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM
> `tabela` WHERE 1"
>
> Não achar isso nos manuais...
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From wendelscardua em gmail.com  Fri Sep 21 04:28:44 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Fri, 21 Sep 2007 08:28:44 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
In-Reply-To: <42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000d01c7fbbd$8142ae10$0c01a8c0@servidorliz>
	<003801c7fbc5$3b806db0$0c01a8c0@servidorliz>
	<42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com>
Message-ID: <726229b50709210428l5c8f03c4m4c1ff939a214d79e@mail.gmail.com>

Acho que ele quer que, se tiver essas duas rows no banco:

A, B, C, D, E
e
A, B, F, G, H

o select só traga uma delas.

Só assim pra não trazer as duas primeiras colunas sem dados duplicados; por
outro lado isso parece bem inútil.

fernandolouis, talvez você esteja caindo no Problema XY - você quer fazer X,
mas acha que só dá pra fazer do jeito Y; em vez de perguntar pra lista sobre
o X, você pergunta sobre o Y, quando nem sempre este é melhor jeito. Então
explique pelo menos um exemplo de "tabela" e de "saída desejada".

[]s

Wendel

On 9/21/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
>
> hummm... WHERE coluna1 != coluna2 ...
>
> Não ficou clara sua necessidade, uma vez que não existe tal função !
>
> O que vc deseja ? Seja mais objetivo, para poder saber como auxiliar.
>
> Em 20/09/07, fernandolouis em terra.com.br<fernandolouis em terra.com.br>
> escreveu:
> > Monges, por favor, me dêem esse help. Não to conseguindo resolver este
> > problema.
> >
> >
> > ----- Original Message -----
> > From: <fernandolouis em terra.com.br>
> > To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> > Sent: Thursday, September 20, 2007 4:36 PM
> > Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
> >
> >
> > Como selecionar 5 colunas, sendo que duas delas não vem ter dados
> duplicados
> >
> > "SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5`
> FROM
> > `tabela` WHERE 1"
> >
> > Não achar isso nos manuais...
> >
> > []s,
> > Fernando
> >
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070921/fa6dcf52/attachment-0001.html 

From fernandolouis em terra.com.br  Fri Sep 21 06:23:55 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Fri, 21 Sep 2007 10:23:55 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><000d01c7fbbd$8142ae10$0c01a8c0@servidorliz><003801c7fbc5$3b806db0$0c01a8c0@servidorliz>
	<42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com>
Message-ID: <008b01c7fc52$b9fd46d0$1501a8c0@servidorliz>


> From: "Marco A P D'Andrade" <mdacwb em gmail.com>
> Não ficou clara sua necessidade, uma vez que não existe tal função !
> O que vc deseja ? Seja mais objetivo, para poder saber como auxiliar.

Vou tentar ser mais claro com um exemplo:

esta é a tabela `table`

1. cão - 2005 - preto - grande - manso - sim
2. cão - 2005 - marrom - pequeno - manso - nao
3. gato - 2006 - cinza - pequeno - bravo - nao
4. gato - 2006 - cinza - pequeno - manso - nao
5. cão - 2005 - branco - grande - manso - sim
6. cão - 2001 - preto - pequeno - bravo - nao

desejo selecionar as colunas: 1, 2, 3, 4 e 5 desta tabela

e que me retorne todas as linhas, desde que a coluna 1 e a coluna 2, não 
podem ser repetidas.

portanto, deve retornar apenas:
1. cão - 2005 - preto - grande - manso - sim
3. gato - 2006 - cinza - pequeno - bravo - nao
6. cão - 2001 - preto - pequeno - bravo - nao


seria algo assim, mas não deu:
"SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM 
`table` WHERE 1"

[]s,
Fernando



From fernandolouis em terra.com.br  Fri Sep 21 10:19:23 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Fri, 21 Sep 2007 14:19:23 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><000d01c7fbbd$8142ae10$0c01a8c0@servidorliz><003801c7fbc5$3b806db0$0c01a8c0@servidorliz><42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com>
	<726229b50709210428l5c8f03c4m4c1ff939a214d79e@mail.gmail.com>
Message-ID: <017501c7fc73$916459e0$1501a8c0@servidorliz>

Vou tentar ser claro com um exemplo:

esta é a tabela `table`

1. cão - 2005 - preto - grande - manso - sim
2. cão - 2005 - marrom - pequeno - manso - nao
3. gato - 2006 - cinza - pequeno - bravo - nao
4. gato - 2006 - cinza - pequeno - manso - nao
5. cão - 2005 - branco - grande - manso - sim
6. cão - 2001 - preto - pequeno - bravo - nao

desejo selecionar as colunas: 1, 2, 3, 4 e 5 desta tabela

e que me retorne todas as linhas, desde que a coluna 1 e a coluna 2, não 
podem ser repetidas.

portanto, deve retornar apenas:
1. cão - 2005 - preto - grande - manso - sim
3. gato - 2006 - cinza - pequeno - bravo - nao
6. cão - 2001 - preto - pequeno - bravo - nao


seria algo assim, mas não deu:
"SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM 
`table` WHERE 1"

O que desejo fazer é usar o INSERT e dentro dele, usar a cláusula SELECT.

como: INSERT INTO `table` (SELECT "SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM `table` WHERE 1")

[]s,
Fernando
  ----- Original Message ----- 
  From: Wendel Scardua 
  To: Cascavel Perl Mongers 
  Sent: Friday, September 21, 2007 8:28 AM
  Subject: Re: [Cascavel-pm] [OFF] [SQL] DISTINCT


  Acho que ele quer que, se tiver essas duas rows no banco:

  A, B, C, D, E
  e
  A, B, F, G, H

  o select só traga uma delas.

  Só assim pra não trazer as duas primeiras colunas sem dados duplicados; por outro lado isso parece bem inútil. 

  fernandolouis, talvez você esteja caindo no Problema XY - você quer fazer X, mas acha que só dá pra fazer do jeito Y; em vez de perguntar pra lista sobre o X, você pergunta sobre o Y, quando nem sempre este é melhor jeito. Então explique pelo menos um exemplo de "tabela" e de "saída desejada". 

  []s

  Wendel


  On 9/21/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
    hummm... WHERE coluna1 != coluna2 ...

    Não ficou clara sua necessidade, uma vez que não existe tal função !

    O que vc deseja ? Seja mais objetivo, para poder saber como auxiliar.

    Em 20/09/07, fernandolouis em terra.com.br<fernandolouis em terra.com.br> escreveu:
    > Monges, por favor, me dêem esse help. Não to conseguindo resolver este
    > problema.
    >
    >
    > ----- Original Message -----
    > From: <fernandolouis em terra.com.br>
    > To: "Cascavel Perl Mongers" < cascavel-pm em pm.org>
    > Sent: Thursday, September 20, 2007 4:36 PM
    > Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
    >
    >
    > Como selecionar 5 colunas, sendo que duas delas não vem ter dados duplicados 
    >
    > "SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM
    > `tabela` WHERE 1"
    >
    > Não achar isso nos manuais...
    >
    > []s,
    > Fernando
    >




------------------------------------------------------------------------------


  _______________________________________________
  Cascavel-pm mailing list
  Cascavel-pm em pm.org
  http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070921/b8999117/attachment.html 

From loggos em loggos.com.br  Fri Sep 21 13:09:30 2007
From: loggos em loggos.com.br (loggos em loggos.com.br)
Date: Fri, 21 Sep 2007 17:09:30 -0300
Subject: Comparando duas variáveis alfanuméricas
Message-ID: <A22EBBBD380D46318AF1E3818C8554A1@C7PC>

Saudações a todos.
Uma questão teórica, mas muito interessante.
Tenho um array de 900 posições, que armazena 1 parágrafo de texto (1 linha) em cada posição.
Preciso comparar estes textos entre si para saber quais são semelhantes (pois considero que uma diferença de até 3 palavras significa que os textos são iguais).

O algoritmo que utilizo sorteia o array e faz as comparações usando regex e arrays auxiliares.

A pergunta é: existe um meio mais rápido de rodar este tipo de job ?

Fiz uma pesquisa sobre Hashes e , segundo alguns autores, eles são mais lentos (internamente ao PERL).
Atualmente estou estudando Pack/Unpack.

Então, o uso de arrays com regex seria o recurso mais veloz ?

Abraço a todos.
Roberto
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070921/a877756e/attachment.html 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : Loggos TI - Roberto Bisotto.vcf
Tipo  : text/x-vcard
Tam   : 415 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070921/a877756e/attachment.vcf 

From glasswalk3r em hotmail.com  Fri Sep 21 15:07:38 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Sat, 22 Sep 2007 01:07:38 +0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
In-Reply-To: <008b01c7fc52$b9fd46d0$1501a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com><001401c7f0be$c28447d0$0e01a8c0@servidorliz><000d01c7fbbd$8142ae10$0c01a8c0@servidorliz><003801c7fbc5$3b806db0$0c01a8c0@servidorliz>
	<42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com> 
	<008b01c7fc52$b9fd46d0$1501a8c0@servidorliz>
Message-ID: <BAY121-W58933D738C2968C672D37F5BB0@phx.gbl>

Me parece um caso para utilizar GROUP BY.

SELECT coluna1, coluna2, coluna3, coluna4, coluna5
FROM table 
GROUP BY coluna1, coluna2, coluna3, coluna4, coluna5

Só que essa query vai reduzir para uma linha só registros com valores iguais para TODAS as colunas, não só as duas primeiras. Se isso não atende o que você precisa, você vai ter que usar GROUP BY com as duas primeiras colunas e depois usar resultado para pesquisar de novo na mesma tabela, buscando todas as colunas aí. Mas eu suspeito que você não vai precisar fazer isso.

 No entanto essa tabela parece coisa de louco... não tem identificadores, não tem colunas que identifiquem um registros de forma única... Isso parece mais uma tabela de planilha de cálculos, até o MS Access porcão gera uma coluna de identificador por padrão. :-)

[]'s
Alceu

> From: fernandolouis em terra.com.br
> To: cascavel-pm em pm.org
> Date: Fri, 21 Sep 2007 10:23:55 -0300
> Subject: Re: [Cascavel-pm] [OFF] [SQL] DISTINCT
> 
> 
> > From: "Marco A P D'Andrade" <mdacwb em gmail.com>
> > Não ficou clara sua necessidade, uma vez que não existe tal função !
> > O que vc deseja ? Seja mais objetivo, para poder saber como auxiliar.
> 
> Vou tentar ser mais claro com um exemplo:
> 
> esta é a tabela `table`
> 
> 1. cão - 2005 - preto - grande - manso - sim
> 2. cão - 2005 - marrom - pequeno - manso - nao
> 3. gato - 2006 - cinza - pequeno - bravo - nao
> 4. gato - 2006 - cinza - pequeno - manso - nao
> 5. cão - 2005 - branco - grande - manso - sim
> 6. cão - 2001 - preto - pequeno - bravo - nao
> 
> desejo selecionar as colunas: 1, 2, 3, 4 e 5 desta tabela
> 
> e que me retorne todas as linhas, desde que a coluna 1 e a coluna 2, não 
> podem ser repetidas.
> 
> portanto, deve retornar apenas:
> 1. cão - 2005 - preto - grande - manso - sim
> 3. gato - 2006 - cinza - pequeno - bravo - nao
> 6. cão - 2001 - preto - pequeno - bravo - nao
> 
> 
> seria algo assim, mas não deu:
> "SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM 
> `table` WHERE 1"
> 
> []s,
> Fernando


_________________________________________________________________
Connect to the next generation of MSN Messenger 
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070922/00ba232e/attachment.html 

From paulo em odos.com.br  Fri Sep 21 17:59:53 2007
From: paulo em odos.com.br (Paulo)
Date: Fri, 21 Sep 2007 21:59:53 -0300
Subject: [Cascavel-pm] DISTINCT
Message-ID: <46F46909.6020305@odos.com.br>

Fernando, se você tiver uma tabela com as linhas

cão   2005  preto   grande   manso  sim
cão   2005  marrom  pequeno  manso  nao
gato  2006  cinza   pequeno  bravo  nao
gato  2006  cinza   pequeno  manso  nao
cão   2005  branco  grande   manso  sim
cão   2001  preto   pequeno  bravo  nao

e utilizar a query

SELECT `coluna1`, `coluna2`, `coluna3`, `coluna4`, `coluna5` FROM 
`table` GROUP BY `coluna1`, `coluna2`

o retorno sera:

cão      2001      preto      pequeno      bravo
cão     2005     preto     grande         manso
gato     2006     cinza     pequeno     bravo 

Paulo




From mdacwb em gmail.com  Fri Sep 21 19:22:19 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Fri, 21 Sep 2007 23:22:19 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Comparando_duas_vari=E1veis_alfanum?=
	=?iso-8859-1?q?=E9ricas?=
In-Reply-To: <A22EBBBD380D46318AF1E3818C8554A1@C7PC>
References: <A22EBBBD380D46318AF1E3818C8554A1@C7PC>
Message-ID: <42dcdd750709211922y721736c3o396e3e1142b03065@mail.gmail.com>

Saudação,

O desafio é interessante, porém valem algumas considerações...

A algum tempo rolou na lista uma discussão sobre comparação por
similaridade, um tema muito interessante, porém nao tive tempo para
acompanhar (e só lembrei agora ;).

O desempenho depende muito da forma que o código é implementado, em
especial no tratamento dos dados. O melhor é utilizar módulos como
Benchmark para aferir alternativas.

Sim, hashs são mais lentos que arrays

Mas expressões regulares muito repetitivas são mais ainda (em especial
se não forem pré-compiladas).


Sugiro que poste uma fração de seu código, para que o pessoal possa opinar.

Mas, para ser o primeiro a dar os pitacos, segue:

1. Gerar um dicionario de palavras
2. Remontar os parágrafos baseados nestes códigos
  %dict = ();
  $id=0;


  foreach my $line ( @p_Source ) {

     $words=0;
     foreach my $word ( split(/\W+/, lc($line) ) ) {
        if ( $_ && !exists($dict{$word}) ) {
           $dict{$word}=++$id;
        }
        push(@p, $dict{$word});
        $words++;
     }

3. Comparar os paragrafos de memoria que têm chance de serem
similares, dentro da regra de 3 palavras - Ex: não comparar paragrafos
de 5 palavras com aqueles de 9.

4. Palavras podem se repetir em um paragrafo, vale a pena contabilizar isto?

5. Estudar o algoritmo do DIFF pode ser útil, pois podem haver 3
palavras seguidas de diferença ...

  }

Bem, seguem meus 5 minutos de viagem ;)


Sds,
Marco Antonio

Em 21/09/07, loggos em loggos.com.br<loggos em loggos.com.br> escreveu:
>
>
> Saudações a todos.
> Uma questão teórica, mas muito interessante.
> Tenho um array de 900 posições, que armazena 1 parágrafo de texto (1 linha)
> em cada posição.
> Preciso comparar estes textos entre si para saber quais são semelhantes
> (pois considero que uma diferença de até 3 palavras significa que os textos
> são iguais).
>
> O algoritmo que utilizo sorteia o array e faz as comparações usando regex e
> arrays auxiliares.
>
> A pergunta é: existe um meio mais rápido de rodar este tipo de job ?
>
> Fiz uma pesquisa sobre Hashes e , segundo alguns autores, eles são mais
> lentos (internamente ao PERL).
> Atualmente estou estudando Pack/Unpack.
>
> Então, o uso de arrays com regex seria o recurso mais veloz ?
>
> Abraço a todos.
> Roberto
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>

From mdacwb em gmail.com  Fri Sep 21 19:36:42 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Fri, 21 Sep 2007 23:36:42 -0300
Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
In-Reply-To: <017501c7fc73$916459e0$1501a8c0@servidorliz>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<001401c7f0be$c28447d0$0e01a8c0@servidorliz>
	<000d01c7fbbd$8142ae10$0c01a8c0@servidorliz>
	<003801c7fbc5$3b806db0$0c01a8c0@servidorliz>
	<42dcdd750709202131k5a111977y749fbbdc5bea7517@mail.gmail.com>
	<726229b50709210428l5c8f03c4m4c1ff939a214d79e@mail.gmail.com>
	<017501c7fc73$916459e0$1501a8c0@servidorliz>
Message-ID: <42dcdd750709211936o164324a0u92d38f90678988d9@mail.gmail.com>

Fernando,

Não consegui "pescar" o sentido de inserir na própria tabela, os
primeiros dados desta...

Mas imagino que vc vai ter de usar join de uma subquery, procedure ou
sequencia de queries em um script...

select distinct coluna1, coluna2 from table;

para cada registro:

  insert into table
    select COL1, COL2, coluna3, coluna4, coluna5
     from table t
    where coluna1 = COL1 AND coluna2 = COL2
    LIMIT 1;


Sds,
Marco Antonio

Em 21/09/07, fernandolouis em terra.com.br<fernandolouis em terra.com.br> escreveu:
>
>
>
> Vou tentar ser claro com um exemplo:
>
> esta é a tabela `table`
>
> 1. cão - 2005 - preto - grande - manso - sim
> 2. cão - 2005 - marrom - pequeno - manso - nao
> 3. gato - 2006 - cinza - pequeno - bravo - nao
> 4. gato - 2006 - cinza - pequeno - manso - nao
> 5. cão - 2005 - branco - grande - manso - sim
> 6. cão - 2001 - preto - pequeno - bravo - nao
>
> desejo selecionar as colunas: 1, 2, 3, 4 e 5 desta tabela
>
> e que me retorne todas as linhas, desde que a coluna 1 e a coluna 2, não
> podem ser repetidas.
>
> portanto, deve retornar apenas:
> 1. cão - 2005 - preto - grande - manso - sim
> 3. gato - 2006 - cinza - pequeno - bravo - nao
> 6. cão - 2001 - preto - pequeno - bravo - nao
>
>
> seria algo assim, mas não deu:
> "SELECT DISTINCT (`coluna1`,`coluna2`)  `coluna3`,`coluna4`,`coluna5` FROM
> `table` WHERE 1"
>
> O que desejo fazer é usar o INSERT e dentro dele, usar a cláusula SELECT.
>
> como: INSERT INTO `table` (SELECT "SELECT DISTINCT (`coluna1`,`coluna2`)
> `coluna3`,`coluna4`,`coluna5` FROM `table` WHERE 1")
>
>
> []s,
> Fernando
>
> ----- Original Message -----
> From: Wendel Scardua
> To: Cascavel Perl Mongers
> Sent: Friday, September 21, 2007 8:28 AM
> Subject: Re: [Cascavel-pm] [OFF] [SQL] DISTINCT
>
> Acho que ele quer que, se tiver essas duas rows no banco:
>
> A, B, C, D, E
> e
> A, B, F, G, H
>
> o select só traga uma delas.
>
> Só assim pra não trazer as duas primeiras colunas sem dados duplicados; por
> outro lado isso parece bem inútil.
>
> fernandolouis, talvez você esteja caindo no Problema XY - você quer fazer X,
> mas acha que só dá pra fazer do jeito Y; em vez de perguntar pra lista sobre
> o X, você pergunta sobre o Y, quando nem sempre este é melhor jeito. Então
> explique pelo menos um exemplo de "tabela" e de "saída desejada".
>
> []s
>
> Wendel
>
>
> On 9/21/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> > hummm... WHERE coluna1 != coluna2 ...
> >
> > Não ficou clara sua necessidade, uma vez que não existe tal função !
> >
> > O que vc deseja ? Seja mais objetivo, para poder saber como auxiliar.
> >
> > Em 20/09/07, fernandolouis em terra.com.br<fernandolouis em terra.com.br>
> escreveu:
> > > Monges, por favor, me dêem esse help. Não to conseguindo resolver este
> > > problema.
> > >
> > >
> > > ----- Original Message -----
> > > From: <fernandolouis em terra.com.br>
> > > To: "Cascavel Perl Mongers" < cascavel-pm em pm.org>
> > > Sent: Thursday, September 20, 2007 4:36 PM
> > > Subject: [Cascavel-pm] [OFF] [SQL] DISTINCT
> > >
> > >
> > > Como selecionar 5 colunas, sendo que duas delas não vem ter dados
> duplicados
> > >
> > > "SELECT DISTINCT (`coluna1`,`coluna2`)
> `coluna3`,`coluna4`,`coluna5` FROM
> > > `tabela` WHERE 1"
> > >
> > > Não achar isso nos manuais...
> > >
> > > []s,
> > > Fernando
> > >
>
>
>
>  ________________________________
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From shonorio em gmail.com  Sat Sep 22 03:29:09 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Sat, 22 Sep 2007 07:29:09 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Comparando_par=E1grafos_de_texto?=
In-Reply-To: <7F892B85FB144AB9A4EC65F3674136B8@C7PC>
References: <7F892B85FB144AB9A4EC65F3674136B8@C7PC>
Message-ID: <12d1f4ee0709220329pdef0714k5075507a24ecb2f5@mail.gmail.com>

On 9/21/07, loggos em loggos.com.br <loggos em loggos.com.br> wrote:
>
>  Saudações a todos.
> Uma questão teórica, mas muito interessante.
> Tenho um array de 900 posições, que armazena 1 parágrafo de texto (1
> linha) em cada posição.
> Preciso comparar estes textos entre si para saber quais são semelhantes
> (pois considero que uma diferença de até 3 palavras significa que os textos
> são iguais).
>

Isto parece coisa de professor  tentando  pegar  plágio de aluno nos
trabalhos.

O algoritmo que utilizo sorteia o array e faz as comparações usando regex e
> arrays auxiliares.
>
> A pergunta é: existe um meio mais rápido de rodar este tipo de job ?
>

Num sei, porquê não sei o quanto rápido o teu sistema está lento ! Existe
sim várias maneiras, o MDA lhe passou uma. Você então comparar o método do
MDA com o teu via Benchmark, ou senão comprar com módulos de aproximação no
CPAN tipo :
http://cpan.uwinnipeg.ca/htdocs/Algorithm-Diff/Algorithm/Diff.html,
http://cpan.uwinnipeg.ca/htdocs/String-Similarity/String/Similarity.htmlentre
outros.

Fiz uma pesquisa sobre Hashes e , segundo alguns autores, eles são mais
> lentos (internamente ao PERL).
>

Sim, é verdade que o armazenamento e a recuperação de informações em hashes
custão mais do que em array, por motivos da própria concepção deste tipo de
variável.

Mas também é verdade que existe outras coisas que podem influênciar
negativamente a performance da aplicação. Para saber onde exatamente está o
problema, eu recomendo fortemente você utilizar as ferramentas do Devel::*,
tipo http://cpan.uwinnipeg.ca/htdocs/DProf/Devel/DProf.html,
http://cpan.uwinnipeg.ca/htdocs/Devel-DProfLB/Devel/DProfLB.html,
http://cpan.uwinnipeg.ca/htdocs/GraphViz/Devel/GraphVizProf.html entre
vários outros disponível no cpan mais próximo de você :)

Atualmente estou estudando Pack/Unpack.
>
> Então, o uso de arrays com regex seria o recurso mais veloz ?
>

Use o benchmark e depois nos conte o resultado :)

Abraço a todos.
> Roberto
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>


-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070922/15244aae/attachment.html 

From nferraz em gmail.com  Mon Sep 24 08:14:16 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 24 Sep 2007 16:14:16 +0100
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Comparando_duas_vari=E1veis_alfanum?=
	=?iso-8859-1?q?=E9ricas?=
In-Reply-To: <A22EBBBD380D46318AF1E3818C8554A1@C7PC>
References: <A22EBBBD380D46318AF1E3818C8554A1@C7PC>
Message-ID: <02634121-6A55-45AC-BC2A-806B186A94A8@gmail.com>

> Tenho um array de 900 posições, que armazena 1 parágrafo de texto  
> (1 linha) em cada posição.
> Preciso comparar estes textos entre si para saber quais são  
> semelhantes (pois considero que uma diferença de até 3 palavras  
> significa que os textos são iguais).

Acabei de ver um módulo que pode ser útil:

	Text::Compare is an attempt to write a high speed text compare tool
	based on Vector comparision which uses language dependend stopwords.
	Text::Compare uses Lingua::Identify to find the language of the
	given texts, then uses Lingua::StopWords to get the stopwords for the
	given language and finally uses Lingua::Stem to find word stems.

	http://search.cpan.org/~stro/Text-Compare-1.03/lib/Text/Compare.pm

[]s

Nelson


From jamorreu em gmail.com  Mon Sep 24 15:14:29 2007
From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=)
Date: Mon, 24 Sep 2007 19:14:29 -0300
Subject: [Cascavel-pm] Tratando o retorno de um comando via open
Message-ID: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>

Alas pessoal!!

Estou precisando executar comandos via perl (com interface web), e
estou seguinto assim:

<CODE>
open(teste, "|comando");
while($resultado = <teste>) {
 print "$resultado";
}
close(teste);
</CODE>

Porém o comando não retorna na variavel "$resultado" e sim já sai
automaticamente no script.

1. Como fazer para o resultado do comando ir para a variavel "$resultado"?
2. "perldoc [o que]" para mais informações sobre o assunto?

-- 
Um abraço,
João Gabriel C. Laass
Página pessoal - www.JGCL.pt.to
CGiClube.net - www.CGiClube.net
Vitória Perl Mongers - Vitoria.pm.org

From loggos em loggos.com.br  Mon Sep 24 17:03:02 2007
From: loggos em loggos.com.br (loggos em loggos.com.br)
Date: Mon, 24 Sep 2007 21:03:02 -0300
Subject: [Cascavel-pm] Digest Cascavel-pm, volume 216, assunto 1
In-Reply-To: <mailman.11.1190660413.25118.cascavel-pm@pm.org>
References: <mailman.11.1190660413.25118.cascavel-pm@pm.org>
Message-ID: <4BAC0CED548D40439514C02A548A7C4F@C7PC>

Obrigado pela atenção Nelson.
Vou testar e retorno.
Roberto
----- Original Message ----- 
From: <cascavel-pm-request em pm.org>
To: <cascavel-pm em pm.org>
Sent: Monday, September 24, 2007 4:00 PM
Subject: Digest Cascavel-pm, volume 216, assunto 1


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: Comparando duas variáveis alfanuméricas 
(Nelson Ferraz)


----------------------------------------------------------------------

Message: 1
Date: Mon, 24 Sep 2007 16:14:16 +0100
From: Nelson Ferraz <nferraz em gmail.com>
Subject: Re: [Cascavel-pm] Comparando duas 
variáveis alfanuméricas
To: Cascavel Perl Mongers <cascavel-pm em pm.org>
Message-ID: 
<02634121-6A55-45AC-BC2A-806B186A94A8 em gmail.com>
Content-Type: text/plain; charset=ISO-8859-1; 
delsp=yes; format=flowed

> Tenho um array de 900 posições, que armazena 1 
> parágrafo de texto
> (1 linha) em cada posição.
> Preciso comparar estes textos entre si para 
> saber quais são
> semelhantes (pois considero que uma diferença de 
> até 3 palavras
> significa que os textos são iguais).

Acabei de ver um módulo que pode ser útil:

Text::Compare is an attempt to write a high speed 
text compare tool
based on Vector comparision which uses language 
dependend stopwords.
Text::Compare uses Lingua::Identify to find the 
language of the
given texts, then uses Lingua::StopWords to get 
the stopwords for the
given language and finally uses Lingua::Stem to 
find word stems.

http://search.cpan.org/~stro/Text-Compare-1.03/lib/Text/Compare.pm

[]s

Nelson



------------------------------

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

Fim da Digest Cascavel-pm, volume 216, assunto 1
************************************************



-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.488 / Virus Database: 
269.13.30/1025 - Release Date: 23/09/2007 13:53



From igor.sutton em yahoo.co.uk  Mon Sep 24 22:34:36 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Tue, 25 Sep 2007 07:34:36 +0200
Subject: [Cascavel-pm] Tratando o retorno de um comando via open
In-Reply-To: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
References: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
Message-ID: <CC6F8C9E-EF1E-4167-909B-4D7F78F06A17@yahoo.co.uk>


On Sep 25, 2007, at 12:14 AM, João Gabriel wrote:

> Alas pessoal!!
>
> Estou precisando executar comandos via perl (com interface web), e
> estou seguinto assim:
>
> <CODE>
> open(teste, "|comando");
> while($resultado = <teste>) {
>  print "$resultado";
> }
> close(teste);
> </CODE>
>
> Porém o comando não retorna na variavel "$resultado" e sim já sai
> automaticamente no script.
>
> 1. Como fazer para o resultado do comando ir para a variavel  
> "$resultado"?
> 2. "perldoc [o que]" para mais informações sobre o assunto?

perldoc perlop, procure por qx;
perldoc perlipc;
perldoc IPC::Open2;
perldoc IPC::Open3;


From thomas em tcnet.com.br  Tue Sep 25 03:15:42 2007
From: thomas em tcnet.com.br (thomas)
Date: Tue, 25 Sep 2007 07:15:42 -0300
Subject: [Cascavel-pm] Tratando o retorno de um comando via open
In-Reply-To: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
References: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
Message-ID: <9569a6bf186c5f1a9502834683129388@tcnet.com.br>

perldoc -f open

               If the filename begins with '|', the filename is interpreted
as
               a command to which output is to be piped, and if the
filename
               ends with a '|', the filename is interpreted as a command
which
               pipes output to us.

On Mon, 24 Sep 2007 19:14:29 -0300, "João Gabriel" <jamorreu em gmail.com>
wrote:
> Alas pessoal!!
> 
> Estou precisando executar comandos via perl (com interface web), e
> estou seguinto assim:
> 
> <CODE>
> open(teste, "|comando");
> while($resultado = <teste>) {
>  print "$resultado";
> }
> close(teste);
> </CODE>
> 
> Porém o comando não retorna na variavel "$resultado" e sim já sai
> automaticamente no script.
> 
> 1. Como fazer para o resultado do comando ir para a variavel
"$resultado"?
> 2. "perldoc [o que]" para mais informações sobre o assunto?
> 
>
-- 
Thomas Britis
TCNet Info e Telecom LTDA


From jamorreu em gmail.com  Thu Sep 27 18:16:21 2007
From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=)
Date: Thu, 27 Sep 2007 22:16:21 -0300
Subject: [Cascavel-pm] Tratando o retorno de um comando via open
In-Reply-To: <8ff2963a0709271814j2a19de1akdf465474de8ce42e@mail.gmail.com>
References: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
	<9569a6bf186c5f1a9502834683129388@tcnet.com.br>
	<8ff2963a0709271814j2a19de1akdf465474de8ce42e@mail.gmail.com>
Message-ID: <8ff2963a0709271816x23a54b7n564286f16027cf4a@mail.gmail.com>

Bom, depois de alguns testes...

Usando o "open" com uma | no final eu consigo enviar o comando, porém
após o comando inicial eu gostaria de "ir conversando"...
ex.:
<CODE>
open(cmd, "comando|");
while(<cmd>) { print "$_"; }
print cmd "outro comando";
while(<cmd>) { print "$_"; }
close(cmd);
</CODE>
(só recebo as respostas do primeiro comando)

Testando o IPC::Open2 e 3, não obtive respostas (não sei se uso a
sintaxe correta):
*ambiente windows, comando dir*
<CODE>
use IPC::Open2;
$pid = open2($chld_out, $chld_in, 'dir');
print "$pid - $chld_out - $chld_in";
</CODE>
resposta do print: "3536 - GLOB(0x15d65bc) - GLOB(0x225c74)"
*mesma coisa com o ipc::open3


Sugestões? Dicas? Correções na sintaxe?

--
Um abraço,
João Gabriel C. Laass
Página pessoal - www.JGCL.pt.to
CGiClube.net - www.CGiClube.net
Vitória Perl Mongers - Vitoria.pm.org




> Em 25/09/07, thomas<thomas em tcnet.com.br> escreveu:
> > perldoc -f open
> >
> >                If the filename begins with '|', the filename is interpreted
> > as
> >                a command to which output is to be piped, and if the
> > filename
> >                ends with a '|', the filename is interpreted as a command
> > which
> >                pipes output to us.
> >
> > On Mon, 24 Sep 2007 19:14:29 -0300, "João Gabriel" <jamorreu em gmail.com>
> > wrote:
> > > Alas pessoal!!
> > >
> > > Estou precisando executar comandos via perl (com interface web), e
> > > estou seguinto assim:
> > >
> > > <CODE>
> > > open(teste, "|comando");
> > > while($resultado = <teste>) {
> > >  print "$resultado";
> > > }
> > > close(teste);
> > > </CODE>
> > >
> > > Porém o comando não retorna na variavel "$resultado" e sim já sai
> > > automaticamente no script.
> > >
> > > 1. Como fazer para o resultado do comando ir para a variavel
> > "$resultado"?
> > > 2. "perldoc [o que]" para mais informações sobre o assunto?
> > >
> > >
> > --
> > Thomas Britis
> > TCNet Info e Telecom LTDA

From wendelscardua em gmail.com  Thu Sep 27 20:13:05 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Fri, 28 Sep 2007 00:13:05 -0300
Subject: [Cascavel-pm] Tratando o retorno de um comando via open
In-Reply-To: <8ff2963a0709271816x23a54b7n564286f16027cf4a@mail.gmail.com>
References: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
	<9569a6bf186c5f1a9502834683129388@tcnet.com.br>
	<8ff2963a0709271814j2a19de1akdf465474de8ce42e@mail.gmail.com>
	<8ff2963a0709271816x23a54b7n564286f16027cf4a@mail.gmail.com>
Message-ID: <726229b50709272013l3ba63aay96b41a191e3cf008@mail.gmail.com>

On 9/27/07, João Gabriel <jamorreu em gmail.com> wrote:
>
>
> Testando o IPC::Open2 e 3, não obtive respostas (não sei se uso a
> sintaxe correta):
> *ambiente windows, comando dir*
> <CODE>
> use IPC::Open2;
> $pid = open2($chld_out, $chld_in, 'dir');
> print "$pid - $chld_out - $chld_in";
> </CODE>
> resposta do print: "3536 - GLOB(0x15d65bc) - GLOB(0x225c74)"
> *mesma coisa com o ipc::open3
>
>
> Sugestões? Dicas? Correções na sintaxe?
>
>
Ué, parece que tá certo... Agora você deveria usar $chld_out e $chld_in como
file_handles...

Você só precisa tratar o que você recebeu de uma ponta pra saber quando
mandar pra outra, ou algo assim....

[]s

Wendel
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070928/5c538f7d/attachment.html 

From edencardim em gmail.com  Fri Sep 28 04:25:39 2007
From: edencardim em gmail.com (eden)
Date: Fri, 28 Sep 2007 08:25:39 -0300
Subject: [Cascavel-pm] Tratando o retorno de um comando via open
In-Reply-To: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
References: <8ff2963a0709241514k624c6ffex7b151022d83736d5@mail.gmail.com>
Message-ID: <3de55ead0709280425x268ac2b1u9d832f93df14dad5@mail.gmail.com>

On 9/24/07, João Gabriel <jamorreu em gmail.com> wrote:
> Alas pessoal!!
>
> Estou precisando executar comandos via perl (com interface web), e
> estou seguinto assim:
>
> <CODE>
> open(teste, "|comando");
> while($resultado = <teste>) {
>  print "$resultado";
> }
> close(teste);
> </CODE>
>
> Porém o comando não retorna na variavel "$resultado" e sim já sai
> automaticamente no script.
>
> 1. Como fazer para o resultado do comando ir para a variavel "$resultado"?
> 2. "perldoc [o que]" para mais informações sobre o assunto?

Usa o módulo IPC::Cmd, vai facilitar muito sua vida.

-- 
edenc.vox.com