From rafamv1 em ig.com.br  Wed Aug  1 04:55:48 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Wed, 1 Aug 2007 08:55:48 -0300
Subject: [Cascavel-pm] Remover elemento de array em arquivo..
Message-ID: <20070801_115548_062249.rafamv1@ig.com.br>

Preciso de uma ajuda!!!!! 
A variável "@user", linha 19,  recebe os valores de um outro 
código(Pesq.pl).. Esses valores são enviados quando o usuário marca os 
checkbox no 
código "pesq.pl". O problema é que quando os usuários marcam mais de um 
checkbox, apenas o valor do primeiro é excluido no 
arquivo "users" -> '/arquivos/usuarios/users'. Para tentar resolver o 
problema, criei um array com os valores de "usuario" 
na linha 19, no entanto, não consigo fazer o código verificar cada elemento 
e exclui-lo..Na linha 22 deixei /$user[0]/ só 
para não dar erro na hora de executar o código.. Resumindo, preciso remover 
do arquivo "users" todos os valores que forem 
selecionados nos checkbox do código "pesq.pl".. 

 1 #!/usr/bin/perl 
 2 use warnings; 
 3 use strict; 
 4 use CGI qw ( :standard ); 
 5 use constant PESQ => 
 6              'http://meudominio.com.br/cgi-bin/usuarios/pesq.pl'; 
 7 use constant MARCARUSUARIO => 
 8              'http://meudominio.com.br/usuarios/marcarusuario.htm'; 
 9 use constant USUARIODELETADO => 
10              'http://meudominio.com.br/usuarios/usuariodeletado.htm'; 
11	 
12 ## Abre o arquivo e cria o Handle <USERS>; 
13 my $arquivo = '/arquivos/usuarios/users'; 
14 open ( USERS,$arquivo ); 
15 my @linhas = <USERS>; 
16 close (USERS); 
17 my $linhas = "@linhas"; 
18 ## Recebe o conteudo da variavel $user  do formulario 
(/var/www/cgi-bin/usuarios/pesq.pl) ; 
19 my @user = param ( "usuario" ); 
20 my @u; 
21 foreach (@linhas) { 
22 push (@u, $_ ) if $_ !~ /$user[0]/; 
23 my $narq = "@u"; 
24 open ( USERS,"+>$arquivo" ); 
25 print ( USERS "$narq" ); 
26 close ( USERS ); 
27 #Exibe o codigo .htm (USUARIODELETADO) e fecha o else e o foreach; 
28 print redirect (USUARIODELETADO); 
29 }} 



From kuntzzz em gmail.com  Wed Aug  1 05:14:40 2007
From: kuntzzz em gmail.com (=?ISO-8859-1?Q?=22Iber=EA_O=2E_Kuntz_de_Souza=22?=)
Date: Wed, 01 Aug 2007 09:14:40 -0300
Subject: [Cascavel-pm] Threads em Perl
Message-ID: <46B07930.8060609@gmail.com>

Pelo que eu me lembre, existem 2 (ou 3?) modelos de thread em perl. Um 
que está disponível a partir da versão 5.6, chamado ithread, e outro que 
é um poco velho, conhecido por modelo 5.005.
O seu uso é permitido (não nos responsabilizamos pelos danos causados no 
seu cérebro), MAS deve ser usado com cuidado.
Na verdade, nunca tive a necessidade de usar threads além do fork, que é 
uma maneira bifurcada de thread.
RTFM:
$ perldoc perlthrtut
$ perldoc -f fork

Happy hack! :)

From kuntzzz em gmail.com  Wed Aug  1 05:16:20 2007
From: kuntzzz em gmail.com (=?ISO-8859-1?Q?=22Iber=EA_O=2E_Kuntz_de_Souza=22?=)
Date: Wed, 01 Aug 2007 09:16:20 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
Message-ID: <46B07994.9040000@gmail.com>

>
> Se é pra sugerir ai vai uma...
>
> Paulo José Sant'Ana
> Mestral Informática - www.mestral.com.br
Perfeito!

From adm em mestral.com.br  Wed Aug  1 05:17:22 2007
From: adm em mestral.com.br (Paulo =?iso-8859-1?q?Jos=E9_Sant=27Ana?=)
Date: Wed, 1 Aug 2007 09:17:22 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
References: <65934b450707300811p63634fefvf3446f949cd89583@mail.gmail.com>
	<200707311329.09088.adm@mestral.com.br>
	<1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
Message-ID: <200708010917.22881.adm@mestral.com.br>

Fiz duas formas de logo uma vertical e outra horizontal o que é extremamente útil
na hora de diagramar vários tipos de documentos.
Uso Linux e tenho nativo o Inkscape que edita os arquivos svg, se alguém tiver dificuldade
de trabalhar com este tipo de arquivo pode baixar o Inkape de www.inkscape.org pra Linux, Mac ou Windows.
Mesmo assim estou mandando em anexo as duas logos em formato bitmap.

Em Terça 31 Julho 2007 18:30, Donato Azevedo escreveu:
> gostei, apesar de que o Display (programa para visualizacao de svg)
> nao ter mostrado da forma como acho que voce o planejou... mas gostei
> da ideia

Paulo José Sant'Ana
Mestral Informática - www.mestral.com.br
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : perl.org.br.gif
Tipo  : image/gif
Tam   : 4486 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/5540780d/attachment.gif 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : per.org.br_h.gif
Tipo  : image/gif
Tam   : 2951 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/5540780d/attachment-0001.gif 

From glasswalk3r em hotmail.com  Wed Aug  1 05:36:16 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Wed, 1 Aug 2007 15:36:16 +0300
Subject: [Cascavel-pm] Threads em Perl
Message-ID: <BAY121-W1542E700646E52ED664A85F5E80@phx.gbl>

> Date: Tue, 31 Jul 2007 23:20:53 -0300> From: acid06 em gmail.com> > Outro benefício é que você consegue escrever código usando IPC que vai> ser portável. Pelo menos 90% dos programadores em Perl não sabem> escrever IPC que vai funcionar em Windows porque usam signal handlers.> Usando o módulo forks você tem um fallback ótimo: se estiver sob> Windows, use threads, se estiver em outro OS, use forks. O forks> oferece a conveniência de se instalar sob o namespace "threads" caso> você assim queira, dessa forma, você pode usar threads->create() e na> verdade ele vai criar um processo.> > Assim você consegue uma API limpa, IPC facilitado, garantia de> portabilidade e o melhor dos dois mundos.> >   http://search.cpan.org/~rybskej/forks-0.24/Nilson, eu fiquei empolgado com a descrição, fui dar uma olhada no módulo e encontrei isso:"Using this module only makes sense if you run on a system that has an implementation of the fork function by the Operating System. Windows is currently the only known system on which Perl runs which does not have an implementation of fork. Therefore, it doesn't
make any sense to use this module on a Windows system. And therefore, a
check is made during installation barring you from installing on a
Windows system."Você consegue gerar código que roda em ambos sistemas operacionais? Que versão você está usando do Forks?[]'sAlceu
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/a7ad1ed3/attachment.html 

From edencardim em gmail.com  Wed Aug  1 06:51:45 2007
From: edencardim em gmail.com (eden)
Date: Wed, 1 Aug 2007 10:51:45 -0300
Subject: [Cascavel-pm] Remover elemento de array em arquivo..
In-Reply-To: <20070801_115548_062249.rafamv1@ig.com.br>
References: <20070801_115548_062249.rafamv1@ig.com.br>
Message-ID: <3de55ead0708010651p7835998cgde3a66eae974733a@mail.gmail.com>

On 8/1/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Preciso de uma ajuda!!!!!
> A variável "@user", linha 19,  recebe os valores de um outro
> código(Pesq.pl).. Esses valores são enviados quando o usuário marca os
> checkbox no
> código "pesq.pl". O problema é que quando os usuários marcam mais de um
> checkbox, apenas o valor do primeiro é excluido no
> arquivo "users" -> '/arquivos/usuarios/users'. Para tentar resolver o
> problema, criei um array com os valores de "usuario"
> na linha 19, no entanto, não consigo fazer o código verificar cada elemento
> e exclui-lo..Na linha 22 deixei /$user[0]/ só
> para não dar erro na hora de executar o código..

Se tá dando erro de execução é porque existe algum problema no programa.

> Resumindo, preciso remover
> do arquivo "users" todos os valores que forem
> selecionados nos checkbox do código "pesq.pl"..

Sua lógica só verifica o primeiro elemento de @user, então ele só está
removendo o primeiro usuário.

Você precisa fazer algo assim:

use warnings;
use strict;
use List::MoreUtils;

my @lista_antiga = pegar_lista_usuarios();
my @excluir_usuarios = param('users');
my @lista_nova = grep {my $user = $_; none {$user eq $_}
@excluir_usuários} @lista_antiga;

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática

From kuntzzz em gmail.com  Wed Aug  1 07:29:06 2007
From: kuntzzz em gmail.com (=?ISO-8859-1?Q?=22Iber=EA_O=2E_Kuntz_de_Souza=22?=)
Date: Wed, 01 Aug 2007 11:29:06 -0300
Subject: [Cascavel-pm] Remover elemento de array em arquivo..
Message-ID: <46B098B2.8090100@gmail.com>

>
> Preciso de uma ajuda!!!!! 
> A variável "@user", linha 19,  recebe os valores de um outro 
> código(Pesq.pl).. Esses valores são enviados quando o usuário marca os 
> checkbox no 
> código "pesq.pl". O problema é que quando os usuários marcam mais de um 
> checkbox, apenas o valor do primeiro é excluido no 
> arquivo "users" -> '/arquivos/usuarios/users'. Para tentar resolver o 
> problema, criei um array com os valores de "usuario" 
> na linha 19, no entanto, não consigo fazer o código verificar cada elemento 
> e exclui-lo..Na linha 22 deixei /$user[0]/ só 
> para não dar erro na hora de executar o código.. Resumindo, preciso remover 
> do arquivo "users" todos os valores que forem 
> selecionados nos checkbox do código "pesq.pl".. 
>
>  1 #!/usr/bin/perl 
>  2 use warnings; 
>  3 use strict; 
>  4 use CGI qw ( :standard ); 
>  5 use constant PESQ => 
>  6              'http://meudominio.com.br/cgi-bin/usuarios/pesq.pl'; 
>  7 use constant MARCARUSUARIO => 
>  8              'http://meudominio.com.br/usuarios/marcarusuario.htm'; 
>  9 use constant USUARIODELETADO => 
> 10              'http://meudominio.com.br/usuarios/usuariodeletado.htm'; 
> 11	 
> 12 ## Abre o arquivo e cria o Handle <USERS>; 
> 13 my $arquivo = '/arquivos/usuarios/users'; 
> 14 open ( USERS,$arquivo ); 
> 15 my @linhas = <USERS>; 
> 16 close (USERS); 
> 17 my $linhas = "@linhas"; 
> 18 ## Recebe o conteudo da variavel $user  do formulario 
> (/var/www/cgi-bin/usuarios/pesq.pl) ; 
> 19 my @user = param ( "usuario" ); 
> 20 my @u; 
> 21 foreach (@linhas) { 
> 22 push (@u, $_ ) if $_ !~ /$user[0]/; 
> 23 my $narq = "@u"; 
> 24 open ( USERS,"+>$arquivo" ); 
> 25 print ( USERS "$narq" ); 
> 26 close ( USERS ); 
> 27 #Exibe o codigo .htm (USUARIODELETADO) e fecha o else e o foreach; 
> 28 print redirect (USUARIODELETADO); 
> 29 }} 
>   
1° ) Não recomendo o uso de filehandles, isto já é considerado obsoleto. 
Use variáveis léxicas em seu lugar.
2° ) Use a forma de 3 argumentos de open, isto é mais legível e tem mais 
algumas melhorias da qual não lembro (e não sei), mas os mongers amigos 
dirão.

Por fim, tem o módulo Tie::File, cuja função é ligar um array à um 
arquivo, isto irá facilitar muito sua vida, embora o pessoal daqui não 
goste de variáveis ligadas (ainda não sei o motivo).

$ perldoc Tie::File

Happy Hack! :)

From luismottacampos em yahoo.co.uk  Wed Aug  1 08:02:09 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 1 Aug 2007 17:02:09 +0200
Subject: [Cascavel-pm] Remover elemento de array em arquivo..
In-Reply-To: <46B098B2.8090100@gmail.com>
References: <46B098B2.8090100@gmail.com>
Message-ID: <74AF4069-4D9B-4F44-9BC1-7193A1502D1F@yahoo.co.uk>

On Aug 1, 2007, at 4:29 PM, Iberê O. Kuntz de Souza wrote:
>>  1 #!/usr/bin/perl
>>  2 use warnings;
>>  3 use strict;
>>  4 use CGI qw ( :standard );
>>  5 use constant PESQ =>
>>  6              'http://meudominio.com.br/cgi-bin/usuarios/pesq.pl';
>>  7 use constant MARCARUSUARIO =>
>>  8              'http://meudominio.com.br/usuarios/ 
>> marcarusuario.htm';
>>  9 use constant USUARIODELETADO =>
>> 10              'http://meudominio.com.br/usuarios/ 
>> usuariodeletado.htm';
>> 11	
>> 12 ## Abre o arquivo e cria o Handle <USERS>;
>> 13 my $arquivo = '/arquivos/usuarios/users';
>> 14 open ( USERS,$arquivo );
>> 15 my @linhas = <USERS>;
>> 16 close (USERS);
>> 17 my $linhas = "@linhas";
>> 18 ## Recebe o conteudo da variavel $user  do formulario
>> (/var/www/cgi-bin/usuarios/pesq.pl) ;
>> 19 my @user = param ( "usuario" );
>> 20 my @u;
>> 21 foreach (@linhas) {
>> 22 push (@u, $_ ) if $_ !~ /$user[0]/;
>> 23 my $narq = "@u";
>> 24 open ( USERS,"+>$arquivo" );
>> 25 print ( USERS "$narq" );
>> 26 close ( USERS );
>> 27 #Exibe o codigo .htm (USUARIODELETADO) e fecha o else e o foreach;
>> 28 print redirect (USUARIODELETADO);
>> 29 }}
>>
> 1° ) Não recomendo o uso de filehandles, isto já é considerado  
> obsoleto.
> Use variáveis léxicas em seu lugar.

   Isso quer dizer que, ao invés de dizer

     open( USERS, $arquivo );

   Você deveria dizer

     open my $users_filehandle, '<', $arquivo
         or die "Erro tentanto abrir arquivo $arquivo: $!.";

   E, ao invés de dizer

     close(USERS);

   Você deveria dizer

     close $users_filehandle
         or die "Erro tentando fechar o arquivo $arquivo: $!.";

> 2° ) Use a forma de 3 argumentos de open, isto é mais legível e tem  
> mais
> algumas melhorias da qual não lembro (e não sei), mas os mongers  
> amigos
> dirão.

   Isso quer dizer que você tem de usar

     open my $filehandle, $modo, $arquivo
         or die qq{Erro: $!};

   Ao invés de apenas dizer

     open FH, $arquivo;

   A variável "$modo", aqui, pode assumir basicamente dois valores:

     '<' quando você quiser ler coisas do arquivo (é o teu caso)

     '>' quando você quiser escrever coisas no arquivo.

   existem mais modos que você pode consultar, leia o documento  
gerado por

     perldoc -f open

   para saber dos detalhes. ;-)

> Por fim, tem o módulo Tie::File, cuja função é ligar um array à um
> arquivo, isto irá facilitar muito sua vida, embora o pessoal daqui não
> goste de variáveis ligadas (ainda não sei o motivo).
>
> $ perldoc Tie::File

   Eu não sei se este módulo faz parte da distribuição do Perl.  
Talvez você tenha de instalar a bibliteca. É fácil e simples de fazer  
isso, mas você vai ter de aprender a usar o CPAN. www.cpan.org para  
saber mais informações, http://search.cpan.org/ para pesquisar  
pacotes, e 'perldoc CPAN' para aprender como instalar pacotes. :-)

   Espero que isso ajude.
   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  Wed Aug  1 08:53:43 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 1 Aug 2007 12:53:43 -0300 (ART)
Subject: [Cascavel-pm] Problema com IF
Message-ID: <134167.24695.qm@web31306.mail.mud.yahoo.com>

Pessoal.. estou fazendo um IF para verificar se um numero eh maior que o outro..
faco assim:
$num1=9.50;
$num2=-7.9;
$num3=0.0;

if(($num1<=$num3) && ($num1>=$num2))
{

....print "OK";

}

Ele imprimiu OK... ele nao compara float?


Obrigada



       Alertas do Yahoo! Mail em seu celular. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/58803350/attachment.html 

From wendelscardua em gmail.com  Wed Aug  1 08:58:52 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Wed, 1 Aug 2007 12:58:52 -0300
Subject: [Cascavel-pm] Problema com IF
In-Reply-To: <134167.24695.qm@web31306.mail.mud.yahoo.com>
References: <134167.24695.qm@web31306.mail.mud.yahoo.com>
Message-ID: <726229b50708010858lcc0b1b8m8b8960b2abe34a66@mail.gmail.com>

Patty, ele não imprime ok não... Na verdade, seu código dá erro de
compilação por causa daqueles pontinhos na frente do print.

Mas mesmo tirando os pontinhos, ele não imprime "OK" nenhum.

Tem certeza que esse código é o que tá dando problema ? Você não tá olhando
o trecho errado do seu programa ? Será que você não imprime "OK" em mais de
um lugar, e tá achando que é nesse if ?


[]s
Wendel


On 8/1/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> Pessoal.. estou fazendo um IF para verificar se um numero eh maior que o
> outro..
> faco assim:
> $num1=9.50;
> $num2=-7.9;
> $num3=0.0;
>
> if(($num1<=$num3) && ($num1>=$num2))
> {
>
> ....print "OK";
>
> }
>
> Ele imprimiu OK... ele nao compara float?
>
>
> Obrigada
>
>
> Alertas do Yahoo! Mail em seu celular. Saiba mais<http://br.mobile.yahoo.com/mailalertas/>.
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
"Não ajustar o auto-ajuste" - http://wendel.scardua.net/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/1ea9db11/attachment.html 

From nferraz em gmail.com  Wed Aug  1 09:02:52 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 1 Aug 2007 17:02:52 +0100
Subject: [Cascavel-pm] Problema com IF
In-Reply-To: <134167.24695.qm@web31306.mail.mud.yahoo.com>
References: <134167.24695.qm@web31306.mail.mud.yahoo.com>
Message-ID: <39FEAF26-5D92-4387-9113-34B8B93D1D7D@gmail.com>


On Aug 1, 2007, at 4:53 PM, Patty Silva wrote:

> Pessoal.. estou fazendo um IF para verificar se um numero eh maior  
> que o outro..
> faco assim:
> $num1=9.50;
> $num2=-7.9;
> $num3=0.0;
>
> if(($num1<=$num3) && ($num1>=$num2))
> {
>
> ....print "OK";
>
> }
>
> Ele imprimiu OK... ele nao compara float?

Como assim "não compara float"??? Você experimentou com números  
inteiros para ver se esse era o problema?

De qualquer forma, eu testei o código aqui e ele não imprimiu nada --  
como esperado.


From agnaldo em starweb-software.com.br  Wed Aug  1 09:06:42 2007
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Wed, 1 Aug 2007 13:06:42 -0300
Subject: [Cascavel-pm] Problema com IF
References: <134167.24695.qm@web31306.mail.mud.yahoo.com>
Message-ID: <00d701c7d455$f49c2150$6401a8c0@swmobile>


Aqui mostrou o "NAO OK".


use strict;

my $num1 = 9.50;
my $num2 = -7.9;
my $num3 = 0.0;

if (($num1<=$num3) && ($num1>=$num2))
      { 
         print "OK"; 
      }
   else
       { 
          print "Nao OK"; 
       }




  ----- Original Message ----- 
  From: Patty Silva 
  To: Cascavel Perl Mongers 
  Sent: Wednesday, August 01, 2007 12:53 PM
  Subject: [Cascavel-pm] Problema com IF


  Pessoal.. estou fazendo um IF para verificar se um numero eh maior que o outro..
  faco assim:
  $num1=9.50;
  $num2=-7.9;
  $num3=0.0;

  if(($num1<=$num3) && ($num1>=$num2))
  {

  ....print "OK";

  }

  Ele imprimiu OK... ele nao compara float?


  Obrigada



  Alertas do Yahoo! Mail em seu celular. Saiba mais. 



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


  _______________________________________________
  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/20070801/5b61f02d/attachment.html 

From ptfzs em yahoo.com.br  Wed Aug  1 09:28:22 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 1 Aug 2007 13:28:22 -0300 (ART)
Subject: [Cascavel-pm] Problema com IF
In-Reply-To: <00d701c7d455$f49c2150$6401a8c0@swmobile>
Message-ID: <267463.81767.qm@web31314.mail.mud.yahoo.com>

Estanho pessoal :(
talvez seja outro problema entao.. mas de qualquer forma.. OBRIGADA 
vou ver certinho o q pode ser acontecido e reporto pra vcs :D

Thanks !!!!

Agnaldo Macedo <agnaldo em starweb-software.com.br> escreveu:        
 Aqui mostrou o "NAO  OK".
  
  
 use strict;
  
 my $num1 = 9.50;
my $num2 = -7.9;
my  $num3 = 0.0;
  
 if (($num1<=$num3) &&  ($num1>=$num2))
      {  
         print "OK";  
      }
    else
       {  
          print "Nao OK";  
       }

  
  
  
    ----- Original Message ----- 
   From:    Patty Silva    
   To: Cascavel Perl Mongers 
   Sent: Wednesday, August 01, 2007 12:53    PM
   Subject: [Cascavel-pm] Problema com    IF
   

Pessoal.. estou fazendo um IF para verificar se um numero eh    maior que o outro..
faco    assim:
$num1=9.50;
$num2=-7.9;
$num3=0.0;

if(($num1<=$num3)    && ($num1>=$num2))
{

....print "OK";

}

Ele    imprimiu OK... ele nao compara float?


Obrigada


   Alertas do Yahoo! Mail em seu celular. Saiba mais.    
   

---------------------------------
    
_______________________________________________
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

       Alertas do Yahoo! Mail em seu celular. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/19d1c0e9/attachment-0001.html 

From acid06 em gmail.com  Wed Aug  1 09:46:31 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 1 Aug 2007 13:46:31 -0300
Subject: [Cascavel-pm] Threads em Perl
In-Reply-To: <BAY121-W1542E700646E52ED664A85F5E80@phx.gbl>
References: <BAY121-W1542E700646E52ED664A85F5E80@phx.gbl>
Message-ID: <9a08c9b40708010946w5d236020t62df09236011ac02@mail.gmail.com>

On 8/1/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> Você consegue gerar código que roda em ambos sistemas operacionais? Que
> versão você está usando do Forks?

Quando você está sob Windows, você usa threads (até porque, a fork()
no Windows é emulado via threads). Como a API é a mesma, o código fica
igual. Você colocar algo desse tipo no alto:

BEGIN {
  if ($^O eq 'MSWin32') {
    require threads;
    threads->import;
  }
  else {
    requires forks;
    forks->import;
  }
}

No seu código você faz chamadas para threads->create() e outros
métodos usando o namespace threads. O módulo forks além de popular seu
próprio namespace, toma conta também do namespace threads.

Caso você tenha optado por instalar seu módulo "forks" substituindo o
módulo threads, então você nem precisa de fazer isso tudo. Basta um:

  use threads;

e, na verdade, o modulo "forks" será carregado.

-Nilson Santos F. Jr.

From acid06 em gmail.com  Wed Aug  1 09:54:05 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 1 Aug 2007 13:54:05 -0300
Subject: [Cascavel-pm] Problema com IF
In-Reply-To: <134167.24695.qm@web31306.mail.mud.yahoo.com>
References: <134167.24695.qm@web31306.mail.mud.yahoo.com>
Message-ID: <9a08c9b40708010954s3023edf0k9bc8c7593af4414e@mail.gmail.com>

On 8/1/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Ele imprimiu OK... ele nao compara float?

Você tem que tomar cuidado quando está trabalhando com número de ponto
flutuante.

Logo antes da comparação, dê um print nas variáveis e confira se os
valores estão realmente o que você deseja porque aquele 9.50 pode,
facilmente, ter sido transformado em 9.4999999999 ou aquele -7.9 em
-7.899999999 ou algo assim.

Isso acontece quando trabalhando com números de ponto flutuante em
qualquer linguagem de programação e é uma questão de precisão.

Não sei se esse é o seu problema nesse caso, mas a forma adequada para
se comparar floats com segurança em qualquer linguagem é algo do tipo:

  use constant TOLERANCE => 0.0001;

  # compara se $float e $value são iguais
  if ($float <= $value + TOLERANCE || $float >= $value -TOLERANCE) {
    print "Numeros iguais";
  }

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Wed Aug  1 10:13:11 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 1 Aug 2007 14:13:11 -0300 (ART)
Subject: [Cascavel-pm] Problema com IF
In-Reply-To: <9a08c9b40708010954s3023edf0k9bc8c7593af4414e@mail.gmail.com>
Message-ID: <82380.15408.qm@web31315.mail.mud.yahoo.com>

Obrigada Nilson... Boa Dica :D

Nilson Santos Figueiredo Junior <acid06 em gmail.com> escreveu: On 8/1/07, Patty Silva 
 wrote:
> Ele imprimiu OK... ele nao compara float?

Você tem que tomar cuidado quando está trabalhando com número de ponto
flutuante.

Logo antes da comparação, dê um print nas variáveis e confira se os
valores estão realmente o que você deseja porque aquele 9.50 pode,
facilmente, ter sido transformado em 9.4999999999 ou aquele -7.9 em
-7.899999999 ou algo assim.

Isso acontece quando trabalhando com números de ponto flutuante em
qualquer linguagem de programação e é uma questão de precisão.

Não sei se esse é o seu problema nesse caso, mas a forma adequada para
se comparar floats com segurança em qualquer linguagem é algo do tipo:

  use constant TOLERANCE => 0.0001;

  # compara se $float e $value são iguais
  if ($float <= $value + TOLERANCE || $float >= $value -TOLERANCE) {
    print "Numeros iguais";
  }

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



       Alertas do Yahoo! Mail em seu celular. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070801/ff17b53b/attachment.html 

From glasswalk3r em hotmail.com  Thu Aug  2 05:44:01 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Thu, 2 Aug 2007 15:44:01 +0300
Subject: [Cascavel-pm] pesquisa sobre desenvolvedores Perl
Message-ID: <BAY121-W9038FE400DA5F7BC48949F5E90@phx.gbl>

Olá monges,Eu acabo de ver no http://www.perl.com uma nota sobre uma pesquisa para desenvolvedores Perl no mundo todo:"Take part in the 2007 Perl Survey!The Perl Survey is an attempt to capture a picture of the Perl communityin all its diversity.  No matter what sort of Perl programmer you are,we'd love to hear from you.The survey can be found at: http://perlsurvey.org/It only takes about 5 minutes to complete.The survey will be open until September 30th, 2007.  After that, we'll bereporting on the results and making the data freely available.Please feel free to forward this email to any other Perl programmersyou know.Thanks for your help!Yours,Kirrily "Skud" RobertThe Perl Surveyinfo em perlsurvey.org"Geralmente essas pesquisas determinam a quantas anda a linguagem, quantos desenvolvedores existem... isso pode ter resultados bem positivos para a comunidade em geral. Se puderam, vão lá e respondam![]'sAlceu
_________________________________________________________________
With Windows Live Hotmail, you can personalize your inbox with your favorite color.
www.windowslive-hotmail.com/learnmore/personalize.html?locale=en-us&ocid=TXT_TAGLM_HMWL_reten_addcolor_0607
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070802/5da31ba4/attachment.html 

From a.r.ferreira em gmail.com  Thu Aug  2 06:00:38 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Thu, 2 Aug 2007 10:00:38 -0300
Subject: [Cascavel-pm] pesquisa sobre desenvolvedores Perl
In-Reply-To: <BAY121-W9038FE400DA5F7BC48949F5E90@phx.gbl>
References: <BAY121-W9038FE400DA5F7BC48949F5E90@phx.gbl>
Message-ID: <73ddeb6c0708020600t25139270k5a6718e8af339d25@mail.gmail.com>

On 8/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
>
> Olá monges,
>
> Eu acabo de ver no http://www.perl.com uma nota sobre uma pesquisa para
> desenvolvedores Perl no mundo todo:

O Luís Campos havia mencionado a pesquisa também e até traduzido o convite.

>From: Luis Motta Campos <luismottacampos em yahoo.co.uk>
>Date: Jul 27, 2007 7:03 AM
>Subject: [SP-pm] Pesquisa Perl 2007
>To: Cascavel Perl Mongers <cascavel-pm em pm.org>, São Paulo Perl
Mongers <saopaulo-pm em mail.pm.org>
>
>
>   Gente, aqui tem o convite oficial, traduzido, para a Pesquisa Perl 2007.
>   Por favor ajudem a preencher e fazer o Brasil marcar presença.

A tradução dele está até disponível entre as anunciadas pela Kirrily
(que propôs e implementou a pesquisa) em
http://perlsurvey.org/publicity/translations#pt_BR

Como os outros disseram, preencham a pesquisa. Pode não ser tão
divertida como BBB 7 mas certamente pode ser mais produtiva. Convide
também todos os programadores Perl que conhecerem.

Saudações,
Adriano.

On 7/30/07, Kirrily Robert <info em perlsurvey.org> wrote:
> I was going to send this just to Kake but thought it might warrant
> broader distribution.
>
> I've just set up this page with a list of available translations:
> http://perlsurvey.org/translations/
>
> As you can see, I'm now seeking translations for the questions as well
> as the publicity email.
>
> There's a "translation kit" linked from that page, which includes all
> the text to be translated.  Comments on this are particularly welcome.
>
> A few people have also asked me about the availability of the list of
> questions for those who have already finished the survey but want to
> be able to get at them for some reason.  This list of questions is now
> available at http://perlsurvey.org/survey/questions/en (and
> translations will be put at nearby URLs as they are made).
>
> K.
>
> --
> Kirrily Robert
> skud em infotrope.net
> http://infotrope.net
> _______________________________________________
> Perlsurvey-Discuss mailing list
> Perlsurvey-Discuss em lists.perlsurvey.org
> http://lists.perlsurvey.org/listinfo.cgi/perlsurvey-discuss-perlsurvey.org
>

From a.r.ferreira em gmail.com  Thu Aug  2 06:03:46 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Thu, 2 Aug 2007 10:03:46 -0300
Subject: [Cascavel-pm] pesquisa sobre desenvolvedores Perl
In-Reply-To: <73ddeb6c0708020600t25139270k5a6718e8af339d25@mail.gmail.com>
References: <BAY121-W9038FE400DA5F7BC48949F5E90@phx.gbl>
	<73ddeb6c0708020600t25139270k5a6718e8af339d25@mail.gmail.com>
Message-ID: <73ddeb6c0708020603g21ac3edfy90b1c1bec21f4df6@mail.gmail.com>

On 8/2/07, Adriano Ferreira <a.r.ferreira em gmail.com> wrote:
> On 8/2/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> >
> > Olá monges,
> >
> > Eu acabo de ver no http://www.perl.com uma nota sobre uma pesquisa para
> > desenvolvedores Perl no mundo todo:
>
> O Luís Campos havia mencionado a pesquisa também e até traduzido o convite.
>
> >From: Luis Motta Campos <luismottacampos em yahoo.co.uk>
> >Date: Jul 27, 2007 7:03 AM
> >Subject: [SP-pm] Pesquisa Perl 2007
> >To: Cascavel Perl Mongers <cascavel-pm em pm.org>, São Paulo Perl
> Mongers <saopaulo-pm em mail.pm.org>
> >
> >
> >   Gente, aqui tem o convite oficial, traduzido, para a Pesquisa Perl 2007.
> >   Por favor ajudem a preencher e fazer o Brasil marcar presença.
>
> A tradução dele está até disponível entre as anunciadas pela Kirrily
> (que propôs e implementou a pesquisa) em
> http://perlsurvey.org/publicity/translations#pt_BR
>
> Como os outros disseram, preencham a pesquisa. Pode não ser tão
> divertida como BBB 7 mas certamente pode ser mais produtiva. Convide
> também todos os programadores Perl que conhecerem.

Esqueci de ressaltar (embora citado no e-mail da Kirrily que foi
incluído em minha mensagem): as perguntas da pesquisa estão aqui:

http://perlsurvey.org/survey/questions/en

> Saudações,
> Adriano.
>
> On 7/30/07, Kirrily Robert <info em perlsurvey.org> wrote:
> > I was going to send this just to Kake but thought it might warrant
> > broader distribution.
> >
> > I've just set up this page with a list of available translations:
> > http://perlsurvey.org/translations/
> >
> > As you can see, I'm now seeking translations for the questions as well
> > as the publicity email.
> >
> > There's a "translation kit" linked from that page, which includes all
> > the text to be translated.  Comments on this are particularly welcome.
> >
> > A few people have also asked me about the availability of the list of
> > questions for those who have already finished the survey but want to
> > be able to get at them for some reason.  This list of questions is now
> > available at http://perlsurvey.org/survey/questions/en (and
> > translations will be put at nearby URLs as they are made).
> >
> > K.
> >
> > --
> > Kirrily Robert
> > skud em infotrope.net
> > http://infotrope.net
> > _______________________________________________
> > Perlsurvey-Discuss mailing list
> > Perlsurvey-Discuss em lists.perlsurvey.org
> > http://lists.perlsurvey.org/listinfo.cgi/perlsurvey-discuss-perlsurvey.org
> >
>

From nferraz em gmail.com  Thu Aug  2 06:54:13 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 2 Aug 2007 14:54:13 +0100
Subject: [Cascavel-pm] pesquisa sobre desenvolvedores Perl
In-Reply-To: <BAY121-W9038FE400DA5F7BC48949F5E90@phx.gbl>
References: <BAY121-W9038FE400DA5F7BC48949F5E90@phx.gbl>
Message-ID: <0DA63908-958C-4AD7-B0CE-516244A6FB24@gmail.com>

> Eu acabo de ver no http://www.perl.com uma nota sobre uma pesquisa  
> para desenvolvedores Perl no mundo todo:
>
> (...)
>
> Geralmente essas pesquisas determinam a quantas anda a linguagem,  
> quantos desenvolvedores existem... isso pode ter resultados bem  
> positivos para a comunidade em geral. Se puderam, vão lá e respondam!

Eu já respondi a pesquisa, e reforço o convite do Alceu, do Luis e  
outros que mandaram a notícia.

Bastam apenas 5 minutos, participem!

	http://perlsurvey.org/

[]s

Nelson

From rafamv1 em ig.com.br  Thu Aug  2 10:54:49 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 2 Aug 2007 14:54:49 -0300
Subject: [Cascavel-pm] Gerar lista...
Message-ID: <20070802_175449_046715.rafamv1@ig.com.br>

Tenho uma array que pode conter uma ou mais palavras separadas por espaço na 
mesma linha, como abaixo. 

@array = (bravo charlie delta eco fox golf ...) #Posso ter uma ou mais 
palavras nesta lista. 

preciso verificar a existência de cada uma dessas palavras em uma outra 
lista e extrair desta, uma 
terceira lista apenas com os valores diferentes do "@array" accima. 

*Na segunda lista as palavras estão ordenadas uma por linha, como abaixo.. 

LISTA 2 
------------------------------------------------------ 
bravo 
casa 
charlie 
mesa 
delta 
eco 
fox 
golf 
planeta 
------------------------------------------------------ 

Neste caso, como extrair da "lista 2" apenas as palavras que não contêm na 
lista "@array" e guardá-las numa 
terceira lista?? 



From nferraz em gmail.com  Thu Aug  2 11:31:44 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 2 Aug 2007 19:31:44 +0100
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <20070802_175449_046715.rafamv1@ig.com.br>
References: <20070802_175449_046715.rafamv1@ig.com.br>
Message-ID: <7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>

On Aug 2, 2007, at 6:54 PM, Rafael Lebrão Martins wrote:

> Neste caso, como extrair da "lista 2" apenas as palavras que não  
> contêm na
> lista "@array" e guardá-las numa
> terceira lista??

Esse tipo de problemas (verificar a intersecção ou diferença entre  
dois conjuntos) é resolvido com hashes.

	my @list1 = qw( foo bar baz );
	my @list2 = qw( foo bar lalala );

	# coloca itens em hashes

	my %hash1 = map( ( $_ => 1 ), @list1 );
	my %hash2 = map( ( $_ => 1 ), @list2 );

	# agora trabalhamos com os conjuntos

	my %uniao = (%hash1, %hash2);

	my (%diferenca, %interseccao) = ();

	foreach (keys %uniao ) {
	    if ( $hash1{$_} && $hash2{$_} ) {
	        $interseccao{$_} = 1;
	    } else {
	        $diferenca{$_} = 1;
	    }
	}

	# imprime os resultados

	print "hash1: ", join(",", keys %hash1), "\n";
	print "hash2: ", join(",", keys %hash2), "\n";

	print "Uniao: ", join(",", keys %uniao), "\n";

	print "Diferenca: ", join(",", keys %diferenca), "\n";
	print "Interseccao: ", join(",", keys %interseccao), "\n";


[]s

Nelson

From luismottacampos em yahoo.co.uk  Fri Aug  3 03:51:37 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 3 Aug 2007 12:51:37 +0200
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
Message-ID: <607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>

On Aug 2, 2007, at 8:31 PM, Nelson Ferraz wrote:
> On Aug 2, 2007, at 6:54 PM, Rafael Lebrão Martins wrote:
>> Neste caso, como extrair da "lista 2" apenas as palavras que não
>> contêm na lista "@array" e guardá-las numa terceira lista??
>
> Esse tipo de problemas (verificar a intersecção ou diferença entre
> dois conjuntos) é resolvido com hashes.

   Sim, Nélson... com hashes, hash-slices, não com foreach... ;-)
   Eu "patcheei" o teu problema um pouquinho... ;-)
   Dominar manipulação de arrays, listas e hashes é uma coisa muito  
importante se você quer ser faixa-preta em perl, Rafael. ;-) Se você  
não entender o que eu fiz, por favor sinta-se à vontade para perguntar.

   A pesar de não ser intuitivo, /delete/ é uma palavra-chave do perl  
poderosíssima para manipular hashes. Ela está listada no manual  
online do perl, leia "perldoc -f delete" para os detalhes sujos ;-)

> 	my @list1 = qw( foo bar baz );
> 	my @list2 = qw( foo bar lalala );
> 	my %hash1 = map( ( $_ => 1 ), @list1 );
> 	my %hash2 = map( ( $_ => 1 ), @list2 );
>
> 	# agora trabalhamos com os conjuntos
>
> 	my %uniao = (%hash1, %hash2);
>
>         my %diferenca = %hash2;
>         my %interseccao = delete @diferenca{ @list1 };
>         # %diferenca agora contem os valores de 2 que não estão em 1
>
> 	# foreach (keys %uniao ) {
> 	#     if ( $hash1{$_} && $hash2{$_} ) {
> 	#         $interseccao{$_} = 1;
> 	#     } else {
> 	#         $diferenca{$_} = 1;
> 	#     }
> 	# }
>
> 	# imprime os resultados
>
> 	print "hash1: ", join(",", keys %hash1), "\n";
> 	print "hash2: ", join(",", keys %hash2), "\n";
>
> 	print "Uniao: ", join(",", keys %uniao), "\n";
>
> 	print "Diferenca: ", join(",", keys %diferenca), "\n";
> 	print "Interseccao: ", join(",", keys %interseccao), "\n";

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



From edencardim em gmail.com  Fri Aug  3 04:41:49 2007
From: edencardim em gmail.com (eden)
Date: Fri, 3 Aug 2007 08:41:49 -0300
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
	<607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
Message-ID: <3de55ead0708030441j5671a2c4x95c07fa5e54a217@mail.gmail.com>

On 8/3/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>    Sim, Nélson... com hashes, hash-slices, não com foreach... ;-)
>    Eu "patcheei" o teu problema um pouquinho... ;-)
>    Dominar manipulação de arrays, listas e hashes é uma coisa muito
> importante se você quer ser faixa-preta em perl, Rafael. ;-) Se você
> não entender o que eu fiz, por favor sinta-se à vontade para perguntar.
>
>    A pesar de não ser intuitivo, /delete/ é uma palavra-chave do perl
> poderosíssima para manipular hashes. Ela está listada no manual
> online do perl, leia "perldoc -f delete" para os detalhes sujos ;-)

Fiquei com preguiça de rodar um benchmark, mas aposto que a abordagem
com delete() tem melhor desempenho do que com foreach.

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática

From nferraz em gmail.com  Fri Aug  3 04:55:01 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 3 Aug 2007 12:55:01 +0100
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
	<607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
Message-ID: <BDF453F9-6E29-48A7-AB3B-A1E2CB6AB11D@gmail.com>

> 	my %uniao = (%hash1, %hash2);
>
>         my %diferenca = %hash2;
>         my %interseccao = delete @diferenca{ @list1 };
>         # %diferenca agora contem os valores de 2 que não estão em 1

Uia... essa foi ninja! :-)

From luismottacampos em yahoo.co.uk  Fri Aug  3 05:36:16 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 3 Aug 2007 14:36:16 +0200
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <BDF453F9-6E29-48A7-AB3B-A1E2CB6AB11D@gmail.com>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
	<607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
	<BDF453F9-6E29-48A7-AB3B-A1E2CB6AB11D@gmail.com>
Message-ID: <F6ADF67A-7125-4221-9DB5-DABE64D363AC@yahoo.co.uk>

On Aug 3, 2007, at 1:55 PM, Nelson Ferraz wrote:
>> 	my %uniao = (%hash1, %hash2);
>>
>>         my %diferenca = %hash2;
>>         my %interseccao = delete @diferenca{ @list1 };
>>         # %diferenca agora contem os valores de 2 que não estão em 1
>
> Uia... essa foi ninja! :-)

   Mas está ERRADA! SACANAGEM!

   Eu achei que era possível copiar chaves e valores, mas o delete  
diz que apenas os VALORES são retornados pelo delete...

   Vou pensar mais sobre o problema, e volto a postar (provavelmente  
esta noite) com uma resposta aceitável e mais elegante.

   A SOLUÇÃO DO NÉLSON CONTINUA SENDO A MAIS CORRETA.
   Putamplexos, e me desculpem a gafe... ;-)
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}



From fernandolouis em terra.com.br  Fri Aug  3 05:41:11 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Fri, 3 Aug 2007 09:41:11 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com>
	<cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
Message-ID: <000601c7d5cb$92d79db0$1a01a8c0@servidorliz>

Preciso postar essa dúvida aqui, pois não achei a solução em lugar algum...

Tenho um menu normal dropdown, feito em css com um pouco de javascript.

Ao colocar o mouse sobre um link deste menu, aparece um submenu 
(display:block).
Se tirar o mouse desse submenu, o mesmo desapararece (display:none).

Beleza, até aí tudo bem, tudo normal...

Só que...

Neste submenu, há a tag SELECT com alguns OPTIONs nela... E quando escolho 
uma opção desse SELECT, o menu desaparece!!
Como se eu tivesse colocado o mouse fora dessa DIV (do submenu)...

Isso só ocorre no IE7, já no firefox, eu posso clicar no SELECT e passar o 
mouse sobre os OPTIONs que o submenu não desaparece.

Como resolver esse bug do IEca!?!?

[]ão,
Fernando 


From edencardim em gmail.com  Fri Aug  3 06:42:09 2007
From: edencardim em gmail.com (eden)
Date: Fri, 3 Aug 2007 10:42:09 -0300
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <F6ADF67A-7125-4221-9DB5-DABE64D363AC@yahoo.co.uk>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
	<607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
	<BDF453F9-6E29-48A7-AB3B-A1E2CB6AB11D@gmail.com>
	<F6ADF67A-7125-4221-9DB5-DABE64D363AC@yahoo.co.uk>
Message-ID: <3de55ead0708030642i46451e38m24c1301337b9f8ea@mail.gmail.com>

On 8/3/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>    Mas está ERRADA! SACANAGEM!
>
>    Eu achei que era possível copiar chaves e valores, mas o delete
> diz que apenas os VALORES são retornados pelo delete...
>
>    Vou pensar mais sobre o problema, e volto a postar (provavelmente
> esta noite) com uma resposta aceitável e mais elegante.

champs-- # não avisa que a solução é "untested"

my %diferenca;
@diferenca{ @lista1 } = @lista1;
my @interseccao = grep { defined } delete @diferenca{ @lista2 };
my @diferenca = keys %diferenca; # ou values, tanto faz :)

P.S.: Não testei, mas pago uma cerveja pra quem demonstrar que está errado :)
-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática

From fernandolouis em terra.com.br  Fri Aug  3 06:43:22 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Fri, 3 Aug 2007 10:43:22 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
Message-ID: <003501c7d5d4$42ba7f10$1a01a8c0@servidorliz>

Vejam um exemplo-teste em:
http://www.biruta.art.br/menudropdown

Percebam que dá pra passar o mouse sobre o menu suspenso inteiro,
mas qd escolhe uma das opções do SELECT, o menu suspense desaparece.

isso só ocorre no IE

[],
Fernando

----- Original Message ----- 
From: <fernandolouis em terra.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Friday, August 03, 2007 9:41 AM
Subject: [Cascavel-pm] [OFF-Topic] Div desaparece qd seleciona uma opção do 
SELECT


Preciso postar essa dúvida aqui, pois não achei a solução em lugar algum...

Tenho um menu normal dropdown, feito em css com um pouco de javascript.

Ao colocar o mouse sobre um link deste menu, aparece um submenu
(display:block).
Se tirar o mouse desse submenu, o mesmo desapararece (display:none).

Beleza, até aí tudo bem, tudo normal...

Só que...

Neste submenu, há a tag SELECT com alguns OPTIONs nela... E quando escolho
uma opção desse SELECT, o menu desaparece!!
Como se eu tivesse colocado o mouse fora dessa DIV (do submenu)...

Isso só ocorre no IE7, já no firefox, eu posso clicar no SELECT e passar o
mouse sobre os OPTIONs que o submenu não desaparece.

Como resolver esse bug do IEca!?!?

[]ão,
Fernando

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


From lgonzaga em lncc.br  Fri Aug  3 07:01:48 2007
From: lgonzaga em lncc.br (Luiz Gonzaga)
Date: Fri, 3 Aug 2007 11:01:48 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
In-Reply-To: <003501c7d5d4$42ba7f10$1a01a8c0@servidorliz>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<003501c7d5d4$42ba7f10$1a01a8c0@servidorliz>
Message-ID: <200708031101.48836.lgonzaga@lncc.br>

Testei com o Konqueror e funcionou. Ainda bem que nao tenho que programar para 
estas tranqueiras.

Vou perguntar o Web-[designer|developer] e ver se ele tem solução.

Luiz.

Em Sexta 03 Agosto 2007 10:43, fernandolouis em terra.com.br escreveu:
> Vejam um exemplo-teste em:
> http://www.biruta.art.br/menudropdown
>
> Percebam que dá pra passar o mouse sobre o menu suspenso inteiro,
> mas qd escolhe uma das opções do SELECT, o menu suspense desaparece.
>
> isso só ocorre no IE
>
> [],
> Fernando
>
> ----- Original Message -----
> From: <fernandolouis em terra.com.br>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Friday, August 03, 2007 9:41 AM
> Subject: [Cascavel-pm] [OFF-Topic] Div desaparece qd seleciona uma opção do
> SELECT
>
>
> Preciso postar essa dúvida aqui, pois não achei a solução em lugar algum...
>
> Tenho um menu normal dropdown, feito em css com um pouco de javascript.
>
> Ao colocar o mouse sobre um link deste menu, aparece um submenu
> (display:block).
> Se tirar o mouse desse submenu, o mesmo desapararece (display:none).
>
> Beleza, até aí tudo bem, tudo normal...
>
> Só que...
>
> Neste submenu, há a tag SELECT com alguns OPTIONs nela... E quando escolho
> uma opção desse SELECT, o menu desaparece!!
> Como se eu tivesse colocado o mouse fora dessa DIV (do submenu)...
>
> Isso só ocorre no IE7, já no firefox, eu posso clicar no SELECT e passar o
> mouse sobre os OPTIONs que o submenu não desaparece.
>
> Como resolver esse bug do IEca!?!?
>
> []ão,
> 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

-- 
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT

From luismottacampos em yahoo.co.uk  Fri Aug  3 08:12:39 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 3 Aug 2007 17:12:39 +0200
Subject: [Cascavel-pm]
 =?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
 =?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
In-Reply-To: <000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com>
	<cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
Message-ID: <1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>

On Aug 3, 2007, at 2:41 PM, <fernandolouis em terra.com.br>  
<fernandolouis em terra.com.br> wrote:
> Preciso postar essa dúvida aqui, pois não achei a solução em lugar  
> algum...
> Tenho um menu normal dropdown, feito em css com um pouco de  
> javascript.
> Ao colocar o mouse sobre um link deste menu, aparece um submenu
> (display:block).
> Se tirar o mouse desse submenu, o mesmo desapararece (display:none).
>
> Beleza, até aí tudo bem, tudo normal...
>
> Só que...
>
> Neste submenu, há a tag SELECT com alguns OPTIONs nela... E quando  
> escolho
> uma opção desse SELECT, o menu desaparece!!
> Como se eu tivesse colocado o mouse fora dessa DIV (do submenu)...
>
> Isso só ocorre no IE7, já no firefox, eu posso clicar no SELECT e  
> passar o
> mouse sobre os OPTIONs que o submenu não desaparece.
>
> Como resolver esse bug do IEca!?!?

   Que tal parar de usar porcarias? ;-)
   Eu não uso IE para nada, e não recomendo a ninguém que o faça.
   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}



From luismottacampos em yahoo.co.uk  Fri Aug  3 08:15:57 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 3 Aug 2007 17:15:57 +0200
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <3de55ead0708030642i46451e38m24c1301337b9f8ea@mail.gmail.com>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
	<607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
	<BDF453F9-6E29-48A7-AB3B-A1E2CB6AB11D@gmail.com>
	<F6ADF67A-7125-4221-9DB5-DABE64D363AC@yahoo.co.uk>
	<3de55ead0708030642i46451e38m24c1301337b9f8ea@mail.gmail.com>
Message-ID: <2E7A4EEB-860D-4D11-BDED-5E6BBF131FDF@yahoo.co.uk>

On Aug 3, 2007, at 3:42 PM, eden wrote:
> On 8/3/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>>    Mas está ERRADA! SACANAGEM!
>>
>>    Eu achei que era possível copiar chaves e valores, mas o delete
>> diz que apenas os VALORES são retornados pelo delete...
>>
>>    Vou pensar mais sobre o problema, e volto a postar (provavelmente
>> esta noite) com uma resposta aceitável e mais elegante.
>
> champs-- # não avisa que a solução é "untested"
>
> my %diferenca;
> @diferenca{ @lista1 } = @lista1;
> my @interseccao = grep { defined } delete @diferenca{ @lista2 };
> my @diferenca = keys %diferenca; # ou values, tanto faz :)
>
> P.S.: Não testei, mas pago uma cerveja pra quem demonstrar que está  
> errado :)

   Eu reclamo a cerveja da aposta: delete retorna os VALORES, não as  
chaves do hash.
   Isso quer dizer que @interseccao contem VALORES, não chaves, da  
intersecção.
   Você cometeu o erro que eu evitei quando fiz o meu... ;-)

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



From edencardim em gmail.com  Fri Aug  3 09:27:25 2007
From: edencardim em gmail.com (eden)
Date: Fri, 3 Aug 2007 13:27:25 -0300
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <2E7A4EEB-860D-4D11-BDED-5E6BBF131FDF@yahoo.co.uk>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<7F7AC863-E386-4353-A48C-DE555537B59F@gmail.com>
	<607B7C32-0B55-4ACF-A44B-C446F353CAA3@yahoo.co.uk>
	<BDF453F9-6E29-48A7-AB3B-A1E2CB6AB11D@gmail.com>
	<F6ADF67A-7125-4221-9DB5-DABE64D363AC@yahoo.co.uk>
	<3de55ead0708030642i46451e38m24c1301337b9f8ea@mail.gmail.com>
	<2E7A4EEB-860D-4D11-BDED-5E6BBF131FDF@yahoo.co.uk>
Message-ID: <3de55ead0708030927x5a6b71a4nded39ddf52949b2a@mail.gmail.com>

On 8/3/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
<snip>

>    Eu reclamo a cerveja da aposta: delete retorna os VALORES, não as
> chaves do hash.
>    Isso quer dizer que @interseccao contem VALORES, não chaves, da
> intersecção.
>    Você cometeu o erro que eu evitei quando fiz o meu... ;-)

champs-- # não leu o código direito ;)

observe que tomei o cuidado de fazer as chaves serem iguais aos valores:

@diferenca{ @lista1 } = @lista1;

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática

From fernandolouis em terra.com.br  Fri Aug  3 11:28:48 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Fri, 3 Aug 2007 15:28:48 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
Message-ID: <004801c7d5fc$22e64660$1a01a8c0@servidorliz>

>   Que tal parar de usar porcarias? ;-)
>   Eu não uso IE para nada, e não recomendo a ninguém que o faça.
>   Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}

Luis, você deve falar isso para o resto das pessoas que também uso... um 
total de 99%.

Quem desenvolve websites, tem que fazer funcionar, PRINCIPALMENTE, para o 
IEca

fazer o que...

[]
Fernando 


From acid06 em gmail.com  Fri Aug  3 11:44:30 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 3 Aug 2007 15:44:30 -0300
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <20070802_175449_046715.rafamv1@ig.com.br>
References: <20070802_175449_046715.rafamv1@ig.com.br>
Message-ID: <9a08c9b40708031144l6696f387s9a4e0c7df85306c1@mail.gmail.com>

On 8/2/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Neste caso, como extrair da "lista 2" apenas as palavras que não contêm na
> lista "@array" e guardá-las numa
> terceira lista??

  my @array = qw(foo bar);
  my @lista = qw(baz quux foo);

  my %elts = map { $_ => 1 } @array;

 my @diff = grep { ! exists $elts{$_} } @lista;

Entendi algo de errado?

-Nilson Santos F. Jr.

From fernandolouis em terra.com.br  Fri Aug  3 12:07:54 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Fri, 3 Aug 2007 16:07:54 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><003501c7d5d4$42ba7f10$1a01a8c0@servidorliz>
	<200708031101.48836.lgonzaga@lncc.br>
Message-ID: <000e01c7d601$98eabb20$1a01a8c0@servidorliz>

Conseguiu uma resposta Luiz?

[],
Fernando

----- Original Message ----- 
From: "Luiz Gonzaga" <lgonzaga em lncc.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Friday, August 03, 2007 11:01 AM
Subject: Re: [Cascavel-pm][OFF-Topic] Div desaparece qd seleciona uma opção 
do SELECT


Testei com o Konqueror e funcionou. Ainda bem que nao tenho que programar 
para
estas tranqueiras.

Vou perguntar o Web-[designer|developer] e ver se ele tem solução.

Luiz.

Em Sexta 03 Agosto 2007 10:43, fernandolouis em terra.com.br escreveu:
> Vejam um exemplo-teste em:
> http://www.biruta.art.br/menudropdown
>
> Percebam que dá pra passar o mouse sobre o menu suspenso inteiro,
> mas qd escolhe uma das opções do SELECT, o menu suspense desaparece.
>
> isso só ocorre no IE
>
> [],
> Fernando
>
> ----- Original Message -----
> From: <fernandolouis em terra.com.br>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Friday, August 03, 2007 9:41 AM
> Subject: [Cascavel-pm] [OFF-Topic] Div desaparece qd seleciona uma opção 
> do
> SELECT
>
>
> Preciso postar essa dúvida aqui, pois não achei a solução em lugar 
> algum...
>
> Tenho um menu normal dropdown, feito em css com um pouco de javascript.
>
> Ao colocar o mouse sobre um link deste menu, aparece um submenu
> (display:block).
> Se tirar o mouse desse submenu, o mesmo desapararece (display:none).
>
> Beleza, até aí tudo bem, tudo normal...
>
> Só que...
>
> Neste submenu, há a tag SELECT com alguns OPTIONs nela... E quando escolho
> uma opção desse SELECT, o menu desaparece!!
> Como se eu tivesse colocado o mouse fora dessa DIV (do submenu)...
>
> Isso só ocorre no IE7, já no firefox, eu posso clicar no SELECT e passar o
> mouse sobre os OPTIONs que o submenu não desaparece.
>
> Como resolver esse bug do IEca!?!?
>
> []ão,
> 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

-- 
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From edencardim em gmail.com  Fri Aug  3 14:30:56 2007
From: edencardim em gmail.com (eden)
Date: Fri, 3 Aug 2007 18:30:56 -0300
Subject: [Cascavel-pm] Gerar lista...
In-Reply-To: <9a08c9b40708031144l6696f387s9a4e0c7df85306c1@mail.gmail.com>
References: <20070802_175449_046715.rafamv1@ig.com.br>
	<9a08c9b40708031144l6696f387s9a4e0c7df85306c1@mail.gmail.com>
Message-ID: <3de55ead0708031430v175f3cb5g3ef5443c4e847594@mail.gmail.com>

On 8/3/07, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
>   my @array = qw(foo bar);
>   my @lista = qw(baz quux foo);
>
>   my %elts = map { $_ => 1 } @array;
>
>  my @diff = grep { ! exists $elts{$_} } @lista;
>
> Entendi algo de errado?

Faltou a intersecção... ;)

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática

From carlos.silva.gyn em gmail.com  Fri Aug  3 15:09:21 2007
From: carlos.silva.gyn em gmail.com (Carlos)
Date: Fri,  3 Aug 2007 19:09:21 -0300 (BRT)
Subject: [Cascavel-pm] Adicionado na Via6
Message-ID: <20070803220921.4336B16F332@syxtweb1.syxt.com.br>

Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070803/596cad32/attachment.html 

From kuntzzz em gmail.com  Sat Aug  4 16:48:13 2007
From: kuntzzz em gmail.com (=?ISO-8859-1?Q?=22Iber=EA_O=2E_Kuntz_de_Souza=22?=)
Date: Sat, 04 Aug 2007 20:48:13 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Como_funcionam_as_vari=E1veis=3F?=
Message-ID: <46B5103D.2030209@gmail.com>

Olá monges,

Há algum tempo atrás me ensinaram que as variáveis de linguagens como 
perl e python funcionam como se fossem ponteiros em C, ou seja, 
contornam a tarefa de ter que declarar o tipo delas, pois apontam para 
um endereço da memória e não para seus dados. Quero saber se esta 
afirmação é correta e, se possível, mais detalhes de como isso realmente 
funciona.

Iberê

Happy hack!

From edencardim em gmail.com  Sat Aug  4 18:19:15 2007
From: edencardim em gmail.com (eden)
Date: Sat, 4 Aug 2007 22:19:15 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Como_funcionam_as_vari=E1veis=3F?=
In-Reply-To: <46B5103D.2030209@gmail.com>
References: <46B5103D.2030209@gmail.com>
Message-ID: <3de55ead0708041819r526ac2e7peb23bcd3d06a3f5b@mail.gmail.com>

On 8/4/07, "Iberê O. Kuntz de Souza" <kuntzzz em gmail.com> wrote:
> Olá monges,
>
> Há algum tempo atrás me ensinaram que as variáveis de linguagens como
> perl e python funcionam como se fossem ponteiros em C, ou seja,
> contornam a tarefa de ter que declarar o tipo delas, pois apontam para
> um endereço da memória e não para seus dados. Quero saber se esta
> afirmação é correta e, se possível, mais detalhes de como isso realmente
> funciona.

Sim, cada tipo de variável em perl é na verdade um ponteiro para uma
struct em C: perldoc perlapi

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática

From ricardostock em bol.com.br  Sun Aug  5 08:41:47 2007
From: ricardostock em bol.com.br (Ricardo Stock)
Date: Sun, 5 Aug 2007 12:41:47 -0300
Subject: [Cascavel-pm] Duvida com banco de dados.
References: <46B5103D.2030209@gmail.com>
	<3de55ead0708041819r526ac2e7peb23bcd3d06a3f5b@mail.gmail.com>
Message-ID: <001d01c7d777$25424a90$0200a8c0@ricardo>

Bom dias a todos da lista.

Me chamo Ricardo, sou iniciante na linguaguem perl. mas já participo desta 
lista (apenas como espectador ha um certo tempo),  estou começando a 
aprender a parte de banco de dados, e estou com uma dúvida.

meu scritp aparentemente não mostra erros, deu um perl -c nele e me retornou 
que a sintax esta ok.
Estou programando sob plataforma microsoft, ao executar o script não me 
retorna erro no perl, nem no mysql porque executei os mesmos comandos via 
shell e tive resposta. apenas no log do apache diz que não é possivel 
executar o processo filho.

fiz o script olhando o que estava no cpan e no próprio perldoc, se alguem 
pode ver onde esta o erro, agradeço. segue o fonte.
os modulos DBI e CGI estão isntalados no sistema.
estou usando active perl 5.8.8


#!/c:\perl\bin\perl.exe
use CGI qw(:standart);
use DBI();
$database="world";
$host="127.0.0.1";
$usurario="root";
$senha="123";

my $dbh = 
DBI->connect;("DBI:mysql:database:=$database;host=$host","$usuario","$senha",{'RaiseError' 
=> 1});

$sth = $dbh->prepare("SELECT * FROM artigos");
$sth->execute();

print header() . start_html("Resultado da Busca").h1("Itens Relacionados");

while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
       print "$numero<br> $titulo<br>$conteudo<p><hr>";
      }

      $sth->finish();


From otaviof em gmail.com  Sun Aug  5 09:04:59 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Sun, 5 Aug 2007 13:04:59 -0300
Subject: [Cascavel-pm] Duvida com banco de dados.
In-Reply-To: <001d01c7d777$25424a90$0200a8c0@ricardo>
References: <46B5103D.2030209@gmail.com>
	<3de55ead0708041819r526ac2e7peb23bcd3d06a3f5b@mail.gmail.com>
	<001d01c7d777$25424a90$0200a8c0@ricardo>
Message-ID: <8e3843570708050904p2fc4f617qd61be82530d5dda@mail.gmail.com>

Ricardo,

Aparentemente o seu script está certo, porem, dê uma olhada na linha
do "connect", pois há um ponto-e-virgula antes de informar os dados do
banco. Outra coisa que eu reparei é que você não está tratando os
possíveis erros na preparação da query e execução.

um abraço,

-- 
 | --
 | Otávio Fernandes <otaviof at gmail dot com>
 | FreeBSD 6.2 Rel. && GNU/Linux User: 283.396
 | http://otaviof.googlepages.com
 | --

From ricardostock em bol.com.br  Sun Aug  5 09:08:37 2007
From: ricardostock em bol.com.br (Ricardo Stock)
Date: Sun, 5 Aug 2007 13:08:37 -0300
Subject: [Cascavel-pm] Duvida com banco de dados.
References: <46B5103D.2030209@gmail.com><3de55ead0708041819r526ac2e7peb23bcd3d06a3f5b@mail.gmail.com><001d01c7d777$25424a90$0200a8c0@ricardo>
	<8e3843570708050904p2fc4f617qd61be82530d5dda@mail.gmail.com>
Message-ID: <003901c7d77c$d77c90d0$0200a8c0@ricardo>

Estou verificando isto e dpois retorno. obrigado

----- Original Message ----- 
From: "Otávio Fernandes" <otaviof em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Sunday, August 05, 2007 1:04 PM
Subject: Re: [Cascavel-pm] Duvida com banco de dados.


Ricardo,

Aparentemente o seu script está certo, porem, dê uma olhada na linha
do "connect", pois há um ponto-e-virgula antes de informar os dados do
banco. Outra coisa que eu reparei é que você não está tratando os
possíveis erros na preparação da query e execução.

um abraço,

-- 
 | --
 | Otávio Fernandes <otaviof at gmail dot com>
 | FreeBSD 6.2 Rel. && GNU/Linux User: 283.396
 | http://otaviof.googlepages.com
 | --
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 


From djrondon em gmail.com  Sun Aug  5 14:45:51 2007
From: djrondon em gmail.com (DjShadow)
Date: Sun, 5 Aug 2007 18:45:51 -0300
Subject: [Cascavel-pm] Duvida com banco de dados.
In-Reply-To: <003901c7d77c$d77c90d0$0200a8c0@ricardo>
References: <46B5103D.2030209@gmail.com>
	<3de55ead0708041819r526ac2e7peb23bcd3d06a3f5b@mail.gmail.com>
	<001d01c7d777$25424a90$0200a8c0@ricardo>
	<8e3843570708050904p2fc4f617qd61be82530d5dda@mail.gmail.com>
	<003901c7d77c$d77c90d0$0200a8c0@ricardo>
Message-ID: <da677dc90708051445s4c7f4590ib6d937228470d24c@mail.gmail.com>

Oi Ricardo,

Outra coisa, a variável de conexão..
$usurario="root";
$senha="123";

DBI->connect;("DBI:mysql:database:=$database;host=$host","$usuario
","$senha",{'RaiseError'
=> 1});

ok.
[]'s

Rondon

Em 05/08/07, Ricardo Stock <ricardostock em bol.com.br> escreveu:
>
> Estou verificando isto e dpois retorno. obrigado
>
> ----- Original Message -----
> From: "Otávio Fernandes" <otaviof em gmail.com>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Sunday, August 05, 2007 1:04 PM
> Subject: Re: [Cascavel-pm] Duvida com banco de dados.
>
>
> Ricardo,
>
> Aparentemente o seu script está certo, porem, dê uma olhada na linha
> do "connect", pois há um ponto-e-virgula antes de informar os dados do
> banco. Outra coisa que eu reparei é que você não está tratando os
> possíveis erros na preparação da query e execução.
>
> um abraço,
>
> --
> | --
> | Otávio Fernandes <otaviof at gmail dot com>
> | FreeBSD 6.2 Rel. && GNU/Linux User: 283.396
> | http://otaviof.googlepages.com
> | --
> _______________________________________________
> 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070805/c520e025/attachment.html 

From edencardim em gmail.com  Sun Aug  5 19:13:09 2007
From: edencardim em gmail.com (eden)
Date: Sun, 5 Aug 2007 23:13:09 -0300
Subject: [Cascavel-pm] Duvida com banco de dados.
In-Reply-To: <001d01c7d777$25424a90$0200a8c0@ricardo>
References: <46B5103D.2030209@gmail.com>
	<3de55ead0708041819r526ac2e7peb23bcd3d06a3f5b@mail.gmail.com>
	<001d01c7d777$25424a90$0200a8c0@ricardo>
Message-ID: <3de55ead0708051913h6a8f460aq71b75e8219c86025@mail.gmail.com>

On 8/5/07, Ricardo Stock <ricardostock em bol.com.br> wrote:
> Bom dias a todos da lista.
>
> Me chamo Ricardo, sou iniciante na linguaguem perl. mas já participo desta
> lista (apenas como espectador ha um certo tempo),  estou começando a
> aprender a parte de banco de dados, e estou com uma dúvida.
>
> meu scritp aparentemente não mostra erros, deu um perl -c nele e me retornou
> que a sintax esta ok.
> Estou programando sob plataforma microsoft, ao executar o script não me
> retorna erro no perl, nem no mysql porque executei os mesmos comandos via
> shell e tive resposta. apenas no log do apache diz que não é possivel
> executar o processo filho.
>
> fiz o script olhando o que estava no cpan e no próprio perldoc, se alguem
> pode ver onde esta o erro, agradeço. segue o fonte.
> os modulos DBI e CGI estão isntalados no sistema.
> estou usando active perl 5.8.8
>
>
> #!/c:\perl\bin\perl.exe

O caminho pro interpretador do perl está mal-formado, deveria estar assim:

#!c:\perl\bin\perl.exe

> use CGI qw(:standart);

use CGI qw(:standard);

CGI-- # SYNOPSIS não incentiva o uso de strict e warnings
CGI-- # é CGI

> use DBI();
> $database="world";
> $host="127.0.0.1";
> $usurario="root";
> $senha="123";
>
> my $dbh =
> DBI->connect;("DBI:mysql:database:=$database;host=$host","$usuario","$senha",{'RaiseError'
> => 1});
>
> $sth = $dbh->prepare("SELECT * FROM artigos");
> $sth->execute();
>
> print header() . start_html("Resultado da Busca").h1("Itens Relacionados");
>
> while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
>        print "$numero<br> $titulo<br>$conteudo<p><hr>";
>       }
>
>       $sth->finish();

Usando strict e warnings, o perl vai te dizer onde estão o resto dos erros.

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Mon Aug  6 00:34:27 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 6 Aug 2007 09:34:27 +0200
Subject: [Cascavel-pm]
 =?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
 =?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
In-Reply-To: <004801c7d5fc$22e64660$1a01a8c0@servidorliz>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
	<004801c7d5fc$22e64660$1a01a8c0@servidorliz>
Message-ID: <1DC86446-E3BB-4742-B899-67FF3C257DC0@yahoo.co.uk>

On Aug 3, 2007, at 8:28 PM, <fernandolouis em terra.com.br>  
<fernandolouis em terra.com.br> wrote:
>>   Que tal parar de usar porcarias? ;-)
>>   Eu não uso IE para nada, e não recomendo a ninguém que o faça.
>>   Putamplexos!
>> --
>> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
>> Perl fanatic evangelist, and amateur {cook, photographer}
>
> Luis, você deve falar isso para o resto das pessoas que também  
> uso... um
> total de 99%.
>
> Quem desenvolve websites, tem que fazer funcionar, PRINCIPALMENTE,  
> para o
> IEca
>
> fazer o que...

   Eu falo para TODO MUNDO.
   Mas muita gente me responde coisas parecidas com isso: "não posso  
parar de usar, já que todo mundo usa...".
   Seja pioneiro. Comigo, funcionou melhor em todas as vezes que eu  
tentei seguir contra-a-corrente.
   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}



From nferraz em gmail.com  Mon Aug  6 03:05:13 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 6 Aug 2007 11:05:13 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
 =?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
In-Reply-To: <004801c7d5fc$22e64660$1a01a8c0@servidorliz>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
	<004801c7d5fc$22e64660$1a01a8c0@servidorliz>
Message-ID: <67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>

>>   Que tal parar de usar porcarias? ;-)
>>   Eu não uso IE para nada, e não recomendo a ninguém que o faça.
>
> Luis, você deve falar isso para o resto das pessoas que também  
> uso... um
> total de 99%.

Suas estatísticas estão desatualizadas: o Firefox já dominou 25% do  
mercado.

http://www.xitimonitor.com/en-us/browsers-barometer/firefox- 
march-2007/index-1-2-3-77.html

> Quem desenvolve websites, tem que fazer funcionar, PRINCIPALMENTE,  
> para o
> IEca

Isso é verdade.

[]s

Nelson


From fernandolouis em terra.com.br  Mon Aug  6 05:00:04 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 6 Aug 2007 09:00:04 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><001401c7cdfe$38881c60$0701a8c0@servidorliz><7AFAD4E7-6F4B-4AA4-AB0A-CD992E54A046@yahoo.co.uk><46A6257F.1010900@terra.com.br><83d8367f0707240926j7fc560d0ybde2bfc4a7c67e55@mail.gmail.com><cbaad2900707240938n523b2fc2r74ee79f82fbf934@mail.gmail.com><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk><004801c7d5fc$22e64660$1a01a8c0@servidorliz>
	<67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
Message-ID: <00d301c7d821$5379f390$1a01a8c0@servidorliz>

Firefox++;

Mas eu continuo com o problema com o IE. Pq que desaparece a DIV ao passar o 
mouse sobre os "options" da TAG "select"?

http://www.biruta.art.br/menudropdown

Tá fod*... mas sou brasileiro, e não desisto nunca!

[],
Fernando

----- Original Message ----- 
From: "Nelson Ferraz" <nferraz em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Monday, August 06, 2007 7:05 AM
Subject: Re: [Cascavel-pm] [OFF-Topic] Div desaparece qd seleciona uma opção 
do SELECT


>>   Que tal parar de usar porcarias? ;-)
>>   Eu não uso IE para nada, e não recomendo a ninguém que o faça.
>
> Luis, você deve falar isso para o resto das pessoas que também
> uso... um
> total de 99%.

Suas estatísticas estão desatualizadas: o Firefox já dominou 25% do
mercado.

http://www.xitimonitor.com/en-us/browsers-barometer/firefox-
march-2007/index-1-2-3-77.html

> Quem desenvolve websites, tem que fazer funcionar, PRINCIPALMENTE,
> para o
> IEca

Isso é verdade.

[]s

Nelson

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


From acid06 em gmail.com  Mon Aug  6 05:33:54 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 6 Aug 2007 09:33:54 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BOFF-Topic=5D_Div_desaparece_qd_se?=
	=?iso-8859-1?q?leciona_uma_op=E7=E3o_do_SELECT?=
In-Reply-To: <67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl>
	<46A635C3.5070903@terra.com.br>
	<9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com>
	<46A64290.8070200@terra.com.br>
	<9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com>
	<cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
	<004801c7d5fc$22e64660$1a01a8c0@servidorliz>
	<67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
Message-ID: <9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>

On 8/6/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> Suas estatísticas estão desatualizadas: o Firefox já dominou 25% do
> mercado.

Não. Essas estatísticas são somente na Europa. Nos Estados Unidos é
algo próximo de 15% e aqui no Brasil, se tiver 5% é muito. Em logs eu
já vi taxas esdrúxulas como algo pouco maior que 1% de acessos via
Firefox.

-Nilson Santos F. Jr.

From nferraz em gmail.com  Mon Aug  6 05:50:04 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 6 Aug 2007 13:50:04 +0100
Subject: [Cascavel-pm] Casos de Sucesso
Message-ID: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>

Pessoal,

Existe uma página do site www.perl.org.br dedicada a documentar casos  
de sucesso com Perl.

Se você está envolvido em algum projeto com Perl, ou trabalha em uma  
empresa que utiliza Perl intensivamente, ajude-nos a documentar um  
caso de sucesso!

	http://www.perl.org.br/bin/view/Artigos/WebListagemCasos

[]s

Nelson

From gabriel.vieira em gmail.com  Mon Aug  6 06:54:50 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Mon, 6 Aug 2007 10:54:50 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <200708010917.22881.adm@mestral.com.br>
References: <65934b450707300811p63634fefvf3446f949cd89583@mail.gmail.com>
	<200707311329.09088.adm@mestral.com.br>
	<1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
	<200708010917.22881.adm@mestral.com.br>
Message-ID: <83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>

Ai vai minha contribuição :)

Parece ate marca politica.. campanha do psdb talvez?  hehe

On 8/1/07, Paulo José Sant'Ana <adm em mestral.com.br> wrote:
> Fiz duas formas de logo uma vertical e outra horizontal o que é extremamente útil
> na hora de diagramar vários tipos de documentos.
> Uso Linux e tenho nativo o Inkscape que edita os arquivos svg, se alguém tiver dificuldade
> de trabalhar com este tipo de arquivo pode baixar o Inkape de www.inkscape.org pra Linux, Mac ou Windows.
> Mesmo assim estou mandando em anexo as duas logos em formato bitmap.
>
> Em Terça 31 Julho 2007 18:30, Donato Azevedo escreveu:
> > gostei, apesar de que o Display (programa para visualizacao de svg)
> > nao ter mostrado da forma como acho que voce o planejou... mas gostei
> > da ideia
>
> Paulo José Sant'Ana
> Mestral Informática - www.mestral.com.br
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Gabriel Vieira
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : perlonionbrasil.png
Tipo  : image/png
Tam   : 85596 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070806/6d026182/attachment-0001.png 

From djrondon em gmail.com  Mon Aug  6 07:26:25 2007
From: djrondon em gmail.com (DjShadow)
Date: Mon, 6 Aug 2007 11:26:25 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
References: <65934b450707300811p63634fefvf3446f949cd89583@mail.gmail.com>
	<200707311329.09088.adm@mestral.com.br>
	<1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
	<200708010917.22881.adm@mestral.com.br>
	<83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
Message-ID: <da677dc90708060726h11c92e88x3f833de526598f35@mail.gmail.com>

Oi Gabriel,

Gostei! está bem legal, as outras estão boas também.
[]'s

Rondon

Em 06/08/07, Gabriel Vieira <gabriel.vieira em gmail.com> escreveu:
>
> Ai vai minha contribuição :)
>
> Parece ate marca politica.. campanha do psdb talvez?  hehe
>
> On 8/1/07, Paulo José Sant'Ana <adm em mestral.com.br> wrote:
> > Fiz duas formas de logo uma vertical e outra horizontal o que é
> extremamente útil
> > na hora de diagramar vários tipos de documentos.
> > Uso Linux e tenho nativo o Inkscape que edita os arquivos svg, se alguém
> tiver dificuldade
> > de trabalhar com este tipo de arquivo pode baixar o Inkape de
> www.inkscape.org pra Linux, Mac ou Windows.
> > Mesmo assim estou mandando em anexo as duas logos em formato bitmap.
> >
> > Em Terça 31 Julho 2007 18:30, Donato Azevedo escreveu:
> > > gostei, apesar de que o Display (programa para visualizacao de svg)
> > > nao ter mostrado da forma como acho que voce o planejou... mas gostei
> > > da ideia
> >
> > Paulo José Sant'Ana
> > Mestral Informática - www.mestral.com.br
> >
> > _______________________________________________
> > 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/20070806/ce8d37e6/attachment.html 

From edencardim em gmail.com  Mon Aug  6 07:27:10 2007
From: edencardim em gmail.com (eden)
Date: Mon, 6 Aug 2007 11:27:10 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
References: <65934b450707300811p63634fefvf3446f949cd89583@mail.gmail.com>
	<200707311329.09088.adm@mestral.com.br>
	<1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
	<200708010917.22881.adm@mestral.com.br>
	<83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
Message-ID: <3de55ead0708060727w33cc3b27lb149cdd6b58e5632@mail.gmail.com>

On 8/6/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> Ai vai minha contribuição :)
>
> Parece ate marca politica.. campanha do psdb talvez?  hehe

Ficou legal mesmo assim...

-- 
edenc.vox.com

From otaviof em gmail.com  Mon Aug  6 07:28:42 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 6 Aug 2007 11:28:42 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
References: <65934b450707300811p63634fefvf3446f949cd89583@mail.gmail.com>
	<200707311329.09088.adm@mestral.com.br>
	<1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
	<200708010917.22881.adm@mestral.com.br>
	<83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
Message-ID: <8e3843570708060728t5db032bfq4a96135c9b170a28@mail.gmail.com>

Gabriel,

Este ficou muito legal !!!

parabéns,

-- 
 | --
 | Otávio Fernandes <otaviof at gmail dot com>
 | FreeBSD 6.2 Rel. && GNU/Linux User: 283.396
 | http://otaviof.googlepages.com
 | --

From luismottacampos em yahoo.co.uk  Mon Aug  6 08:12:47 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 6 Aug 2007 17:12:47 +0200
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
References: <65934b450707300811p63634fefvf3446f949cd89583@mail.gmail.com>
	<200707311329.09088.adm@mestral.com.br>
	<1746e3e30707311430r7cf5c10fo98fcc2a5963549ea@mail.gmail.com>
	<200708010917.22881.adm@mestral.com.br>
	<83d8367f0708060654n5214836cwcc0e4af5881c95b4@mail.gmail.com>
Message-ID: <221A29C4-9C98-4906-9EAA-3A2F6BC689AE@yahoo.co.uk>

On Aug 6, 2007, at 3:54 PM, Gabriel Vieira wrote:
> Ai vai minha contribuição :)
>
> Parece ate marca politica.. campanha do psdb talvez?  hehe

   Está muito bonita, Gabriel. Mas não é fácil (nem barata) de  
reproduzir em camisetas.
   De qualquer forma, aqui tem as minhas sugestões:

   1. Façam (por norma) camisetas azul-real, como o fundo que o  
Gabriel usou.
   2. Gabriel, prepare também uma versão sem a lista branca, que vai  
ajudar o pessoal a imprimir isso em camisetas.

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



From ricardostock em bol.com.br  Mon Aug  6 10:04:44 2007
From: ricardostock em bol.com.br (Ricardo Stock)
Date: Mon, 6 Aug 2007 14:04:44 -0300
Subject: [Cascavel-pm] Duvida sobre banco de dados
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk><004801c7d5fc$22e64660$1a01a8c0@servidorliz><67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
Message-ID: <000801c7d84b$e59236a0$0200a8c0@ricardo>

Boa tarde a todos da lista. Dei uma boa olhado no script e como apontaram,
verifiquei dois erros, um de sintaxe e outro de falta de atenção.

agora me da um erro, no log apache na geração do html. na linha 14.. dizendo
o seguinte

Premature end of script headers: c:/apache/cgi-bin/test.cgi
No comma allowed after filehandle at c:\\APACHE\\CGI-BIN\\TEST.CGI line
14.\n

abaixo segue novamente o script corrigido... agora não sei mais onde possa 
estar havendo erros... espero a ajuda da lista.

#!c:\perl\bin\perl.exe
use CGI qw/:standart/;
use DBI();
$database="World";
$host="127.0.0.1";
$usuario="root";
$senha="123";

my $dbh =
DBI->connect("DBI:mysql:database=$database;host=$host","$usuario","$senha",{'RaiseError'
=> 1});

$sth = $dbh->prepare("SELECT * FROM artigos");
$sth->execute();

print header, start_html('Resultado da Busca'), h1("Itens Relacionados"); #
linha que da erro

while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
       print p("$numero<br> $titulo<br>$conteudo<p><hr>");
      }

      $sth->finish();




Ricardo Stock
ricardostock em bol.com.br


From fabiana_campos em brfree.com.br  Mon Aug  6 10:13:32 2007
From: fabiana_campos em brfree.com.br (Fabiana Campos Silva - BRFREE)
Date: Mon, 06 Aug 2007 14:13:32 -0300
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <000801c7d84b$e59236a0$0200a8c0@ricardo>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk><004801c7d5fc$22e64660$1a01a8c0@servidorliz><67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
Message-ID: <46B756BC.5010904@brfree.com.br>

Olha o seu Use!!!!!!!!
use CGI qw/:standard/;


Ricardo Stock escreveu:
> Boa tarde a todos da lista. Dei uma boa olhado no script e como apontaram,
> verifiquei dois erros, um de sintaxe e outro de falta de atenção.
>
> agora me da um erro, no log apache na geração do html. na linha 14.. dizendo
> o seguinte
>
> Premature end of script headers: c:/apache/cgi-bin/test.cgi
> No comma allowed after filehandle at c:\\APACHE\\CGI-BIN\\TEST.CGI line
> 14.\n
>
> abaixo segue novamente o script corrigido... agora não sei mais onde possa 
> estar havendo erros... espero a ajuda da lista.
>
> #!c:\perl\bin\perl.exe
> use CGI qw/:standart/;
> use DBI();
> $database="World";
> $host="127.0.0.1";
> $usuario="root";
> $senha="123";
>
> my $dbh =
> DBI->connect("DBI:mysql:database=$database;host=$host","$usuario","$senha",{'RaiseError'
> => 1});
>
> $sth = $dbh->prepare("SELECT * FROM artigos");
> $sth->execute();
>
> print header, start_html('Resultado da Busca'), h1("Itens Relacionados"); #
> linha que da erro
>
> while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
>        print p("$numero<br> $titulo<br>$conteudo<p><hr>");
>       }
>
>       $sth->finish();
>
>
>
>
> Ricardo Stock
> ricardostock em bol.com.br
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>   


From elrepro em gmail.com  Mon Aug  6 10:28:29 2007
From: elrepro em gmail.com (Felipe Carrasco)
Date: Mon, 6 Aug 2007 14:28:29 -0300
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <46B756BC.5010904@brfree.com.br>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl>
	<9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com>
	<cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
	<004801c7d5fc$22e64660$1a01a8c0@servidorliz>
	<67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
	<46B756BC.5010904@brfree.com.br>
Message-ID: <2b92b9840708061028m2693bd3ch81a62c4a594ce34a@mail.gmail.com>

estão faltando 2 linhas q iam ajudar bastante.

use warnings;
use strict;

On 8/6/07, Fabiana Campos Silva - BRFREE <fabiana_campos em brfree.com.br>
wrote:
>
> Olha o seu Use!!!!!!!!
> use CGI qw/:standard/;
>
>
> Ricardo Stock escreveu:
> > Boa tarde a todos da lista. Dei uma boa olhado no script e como
> apontaram,
> > verifiquei dois erros, um de sintaxe e outro de falta de atenção.
> >
> > agora me da um erro, no log apache na geração do html. na linha 14..
> dizendo
> > o seguinte
> >
> > Premature end of script headers: c:/apache/cgi-bin/test.cgi
> > No comma allowed after filehandle at c:\\APACHE\\CGI-BIN\\TEST.CGI line
> > 14.\n
> >
> > abaixo segue novamente o script corrigido... agora não sei mais onde
> possa
> > estar havendo erros... espero a ajuda da lista.
> >
> > #!c:\perl\bin\perl.exe
> > use CGI qw/:standart/;
> > use DBI();
> > $database="World";
> > $host="127.0.0.1";
> > $usuario="root";
> > $senha="123";
> >
> > my $dbh =
> >
> DBI->connect("DBI:mysql:database=$database;host=$host","$usuario","$senha",{'RaiseError'
> > => 1});
> >
> > $sth = $dbh->prepare("SELECT * FROM artigos");
> > $sth->execute();
> >
> > print header, start_html('Resultado da Busca'), h1("Itens
> Relacionados"); #
> > linha que da erro
> >
> > while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
> >        print p("$numero<br> $titulo<br>$conteudo<p><hr>");
> >       }
> >
> >       $sth->finish();
> >
> >
> >
> >
> > Ricardo Stock
> > ricardostock em bol.com.br
> >
> > _______________________________________________
> > 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070806/22fe9a63/attachment-0001.html 

From nferraz em gmail.com  Mon Aug  6 10:30:01 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 6 Aug 2007 18:30:01 +0100
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <000801c7d84b$e59236a0$0200a8c0@ricardo>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk><004801c7d5fc$22e64660$1a01a8c0@servidorliz><67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
Message-ID: <F922B700-CC49-4E99-A548-7C6313C29D16@gmail.com>

On Aug 6, 2007, at 6:04 PM, Ricardo Stock wrote:

> abaixo segue novamente o script corrigido... agora não sei mais  
> onde possa
> estar havendo erros... espero a ajuda da lista.

Seu script ainda tem dois erros fundamentais: não usa strict nem  
warnings. Isso é considerado um bug em qualquer script maior do que  
um one-liner.

Agora, com relação ao erro, o problema é que você não utilizou a  
palavra chave correta ao carregar as funções "standard" do CGI.pm:

	use CGI qw/:standart/;

[]s

Nelson

From igor.sutton em yahoo.co.uk  Mon Aug  6 10:31:51 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Mon, 6 Aug 2007 19:31:51 +0200
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <000801c7d84b$e59236a0$0200a8c0@ricardo>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk><004801c7d5fc$22e64660$1a01a8c0@servidorliz><67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
Message-ID: <B9FF711C-2B6C-4672-8389-B53612F6E198@yahoo.co.uk>


On Aug 6, 2007, at 7:04 PM, Ricardo Stock wrote:

> Boa tarde a todos da lista. Dei uma boa olhado no script e como  
> apontaram,
> verifiquei dois erros, um de sintaxe e outro de falta de atenção.
>
> agora me da um erro, no log apache na geração do html. na linha  
> 14.. dizendo
> o seguinte
>
> Premature end of script headers: c:/apache/cgi-bin/test.cgi
> No comma allowed after filehandle at c:\\APACHE\\CGI-BIN\\TEST.CGI  
> line
> 14.\n
>
> abaixo segue novamente o script corrigido... agora não sei mais  
> onde possa
> estar havendo erros... espero a ajuda da lista.
>
> #!c:\perl\bin\perl.exe
> use CGI qw/:standart/;
> use DBI();
> $database="World";
> $host="127.0.0.1";
> $usuario="root";
> $senha="123";
>
> my $dbh =
> DBI->connect("DBI:mysql:database=$database;host= 
> $host","$usuario","$senha",{'RaiseError'
> => 1});
>
> $sth = $dbh->prepare("SELECT * FROM artigos");
> $sth->execute();
>
> print header, start_html('Resultado da Busca'), h1("Itens  
> Relacionados"); #
> linha que da erro
>
> while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
>        print p("$numero<br> $titulo<br>$conteudo<p><hr>");
>       }
>
>       $sth->finish();

Acredito que o seu Perl está interpretando a função header de 'print  
header, start_html...'  como um filehandle. Isso acontece, como a  
Fabiana disse em outro email que você está usando 'use CGI qw 
(:standart);' enquanto o correto seria ':standard'.

Se você tivesse utilizado 'use strict;' e 'use warnings;' você mesmo  
poderia ter sido informado pelo Perl...

Espero que ajude.


From nferraz em gmail.com  Mon Aug  6 10:34:59 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 6 Aug 2007 18:34:59 +0100
Subject: [Cascavel-pm] Casos de Sucesso
In-Reply-To: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
Message-ID: <A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>

On Aug 6, 2007, at 1:50 PM, Nelson Ferraz wrote:

> Se você está envolvido em algum projeto com Perl, ou trabalha em  
> uma empresa que utiliza Perl intensivamente, ajude-nos a documentar  
> um caso de sucesso!
>
> 	http://www.perl.org.br/bin/view/Artigos/WebListagemCasos

Eu gostaria de reforçar o convite para os participantes mais ativos  
da lista (de acordo com http://www.perl.org.br/bin/view/Social/ 
PrincipaisContribuidoresCascavelPM2007 ):

	- Luis Campos de Carvalho
	- Alceu Rodrigues de Freitas Junior
	- Nilson Santos Figueiredo Junior
	- Gabriel Vieira
	- Nelson Ferraz
	- Flávio Glock
	- Solli Moreira Honorio
	- João Gabriel
	- Marco Lima
	- Eden Cardim
	- Igor Sutton Lopes
	- Daniel Ruoso
	- André Garcia Carneiro
	- Joenio Marques

É claro que o convite está aberto para todos, mas estes poderiam  
começar dando exemplo.

E eu começo, falando sobre meu projeto atual:

	- Nelson Ferraz: atualmente trabalha na log Open Source Consulting,  
uma empresa portuguesa portuguesa que utiliza perl intensivamente em  
seus projetos; e envolvido em um projeto na SonaeCom, uma empresa de  
Telecomunicações (Optimus, Novis e Clix); Media (Público) e Software  
e Sistemas de Informação (WeDo, Bizdirect e Mainroad).

E vocês? Em que projetos estão envolvidos? Sobre que empresas  
poderiam falar?

[]s

Nelson


From nferraz em gmail.com  Mon Aug  6 10:41:06 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 6 Aug 2007 18:41:06 +0100
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <2b92b9840708061028m2693bd3ch81a62c4a594ce34a@mail.gmail.com>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl>
	<9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com>
	<cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
	<004801c7d5fc$22e64660$1a01a8c0@servidorliz>
	<67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
	<46B756BC.5010904@brfree.com.br>
	<2b92b9840708061028m2693bd3ch81a62c4a594ce34a@mail.gmail.com>
Message-ID: <150A70DB-8AB1-4E8E-A1A1-99D94C9158B0@gmail.com>

> estão faltando 2 linhas q iam ajudar bastante.
>
> use warnings;
> use strict;

E aqui vão mais duas linhas que também ajudam bastante (em aplicações  
web):

	use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

Estas linhas fazem os erros serem direcionados para o browser, de  
forma que você não precise buscá-los no log de erros do Apache; e os  
warnings aparecem como comentários HTML.

[]s

Nelson


From igor.sutton em yahoo.co.uk  Mon Aug  6 10:42:35 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Mon, 6 Aug 2007 19:42:35 +0200
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <F922B700-CC49-4E99-A548-7C6313C29D16@gmail.com>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl><46A635C3.5070903@terra.com.br><9a08c9b40707241033y28a6edb9w46c10fbb2afcc35f@mail.gmail.com><46A64290.8070200@terra.com.br><9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com><cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com><000601c7d5cb$92d79db0$1a01a8c0@servidorliz><1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk><004801c7d5fc$22e64660$1a01a8c0@servidorliz><67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
	<F922B700-CC49-4E99-A548-7C6313C29D16@gmail.com>
Message-ID: <B8989610-B41C-4277-8AED-9CAC07EB3153@yahoo.co.uk>


On Aug 6, 2007, at 7:30 PM, Nelson Ferraz wrote:

> On Aug 6, 2007, at 6:04 PM, Ricardo Stock wrote:
>
>> abaixo segue novamente o script corrigido... agora não sei mais
>> onde possa
>> estar havendo erros... espero a ajuda da lista.
>
> Seu script ainda tem dois erros fundamentais: não usa strict nem
> warnings. Isso é considerado um bug em qualquer script maior do que
> um one-liner.
>
> Agora, com relação ao erro, o problema é que você não utilizou a
> palavra chave correta ao carregar as funções "standard" do CGI.pm:
>
> 	use CGI qw/:standart/;
>

Eu fiquei devendo a explicação do acontecido, mais profundamente:

Como o CGI não sabe o que fazer quando você diz

use CGI qw/:standart/;

ele não exporta a função header(). Como você utilizou apenas 'header'  
sem os parenteses, o Perl 'adivinha' que você estava utilizando uma  
bareword, e por padrão o primeiro argumento do print pode ser um  
filehandle. Então, seria o mesmo que você dizer:

igor-lopes-computer:~ igor$ perl -e '
 > print header, $/;
 > '
No comma allowed after filehandle at -e line 2.

Se você tivesse utilizado parênteses após 'header', ele teria dado  
outro erro:

igor-lopes-computer:~ igor$ perl -e '
 > print header(), $/;
 > '
Undefined subroutine &main::header called at -e line 2.

Boa sorte!


From edencardim em gmail.com  Mon Aug  6 11:31:31 2007
From: edencardim em gmail.com (eden)
Date: Mon, 6 Aug 2007 15:31:31 -0300
Subject: [Cascavel-pm] Duvida sobre banco de dados
In-Reply-To: <000801c7d84b$e59236a0$0200a8c0@ricardo>
References: <BAY121-W7F0CDC967DC69BC9287FEF5050@phx.gbl>
	<46A64290.8070200@terra.com.br>
	<9a08c9b40707241129x41bd32eevb984f8966b0a29ea@mail.gmail.com>
	<cbaad2900707241452i216d7da8h454a866f4fb59754@mail.gmail.com>
	<000601c7d5cb$92d79db0$1a01a8c0@servidorliz>
	<1DE01F5E-739F-4FF3-AD84-CB1F62912FE4@yahoo.co.uk>
	<004801c7d5fc$22e64660$1a01a8c0@servidorliz>
	<67A658B7-364A-4E14-9C59-95F8330346A2@gmail.com>
	<9a08c9b40708060533p3c79b923g82298c76b5555b28@mail.gmail.com>
	<000801c7d84b$e59236a0$0200a8c0@ricardo>
Message-ID: <3de55ead0708061131k74de09a4i721ce978ed7b9d0f@mail.gmail.com>

On 8/6/07, Ricardo Stock <ricardostock em bol.com.br> wrote:
> Boa tarde a todos da lista. Dei uma boa olhado no script e como apontaram,
> verifiquei dois erros, um de sintaxe e outro de falta de atenção.
>
> agora me da um erro, no log apache na geração do html. na linha 14.. dizendo
> o seguinte
>
> Premature end of script headers: c:/apache/cgi-bin/test.cgi
> No comma allowed after filehandle at c:\\APACHE\\CGI-BIN\\TEST.CGI line
> 14.\n
<snip>
> print header, start_html('Resultado da Busca'), h1("Itens Relacionados"); #
> linha que da erro

O compilador do perl está reconhecendo 'header' como um identificador
de filehandle, escreva assim que deve funcionar:

    print header(), start_html('Resultado da Busca'), h1("Itens Relacionados");

CGI-- # nunca vou me cansar de dizer isso :)

-- 
edenc.vox.com

From ricardostock em bol.com.br  Tue Aug  7 03:32:58 2007
From: ricardostock em bol.com.br (Ricardo Stock)
Date: Tue, 7 Aug 2007 07:32:58 -0300
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
Message-ID: <001401c7d8de$54bd2610$0200a8c0@ricardo>

    Bom dia a todos da lista. Agradeço a toda ajuda que recebi. principalmente em me mostrar como retornar os erros no navegador... isto foi muito util.

   O problema foi resolvido, mas não a contento, consegui conectar ao banco e retornar o valor esperado, mas não utilizando CGI, o que era o principio inicial. Segue o código. Mas agora irei estudar mais um pouco e escrever tudo em forma de rotinas para que possar escrever o programa mais profissionalmente. Mesmo assim agradeço a todos. 


#!c:\perl\bin\perl.exe

my $database="World";
my $host="127.0.0.1";
my $usuario="root";
my $senha="123";
use DBI();
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $dbh = DBI->connect("DBI:mysql:$database;$host","$usuario","$senha",{'RaiseError' => 1});
$sth = $dbh->prepare("SELECT * FROM artigos");
$sth->execute();
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>Resposta da Consulta</TITLE><BODY>";
print "<font face=verdana size=2 color=#FF0000><strong>RESULTADO DA BUSCA</strong></font></b><p>";
while(($numero,$titulo,$conteudo) = $sth->fetchrow_array) {

print "<font face=verdana size=2>Resultado número $numero<br><b> $titulo</b><br> <i>$conteudo</i><hr>";
print "</BODY></HTML>";
}
$sth->finish();

     
Ricardo Stock
ricardostock em bol.com.br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070807/b1598153/attachment.html 

From edencardim em gmail.com  Tue Aug  7 04:10:36 2007
From: edencardim em gmail.com (eden)
Date: Tue, 7 Aug 2007 08:10:36 -0300
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
In-Reply-To: <001401c7d8de$54bd2610$0200a8c0@ricardo>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
Message-ID: <3de55ead0708070410k60f42b5ax190f63bd125481@mail.gmail.com>

On 8/7/07, Ricardo Stock <ricardostock em bol.com.br> wrote:
>
>
>     Bom dia a todos da lista. Agradeço a toda ajuda que recebi.
> principalmente em me mostrar como retornar os erros no navegador... isto foi
> muito util.
>
>    O problema foi resolvido, mas não a contento, consegui conectar ao banco
> e retornar o valor esperado, mas não utilizando CGI, o que era o principio
> inicial. Segue o código. Mas agora irei estudar mais um pouco e escrever
> tudo em forma de rotinas para que possar escrever o programa mais
> profissionalmente. Mesmo assim agradeço a todos.

Um conselho, se quiser realmente escrever mais profissionalmente, dê
uma olhada no Catalyst. CGI é uma tecnologia muito antiga, defasada,
ineficiente e que está cada vez mais caindo em desuso.

-- 
edenc.vox.com

From otaviof em gmail.com  Tue Aug  7 04:47:28 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Tue, 7 Aug 2007 08:47:28 -0300
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
In-Reply-To: <001401c7d8de$54bd2610$0200a8c0@ricardo>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
Message-ID: <8e3843570708070447s18760759u1c469881af050749@mail.gmail.com>

Ricardo,

Fico feliz pelo seu avanço, porem, recomento fortemente que você pare
de escrever HTML junto com o seu código Perl, e comece a usar um
template. Dos que eu já fiz uso, recomendo o Template Toolkit.

http://search.cpan.org/~abw/Template-Toolkit-2.19/lib/Template/Toolkit.pod

um abraço,

-- 
 | --
 | Otávio Fernandes <otaviof at gmail dot com>
 | FreeBSD 6.2 Rel. && GNU/Linux User: 283.396
 | http://otaviof.googlepages.com
 | --

From nferraz em gmail.com  Tue Aug  7 05:44:38 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 7 Aug 2007 13:44:38 +0100
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
In-Reply-To: <001401c7d8de$54bd2610$0200a8c0@ricardo>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
Message-ID: <C6491D1F-538E-491D-9CC0-E30EACFE9B1A@gmail.com>

>     Bom dia a todos da lista. Agradeço a toda ajuda que recebi.  
> principalmente em me mostrar como retornar os erros no navegador...  
> isto foi muito util.
>
>    O problema foi resolvido, mas não a contento, consegui conectar  
> ao banco e retornar o valor esperado, mas não utilizando CGI, o que  
> era o principio inicial. Segue o código. Mas agora irei estudar  
> mais um pouco e escrever tudo em forma de rotinas para que possar  
> escrever o programa mais profissionalmente. Mesmo assim agradeço a  
> todos.

Em primeiro lugar, obrigado pelo feedback -- é sempre bom saber que  
nossas sugestões ajudaram de alguma forma.

Ainda assim, eu não vejo o "use strict" e "use warnings" no seu  
código!!!

Coloque estas duas linhas no início do seu programa. Isso *vai* gerar  
erros, mas este *é* o objetivo: uma vez que os erros se tornem  
visíveis, eles poderão ser corrigidos.

Considere as sugestões do Eden e do Otávio: o Catalyst é um framework  
poderoso, que inclusive pode gerar código para acessar a base de  
dados automaticamente. E ele usa o Template Toolkit como padrão.

Existe um bom tutorial de Catalyst em:

	http://search.cpan.org/~jrockway/Catalyst-Manual-5.700701/lib/ 
Catalyst/Manual/Tutorial.pod

[]s

Nelson


From luismottacampos em yahoo.co.uk  Tue Aug  7 06:18:29 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 7 Aug 2007 15:18:29 +0200
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
In-Reply-To: <001401c7d8de$54bd2610$0200a8c0@ricardo>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
Message-ID: <4100AFE3-05E1-480D-8774-FCCBF24D51B0@yahoo.co.uk>

On Aug 7, 2007, at 12:32 PM, Ricardo Stock wrote:
>     Bom dia a todos da lista. Agradeço a toda ajuda que recebi.  
> principalmente em me mostrar como retornar os erros no navegador...  
> isto foi muito util.
>
>    O problema foi resolvido, mas não a contento, consegui conectar  
> ao banco e retornar o valor esperado, mas não utilizando CGI, o que  
> era o principio inicial. Segue o código. Mas agora irei estudar  
> mais um pouco e escrever tudo em forma de rotinas para que possar  
> escrever o programa mais profissionalmente. Mesmo assim agradeço a  
> todos.

   Eu vejo que você continua tentando usar o MySQL. Por favor  
considere a possibilidade de não usar brinquedos bonitinhos, e usar o  
Postgre SQL como base de dados no seu projeto. :-) Eu tenho certeza  
de que isso vai ajudar bastante.

   A mudança é bem simples (troque o driver DBI que você chama, e  
revise o teu SQL para ter certeza de que tudo continua bem).

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



From fglock em gmail.com  Tue Aug  7 10:01:03 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Tue, 7 Aug 2007 18:01:03 +0100
Subject: [Cascavel-pm] Casos de Sucesso
In-Reply-To: <A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
	<A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
Message-ID: <aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>

Em 06/08/07, Nelson Ferraz<nferraz em gmail.com> escreveu:
> E vocês? Em que projetos estão envolvidos? Sobre que empresas
> poderiam falar?

Na semana passada trabalhei em uma ferramenta para conversão de
scripts escritos em uma linguagem proprietária para Java.

O Perl 6 permitiu que tivéssemos um protótipo funcionando, poucos dias
após o primeiro contato com o cliente.

A ferramenta será publicada no CPAN, após amadurecer um pouco.

- Flavio S. Glock

From nferraz em gmail.com  Tue Aug  7 10:29:02 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 7 Aug 2007 18:29:02 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Gram=E1ticas=2C_Parse=3A=3ARecDescen?=
 =?iso-8859-1?q?t_=28era=3A_Casos_de_Sucesso=29?=
In-Reply-To: <aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
	<A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
	<aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>
Message-ID: <6C3B31B5-BD9B-48F3-85D3-2E11694EBAB2@gmail.com>

> Em 06/08/07, Nelson Ferraz<nferraz em gmail.com> escreveu:
>> E vocês? Em que projetos estão envolvidos? Sobre que empresas
>> poderiam falar?
>
> Na semana passada trabalhei em uma ferramenta para conversão de
> scripts escritos em uma linguagem proprietária para Java.
>
> O Perl 6 permitiu que tivéssemos um protótipo funcionando, poucos dias
> após o primeiro contato com o cliente.
>
> A ferramenta será publicada no CPAN, após amadurecer um pouco.

Provavelmente um dos primeiros casos de sucesso em Perl6! :-)

A propósito, nesse momento eu estou trabalhando num conversor de  
Mason para Template Toolkit.

Ele deve ser capaz de fazer conversões desse tipo:


	Mason									Template Toolkit
	--------------------------------------------------------------
	<% $foo %>								[% foo %]
	<% $foo->{bar} %>						[% foo.bar %]
	<& template &>						[% PROCESS template %]

	% if ( $cond ) {						[% IF ( cond ) %]
	%     # ...							[% # ... %]
	% } else {								[% ELSE %]
	%     # ...							[% # ... %]
	% }										[% END %]

	% foreach my $i ( @{$lalala} ) {		[% FOREACH i = lalala %]
	%     # ...								[% # ... %]
	% }											[% END %]


Vou fazer mais alguns testes com regexps, mas acho que vou partir  
logo para o Parse::RecDescent. Alguém aqui tem experiência com esse  
módulo?

[]s

Nelson

PS- peço desculpas pelo email formatado, mas espero que assim a  
tabela fique mais legível...
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070807/2da5636b/attachment-0001.html 

From edencardim em gmail.com  Tue Aug  7 10:38:01 2007
From: edencardim em gmail.com (eden)
Date: Tue, 7 Aug 2007 14:38:01 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Gram=E1ticas=2C_Parse=3A=3ARecDescen?=
	=?iso-8859-1?q?t_=28era=3A_Casos_de_Sucesso=29?=
In-Reply-To: <6C3B31B5-BD9B-48F3-85D3-2E11694EBAB2@gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
	<A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
	<aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>
	<6C3B31B5-BD9B-48F3-85D3-2E11694EBAB2@gmail.com>
Message-ID: <3de55ead0708071038n3648e9e2x96cac6b43239e0ff@mail.gmail.com>

On 8/7/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> Vou fazer mais alguns testes com regexps, mas acho que vou partir logo para
> o Parse::RecDescent. Alguém aqui tem experiência com esse módulo?

Eu usei ele há algum tempo atrás e achei bom. Tem excelentes mensagens de debug.

-- 
edenc.vox.com

From danielrantunes em yahoo.com.br  Tue Aug  7 10:58:02 2007
From: danielrantunes em yahoo.com.br (=?iso-8859-1?Q?Daniel_=AE_Antunes?=)
Date: Tue, 7 Aug 2007 10:58:02 -0700 (PDT)
Subject: [Cascavel-pm] =?iso-8859-1?q?Lidar_com_refer=EAncias=2E?=
Message-ID: <656637.89408.qm@web36910.mail.mud.yahoo.com>

    Olá amigos, boa tarde.
    Dada as seguintes situações :

$VAR1 = {
          'serviceDate' => '2007-09-03',
          'subProducts' => {
                           'subProduct' => {
                                           'subProductQuantity' => '2',
                                           'detailPriceStatus' => 'true',
                                           'subProductPrice' => {
                                                                'currencyCode' => 'EUR',
                                                                'content' => '46.50'
                                                              },
                                           'subProductCode' => '00001'
                                         }
                         }
        };

$VAR1 = {
          'serviceDate' => '2007-09-03',
          'subProducts' => {
                           'subProduct' => [
                                           {
                                             'subProductQuantity' => '1',
                                             'detailPriceStatus' => 'true',
                                             'subProductPrice' => {
                                                                  'currencyCode' => 'EUR',
                                                                  'content' => '112.00'
                                                                },
                                             'subProductCode' => '00001'
                                           },
                                           {
                                             'subProductQuantity' => '1',
                                             'detailPriceStatus' => 'true',
                                             'subProductPrice' => {
                                                                  'currencyCode' => 'EUR',
                                                                  'content' => '152.00'
                                                                },
                                             'subProductCode' => '00003'
                                           }
                                         ]
                         }
        };

    Ora a referência : $VAR1->{subProducts}->{subProduct} aponta para um "hash", hora para um "array".
    Atualmente eu faço a distinção usando : if (ref($VAR1->{subProducts}->{subProduct}) eq 'ARRAY') ou (eq 'HASH')
    Isto torna o código um tanto poluído e chato; minha dúvida é : Existe outra maneira de fazer esta análise de forma mais prática e limpa ?
    Obrigado.

 
Daniel ® Antunes
profissional de informática
gnu/linux user #238553




      Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070807/94039080/attachment.html 

From fernandocorrea em gmail.com  Tue Aug  7 11:04:38 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 7 Aug 2007 15:04:38 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Lidar_com_refer=EAncias=2E?=
In-Reply-To: <656637.89408.qm@web36910.mail.mud.yahoo.com>
References: <656637.89408.qm@web36910.mail.mud.yahoo.com>
Message-ID: <f40026c0708071104t7a68e93cg843d219b75e20d56@mail.gmail.com>

vc pode usar um operador ternario, ou (sae for o q eu estou pensando) usar o
"forceArray" (ou algo parecido) na instanciação do XML::Simple

Em 07/08/07, Daniel (r) Antunes <danielrantunes em yahoo.com.br> escreveu:
>
>     Olá amigos, boa tarde.
>     Dada as seguintes situações :
>
> $VAR1 = {
>           'serviceDate' => '2007-09-03',
>           'subProducts' => {
>                            'subProduct' => {
>                                            'subProductQuantity' => '2',
>                                            'detailPriceStatus' => 'true',
>                                            'subProductPrice' => {
>
> 'currencyCode' => 'EUR',
>                                                                 'content'
> => '46.50'
>                                                               },
>                                            'subProductCode' => '00001'
>                                          }
>                          }
>         };
>
> $VAR1 = {
>           'serviceDate' => '2007-09-03',
>           'subProducts' => {
>                            'subProduct' => [
>                                            {
>                                              'subProductQuantity' => '1',
>                                              'detailPriceStatus' =>
> 'true',
>                                              'subProductPrice' => {
>
> 'currencyCode' => 'EUR',
>
> 'content' => '112.00'
>                                                                 },
>                                              'subProductCode' => '00001'
>                                            },
>                                            {
>                                              'subProductQuantity' => '1',
>                                              'detailPriceStatus' =>
> 'true',
>                                              'subProductPrice' => {
>
> 'currencyCode' => 'EUR',
>
> 'content' => '152.00'
>                                                                 },
>                                              'subProductCode' => '00003'
>                                            }
>                                          ]
>                          }
>         };
>
>     Ora a referência : $VAR1->{subProducts}->{subProduct} aponta para um
> "hash", hora para um "array".
>     Atualmente eu faço a distinção usando : if
> (ref($VAR1->{subProducts}->{subProduct}) eq 'ARRAY') ou (eq 'HASH')
>     Isto torna o código um tanto poluído e chato; minha dúvida é : Existe
> outra maneira de fazer esta análise de forma mais prática e limpa ?
>     Obrigado.
>
>
> Daniel (r) Antunes
> *profissional de informática*
> ***gnu/linux user* #238553
>
> Alertas do Yahoo! Mail em seu celular. Saiba mais<http://br.mobile.yahoo.com/mailalertas/>.
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070807/9928f21d/attachment-0001.html 

From danielrantunes em yahoo.com.br  Tue Aug  7 11:14:59 2007
From: danielrantunes em yahoo.com.br (=?iso-8859-1?Q?Daniel_=AE_Antunes?=)
Date: Tue, 7 Aug 2007 11:14:59 -0700 (PDT)
Subject: [Cascavel-pm] =?iso-8859-1?q?Res=3A__Lidar_com_refer=EAncias=2E?=
Message-ID: <12784.53172.qm@web36908.mail.mud.yahoo.com>

    Boa...
    Falha minha!

man XML::Simple

    Fala claramente sobre o forceArray.
    Muitíssimo obrigado pela luz...
 
Daniel ® Antunes
profissional de informática
gnu/linux user #238553

----- Mensagem original ----
De: Fernando Oliveira <fernandocorrea em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Terça-feira, 7 de Agosto de 2007 15:04:38
Assunto: Re: [Cascavel-pm] Lidar com referências.

vc pode usar um operador ternario, ou (sae for o q eu estou pensando) usar o "forceArray" (ou algo parecido) na instanciação do XML::Simple

Em 07/08/07, 
Daniel ® Antunes <danielrantunes em yahoo.com.br> escreveu:
    Olá amigos, boa tarde.
    Dada as seguintes situações :

$VAR1 = {
          'serviceDate' => '2007-09-03',

          'subProducts' => {
                           'subProduct' => {
                                           'subProductQuantity' =>
 '2',
                                           'detailPriceStatus' => 'true',
                                           'subProductPrice' => {
                                                               
 'currencyCode' => 'EUR',
                                                                'content' => '46.50'
                                                             
 },
                                           'subProductCode' => '00001'
                                         }
                         }
        };

$VAR1 = {
          'serviceDate' => '2007-09-03',

          'subProducts' =>
 {
                           'subProduct' => [
                                           {
                                             'subProductQuantity' =>
 '1',
                                             'detailPriceStatus' => 'true',
                                             'subProductPrice' =>
 {
                                                                  'currencyCode' => 'EUR',
                                                                  'content' =>
 '112.00'
                                                                },
                                             'subProductCode' => '00001'
                                          
 },
                                           {
                                             'subProductQuantity' => '1',
                                             'detailPriceStatus' =>
 'true',
                                             'subProductPrice' => {
                                                                  'currencyCode' =>
 'EUR',
                                                                  'content' => '152.00'
                                                               
 },
                                             'subProductCode' => '00003'
                                           }
                                         ]
                        
 }
        };

    Ora a referência : $VAR1->{subProducts}->{subProduct} aponta para um "hash", hora para um "array".
    Atualmente eu faço a distinção usando : if (ref($VAR1->{subProducts}->{subProduct}) eq 'ARRAY') ou (eq 'HASH')

    Isto torna o código um tanto poluído e chato; minha dúvida é : Existe outra maneira de fazer esta análise de forma mais prática e limpa ?
    Obrigado.

 
Daniel ® Antunes

profissional de informática
gnu/linux user #238553






      Alertas do Yahoo! Mail em seu celular. Saiba mais.


_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org

http://mail.pm.org/mailman/listinfo/cascavel-pm




-- 
[]'s Fernando






      Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070807/22227df5/attachment.html 

From nferraz em gmail.com  Tue Aug  7 11:19:03 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 7 Aug 2007 19:19:03 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Gram=E1ticas=2C_Parse=3A=3ARecDescen?=
 =?iso-8859-1?q?t_=28era=3A_Casos_de_Sucesso=29?=
In-Reply-To: <3de55ead0708071038n3648e9e2x96cac6b43239e0ff@mail.gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
	<A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
	<aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>
	<6C3B31B5-BD9B-48F3-85D3-2E11694EBAB2@gmail.com>
	<3de55ead0708071038n3648e9e2x96cac6b43239e0ff@mail.gmail.com>
Message-ID: <880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>

> On 8/7/07, Nelson Ferraz <nferraz em gmail.com> wrote:
>> Vou fazer mais alguns testes com regexps, mas acho que vou partir  
>> logo para
>> o Parse::RecDescent. Alguém aqui tem experiência com esse módulo?
>
> Eu usei ele há algum tempo atrás e achei bom. Tem excelentes  
> mensagens de debug.

Realmente -- pelo pouco que usei já tive essa impressão.

No entanto ainda não consegui perceber como retornar valores da  
gramática. Isto é; eu consigo verificar se o texto é válido, mas não  
consigo extrair as informações dele. Por exemplo:

#!/usr/bin/perl

use strict;
use warnings;

use Parse::RecDescent;

my $grammar = q{
                 ini_file: section(s)
                     section: section_label parameter(s) | <error>
                         section_label: /\s*\[\w+\]\s*/
                         parameter: key '=' value
                             key: /\w+/
                             value: /.*\n/
};

my $parser = Parse::RecDescent->new($grammar) or die "Invalid grammar! 
\n";

my $text = do { local $/; <DATA> };

if ( defined( my $result = $parser->ini_file($text) ) ) {
     print "It's a valid input!\n";
     use Data::Dumper;
     print Dumper $result;
}
else {
     print "No good.\n";
}

__DATA__

[foo]

a=1
b=2
c=3

[bar]

x=a
y=b
z=c

__END__

Como extrair essas informações (sections, parameters, values) de  
forma que elas possam ser trabalhadas?

From edencardim em gmail.com  Tue Aug  7 11:38:37 2007
From: edencardim em gmail.com (eden)
Date: Tue, 7 Aug 2007 15:38:37 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Gram=E1ticas=2C_Parse=3A=3ARecDescen?=
	=?iso-8859-1?q?t_=28era=3A_Casos_de_Sucesso=29?=
In-Reply-To: <880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
	<A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
	<aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>
	<6C3B31B5-BD9B-48F3-85D3-2E11694EBAB2@gmail.com>
	<3de55ead0708071038n3648e9e2x96cac6b43239e0ff@mail.gmail.com>
	<880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
Message-ID: <3de55ead0708071138v4c2c3ef2wb8e33f8aa5db0cb9@mail.gmail.com>

On 8/7/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> Realmente -- pelo pouco que usei já tive essa impressão.
>
> No entanto ainda não consegui perceber como retornar valores da
> gramática. Isto é; eu consigo verificar se o texto é válido, mas não
> consigo extrair as informações dele. Por exemplo:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use Parse::RecDescent;
>
> my $grammar = q{
>                  ini_file: section(s)
>                      section: section_label parameter(s) | <error>
>                          section_label: /\s*\[\w+\]\s*/
>                          parameter: key '=' value
>                              key: /\w+/
>                              value: /.*\n/
> };
>
> my $parser = Parse::RecDescent->new($grammar) or die "Invalid grammar!
> \n";
>
> my $text = do { local $/; <DATA> };
>
> if ( defined( my $result = $parser->ini_file($text) ) ) {
>      print "It's a valid input!\n";
>      use Data::Dumper;
>      print Dumper $result;
> }
> else {
>      print "No good.\n";
> }
>
> __DATA__
>
> [foo]
>
> a=1
> b=2
> c=3
>
> [bar]
>
> x=a
> y=b
> z=c
>
> __END__
>
> Como extrair essas informações (sections, parameters, values) de
> forma que elas possam ser trabalhadas?

Se me lembro bem, o valor retornado pela última action de uma regra é
o valor que será retornado pelo reconhecimento da regra toda. Você
pode usar isso para construir uma estrutura customizada ou ativar a
diretiva <autotree> para construir uma árvore padrão:

my $grammar = q{
   <autotree>

    ini_file: section(s)
    section: section_label parameter(s) | <error>
    section_label: /\s*\[\w+\]\s*/
    parameter: key '=' value
    key: /\w+/
    value: /.*\n/
};

-- 
edenc.vox.com

From a.r.ferreira em gmail.com  Tue Aug  7 12:21:35 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Tue, 7 Aug 2007 16:21:35 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Gram=E1ticas=2C_Parse=3A=3ARecDescen?=
	=?iso-8859-1?q?t_=28era=3A_Casos_de_Sucesso=29?=
In-Reply-To: <880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
References: <D03653D9-FF32-477D-88BD-D609287EA2DF@gmail.com>
	<A08E7EDC-839D-440C-9035-041303B1F70B@gmail.com>
	<aa47605d0708071001o3d72b69eo4cdd5039c36f1cb6@mail.gmail.com>
	<6C3B31B5-BD9B-48F3-85D3-2E11694EBAB2@gmail.com>
	<3de55ead0708071038n3648e9e2x96cac6b43239e0ff@mail.gmail.com>
	<880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
Message-ID: <73ddeb6c0708071221s7fba1332y853350eece24626d@mail.gmail.com>

On 8/7/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> > On 8/7/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> >> Vou fazer mais alguns testes com regexps, mas acho que vou partir
> >> logo para
> >> o Parse::RecDescent. Alguém aqui tem experiência com esse módulo?
> >
> > Eu usei ele há algum tempo atrás e achei bom. Tem excelentes
> > mensagens de debug.
>
> Realmente -- pelo pouco que usei já tive essa impressão.
>
> No entanto ainda não consegui perceber como retornar valores da
> gramática. Isto é; eu consigo verificar se o texto é válido, mas não
> consigo extrair as informações dele. Por exemplo:

O segredo são as "actions". O "autotree" mencionado pelo Eden define
automaticamente estas actions. Mas você pode defini-las regra a regra.

> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use P