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

Por exemplo,

sub build_hash {
    my %hash;
    for ( @{+shift} ) {
        $hash{ $_->[0] } = $_->[1];
    }
    return \%hash;
}

my $grammar = q{

ini_file: section(s)
          { $return = [ @item[1..$#item] ] }

section: section_label parameter(s)
         {  $return = { section => $item{section_label}, parameter =>
::build_hash($item[2]) }  }
       | <error>

section_label: /\s*\[/ /\w+/ /\]\s*/
               { $return = $item[2] }

parameter: key '=' value
           { $return = [ $item{key} => $item{value} ] }

key: /\w+/

value: /.*$/m
};

leva a seguinte estrutura quando o seu exemplo de entrada é usado:

It's a valid input!
$VAR1 = [
          [
            {
              'parameter' => {
                               'c' => '3',
                               'a' => '1',
                               'b' => '2'
                             },
              'section' => 'foo'
            },
            {
              'parameter' => {
                               'y' => 'b',
                               'x' => 'a',
                               'z' => 'c'
                             },
              'section' => 'bar'
            }
          ]
        ];


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

From acid06 em gmail.com  Tue Aug  7 13:07:28 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 7 Aug 2007 17:07:28 -0300
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
In-Reply-To: <4100AFE3-05E1-480D-8774-FCCBF24D51B0@yahoo.co.uk>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
	<4100AFE3-05E1-480D-8774-FCCBF24D51B0@yahoo.co.uk>
Message-ID: <9a08c9b40708071307i7b288da8rae5440aa681dda8e@mail.gmail.com>

On 8/7/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>    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.

Coincidentemente, ontem eu li algo que se encaixa bastante no contexto
desse seu comentário:

http://jshirley.vox.com/library/post/observations-regarding-high-availability-database-perception.html

-Nilson Santos F. Jr.

From acid06 em gmail.com  Tue Aug  7 13:08:46 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 7 Aug 2007 17:08:46 -0300
Subject: [Cascavel-pm] Duvida com bando de dados - RESOLVIDO
In-Reply-To: <001401c7d8de$54bd2610$0200a8c0@ricardo>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
Message-ID: <9a08c9b40708071308h5a575a9bg77742c3eb9f80538@mail.gmail.com>

On 8/7/07, Ricardo Stock <ricardostock em bol.com.br> wrote:
>    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.

A primeira coisa que você deveria fazer era usar "warnings" e
"strict". Não estou vendo nada disso no código. Antes de fazer isso,
você nem deveria começar a tentar fazer mais nada.

-Nilson Santos F. Jr.

From luismottacampos em yahoo.co.uk  Wed Aug  8 00:41:32 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 8 Aug 2007 09:41:32 +0200
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: <3DE1C72E-B24E-4180-9E81-933706017F39@yahoo.co.uk>

On Aug 7, 2007, at 7:29 PM, Nelson Ferraz wrote:
> 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:
> 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 já mexi com isso algumas vezes. Posso ajudar?
   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  Wed Aug  8 01:15:46 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 8 Aug 2007 10:15:46 +0200
Subject: [Cascavel-pm] [OT] Postgres SQL,
	racionalmente... [Was: Duvida com bando de...]
In-Reply-To: <9a08c9b40708071307i7b288da8rae5440aa681dda8e@mail.gmail.com>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
	<4100AFE3-05E1-480D-8774-FCCBF24D51B0@yahoo.co.uk>
	<9a08c9b40708071307i7b288da8rae5440aa681dda8e@mail.gmail.com>
Message-ID: <53F04E93-E8DF-4208-9D85-427C43E1CAC3@yahoo.co.uk>

On Aug 7, 2007, at 10:07 PM, Nilson Santos Figueiredo Junior wrote:
> On 8/7/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>>    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.
>
> Coincidentemente, ontem eu li algo que se encaixa bastante no contexto
> desse seu comentário:
>
> http://jshirley.vox.com/library/post/observations-regarding-high- 
> availability-database-perception.html

   Você está gentilmente sugerindo que eu não sei por que eu digo às  
pessoas que utilizem RDBMSs sérios?

   Bom, de certa forma, existem algumas razões para isso:

   1. Tudo o que eu preciso no MySQL será implementado na próxima  
versão. Eu tive contato com a base de dados nas versões 3.X, 4.X, e  
agora na 5.X, sempre com necessidades diferentes e promessas de que  
os "essenciais" de uma base de dados séria vão ser implementados na  
próxima versão. Já tive problemas mais sérios, com a falta de STORED  
PROCEDUREs, TRIGGERs, FOREIGN KEYs, e transações.

   2. Tenho problemas muito sérios com o esquema de replicação do  
MySQL: ele não escalou bem em nenhuma das implementações que eu tive  
contato - eu tenho problemas de sicronia entre os servidores, mesmo  
com uma rede Gigabit Ethernet dedicada (o que indica claramente que a  
competição para sicronização dos dados se dá no nível das tabelas,  
IMHO).

   3. BACKUPs e RESTOREs consistentes e eficientes são complicados  
de construir e restaurar. Eu acho que ser capaz de copiar a minha  
base de dados num estado consistente é importante.

   4. A parte de administração e tunning do MySQL é pobre em  
recursos. As diretrizes mais importantes não podem ser alteradas sem  
pararlização do serviço, e é complicado saber o que está acontecendo  
com o Query Cache.

   Claro, me rotular "fanático" e fugir ao diálogo racional é sempre  
uma opção. Mas eu tenho certeza de que falar é mais interessante. ;-)

   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  Wed Aug  8 07:05:58 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 8 Aug 2007 15:05:58 +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: <3de55ead0708071138v4c2c3ef2wb8e33f8aa5db0cb9@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>
	<880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
	<3de55ead0708071138v4c2c3ef2wb8e33f8aa5db0cb9@mail.gmail.com>
Message-ID: <53A4177E-8024-4545-BD99-E9AC2FD1BA7F@gmail.com>

Obrigado pelas dicas!

Comecei com um parser bem simples, para um template como esse:

     <body>
     <& header.ma &>
     <h1>teste</h1>
     % my $name = "World";
     <p>Hello, <% $name %>!</p>
     </body>


Assim, cheguei a esta gramática:

my $grammar = q{
         template : block(s)

         block   : mason
                 | html                                               
{ print "$item{html}" }

             mason   : include       # <& ... &>
                     | interpolation # <% ... %>
                     | inline_perl   # % ...
                     | <error>

                 include         : '<&' /\s*/ filename /\s*/  
'&>'    { print "[% PROCESS $item{filename} %]" }
                 interpolation   : '<%' /\s*/ perl_var /\s*/ '% 
 >'    { print "[% $item{perl_var} %]" }
                 inline_perl     : '%'  perl_code                     
{ print "[% $item{perl_code} %]" }

                     filename    : /[\w\.]+/

                     perl_code   : /.+/
                     perl_var    : /[\$\@\%]\w+/

             html    : tag
                     | text
                     | mason

                 tag             : /<[^<>]+>/
                 text            : /[^<>]+/
};


Resultado:

	<body>[% PROCESS header.ma %]<h1>teste</h1>[% my $name = "World"; %] 
<p>Hello, [% $name %]!</p></body>

Não é exatamente o produto final, mas estou no caminho. :-)

Obrigado pelas dicas e sugestões. :-)

[]s

Nelson

From ptfzs em yahoo.com.br  Wed Aug  8 07:15:53 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 8 Aug 2007 11:15:53 -0300 (ART)
Subject: [Cascavel-pm] Duvida STH->execute
Message-ID: <649228.18038.qm@web31303.mail.mud.yahoo.com>

Ola Pessoal..
fiz um programa na seguinte estrutura:


$sql=qq{SELECT * from teste where datahora>=timestamp '2007-08-01 00:00:00' - interval '6 hour' order by datahora};
             
$sth = $dbh->prepare($sql) || die $DBI::errstr;
$sth->execute || die $DBI::errstr;
            

while(@row = $sth->fetchrow_array())  
{ 

$sql="UPDATE tabela1 set teste='33333' where id='$row[1]' and datahora='$row[2]'";
 $sth = $dbh->prepare($sql) || die $DBI::errstr;
$sth->execute || die $DBI::errstr;
 warn "Problema ao processar os resultados", $sth->errstr( ), "\n" if $sth->err( );
$sth->finish();

}
 }
            
 warn "Problema ao processar os resultados", $sth->errstr( ), "\n" if $sth->err( );
$sth->finish();



Eu faco dois execute, minha duvida é.. eu posso colocar os dois como $sth.. pois se eu coloco os dois como $sth da esse erro:

DBD::Pg::st fetchrow_array failed: no statement executing
Problema ao processar os resultadosno statement executing

Se eu coloco $sth2 nao da erro nenhum..

Alguem pode me explicar??

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/20070808/6a0a0f09/attachment.html 

From nferraz em gmail.com  Wed Aug  8 07:41:47 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 8 Aug 2007 15:41:47 +0100
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <649228.18038.qm@web31303.mail.mud.yahoo.com>
References: <649228.18038.qm@web31303.mail.mud.yahoo.com>
Message-ID: <0A5BA4C2-E15B-4DDE-BC10-1019B1309155@gmail.com>


On Aug 8, 2007, at 3:15 PM, Patty Silva wrote:

> Eu faco dois execute, minha duvida é.. eu posso colocar os dois  
> como $sth.. pois se eu coloco os dois como $sth da esse erro:
>
> DBD::Pg::st fetchrow_array failed: no statement executing
> Problema ao processar os resultadosno statement executing
>
> Se eu coloco $sth2 nao da erro nenhum..
>
> Alguem pode me explicar??

Patty,

Você tem um loop que depende de $sth:

	while(@row = $sth->fetchrow_array() ) {
	    # ...
	}

O que acontece se você modificar $sth dentro do loop?

Ou, para dar um exemplo mais simples:

my @list = (1..10);

while (my $i = shift @list) {
   print "$i\n";
   @list = (1);
   sleep(1);
}

Felizmente o DBI parece capturar esse tipo de erro antes que você se  
depare com resultados imprevisíveis.

[]s

Nelson

From ptfzs em yahoo.com.br  Wed Aug  8 07:49:23 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 8 Aug 2007 11:49:23 -0300 (ART)
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <0A5BA4C2-E15B-4DDE-BC10-1019B1309155@gmail.com>
Message-ID: <63308.27931.qm@web31308.mail.mud.yahoo.com>

Oks..
Entao.. o sth dentro eu coloquei como sth2 e tenho que fecha-lo antes do sth ne?

Nelson Ferraz <nferraz em gmail.com> escreveu: 
On Aug 8, 2007, at 3:15 PM, Patty Silva wrote:

> Eu faco dois execute, minha duvida é.. eu posso colocar os dois  
> como $sth.. pois se eu coloco os dois como $sth da esse erro:
>
> DBD::Pg::st fetchrow_array failed: no statement executing
> Problema ao processar os resultadosno statement executing
>
> Se eu coloco $sth2 nao da erro nenhum..
>
> Alguem pode me explicar??

Patty,

Você tem um loop que depende de $sth:

 while(@row = $sth->fetchrow_array() ) {
     # ...
 }

O que acontece se você modificar $sth dentro do loop?

Ou, para dar um exemplo mais simples:

my @list = (1..10);

while (my $i = shift @list) {
   print "$i\n";
   @list = (1);
   sleep(1);
}

Felizmente o DBI parece capturar esse tipo de erro antes que você se  
depare com resultados imprevisíveis.

[]s

Nelson
_______________________________________________
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/20070808/824cb6d4/attachment.html 

From douglastabajara em gmail.com  Wed Aug  8 08:09:17 2007
From: douglastabajara em gmail.com (Douglas Tabajara)
Date: Wed, 8 Aug 2007 12:09:17 -0300
Subject: [Cascavel-pm] Tutoriais
Message-ID: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>

Saudações a todos!!

Pessoal, estou procurando alguns tutoriais, mas especificamente sobre
Template Toolkit e Acesso a bancos de dados, mas estou meio perdido...

Por favor, me passem alguns links que tiverem por aí.

Desde já agradeço a todos!! =p

-- 
---
Douglas Tabajara

"Quanto mais aprendo, mais me dou conta da minha ignorância"
 "O único homem que está isento de erros, é aquele que não se
                                            arrisca acertar."

      - Albert Einstein

Visitem: http://www.thysymphony.com
---
--

From gabriel.vieira em gmail.com  Wed Aug  8 08:14:51 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Wed, 8 Aug 2007 12:14:51 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <221A29C4-9C98-4906-9EAA-3A2F6BC689AE@yahoo.co.uk>
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>
	<221A29C4-9C98-4906-9EAA-3A2F6BC689AE@yahoo.co.uk>
Message-ID: <83d8367f0708080814q52c9157l6f840f7d98085da2@mail.gmail.com>

Hum.. eh verdade.. eh simples a alteração. Se quiserem passo o SVG
aqui na lista. :)

On 8/6/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> 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}
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From mago.perlbr em gmail.com  Wed Aug  8 08:18:56 2007
From: mago.perlbr em gmail.com (Marco Lima)
Date: Wed, 08 Aug 2007 16:18:56 +0100
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <649228.18038.qm@web31303.mail.mud.yahoo.com>
References: <649228.18038.qm@web31303.mail.mud.yahoo.com>
Message-ID: <46B9DEE0.7050101@gmail.com>

Salve !

...

my $sth = $dbh->prepare( qq{ SELECT campo1, campo2
                               FROM teste
                              WHERE datahora >= timestamp '2007-08-01 
00:00:00' - internal '6 hour'
                              ORDER BY datahora
                           } );
$sth->execute( );

my $array_ref = $sth->fetchall_arrayref();

$sth->finish( );

$sth= $dbh->prepare( qq{ UPDATE tabela1
                            SET teste='33333'
                          WHERE id= ?
                            AND datahora= ?
                       } );

foreach my $row ( @$array_ref ) { 
    $sth->execute ( @$row );
    warn "Problema ao processar os resultados", $sth->errstr( ), "\n" if 
$sth->err( );
}

$dbh->disconnect();


Patty Silva escreveu:
> Ola Pessoal..
> fiz um programa na seguinte estrutura:
>
>
> $sql=qq{SELECT * from teste where datahora>=timestamp '2007-08-01 
> 00:00:00' - interval '6 hour' order by datahora};
>             
> $sth = $dbh->prepare($sql) || die $DBI::errstr;
> $sth->execute || die $DBI::errstr;
>            
>
> while(@row = $sth->fetchrow_array()) 
> {
>
> $sql="UPDATE tabela1 set teste='33333' where id='$row[1]' and 
> datahora='$row[2]'";
> $sth = $dbh->prepare($sql) || die $DBI::errstr;
> $sth->execute || die $DBI::errstr;
>  warn "Problema ao processar os resultados", $sth->errstr( ), "\n" if 
> $sth->err( );
> $sth->finish();
>
> }
>  }
>            
>  warn "Problema ao processar os resultados", $sth->errstr( ), "\n" if 
> $sth->err( );
> $sth->finish();
>
>
>
> Eu faco dois execute, minha duvida é.. eu posso colocar os dois como 
> $sth.. pois se eu coloco os dois como $sth da esse erro:
>
> DBD::Pg::st fetchrow_array failed: no statement executing
> Problema ao processar os resultadosno statement executing
>
> Se eu coloco $sth2 nao da erro nenhum..
>
> Alguem pode me explicar??
>
> 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


From nferraz em gmail.com  Wed Aug  8 08:21:25 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 8 Aug 2007 16:21:25 +0100
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
Message-ID: <625299A1-4EEB-4139-BC15-594C64588E92@gmail.com>

> Pessoal, estou procurando alguns tutoriais, mas especificamente sobre
> Template Toolkit e Acesso a bancos de dados, mas estou meio perdido...

Template Toolkit e base de dados? Dá uma olhada no Catalyst!

	http://www.catalystframework.org/

[]s

Nelson

From lorn.br em gmail.com  Wed Aug  8 09:07:06 2007
From: lorn.br em gmail.com (Lorn)
Date: Wed, 8 Aug 2007 13:07:06 -0300
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <625299A1-4EEB-4139-BC15-594C64588E92@gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
	<625299A1-4EEB-4139-BC15-594C64588E92@gmail.com>
Message-ID: <bb8590d00708080907o26433ad7w74469ca9344df35a@mail.gmail.com>

Aproveitando a sugestão:

http://www.lornlab.org/catalyst/catalyst.xul

:)

On 8/8/07, Nelson Ferraz <nferraz em gmail.com> wrote:
>
> > Pessoal, estou procurando alguns tutoriais, mas especificamente sobre
> > Template Toolkit e Acesso a bancos de dados, mas estou meio perdido...
>
> Template Toolkit e base de dados? Dá uma olhada no Catalyst!
>
>         http://www.catalystframework.org/
>
> []s
>
>
> Nelson
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From igor.sutton em yahoo.co.uk  Wed Aug  8 10:04:54 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Wed, 8 Aug 2007 19:04:54 +0200
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <46B9DEE0.7050101@gmail.com>
References: <649228.18038.qm@web31303.mail.mud.yahoo.com>
	<46B9DEE0.7050101@gmail.com>
Message-ID: <8D61C293-DAD7-440C-8B41-9853619548EA@yahoo.co.uk>


On Aug 8, 2007, at 5:18 PM, Marco Lima wrote:

> Salve !
>
> ...
>
> my $sth = $dbh->prepare( qq{ SELECT campo1, campo2
>                                FROM teste
>                               WHERE datahora >= timestamp '2007-08-01
> 00:00:00' - internal '6 hour'
>                               ORDER BY datahora
>                            } );
> $sth->execute( );
>
> my $array_ref = $sth->fetchall_arrayref();
>
> $sth->finish( );
>
> $sth= $dbh->prepare( qq{ UPDATE tabela1
>                             SET teste='33333'
>                           WHERE id= ?
>                             AND datahora= ?
>                        } );
>
> foreach my $row ( @$array_ref ) {
>     $sth->execute ( @$row );
>     warn "Problema ao processar os resultados", $sth->errstr( ),  
> "\n" if
> $sth->err( );
> }

Você pode também deixar de usar um statement handler caso você tenha  
uma query estática:

<code>
my $array_ref = $dbh->selectall_arrayref(qq{ SELECT campo1, campo2  
FROM teste WHERE datahora >= timestamp '2007-08-01 00:00:00' -  
internal '6 hour' ORDER BY datahora } );

$sth= $dbh->prepare( qq{ UPDATE tabela1 SET teste='33333' WHERE id= ?  
AND datahora= ? } );

foreach my $row ( @$array_ref ) {
	$sth->execute ( @$row );
	warn "Problema ao processar os resultados", $sth->errstr( ), $/
		if $sth->err( );
}
</code>

Boa sorte!

From ptfzs em yahoo.com.br  Wed Aug  8 10:24:08 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 8 Aug 2007 14:24:08 -0300 (ART)
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <8D61C293-DAD7-440C-8B41-9853619548EA@yahoo.co.uk>
Message-ID: <1730.2325.qm@web31309.mail.mud.yahoo.com>

Nao.. eu nao tenho uma query estatica :D
ex:
quando eu faco
$sql="UPDATE $table set colum3='S',colum2='S',colum4='S' where id='$id' and datahora='$data'";

$sth2 = $dbh->prepare($sql) || die $DBI::errstr;
$sth2->execute || die $DBI::errstr;

eu tenho que fechar o sth2 né?
Pois esta dentro do WHILE q recupero os dados do BANCO com o SELECT

while (@row)= $sth->fetchrow_array())  
{

AQUI DENTRO
}
aqui eu fecho o $sth



Igor Sutton Lopes <igor.sutton em yahoo.co.uk> escreveu: 
On Aug 8, 2007, at 5:18 PM, Marco Lima wrote:

> Salve !
>
> ...
>
> my $sth = $dbh->prepare( qq{ SELECT campo1, campo2
>                                FROM teste
>                               WHERE datahora >= timestamp '2007-08-01
> 00:00:00' - internal '6 hour'
>                               ORDER BY datahora
>                            } );
> $sth->execute( );
>
> my $array_ref = $sth->fetchall_arrayref();
>
> $sth->finish( );
>
> $sth= $dbh->prepare( qq{ UPDATE tabela1
>                             SET teste='33333'
>                           WHERE id= ?
>                             AND datahora= ?
>                        } );
>
> foreach my $row ( @$array_ref ) {
>     $sth->execute ( @$row );
>     warn "Problema ao processar os resultados", $sth->errstr( ),  
> "\n" if
> $sth->err( );
> }

Você pode também deixar de usar um statement handler caso você tenha  
uma query estática:


my $array_ref = $dbh->selectall_arrayref(qq{ SELECT campo1, campo2  
FROM teste WHERE datahora >= timestamp '2007-08-01 00:00:00' -  
internal '6 hour' ORDER BY datahora } );

$sth= $dbh->prepare( qq{ UPDATE tabela1 SET teste='33333' WHERE id= ?  
AND datahora= ? } );

foreach my $row ( @$array_ref ) {
 $sth->execute ( @$row );
 warn "Problema ao processar os resultados", $sth->errstr( ), $/
  if $sth->err( );
}


Boa sorte!
_______________________________________________
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/20070808/138a6f43/attachment-0001.html 

From igor.sutton em gmail.com  Wed Aug  8 10:38:49 2007
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Wed, 8 Aug 2007 19:38:49 +0200
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <1730.2325.qm@web31309.mail.mud.yahoo.com>
References: <1730.2325.qm@web31309.mail.mud.yahoo.com>
Message-ID: <9D4997C8-2CF3-4738-95E1-4FCC0BD98244@gmail.com>


On Aug 8, 2007, at 7:24 PM, Patty Silva wrote:

> Nao.. eu nao tenho uma query estatica :D

Tu tens uma query estática: estava me referindo ao SELECT e não ao  
update. E se você olhar o exemplo você vai reparar no que estou falando.


From acid06 em gmail.com  Wed Aug  8 10:49:05 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 8 Aug 2007 14:49:05 -0300
Subject: [Cascavel-pm] [OT] Postgres SQL,
	racionalmente... [Was: Duvida com bando de...]
In-Reply-To: <53F04E93-E8DF-4208-9D85-427C43E1CAC3@yahoo.co.uk>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
	<4100AFE3-05E1-480D-8774-FCCBF24D51B0@yahoo.co.uk>
	<9a08c9b40708071307i7b288da8rae5440aa681dda8e@mail.gmail.com>
	<53F04E93-E8DF-4208-9D85-427C43E1CAC3@yahoo.co.uk>
Message-ID: <9a08c9b40708081049g344cb594w1420659e6021dfcd@mail.gmail.com>

On 8/8/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>    Você está gentilmente sugerindo que eu não sei por que eu digo às
> pessoas que utilizem RDBMSs sérios?

MySQL é um RDBMS sério. Contudo, os objetivos primários são diferentes.
Eu apenas enviei aquele link porque você simplesmente mandou aquela
frase sem dar nenhuma argumentação e eu gostaria de ouvir bons
motivos.

>    1. Tudo o que eu preciso no MySQL será implementado na próxima
> versão. Eu tive contato com a base de dados nas versões 3.X, 4.X, e
> agora na 5.X, sempre com necessidades diferentes e promessas de que
> os "essenciais" de uma base de dados séria vão ser implementados na
> próxima versão. Já tive problemas mais sérios, com a falta de STORED
> PROCEDUREs, TRIGGERs, FOREIGN KEYs, e transações.

Todos esses recursos existem no MySQL 5.

>    2. Tenho problemas muito sérios com o esquema de replicação do
> MySQL: ele não escalou bem em nenhuma das implementações que eu tive
> contato - eu tenho problemas de sicronia entre os servidores, mesmo
> com uma rede Gigabit Ethernet dedicada (o que indica claramente que a
> competição para sicronização dos dados se dá no nível das tabelas,
> IMHO).

Existem formas de scaling linear (junto com HA) para MySQL . Contrate
o MySQL Enterprise e eles te contam como faz isso tudo. Bem vindo à
máfia do MySQL. ;-)

>    3. BACKUPs e RESTOREs consistentes e eficientes s ão complicados
> de construir e restaurar. Eu acho que ser capaz de copiar a minha
> base de dados num estado consistente é importante.

Eu não sei falar nada sobre isso.

>    4. A parte de administração e tunning do MySQL é pobre em
> recursos. As diretrizes mais importantes não podem ser alteradas sem
> pararlização do serviço, e é complicado saber o que está acontecendo
> com o Query Cache.

Contrate o MySQL Enterprise e eles te explicam como tudo funciona e
otimizam pra você. Mais boas vindas à magia do MySQL.

>    Claro, me rotular "fanático" e fugir ao diálogo racional é sempre
> uma opção. Mas eu tenho certeza de que falar é mais interessante. ;-)

As duas opções são interessantes! ;-)

-Nilson Santos F. Jr.

From acid06 em gmail.com  Wed Aug  8 10:50:40 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 8 Aug 2007 14:50:40 -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: <9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@mail.gmail.com>

On 8/7/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> 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:

Eu tenho um source filter na CPAN que utiliza o Parse::RecDescent. Se
você quiser dar uma olhada, o nome é Error::TryCatch.

Eu não me lembro de cabeça mais como funciona, mas lembro que não dava
muito trabalho. não.

-Nilson Santos F. Jr.

From fglock em gmail.com  Wed Aug  8 11:22:36 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Wed, 8 Aug 2007 19:22:36 +0100
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <9D4997C8-2CF3-4738-95E1-4FCC0BD98244@gmail.com>
References: <1730.2325.qm@web31309.mail.mud.yahoo.com>
	<9D4997C8-2CF3-4738-95E1-4FCC0BD98244@gmail.com>
Message-ID: <aa47605d0708081122x14efd92di8359c3d615aafbcf@mail.gmail.com>

isso funcionaria?

 UPDATE  tabela1
 SET     teste = '3333'
 WHERE   EXISTS (
            SELECT  campo1, campo2
            FROM    teste
            WHERE   datahora >= timestamp '2007-08-01 00:00:00' -
internal '6 hour'
                AND campo1 = tabela1.campo1
                AND campo2 = tabela1.campo2
        );

- Flavio S. Glock

From luismottacampos em yahoo.co.uk  Wed Aug  8 12:28:31 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 8 Aug 2007 21:28:31 +0200
Subject: [Cascavel-pm] [OT] Postgres SQL,
	racionalmente... [Was: Duvida com bando de...]
In-Reply-To: <9a08c9b40708081049g344cb594w1420659e6021dfcd@mail.gmail.com>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
	<53F04E93-E8DF-4208-9D85-427C43E1CAC3@yahoo.co.uk>
	<9a08c9b40708081049g344cb594w1420659e6021dfcd@mail.gmail.com>
Message-ID: <200708082128.31730.luismottacampos@yahoo.co.uk>

On Wednesday 08 August 2007 19:49, Nilson Santos Figueiredo Junior wrote:
> On 8/8/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> >    Você está gentilmente sugerindo que eu não sei por que eu digo às
> > pessoas que utilizem RDBMSs sérios?
>
> MySQL é um RDBMS sério. Contudo, os objetivos primários são diferentes.
> Eu apenas enviei aquele link porque você simplesmente mandou aquela
> frase sem dar nenhuma argumentação e eu gostaria de ouvir bons
> motivos.
>
> >    1. Tudo o que eu preciso no MySQL será implementado na próxima
> > versão. Eu tive contato com a base de dados nas versões 3.X, 4.X, e
> > agora na 5.X, sempre com necessidades diferentes e promessas de que
> > os "essenciais" de uma base de dados séria vão ser implementados na
> > próxima versão. Já tive problemas mais sérios, com a falta de STORED
> > PROCEDUREs, TRIGGERs, FOREIGN KEYs, e transações.
>
> Todos esses recursos existem no MySQL 5.

  Sim, claro... sempre na próxima versão... agora, eu preciso de Database 
Links com criptografia, e schemas, ao invés de "databases". E seria ótimo ter 
uma arquitetura baseada em arquivos de dados, não em diretórios (meu sysadmin 
agradece - o consumo de inodes é menor).

> >    2. Tenho problemas muito sérios com o esquema de replicação do
> > MySQL: ele não escalou bem em nenhuma das implementações que eu tive
> > contato - eu tenho problemas de sicronia entre os servidores, mesmo
> > com uma rede Gigabit Ethernet dedicada (o que indica claramente que a
> > competição para sicronização dos dados se dá no nível das tabelas,
> > IMHO).
>
> Existem formas de scaling linear (junto com HA) para MySQL . Contrate
> o MySQL Enterprise e eles te contam como faz isso tudo. Bem vindo à
> máfia do MySQL. ;-)

  Bom, é EXATAMENTE disto que eu estou fugindo. Se eu não posso fazer eu 
mesmo, esquece.

> >    3. BACKUPs e RESTOREs consistentes e eficientes s ão complicados
> > de construir e restaurar. Eu acho que ser capaz de copiar a minha
> > base de dados num estado consistente é importante.
>
> Eu não sei falar nada sobre isso.

  Bom, meu caro... todas as vezes que eu precisei fazer backups, a parte mais 
complicada era garantir que o que eu tinha depois de um restore era 
uma "imagem" consistente do sistema. E isso não tem nada a ver com 
qualificações, lamentavelmente. ;-)

> >    4. A parte de administração e tunning do MySQL é pobre em
> > recursos. As diretrizes mais importantes não podem ser alteradas sem
> > pararlização do serviço, e é complicado saber o que está acontecendo
> > com o Query Cache.
>
> Contrate o MySQL Enterprise e eles te explicam como tudo funciona e
> otimizam pra você. Mais boas vindas à magia do MySQL.

  É EXATAMENTE isso que eu não quero fazer - se eu tenho de depender de uma 
empresa externa para fazer este tipo de coisa, não estou interessado em 
manter responsabilidade nenhuma sobre a base de dados, e vou contratar Oracle 
ou IBM DB2 sobre qualquer coisa que eles queiram rodar - mas a 
responsabilidade é deles.

> >    Claro, me rotular "fanático" e fugir ao diálogo racional é sempre
> > uma opção. Mas eu tenho certeza de que falar é mais interessante. ;-)
>
> As duas opções são interessantes! ;-)

  HUA HUA HUA !!
  De qualquer forma, o teu senso de humor é irrepreensível... ;-)
  Espero que as minhas razões agora estejam claras - óbvio, isso não vale para 
todo mundo... cada caso é um caso, cada cabeça um conjunto diferente de 
experiências.

  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  Wed Aug  8 12:30:59 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 8 Aug 2007 21:30:59 +0200
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <aa47605d0708081122x14efd92di8359c3d615aafbcf@mail.gmail.com>
References: <1730.2325.qm@web31309.mail.mud.yahoo.com>
	<9D4997C8-2CF3-4738-95E1-4FCC0BD98244@gmail.com>
	<aa47605d0708081122x14efd92di8359c3d615aafbcf@mail.gmail.com>
Message-ID: <200708082131.00274.luismottacampos@yahoo.co.uk>

On Wednesday 08 August 2007 20:22, Flavio S. Glock wrote:
> isso funcionaria?
>
>  UPDATE  tabela1
>  SET     teste = '3333'
>  WHERE   EXISTS (
>             SELECT  campo1, campo2
>             FROM    teste
>             WHERE   datahora >= timestamp '2007-08-01 00:00:00' -
> internal '6 hour'
>                 AND campo1 = tabela1.campo1
>                 AND campo2 = tabela1.campo2
>         );

  Não, Glock.

  Isso tem erro de sintaxe. Não existe uma palavra chave chamada "internal", 
na linha 3 do query #2...

  Fora isso, você deveria estar usando placeholders (o Query Cache agradece), 
e não deveria fazer cálculos de data e hora sem auxílio das funções de 
DateTime da base de dados... ;-)

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

From igor.sutton em yahoo.co.uk  Wed Aug  8 12:49:48 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Wed, 8 Aug 2007 21:49:48 +0200
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <200708082131.00274.luismottacampos@yahoo.co.uk>
References: <1730.2325.qm@web31309.mail.mud.yahoo.com>
	<9D4997C8-2CF3-4738-95E1-4FCC0BD98244@gmail.com>
	<aa47605d0708081122x14efd92di8359c3d615aafbcf@mail.gmail.com>
	<200708082131.00274.luismottacampos@yahoo.co.uk>
Message-ID: <EB0AABD4-C55E-4F6D-A6B0-48F41A3ADFB4@yahoo.co.uk>


On Aug 8, 2007, at 9:30 PM, Luis Motta Campos wrote:

> On Wednesday 08 August 2007 20:22, Flavio S. Glock wrote:
>> isso funcionaria?
>>
>>  UPDATE  tabela1
>>  SET     teste = '3333'
>>  WHERE   EXISTS (
>>             SELECT  campo1, campo2
>>             FROM    teste
>>             WHERE   datahora >= timestamp '2007-08-01 00:00:00' -
>> internal '6 hour'
>>                 AND campo1 = tabela1.campo1
>>                 AND campo2 = tabela1.campo2
>>         );
>
>   Não, Glock.
>
>   Isso tem erro de sintaxe. Não existe uma palavra chave chamada  
> "internal",
> na linha 3 do query #2...
>
>   Fora isso, você deveria estar usando placeholders (o Query Cache  
> agradece),
> e não deveria fazer cálculos de data e hora sem auxílio das funções de
> DateTime da base de dados... ;-)

Acho que o Glock quis fazer a operação diretamente na base de dados  
ao invés de trazer para o Perl fazer o que o RDBMS poderia fazer...

Estou errado?!

From fglock em gmail.com  Wed Aug  8 12:55:16 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Wed, 8 Aug 2007 20:55:16 +0100
Subject: [Cascavel-pm] Duvida STH->execute
In-Reply-To: <200708082131.00274.luismottacampos@yahoo.co.uk>
References: <1730.2325.qm@web31309.mail.mud.yahoo.com>
	<9D4997C8-2CF3-4738-95E1-4FCC0BD98244@gmail.com>
	<aa47605d0708081122x14efd92di8359c3d615aafbcf@mail.gmail.com>
	<200708082131.00274.luismottacampos@yahoo.co.uk>
Message-ID: <aa47605d0708081255q44888523web3f72dcc212459b@mail.gmail.com>

Em 08/08/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
>   Não, Glock.
>
>   Isso tem erro de sintaxe. Não existe uma palavra chave chamada "internal",
> na linha 3 do query #2...
>
>   Fora isso, você deveria estar usando placeholders (o Query Cache agradece),
> e não deveria fazer cálculos de data e hora sem auxílio das funções de
> DateTime da base de dados... ;-)

como disse o Igor, na verdade eu só fiz cut-and-paste do código
original, sem me preocupar com o significado.

a idéia seria executar em um único query, em vez de recorrer ao perl
para fazer iteração.

- Flavio S. Glock

From acid06 em gmail.com  Wed Aug  8 13:22:56 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 8 Aug 2007 17:22:56 -0300
Subject: [Cascavel-pm] [OT] Postgres SQL,
	racionalmente... [Was: Duvida com bando de...]
In-Reply-To: <200708082128.31730.luismottacampos@yahoo.co.uk>
References: <001401c7d8de$54bd2610$0200a8c0@ricardo>
	<53F04E93-E8DF-4208-9D85-427C43E1CAC3@yahoo.co.uk>
	<9a08c9b40708081049g344cb594w1420659e6021dfcd@mail.gmail.com>
	<200708082128.31730.luismottacampos@yahoo.co.uk>
Message-ID: <9a08c9b40708081322l4a46e907g1e2c3ef9e574c15f@mail.gmail.com>

On 8/8/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
>   Sim, claro... sempre na próxima versão... agora, eu preciso de Database
> Links com criptografia, e schemas, ao invés de "databases". E seria ótimo ter
> uma arquitetura baseada em arquivos de dados, não em diretórios (meu sysadmin
> agradece - o consumo de inodes é menor).

Não é na próxima versão, o MySQL 5 é a versão atual! Quando você usa
InnoDB que é o padrão desde o MySQL, não são criados milhares de
arquivos de dados.

Não existe desculpa para não utilizar MySQL 5 e fazer afirmações
baseadas no MySQL 4. Fazem quase 4 anos que o MySQL 5 saiu. A versão
5.0.0 foi lançada em 24 de dezembro de 2003.

> > Existem formas de scaling linear (junto com HA) para MySQL . Contrate
> > o MySQL Enterprise e eles te contam como faz isso tudo. Bem vindo à
> > máfia do MySQL. ;-)
>
>   Bom, é EXATAMENTE disto que eu estou fugindo. Se eu não posso fazer eu
> mesmo, esquece.

Essa é a solução fácil. Você pode fazer você mesmo caso pesquise um
pouco. Você vai ter de utilizar particionamento e replicação
master-master. No final das contas, a empresa MySQL precisa de ganhar
dinheiro e por isso esse conhecimento é meio obscuro.

>   Bom, meu caro... todas as vezes que eu precisei fazer backups, a parte mais
> complicada era garantir que o que eu tinha depois de um restore era
> uma "imagem" consistente do sistema. E isso não tem nada a ver com
> qualificações, lamentavelmente. ;-)

Eu realmente não sei. Eu nunca fiz um backup de uma base de dados
MySQL. Todas as vezes que precisei de fazer ou restaurar um backup
isso foi feito por outa pessoa e nunca vi nenhum problema. Mas foram
poucas vezes.

>   É EXATAMENTE isso que eu não quero fazer - se eu tenho de depender de uma
> empresa externa para fazer este tipo de coisa, não estou interessado em
> manter responsabilidade nenhuma sobre a base de dados, e vou contratar Oracle
> ou IBM DB2 sobre qualquer coisa que eles queiram rodar - mas a
> responsabilidade é deles.

Você também pode conseguir esse conhecimento por outros meios. O
problema é que o pessoal do MySQL não vai te ensinar se você não pagar
(e eles têm todo o direito de fazer isso). Mas não é ilegal obter o
conhecimento por outros meios.

>   Espero que as minhas razões agora estejam claras - óbvio, isso não vale para
> todo mundo... cada caso é um caso, cada cabeça um conjunto diferente de
> experiências.

Claro. É que eu estou cansado de pessoas falando mal das coisas sem
explicar por que. Eu tinha uma boa idéia do que você ia falar (na
verdade, esperava até um pouco mais, você poderia ter citado que o
MyISAM não checa integridade de datas, por exemplo).

Contudo, principalmente no caso do MySQL vs PostgreSQL isso chegou num
nível irritante. Eu nem considero os dois como produtos que competem
entre si. São duas coisas diferentes. Em geral, utilizadas em mercados
diferentes. O Postgres até não muito tempo atrás (coisa de 2 anos) era
consideravelmente mais lento que o MySQL para a maioria dos casos
(apesar de ser mais eficiente em queries complexas). Além disso,
colocar um Postgres rodando é mais complicado que um MySQL.

Mas ninguém discute que é um banco de dados muito mais rico
feature-wise. Só que às vezes você não precisa disso e uma abordagem
mais simples satisfaz.

-Nilson Santos F. Jr.

From joenio em gmail.com  Wed Aug  8 23:48:18 2007
From: joenio em gmail.com (Joenio Costa)
Date: Thu, 9 Aug 2007 03:48:18 -0300
Subject: [Cascavel-pm] Logotipo para o portal Perl.org.br
In-Reply-To: <83d8367f0708080814q52c9157l6f840f7d98085da2@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>
	<221A29C4-9C98-4906-9EAA-3A2F6BC689AE@yahoo.co.uk>
	<83d8367f0708080814q52c9157l6f840f7d98085da2@mail.gmail.com>
Message-ID: <65934b450708082348j6b90f2cdqd921ca7b369a6274@mail.gmail.com>

Olá,

Alguns já devem ter notado, outros não: Aurélio Heckert bolou um logo
e tomou a liberdade de já o colocar no TWiki, ele nao sabia que estava
rolando essa movimentação aqui para criação de um logo, foi
transmissão de pensamento... :-)

Posto o link aqui para que vocês dêem nota:

http://www.perl.org.br/pub/Main/TWikiPreferences/perl-br.gif

Att,

Em 08/08/07, Gabriel Vieira<gabriel.vieira em gmail.com> escreveu:
> Hum.. eh verdade.. eh simples a alteração. Se quiserem passo o SVG
> aqui na lista. :)
>
> On 8/6/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> > 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}
> >
> >
> > _______________________________________________
> > 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
>


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

From joenio em gmail.com  Wed Aug  8 23:50:56 2007
From: joenio em gmail.com (Joenio Costa)
Date: Thu, 9 Aug 2007 03:50:56 -0300
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <bb8590d00708080907o26433ad7w74469ca9344df35a@mail.gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
	<625299A1-4EEB-4139-BC15-594C64588E92@gmail.com>
	<bb8590d00708080907o26433ad7w74469ca9344df35a@mail.gmail.com>
Message-ID: <65934b450708082350o15a8b97qe9bf98bc250252d2@mail.gmail.com>

Talvez voce encontre algo útil aqui:

http://sao-paulo.pm.org/papers/

Anote o endereço abaixo no seu favoritos:

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

Att,

Em 08/08/07, Lorn<lorn.br em gmail.com> escreveu:
> Aproveitando a sugestão:
>
>
>
> http://www.lornlab.org/catalyst/catalyst.xul
>
> :)
>
> On 8/8/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> > > Pessoal, estou procurando alguns tutoriais, mas especificamente sobre
> > > Template Toolkit e Acesso a bancos de dados, mas estou meio perdido...
> >
> > Template Toolkit e base de dados? Dá uma olhada no Catalyst!
> >
> >         http://www.catalystframework.org/
> >
> > []s
> >
> >
> > Nelson
> > ______________________________ _________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> Lindolfo "Lorn" Rodrigues
> - www.slackwarezine.com.br
> - http://lornlab.org
> - http://sao-paulo.pm.org
> use Catalyst;
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


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

From rafamv1 em ig.com.br  Thu Aug  9 03:10:54 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 9 Aug 2007 07:10:54 -0300
Subject: Verificar endereço em arquivo..
Message-ID: <20070809_101054_077709.rafamv1@ig.com.br>

Bom dia!! Preciso de uma ajuda... No código abaixo, a variável "$site" 
recebe os dados de um formulário html.. O conteúdo dessa variável é um 
endereço http, ele pode vir como ".perl.org.br" 
ou "[subdominio].perl.org.br".. O problema é o seguinte: 
Se eu tiver o endereço ".perl.org.br", não poderei adicionar qualquer coisa 
que contenha ".perl.org.br", como www.perl.org.br ou mail.perl.org.br. 
Preciso fazer com que o código faça isso!! 


#!/usr/bin/perl 
use warnings; 
use strict; 
use CGI qw ( :standard ); 
use constant SITEINEXIST => 
              'http://www.meudominio.com.br/siteinexist.htm'; 
use constant SITEEXIST => 
              'http://www.meudominio.com.br/siteexist.htm'; 
use constant SITELIBERADO => 
              'http://www.meudominio.com.br/siteliberado.htm'; 
	 
## Abre o arquivo e cria o Handle <LIBERADOS>; 
my $arquivo = '/etc/squid/arquivos/liberados/dl_geral'; 
open ( LIBERADOS,$arquivo ); 
my @linhas = <LIBERADOS>; 
#close (LIBERADOS); 

## Recebe o conteudo das variaveis $site e $www do formulario htm; 
my $site = param ( "site" ); 
chomp $site; 

my $linha = "@linhas"; 

## Se a variavel $site for igual a [.], redireciona pra codigo htm; 
if ($site eq /^[.]$/ ) { 
print redirect (SITEINEXIST); 
} 

elsif (grep( {/^$site$/}@linhas)) { 
print redirect (SITEEXIST); 
} 
 else { 
open ( LIBERADOS,"+>>$arquivo" ); 
print ( LIBERADOS "\n$site" ); 
close ( LIBERADOS ); 
system("squid -k reconfigure"); 
print redirect (SITELIBERADO); 
} 



From nferraz em gmail.com  Thu Aug  9 03:33:34 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 9 Aug 2007 11:33:34 +0100
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Verificar_endere=E7o_em_arquivo=2E?=
	=?iso-8859-1?q?=2E?=
In-Reply-To: <20070809_101054_077709.rafamv1@ig.com.br>
References: <20070809_101054_077709.rafamv1@ig.com.br>
Message-ID: <C343449D-5480-45D5-A562-FD709FFE588A@gmail.com>

Tem um erro aqui:

> ## Se a variavel $site for igual a [.], redireciona pra codigo htm;
> if ($site eq /^[.]$/ ) {
> print redirect (SITEINEXIST);
> }

Você usa "eq" para verificar uma expressão regular, quando deveria  
usar "=~".

Aqui tem um problema de lógica:

> elsif (grep( {/^$site$/}@linhas)) {
> print redirect (SITEEXIST);
> }

Se você quer encontrar linhas que têm "foo", use /foo/
Se você quer encontrar linhas que começam com "foo", use /^foo/
Se você quer encontrar linhas terminam com "foo", use /foo$/

Se você usar /^foo$/, vai encontrar linhas que começam E terminam com  
"foo": ou seja, linhas que são exatamente "foo".

[]s

Nelson


From rafamv1 em ig.com.br  Thu Aug  9 03:39:17 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 9 Aug 2007 07:39:17 -0300
Subject: [Cascavel-pm] Verificar endereço em arquivo. .
Message-ID: <20070809_103917_020645.rafamv1@ig.com.br>

 Eu preciso verificar se todo o endereço que veio em "$site" existe 
 no arquivo, por isso usei elsif: 

 (grep( {/^$site$/}@linhas){ 


Em (11:33:34), Cascavel Perl Mongers escreveu: 


>Tem um erro aqui: 
> 
>> ## Se a variavel $site for igual a [.], redireciona pra codigo htm; 
>> if ($site eq /^[.]$/ ) { 
>> print redirect (SITEINEXIST); 
>> } 
> 
>Você usa "eq" para verificar uma expressão regular, quando deveria 
>usar "=~". 
> 
>Aqui tem um problema de lógica: 
> 
>> elsif (grep( {/^$site$/}@linhas)) { 
>> print redirect (SITEEXIST); 
>> } 
> 
>Se você quer encontrar linhas que têm "foo", use /foo/ 
>Se você quer encontrar linhas que começam com "foo", use /^foo/ 
>Se você quer encontrar linhas terminam com "foo", use /foo$/ 
> 
>Se você usar /^foo$/, vai encontrar linhas que começam E terminam com 
>"foo": ou seja, linhas que são exatamente "foo". 
> 
>[]s 
> 
>Nelson 
> 
>_______________________________________________ 
>Cascavel-pm mailing list 
>Cascavel-pm em pm.org 
>http://mail.pm.org/mailman/listinfo/cascavel-pm 
> 
>---------- 


Rafael Lebrão Martins. 
Graduando do curso de 
Ciências Contábeis pela UESB. 

Microsoft Certified 
Professional 70-271 
Tel: 88171819 



From nferraz em gmail.com  Thu Aug  9 04:11:51 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 9 Aug 2007 12:11:51 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Verificar_endere=E7o_em_arquivo=2E_?=
 =?iso-8859-1?q?=2E?=
In-Reply-To: <20070809_103917_020645.rafamv1@ig.com.br>
References: <20070809_103917_020645.rafamv1@ig.com.br>
Message-ID: <94C96BBE-3F78-48B0-BF05-DFA4813D1355@gmail.com>

> Bom dia!! Preciso de uma ajuda... No código abaixo, a variável "$site"
> recebe os dados de um formulário html.. O conteúdo dessa variável é um
> endereço http, ele pode vir como ".perl.org.br"
> ou "[subdominio].perl.org.br".. O problema é o seguinte:
> Se eu tiver o endereço ".perl.org.br", não poderei adicionar  
> qualquer coisa
> que contenha ".perl.org.br", como www.perl.org.br ou mail.perl.org.br.
> Preciso fazer com que o código faça isso!!

Procure sempre reduzir o seu problema... se vc está com dúvidas nas  
expressões regulares, faça um programa de teste.

Com o programa abaixo eu consegui descobrir e resolver um problema de  
lógica no grep:

#!/usr/bin/perl

use strict;
use warnings;

use List::MoreUtils('any');

my @registrados = qw/ perl.org.br lalala.com /;

while ( my $dominio = prompt() ) {
     if ( grep( { $dominio =~ /$_$/ } @registrados ) ) {
         print "registrado\n";
     } else {
         print "nao registrado\n";
     }
}

sub prompt {
     print "Digite um dominio: ";
     my $dominio = <>;
}



From edencardim em gmail.com  Thu Aug  9 05:53:05 2007
From: edencardim em gmail.com (eden)
Date: Thu, 9 Aug 2007 09:53:05 -0300
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
Message-ID: <3de55ead0708090553o7d326334m10ab45681ea31f8f@mail.gmail.com>

On 8/8/07, Douglas Tabajara <douglastabajara em gmail.com> wrote:
> Saudações a todos!!
>
> Pessoal, estou procurando alguns tutoriais, mas especificamente sobre
> Template Toolkit e Acesso a bancos de dados, mas estou meio perdido...
>
> Por favor, me passem alguns links que tiverem por aí.
>
> Desde já agradeço a todos!! =p

Ah, lembrei, escrevi isso a um tempo atrás:

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

-- 
edenc.vox.com

From rafamv1 em ig.com.br  Thu Aug  9 07:36:06 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Thu, 9 Aug 2007 11:36:06 -0300
Subject: [Cascavel-pm] Verificar endereço em arquivo.  .
Message-ID: <20070809_143606_038360.rafamv1@ig.com.br>




Em (12:11:51), Cascavel Perl Mongers escreveu: 


>> Bom dia!! Preciso de uma ajuda... No código abaixo, a variável "$site" 
>> recebe os dados de um formulário html.. O conteúdo dessa variável é um 
>> endereço http, ele pode vir como ".perl.org.br" 
>> ou "[subdominio].perl.org.br".. O problema é o seguinte: 
>> Se eu tiver o endereço ".perl.org.br", não poderei adicionar 
>> qualquer coisa 
>> que contenha ".perl.org.br", como www.perl.org.br ou mail.perl.org.br. 
>> Preciso fazer com que o código faça isso!! 
> 
>Procure sempre reduzir o seu problema... se vc está com dúvidas nas 
>expressões regulares, faça um programa de teste. 
> 
>Com o programa abaixo eu consegui descobrir e resolver um problema de 
>lógica no grep: 
> 
>#!/usr/bin/perl 
> 
>use strict; 
>use warnings; 
> 
>use List::MoreUtils('any'); 
> 
>my @registrados = qw/ perl.org.br lalala.com /; 
> 
>while ( my $dominio = prompt() ) { 
> if ( grep( { $dominio =~ /$_$/ } @registrados ) ) { 
> print "registrado\n"; 
> } else { 
> print "nao registrado\n"; 
> } 
>} 
> 
>sub prompt { 
> print "Digite um dominio: "; 
> my $dominio = <>; 
>} 

Usei as linhas abaixo, elas funcionam até eu inserir uma nova entrada no 
arquivo, por exemplo, se no arquivo existir ".perl.org.br" e eu tentar 
adicionar "mail.perl.org.br", o código funciona. Mas se eu adicionar o site 
".perl.com.br" e tentar adicionar "mail.perl.com.br", o código adiciona (e 
não era para adicionar!). 
O arquivo no qual os dados são gravados, tem o seguinte formato: 
------------- 
.perl.org.br 
.microsoft.com 
www.vivaolinux.com.br 
etc... 
--------------------- 

if ( any{ $site =~ /$_$/ } @linhas ) { 
print redirect (SITEEXIST); 
} 
else { 
open ( LIBERADOS,"+>>$arquivo" ); 
print ( LIBERADOS "\n$site" ); 
close ( LIBERADOS ); 
system("squid -k reconfigure"); 
print redirect (SITELIBERADO); 
} 



From nferraz em gmail.com  Thu Aug  9 11:02:30 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 9 Aug 2007 19:02:30 +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: <9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@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>
	<880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
	<9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@mail.gmail.com>
Message-ID: <8D21C9D9-2626-41F8-9DC6-1F91E348124F@gmail.com>

Olá, pessoal!

Ainda estou lutando com a gramática para HTML::Mason.

Fiz um pequeno arquivo de exemplo:

	<body>
	<& header.mc &>
	% my $name = "World";
	<p>Hello, <% $name %></p>
	<% $this->fails %>
	</body>

Ele deveria ser convertido, neste primeiro momento, para:

	<body>
	[% PROCESS header.mc  %]
	[% my $name = "World"; %]
	<p>Hello,[% $name  %]</p>
	[% $this->fails %]
	</body>

Mas a tag marcada como "$this->fails" não é reconhecida como  
interpolação de variável -- o resultado é o seguinte:

	<body>
	[% PROCESS header.mc  %]
	[% my $name = "World"; %]
	<p>Hello,[% $name  %]</p><
	[% $this- %]
	>fails%></body>

Como vocês podem ver no código, existe uma regra específica para o  
caso (sigil plain_text '->' plain_text), que está sendo ignorada.

-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : mason.pl
Tipo  : text/x-perl-script
Tam   : 2096 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070809/2a2d77f4/attachment.bin 
-------------- Próxima Parte ----------

Alguma idéia do que pode estar acontecendo?

[]s

Nelson


From fglock em gmail.com  Thu Aug  9 14:10:23 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Thu, 9 Aug 2007 22:10:23 +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: <8D21C9D9-2626-41F8-9DC6-1F91E348124F@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>
	<9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@mail.gmail.com>
	<8D21C9D9-2626-41F8-9DC6-1F91E348124F@gmail.com>
Message-ID: <aa47605d0708091410g421b837do43f5b95d6e5bac4a@mail.gmail.com>

Aí vai um exemplo usando o v6.pm

- Flavio S. Glock
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : nelson.pl
Tipo  : text/x-perl
Tam   : 899 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20070809/ef40fe47/attachment.bin 

From nferraz em gmail.com  Thu Aug  9 15:44:05 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 9 Aug 2007 23:44:05 +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: <aa47605d0708091410g421b837do43f5b95d6e5bac4a@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>
	<880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
	<9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@mail.gmail.com>
	<8D21C9D9-2626-41F8-9DC6-1F91E348124F@gmail.com>
	<aa47605d0708091410g421b837do43f5b95d6e5bac4a@mail.gmail.com>
Message-ID: <604cec170708091544q68de6a66waf855b4ab3bcdcf8@mail.gmail.com>

Em 09/08/07, Flavio S. Glock<fglock em gmail.com> escreveu:
> Aí vai um exemplo usando o v6.pm

Hum... se eu entendi bem, o "!before" é um tipo de "look ahead" -- é
isso? Ele faz um match (por exemplo) de "<&", tudo o que for diferente
de "&>", e finalmente o "&>".

Eu encontrei um artigo que compara as gramáticas de Perl6 com o
Parse::RecDescent, e vou pesquisar mais sobre o assunto:

http://www.ibm.com/developerworks/linux/library/l-cpregex.html

Obrigado por me colocar de volta no caminho. :-)

[]s

Nelson

-- 
Nelson Ferraz

Free Software Foundation Associate Member #3203
Projeto Software Livre Brasil (www.softwarelivre.org.br)
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital

From nferraz em gmail.com  Fri Aug 10 03:13:41 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 10 Aug 2007 11:13:41 +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: <aa47605d0708091410g421b837do43f5b95d6e5bac4a@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>
	<880FF297-07A1-4844-90EA-72D7FA788518@gmail.com>
	<9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@mail.gmail.com>
	<8D21C9D9-2626-41F8-9DC6-1F91E348124F@gmail.com>
	<aa47605d0708091410g421b837do43f5b95d6e5bac4a@mail.gmail.com>
Message-ID: <8E415BB6-8E7B-4435-A969-CF5E463B5C4F@gmail.com>

On Aug 9, 2007, at 10:10 PM, Flavio S. Glock wrote:
> Aí vai um exemplo usando o v6.pm

Eu modifiquei o token interpol para fazer match até o final da linha:

token interpol {
     ^^
     <sp>+
     '%'
         $<content> := ([ <!before $$> . ]+)
     $$
     { return '[% ' ~ $<content> ~ ' %]' }
}


Com isso transformar o seguinte template:

     <body>
     <& header.mc &>
     % my $name = "World";
     % for (1 .. 10) {
         <p>Hello, <% $name %></p>
     % }
     <% $this->works %>
     </body>


Neste template:

     <body>
     [% PROCESS  header.mc  %]
[%  my $name = "World"; %]
[%  for (1 .. 10) { %]
         <p>Hello, [%  $name  %]</p>
[%  } %]
     [%  $this->works  %]
     </body>


Muito bom. :-)


From fglock em gmail.com  Fri Aug 10 03:31:39 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Fri, 10 Aug 2007 11:31:39 +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: <8E415BB6-8E7B-4435-A969-CF5E463B5C4F@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>
	<9a08c9b40708081050v3e2a97ag7283ef520ab9b6ff@mail.gmail.com>
	<8D21C9D9-2626-41F8-9DC6-1F91E348124F@gmail.com>
	<aa47605d0708091410g421b837do43f5b95d6e5bac4a@mail.gmail.com>
	<8E415BB6-8E7B-4435-A969-CF5E463B5C4F@gmail.com>
Message-ID: <aa47605d0708100331s46e43d9fm8d25be7d3e6f3a81@mail.gmail.com>

Em 10/08/07, Nelson Ferraz<nferraz em gmail.com> escreveu:
> On Aug 9, 2007, at 10:10 PM, Flavio S. Glock wrote:
> > Aí vai um exemplo usando o v6.pm
>
> Eu modifiquei o token interpol para fazer match até o final da linha:
>
> token interpol {
>      ^^
>      <sp>+
>      '%'
>          $<content> := ([ <!before $$> . ]+)
>      $$
>      { return '[% ' ~ $<content> ~ ' %]' }
> }

que tal:

 token interpol {
    ^^
    (<sp>+)
    '% '
        $<content> := (\N+)
    { return $0 ~ '[% ' ~ $<content> ~ ' %]' }
 }

esta versão conserva a formatação original

- Flavio S. Glock

From douglastabajara em gmail.com  Mon Aug 13 10:12:35 2007
From: douglastabajara em gmail.com (Douglas Tabajara)
Date: Mon, 13 Aug 2007 14:12:35 -0300
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <3de55ead0708090553o7d326334m10ab45681ea31f8f@mail.gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
	<3de55ead0708090553o7d326334m10ab45681ea31f8f@mail.gmail.com>
Message-ID: <e74ea4640708131012m5def8648o53c9439fc1d3e9a9@mail.gmail.com>

Desculpem a falta de respostas, mas eu estava doente.

Obrigado a todos pelas dicas!! Vou estudar tudo.

Boa semana a todos!!

-- 
---
Douglas Tabajara

"Quanto mais aprendo, mais me dou conta da minha ignorância"
 "O único homem que está isento de erros, é aquele que não se
                                            arrisca acertar."

      - Albert Einstein

Visitem: http://www.thysymphony.com
---
--

From edencardim em gmail.com  Mon Aug 13 10:15:43 2007
From: edencardim em gmail.com (eden)
Date: Mon, 13 Aug 2007 14:15:43 -0300
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <e74ea4640708131012m5def8648o53c9439fc1d3e9a9@mail.gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
	<3de55ead0708090553o7d326334m10ab45681ea31f8f@mail.gmail.com>
	<e74ea4640708131012m5def8648o53c9439fc1d3e9a9@mail.gmail.com>
Message-ID: <3de55ead0708131015m5ece125cra69a9229aa907305@mail.gmail.com>

On 8/13/07, Douglas Tabajara <douglastabajara em gmail.com> wrote:
> Desculpem a falta de respostas, mas eu estava doente.

Hmm, quebrou os dedos ou fez um transplante de córnea? ;)

-- 
edenc.vox.com

From douglastabajara em gmail.com  Mon Aug 13 10:24:30 2007
From: douglastabajara em gmail.com (Douglas Tabajara)
Date: Mon, 13 Aug 2007 14:24:30 -0300
Subject: [Cascavel-pm] Tutoriais
In-Reply-To: <3de55ead0708131015m5ece125cra69a9229aa907305@mail.gmail.com>
References: <e74ea4640708080809y2ae444bes4e1635c47132c13b@mail.gmail.com>
	<3de55ead0708090553o7d326334m10ab45681ea31f8f@mail.gmail.com>
	<e74ea4640708131012m5def8648o53c9439fc1d3e9a9@mail.gmail.com>
	<3de55ead0708131015m5ece125cra69a9229aa907305@mail.gmail.com>
Message-ID: <e74ea4640708131024h20e70856h788301cb5e8571d6@mail.gmail.com>

> Hmm, quebrou os dedos ou fez um transplante de córnea? ;)

Felizmente nem um nem outro. ;-)

Infelizmente não tenho internet em casa. :-(

-- 
---
Douglas Tabajara

"Quanto mais aprendo, mais me dou conta da minha ignorância"
 "O único homem que está isento de erros, é aquele que não se
                                            arrisca acertar."

      - Albert Einstein

Visitem: http://www.thysymphony.com
---
--

From alexjfalcao em universia.com.br  Mon Aug 13 11:39:05 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Mon, 13 Aug 2007 15:39:05 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
Message-ID: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>

Saudações senhores,

    minha dúvida parece tosca, e acho que é mesmo... Mas não sei o que
fazer.
    Estou fazendo uma página, que seria simples resolver com frames, porém,
não posso utilizar pq vou abrir páginas remotas em um "frame" e algumas
delas tem um código em Javascript que redireciona a página para o TOP
evitando ficarem em frames.

   Queria utilizar alguma opção de abrir a página em Perl e depos
exibir....Alguem teria uma sugestão?

   Obrigado a todos...

-- 

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

From edencardim em gmail.com  Mon Aug 13 11:52:31 2007
From: edencardim em gmail.com (eden)
Date: Mon, 13 Aug 2007 15:52:31 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
Message-ID: <3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>

On 8/13/07, Alex Falcão <alexjfalcao em universia.com.br> wrote:
> Saudações senhores,
>
>     minha dúvida parece tosca, e acho que é mesmo... Mas não sei o que
> fazer.
>     Estou fazendo uma página, que seria simples resolver com frames, porém,
> não posso utilizar pq vou abrir páginas remotas em um "frame" e algumas
> delas tem um código em Javascript que redireciona a página para o TOP
> evitando ficarem em frames.
>
>    Queria utilizar alguma opção de abrir a página em Perl e depos
> exibir....Alguem teria uma sugestão?

Bem, se o dono da página remota implementou isso, ele provavelmente
não quer que ninguém accesse o conteúdo dele dessa forma. Mas,
respondendo à sua pergunta, invés de apontar o frame para a página
remota, você poderia buscar o conteúdo remoto usando WWW::Mechanize no
lado do servidor, retirar o javascript e colocar o resultado no lugar
do frame.
Claro que a solução ideal seria refatorar tudo e montar um webservice,
mas isso foge do escopo da pergunta. ;)

-- 
edenc.vox.com

From alexjfalcao em universia.com.br  Mon Aug 13 12:07:25 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Mon, 13 Aug 2007 16:07:25 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
	<3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
Message-ID: <d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>

Eden,

    a principio muito obrigado, é bem interessante a ideia... Minha ideia
não é alterar a página que pretendo colocar como frame, preciso de algo
semelhante a página de busca de imagem do Google, que abre o frame.

   Não quero clonar a informação da página e nem dizer que o site é meu,
estou criando um sistema na universidade para avaliação de algumas páginas,
e umas delas tem esta função.

Quanto a este webservice, o que vc poderia falar sobre isso? se puder é
claro ;-)

Muito obrigado novamente

Em 13/08/07, eden <edencardim em gmail.com> escreveu:
>
> On 8/13/07, Alex Falcão <alexjfalcao em universia.com.br> wrote:
> > Saudações senhores,
> >
> >     minha dúvida parece tosca, e acho que é mesmo... Mas não sei o que
> > fazer.
> >     Estou fazendo uma página, que seria simples resolver com frames,
> porém,
> > não posso utilizar pq vou abrir páginas remotas em um "frame" e algumas
> > delas tem um código em Javascript que redireciona a página para o TOP
> > evitando ficarem em frames.
> >
> >    Queria utilizar alguma opção de abrir a página em Perl e depos
> > exibir....Alguem teria uma sugestão?
>
> Bem, se o dono da página remota implementou isso, ele provavelmente
> não quer que ninguém accesse o conteúdo dele dessa forma. Mas,
> respondendo à sua pergunta, invés de apontar o frame para a página
> remota, você poderia buscar o conteúdo remoto usando WWW::Mechanize no
> lado do servidor, retirar o javascript e colocar o resultado no lugar
> do frame.
> Claro que a solução ideal seria refatorar tudo e montar um webservice,
> mas isso foge do escopo da pergunta. ;)
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 

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

From edencardim em gmail.com  Mon Aug 13 12:33:00 2007
From: edencardim em gmail.com (eden)
Date: Mon, 13 Aug 2007 16:33:00 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
	<3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
	<d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>
Message-ID: <3de55ead0708131233x20db39bibbc4f7b76cffeb77@mail.gmail.com>

On 8/13/07, Alex Falcão <alexjfalcao em universia.com.br> wrote:
> Eden,
>
>     a principio muito obrigado, é bem interessante a ideia... Minha ideia
> não é alterar a página que pretendo colocar como frame, preciso de algo
> semelhante a página de busca de imagem do Google, que abre o frame.
>
>    Não quero clonar a informação da página e nem dizer que o site é meu,
> estou criando um sistema na universidade para avaliação de algumas páginas,
> e umas delas tem esta função.

Se o javascript em questão afeta o conteúdo da página você está em
maus lençois. Um bom website deveria prover uma versão que não
dependesse de javascript para browsers sem essa capacidade.

> Quanto a este webservice, o que vc poderia falar sobre isso? se puder é
> claro ;-)

Pro seu caso, webservice não se aplica. Mas se quiser se informar
melhor a respeito:
http://en.wikipedia.org/wiki/Representational_State_Transfer

-- 
edenc.vox.com

From alexjfalcao em universia.com.br  Tue Aug 14 06:07:06 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Tue, 14 Aug 2007 10:07:06 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <3de55ead0708131233x20db39bibbc4f7b76cffeb77@mail.gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
	<3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
	<d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>
	<3de55ead0708131233x20db39bibbc4f7b76cffeb77@mail.gmail.com>
Message-ID: <d25a071d0708140607u1bc3f536v6b8816cdf38221d1@mail.gmail.com>

Como não consegui outra opção, vou utilizar o www::mechanize, porém tive um
problema logo de cara, quando fiz um teste simples, para ler uma página
qualquer e exibir o conteúdo não carregou a imagem, então percebi que não a
imagem não estava com o path para o servidor e sim relativo. Percebi tb que
este erro acontece com css, formulários etc.

Alguem tem ideia do que posso fazer?

Obrigado pela ajuda

<code>
use WWW::Mechanize;
use CGI;
use strict;
use warnings;

my $cgi = CGI->new();
print $cgi->header();

my $url = 'http://www.google.com';

my $m = WWW::Mechanize->new();
$m->get($url);
my $c = $m->content;

print $c;
</code>

Em 13/08/07, eden <edencardim em gmail.com> escreveu:
>
> On 8/13/07, Alex Falcão <alexjfalcao em universia.com.br> wrote:
> > Eden,
> >
> >     a principio muito obrigado, é bem interessante a ideia... Minha
> ideia
> > não é alterar a página que pretendo colocar como frame, preciso de algo
> > semelhante a página de busca de imagem do Google, que abre o frame.
> >
> >    Não quero clonar a informação da página e nem dizer que o site é meu,
> > estou criando um sistema na universidade para avaliação de algumas
> páginas,
> > e umas delas tem esta função.
>
> Se o javascript em questão afeta o conteúdo da página você está em
> maus lençois. Um bom website deveria prover uma versão que não
> dependesse de javascript para browsers sem essa capacidade.
>
> > Quanto a este webservice, o que vc poderia falar sobre isso? se puder é
> > claro ;-)
>
> Pro seu caso, webservice não se aplica. Mas se quiser se informar
> melhor a respeito:
> http://en.wikipedia.org/wiki/Representational_State_Transfer
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 

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

From edencardim em gmail.com  Tue Aug 14 06:26:29 2007
From: edencardim em gmail.com (eden)
Date: Tue, 14 Aug 2007 10:26:29 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <d25a071d0708140607u1bc3f536v6b8816cdf38221d1@mail.gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
	<3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
	<d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>
	<3de55ead0708131233x20db39bibbc4f7b76cffeb77@mail.gmail.com>
	<d25a071d0708140607u1bc3f536v6b8816cdf38221d1@mail.gmail.com>
Message-ID: <3de55ead0708140626m6e449f8bmd4c147dadfcae4f4@mail.gmail.com>

On 8/14/07, Alex Falcão <alexjfalcao em universia.com.br> wrote:
> Como não consegui outra opção, vou utilizar o www::mechanize, porém tive um
> problema logo de cara, quando fiz um teste simples, para ler uma página
> qualquer e exibir o conteúdo não carregou a imagem, então percebi que não a
> imagem não estava com o path para o servidor e sim relativo. Percebi tb que
> este erro acontece com css, formulários etc.
>
> Alguem tem ideia do que posso fazer?
>
> Obrigado pela ajuda
>
> <code>
> use WWW::Mechanize;
> use CGI;
> use strict;
> use warnings;
>
> my $cgi = CGI->new();
> print $cgi->header();
>
> my $url = 'http://www.google.com';
>
> my $m = WWW::Mechanize->new();
> $m->get($url);
> my $c = $m->content;
>
> print $c;
> </code>

"Parseie" o conteúdo, corrigindo as urls. É o que os web proxies
fazem, já deve haver algum módulo que faça isso, procura no CPAN.

-- 
edenc.vox.com

From nferraz em gmail.com  Tue Aug 14 06:38:14 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 14 Aug 2007 14:38:14 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <d25a071d0708140607u1bc3f536v6b8816cdf38221d1@mail.gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
	<3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
	<d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>
	<3de55ead0708131233x20db39bibbc4f7b76cffeb77@mail.gmail.com>
	<d25a071d0708140607u1bc3f536v6b8816cdf38221d1@mail.gmail.com>
Message-ID: <6A4BB0CA-71F1-4D53-B3C6-29DDA28A7CF0@gmail.com>

> Como não consegui outra opção, vou utilizar o www::mechanize, porém  
> tive um problema logo de cara, quando fiz um teste simples, para  
> ler uma página qualquer e exibir o conteúdo não carregou a imagem,  
> então percebi que não a imagem não estava com o path para o  
> servidor e sim relativo. Percebi tb que este erro acontece com css,  
> formulários etc.
>
> Alguem tem ideia do que posso fazer?

Você pode usar uma tag <base href="..."/> para estabelecer a base de  
todos os links relativos no documento.

[]s

Nelson


From alexjfalcao em universia.com.br  Tue Aug 14 12:37:19 2007
From: alexjfalcao em universia.com.br (=?ISO-8859-1?Q?Alex_Falc=E3o?=)
Date: Tue, 14 Aug 2007 16:37:19 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Abrir_uma_p=E1gina_remota_em_frame?=
In-Reply-To: <6A4BB0CA-71F1-4D53-B3C6-29DDA28A7CF0@gmail.com>
References: <d25a071d0708131139h444fdbc3jc9875d6432fb76e1@mail.gmail.com>
	<3de55ead0708131152o531805ecrff91bb953bef5790@mail.gmail.com>
	<d25a071d0708131207q4371d09fp896838b7c568e1b4@mail.gmail.com>
	<3de55ead0708131233x20db39bibbc4f7b76cffeb77@mail.gmail.com>
	<d25a071d0708140607u1bc3f536v6b8816cdf38221d1@mail.gmail.com>
	<6A4BB0CA-71F1-4D53-B3C6-29DDA28A7CF0@gmail.com>
Message-ID: <d25a071d0708141237i7e19616ay6ceb69ae5d985436@mail.gmail.com>

Senhores,

    obrigado pela colaboração de todos. Consegui fazer funcionar, utilizei
um pouco de cada coisa.

LWP::UserAgent
<base href=
HTML::TokeParser;

Veleu mesmo a todos.

Em 14/08/07, Nelson Ferraz <nferraz em gmail.com> escreveu:
>
> > Como não consegui outra opção, vou utilizar o www::mechanize, porém
> > tive um problema logo de cara, quando fiz um teste simples, para
> > ler uma página qualquer e exibir o conteúdo não carregou a imagem,
> > então percebi que não a imagem não estava com o path para o
> > servidor e sim relativo. Percebi tb que este erro acontece com css,
> > formulários etc.
> >
> > Alguem tem ideia do que posso fazer?
>
> Você pode usar uma tag <base href="..."/> para estabelecer a base de
> todos os links relativos no documento.
>
> []s
>
> Nelson
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 

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

From a.r.ferreira em gmail.com  Thu Aug 16 12:39:56 2007
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Thu, 16 Aug 2007 16:39:56 -0300
Subject: [Cascavel-pm] Pesquisa Perl 2007
Message-ID: <73ddeb6c0708161239q345d39f4oa5a895f2b9692500@mail.gmail.com>

Agora no perlsurvey.org tem várias traduções do questionário,
incluindo Português do Brasil.

Mas o que poderia fazer diferença mesmo é se o conteúdo aparecesse
toda em nossa língua ou qualquer outra, só trocando a URL

http://perlsurvey.org/survey/

por

http://perlsurvey.org/pt_br/survey/

ou equivalente.



---------- Forwarded message ----------
From: Kirrily Robert <skud em infotrope.net>
Date: Aug 13, 2007 9:06 PM
Subject: [Perlsurvey-Discuss] Translations
To: perlsurvey-discuss em perlsurvey.org


So, I just managed to get the last of the translation pile up onto the
site.  See http://perlsurvey.org/translations/

The list currently stands at:

Dutch
French
German
Indonesian
Italian
Norwegian Bokmal
Polish
Portuguese
Portuguese (Brazilian)
Spanish
Swedish

Thanks heaps to all the volunteer translators!

Survey responses now stand at 3700.  With the help of these
translations, let's see if we can get it up over 4000 by the end of
the week.  If you know anyone in any of those countries, please
forward them the translated publicity email
(http://perlsurvey.org/publicity/translations) and ask them to pass it
on to any Perl programmers they might know.

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


---------- Forwarded message ----------
From: Kirrily Robert <skud em infotrope.net>
Date: Aug 13, 2007 9:06 PM
Subject: [Perlsurvey-Discuss] Translations
To: perlsurvey-discuss em perlsurvey.org


So, I just managed to get the last of the translation pile up onto the
site.  See http://perlsurvey.org/translations/

The list currently stands at:

Dutch
French
German
Indonesian
Italian
Norwegian Bokmal
Polish
Portuguese
Portuguese (Brazilian)
Spanish
Swedish

Thanks heaps to all the volunteer translators!

Survey responses now stand at 3700.  With the help of these
translations, let's see if we can get it up over 4000 by the end of
the week.  If you know anyone in any of those countries, please
forward them the translated publicity email
(http://perlsurvey.org/publicity/translations) and ask them to pass it
on to any Perl programmers they might know.

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 jamorreu em gmail.com  Thu Aug 16 15:04:20 2007
From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=)
Date: Thu, 16 Aug 2007 19:04:20 -0300
Subject: [Cascavel-pm] [JOB] Vaga para programador em Sampa.
Message-ID: <8ff2963a0708161504x23b0eb33h76472c6a2c8c2b75@mail.gmail.com>

A TS&O Consultoria, empresa que atua com desenvolvimento de software /
sistemas e alocação de profissionais seleciona profissional para
alocação com o seguinte perfil:
Analista Desenvolvedor Perl

Experiência mínima de 02 anos com desenvolvimento em Perl e SQL.

IMPRECINDIVEL: Inglês fluente e disponibilidade para atuar em horários
alternativos.

Local de Trabalho: São Paulo ? capital

Tipo de contratação: PJ

Empresa: TIVIT, uma empresa do Grupo Votorantim, fruto da fusão de
duas grandes empresas de TI, a Proceda e a Optiglobe e agora a
Telefutura, com mais de 16.000 funcionários, e faturamento aproximado
de 260 milhões. Mais de 250 clientes.

Produtos e serviços: Terceirização de ambientes tecnológicos,
consultoria de TI, Integração de Sistemas, fábrica de softwares,
gestão de aplicativos e soluções de negócios.

Concorrentes: IBM e EDS.

Interessados dentro do perfil, favor encaminhar currículos com
pretensão salarial para: elizete.souza em tso-cons.com

Código da vaga: PERL

-- 
Um abraço,
João Gabriel
Página pessoal - www.JGCL.pt.to
CGiClube.net - www.CGiClube.net
Vitória Perl Mongers - Vitoria.pm.org

From mmmferreira em gmail.com  Fri Aug 17 11:03:30 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Fri, 17 Aug 2007 15:03:30 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
Message-ID: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>

Pessoal,

mesmo não postado nada, nem feito perguntas o conteúdo do histórico da lista
rtem me ajudado imensamente, foi através dele que encontrei o DBIx::Class
que tornou a minha vida de programador muito mais simples.

Bem, estou procurando algo que possa me retornar o dia e a hora com pelo
menos os centésimos de segundo (com nanos seria melhor). Encontrei muita
coisa no CPAN, mas os que me chamaram a atenção como o DateTime, não
encontro como alternativa de intalação para o Windows através do PPM.

Alguém tem alguma sugestão?

Obrigado,

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

From edencardim em gmail.com  Fri Aug 17 11:14:10 2007
From: edencardim em gmail.com (eden)
Date: Fri, 17 Aug 2007 15:14:10 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
Message-ID: <3de55ead0708171114g4c9afad2nfbd6a927c9b803b8@mail.gmail.com>

On 8/17/07, Marcio Ferreira <mmmferreira em gmail.com> wrote:
> Pessoal,
>
> mesmo não postado nada, nem feito perguntas o conteúdo do histórico da lista
> rtem me ajudado imensamente, foi através dele que encontrei o DBIx::Class
> que tornou a minha vida de programador muito mais simples.
>
> Bem, estou procurando algo que possa me retornar o dia e a hora com pelo
> menos os centésimos de segundo (com nanos seria melhor). Encontrei muita
> coisa no CPAN, mas os que me chamaram a atenção como o DateTime, não
> encontro como alternativa de intalação para o Windows através do PPM.
>
> Alguém tem alguma sugestão?

Tem o Time::HiRes, que é módulo core (pelo  mnoes na versão 5.8.8).

-- 
edenc.vox.com

From donatoaz em gmail.com  Sun Aug 19 19:31:39 2007
From: donatoaz em gmail.com (Donato Azevedo)
Date: Sun, 19 Aug 2007 23:31:39 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <3de55ead0708171114g4c9afad2nfbd6a927c9b803b8@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<3de55ead0708171114g4c9afad2nfbd6a927c9b803b8@mail.gmail.com>
Message-ID: <1746e3e30708191931t22e3e6c0uf91b9207e1257d4f@mail.gmail.com>

On 8/17/07, eden <edencardim em gmail.com> wrote:
> On 8/17/07, Marcio Ferreira <mmmferreira em gmail.com> wrote:
> > Pessoal,
> >
> > mesmo não postado nada, nem feito perguntas o conteúdo do histórico da lista
> > rtem me ajudado imensamente, foi através dele que encontrei o DBIx::Class
> > que tornou a minha vida de programador muito mais simples.
> >
> > Bem, estou procurando algo que possa me retornar o dia e a hora com pelo
> > menos os centésimos de segundo (com nanos seria melhor). Encontrei muita
> > coisa no CPAN, mas os que me chamaram a atenção como o DateTime, não
> > encontro como alternativa de intalação para o Windows através do PPM.
> >
> > Alguém tem alguma sugestão?
>
> Tem o Time::HiRes, que é módulo core (pelo  mnoes na versão 5.8.8).

Eu acredito que o Time::HiRes so tenha resolucao até microsegundo.
É muito dificil achar algo que te retorna hora com precisao de poucos
nanosegundos...
apesar de que, com uma variancia bem grande voce pode contar nanosegundos

--
Donato Azevedo

From luismottacampos em yahoo.co.uk  Mon Aug 20 00:36:25 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 20 Aug 2007 09:36:25 +0200
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
Message-ID: <284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>

On Aug 17, 2007, at 8:03 PM, Marcio Ferreira wrote:
> Pessoal,
> mesmo não postado nada, nem feito perguntas o conteúdo do histórico  
> da lista rtem me ajudado imensamente, foi através dele que  
> encontrei o DBIx::Class que tornou a minha vida de programador  
> muito mais simples.
>
> Bem, estou procurando algo que possa me retornar o dia e a hora com  
> pelo menos os centésimos de segundo (com nanos seria melhor).  
> Encontrei muita coisa no CPAN, mas os que me chamaram a atenção  
> como o DateTime, não encontro como alternativa de intalação para o  
> Windows através do PPM.
>
> Alguém tem alguma sugestão?

   Eu sugiro que você procure outra alterantiva para usar como chave  
primária desta tabela, Márcio.

   A data e hora, a pesar de parecerem boas alternativas, não  
funcionam bem para alguns casos "especiais".

   Reveja a sua modelagem e traga a discussão para a lista, que aqui  
tem muitos engenheiros de software muito bem qualificados para te  
ajudar. :-)

   E, se eu estiver falando bobagem (tem uma grande chance de eu  
estar ;-), por favor me explique o que você quer fazer com alta  
resolução de tempo?

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



From ptfzs em yahoo.com.br  Mon Aug 20 05:49:58 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 20 Aug 2007 09:49:58 -0300 (ART)
Subject: [Cascavel-pm] OFF Duvida - Postgres com Perl
Message-ID: <443612.14216.qm@web31310.mail.mud.yahoo.com>

Ola Pessoal.. nao sei com postgres mas com perl tem como eu recuperar a ultima data inserida no banco..??
Tipo.. minha tabela tem o ID e a data como chave primaria.. como eu verifico a ultima data para uma dada ID inserida no banco?

Obrigada



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

From luismottacampos em yahoo.co.uk  Mon Aug 20 06:10:40 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 20 Aug 2007 15:10:40 +0200 (CEST)
Subject: [Cascavel-pm] OFF Duvida - Postgres com Perl
In-Reply-To: <443612.14216.qm@web31310.mail.mud.yahoo.com>
References: <443612.14216.qm@web31310.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0708201509010.9870@ivan.bitbistro.com>

On Mon, 20 Aug 2007, Patty Silva wrote:

> Ola Pessoal.. nao sei com postgres mas com perl tem como eu recuperar a 
> ultima data inserida no banco..?? Tipo.. minha tabela tem o ID e a data 
> como chave primaria.. como eu verifico a ultima data para uma dada ID 
> inserida no banco?

   Nao me parece um problema.
   Voce tem apenas de usar os recursos que a base de dados te oferece, e 
fazer um SELECT:

   SELECT id, MAX(data)
   FROM tabela
   WHERE id = ?
   LIMIT 1

   Assumindo, claro, que a "ultima data" inserida eh tambem a "mais 
recente" para um determinado id... ;-)
   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From lorn.br em gmail.com  Mon Aug 20 09:17:42 2007
From: lorn.br em gmail.com (Lorn)
Date: Mon, 20 Aug 2007 13:17:42 -0300
Subject: [Cascavel-pm] [OT] A Guide to Hiring Programmers: The High Cost of
	Low Quality
Message-ID: <bb8590d00708200917v2a1492fdm1968689e8ab88a7@mail.gmail.com>

http://blog.revsys.com/2007/08/a-guide-to-hiri.html

Passem para seus chefes :)

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

From nferraz em gmail.com  Mon Aug 20 10:31:33 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 20 Aug 2007 18:31:33 +0100
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
Message-ID: <604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>

>    Eu sugiro que você procure outra alterantiva para usar como chave
> primária desta tabela, Márcio.
>
>    A data e hora, a pesar de parecerem boas alternativas, não
> funcionam bem para alguns casos "especiais".

Er... eu acho que você confundiu as perguntas! Quem falou sobre usar
uma data como chave primária foi a Patty, numa outra thread. :-)

E eu concordo com a sua resposta. ;-)

[]s

Nelson

From jhef_bioinfo em yahoo.com.br  Mon Aug 20 11:49:22 2007
From: jhef_bioinfo em yahoo.com.br (Jeferson Martins Gomes)
Date: Mon, 20 Aug 2007 11:49:22 -0700 (PDT)
Subject: [Cascavel-pm] Problema com o modulo Proxy.pm do DBI WinXP
Message-ID: <78424.55480.qm@web30313.mail.mud.yahoo.com>

Estou tentando rodar o script abaixo, mas esta aparecendo um erro com o driver proxy.ppm, ja tentei baixar no ppm mas não encontro.

#!/usr/bin/perl -w
#
# ch04/listdsns: Enumerates all data sources and all installed drivers
#
use DBI;
### Probe DBI for the installed drivers
my @drivers = DBI->available_drivers();
die "No drivers found!\n" unless @drivers; # should never happen

### Iterate through the drivers and list the data sources for each one
foreach my $driver ( @drivers ) {
print "Driver: $driver\n";
my @dataSources = DBI->data_sources( $driver );
foreach my $dataSource ( @dataSources ) {
print "\tData Source is $dataSource\n";
}
print "\n";
}
exit;

O erro fala que a compilação do modulo teve que ser abortada, ou ouve falha na complilação modulo DBD::Proxy

Ajuda por favor :)


      Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070820/ead2c944/attachment.html 

From mmmferreira em gmail.com  Mon Aug 20 12:27:04 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Mon, 20 Aug 2007 16:27:04 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
Message-ID: <ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>

Luis,

vc está certíssimo, essa era idéia mesmo.
A questão é que não queremos usar um id que seja simplesmente um incremento.
Nos parece que o sistema, ainda mais sendo web, fica muito vulnerável.
Alguém tem alguma sugestão?

Márcio Ferreira

Em 20/08/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> On Aug 17, 2007, at 8:03 PM, Marcio Ferreira wrote:
> > Pessoal,
> > mesmo não postado nada, nem feito perguntas o conteúdo do histórico
> > da lista rtem me ajudado imensamente, foi através dele que
> > encontrei o DBIx::Class que tornou a minha vida de programador
> > muito mais simples.
> >
> > Bem, estou procurando algo que possa me retornar o dia e a hora com
> > pelo menos os centésimos de segundo (com nanos seria melhor).
> > Encontrei muita coisa no CPAN, mas os que me chamaram a atenção
> > como o DateTime, não encontro como alternativa de intalação para o
> > Windows através do PPM.
> >
> > Alguém tem alguma sugestão?
>
>    Eu sugiro que você procure outra alterantiva para usar como chave
> primária desta tabela, Márcio.
>
>    A data e hora, a pesar de parecerem boas alternativas, não
> funcionam bem para alguns casos "especiais".
>
>    Reveja a sua modelagem e traga a discussão para a lista, que aqui
> tem muitos engenheiros de software muito bem qualificados para te
> ajudar. :-)
>
>    E, se eu estiver falando bobagem (tem uma grande chance de eu
> estar ;-), por favor me explique o que você quer fazer com alta
> resolução de tempo?
>
>    Putamplexos adivinhos. ;-)
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From agnaldo em starweb-software.com.br  Mon Aug 20 12:33:32 2007
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Mon, 20 Aug 2007 16:33:32 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com><284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
Message-ID: <01f301c7e360$ffc93350$6601a8c0@swmobile>


As "sequence" de banco são bem seguras quanto a isso, pois o próprio banco as gerencia.



  ----- Original Message ----- 
  From: Marcio Ferreira 
  To: Cascavel Perl Mongers 
  Sent: Monday, August 20, 2007 4:27 PM
  Subject: Re: [Cascavel-pm] Tempo com centesimos, mili e nano segundos


  Luis,

  vc está certíssimo, essa era idéia mesmo.
  A questão é que não queremos usar um id que seja simplesmente um incremento. Nos parece que o sistema, ainda mais sendo web, fica muito vulnerável.
  Alguém tem alguma sugestão? 

  Márcio Ferreira


  Em 20/08/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu: 
    On Aug 17, 2007, at 8:03 PM, Marcio Ferreira wrote:
    > Pessoal,
    > mesmo não postado nada, nem feito perguntas o conteúdo do histórico 
    > da lista rtem me ajudado imensamente, foi através dele que
    > encontrei o DBIx::Class que tornou a minha vida de programador
    > muito mais simples.
    >
    > Bem, estou procurando algo que possa me retornar o dia e a hora com 
    > pelo menos os centésimos de segundo (com nanos seria melhor).
    > Encontrei muita coisa no CPAN, mas os que me chamaram a atenção
    > como o DateTime, não encontro como alternativa de intalação para o
    > Windows através do PPM.
    >
    > Alguém tem alguma sugestão?

       Eu sugiro que você procure outra alterantiva para usar como chave
    primária desta tabela, Márcio.

       A data e hora, a pesar de parecerem boas alternativas, não 
    funcionam bem para alguns casos "especiais".

       Reveja a sua modelagem e traga a discussão para a lista, que aqui
    tem muitos engenheiros de software muito bem qualificados para te
    ajudar. :-)

       E, se eu estiver falando bobagem (tem uma grande chance de eu
    estar ;-), por favor me explique o que você quer fazer com alta
    resolução de tempo?

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


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




  -- 
  www.Empregar.com 


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


  _______________________________________________
  Cascavel-pm mailing list
  Cascavel-pm em pm.org
  http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070820/eb82bc31/attachment.html 

From lgbassani em terra.com.br  Mon Aug 20 12:37:42 2007
From: lgbassani em terra.com.br (Luciano Giordani Bassani)
Date: Mon, 20 Aug 2007 16:37:42 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
Message-ID: <46C9ED86.7060003@terra.com.br>

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

From luismottacampos em yahoo.co.uk  Mon Aug 20 12:38:46 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 20 Aug 2007 21:38:46 +0200 (CEST)
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0708202137540.10867@ivan.bitbistro.com>

On Mon, 20 Aug 2007, Marcio Ferreira wrote:

> Luis,
>
> vc está certíssimo, essa era idéia mesmo.
> A questão é que não queremos usar um id que seja simplesmente um incremento.
> Nos parece que o sistema, ainda mais sendo web, fica muito vulnerável.
> Alguém tem alguma sugestão?
>
> Márcio Ferreira

   Se esta for sua tabela de "sessões", eu recomendo que vocêse esqueça 
que escreveu estes emails, use um incremento, e não me chateie mais ;-)

   Eu acho que esta � �uma tabela de logs... sendo assim, eu recomendo 
que voce me informe quais os campos que voce est� �registrando 
atividade, para eu saber quais opçà µede chave que vocêtem disponíveis.

   Agora, se voc� tiver alguma outra informaçãsobre a tabela, ajudaria 
muito para eu saber do que você está falaando... ;-)

   Normalmente, tabelas bem modeladas tem Chaves Naturais, alguns valores 
que são*mesmo* a chave da tabela.

   Aguardo mais informações.
   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From luismottacampos em yahoo.co.uk  Mon Aug 20 12:40:08 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 20 Aug 2007 21:40:08 +0200 (CEST)
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>

On Mon, 20 Aug 2007, Nelson Ferraz wrote:
>>    Eu sugiro que você procure outra alterantiva para usar como chave
>> primária desta tabela, Márcio.
>>
>>    A data e hora, a pesar de parecerem boas alternativas, não
>> funcionam bem para alguns casos "especiais".
>
> Er... eu acho que você confundiu as perguntas! Quem falou sobre usar
> uma data como chave primária foi a Patty, numa outra thread. :-)
>
> E eu concordo com a sua resposta. ;-)

   Caro e carissimo Nelson ;-)
   Nao, eu nao confundi as respostas.
   Eu "adivinhei" o que se passava (veja a mensagem do Marcio confirmando). 
Jah vi este filme algumas centenas de vezes ;-)

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From luismottacampos em yahoo.co.uk  Mon Aug 20 12:45:45 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 20 Aug 2007 21:45:45 +0200 (CEST)
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <46C9ED86.7060003@terra.com.br>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<46C9ED86.7060003@terra.com.br>
Message-ID: <Pine.LNX.4.64.0708202143490.10867@ivan.bitbistro.com>

On Mon, 20 Aug 2007, Luciano Giordani Bassani wrote:

> Bom, eu tive um caso similar, e resolvi da seguinte forma:
> 
> $ID = time;
> $ID .= int(rand 99999)+1;
> 
> Basicamente eu pego a hora e depois acrescento um numero aleatorio. Claro que nao
> esta esgotada a possibilidade de se ter uma duplicacao, mas a probabilidade e
> praticamente nula. Alem do mais, se der duplicidade, vai dar erro no insert.
> Existe a possbilidade de tu seres ainda mais "neurotico" e pegar a hora + numero
> aleatorio + incremento...

   Desculpe, Luciano, mas isso é merda da boa.
   Você não está garantindo nada, apenas está tendo certeza de que vai 
aparecer um erro misterioso mais para frente que você nãovai conseguir 
consertar nunca...

   Se voce não encontrou uma chave natural na sua base de dado, pelo menos 
use uma chave artificial que você consiga reproduzir e interpretar mais 
tarde...

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From mmmferreira em gmail.com  Mon Aug 20 13:20:12 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Mon, 20 Aug 2007 17:20:12 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <Pine.LNX.4.64.0708202137540.10867@ivan.bitbistro.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<Pine.LNX.4.64.0708202137540.10867@ivan.bitbistro.com>
Message-ID: <ab9b7e900708201320q1e55b8e6ve221c7c09627d6f2@mail.gmail.com>

Luis,

Não se trata de uma tabela de sessions (o CGI::Session já faz um trabalho
muito bom controlando isso) ou de logs (existem módulos muito bons para
isso, não estou querendo reescrever a roda), estou querendo usar um  ID
único que não seja sequencial ou facilmente traqueável.

Eu acabei de ler sobre GUID/UUID, alguém já usou? Recomenda? Desaconselha?

Márcio Ferreira

Em 20/08/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> On Mon, 20 Aug 2007, Marcio Ferreira wrote:
>
> > Luis,
> >
> > vc está certíssimo, essa era idéia mesmo.
> > A questão é que não queremos usar um id que seja simplesmente um
> incremento.
> > Nos parece que o sistema, ainda mais sendo web, fica muito vulnerável.
> > Alguém tem alguma sugestão?
> >
> > Márcio Ferreira
>
>    Se esta for sua tabela de "sessões", eu recomendo que vocêse esqueça
> que escreveu estes emails, use um incremento, e não me chateie mais ;-)
>
>    Eu acho que esta � �uma tabela de logs... sendo assim, eu recomendo
> que voce me informe quais os campos que voce est� �registrando
> atividade, para eu saber quais opçà µede chave que vocêtem disponíveis.
>
>    Agora, se voc� tiver alguma outra informaçãsobre a tabela, ajudaria
> muito para eu saber do que você está falaando... ;-)
>
>    Normalmente, tabelas bem modeladas tem Chaves Naturais, alguns valores
> que são*mesmo* a chave da tabela.
>
>    Aguardo mais informações.
>    Putamplexos!
> --
> Luis Motta Campos
> Perl Programmer, Hobbyist Cook and Photographer
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From mmmferreira em gmail.com  Mon Aug 20 13:14:01 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Mon, 20 Aug 2007 17:14:01 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <01f301c7e360$ffc93350$6601a8c0@swmobile>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<01f301c7e360$ffc93350$6601a8c0@swmobile>
Message-ID: <ab9b7e900708201314j68bac19bh87e8335ab04d8954@mail.gmail.com>

Sim, são bem seguras quanto a duplicidade e integridade.
Meu ponto é evitar que os dados possam ser facilmente acessados simplesmente
mudando o id do registro sendo acessado através da URL (metodo GET), ou até
mesmo que usem Robôs para isso (metodo POST).
Se for um incremento (1, 2, 3, 4, ...) fica muito fácil. entendeu?

Márcio Ferreira

Em 20/08/07, Agnaldo Macedo <agnaldo em starweb-software.com.br> escreveu:
>
>
> As "sequence" de banco são bem seguras quanto a isso, pois o próprio banco
> as gerencia.
>
>
>
>
> ----- Original Message -----
> *From:* Marcio Ferreira <mmmferreira em gmail.com>
> *To:* Cascavel Perl Mongers <cascavel-pm em pm.org>
> *Sent:* Monday, August 20, 2007 4:27 PM
> *Subject:* Re: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
>
> Luis,
>
> vc está certíssimo, essa era idéia mesmo.
> A questão é que não queremos usar um id que seja simplesmente um
> incremento. Nos parece que o sistema, ainda mais sendo web, fica muito
> vulnerável.
> Alguém tem alguma sugestão?
>
> Márcio Ferreira
>
> Em 20/08/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
> >
> > On Aug 17, 2007, at 8:03 PM, Marcio Ferreira wrote:
> > > Pessoal,
> > > mesmo não postado nada, nem feito perguntas o conteúdo do histórico
> > > da lista rtem me ajudado imensamente, foi através dele que
> > > encontrei o DBIx::Class que tornou a minha vida de programador
> > > muito mais simples.
> > >
> > > Bem, estou procurando algo que possa me retornar o dia e a hora com
> > > pelo menos os centésimos de segundo (com nanos seria melhor).
> > > Encontrei muita coisa no CPAN, mas os que me chamaram a atenção
> > > como o DateTime, não encontro como alternativa de intalação para o
> > > Windows através do PPM.
> > >
> > > Alguém tem alguma sugestão?
> >
> >    Eu sugiro que você procure outra alterantiva para usar como chave
> > primária desta tabela, Márcio.
> >
> >    A data e hora, a pesar de parecerem boas alternativas, não
> > funcionam bem para alguns casos "especiais".
> >
> >    Reveja a sua modelagem e traga a discussão para a lista, que aqui
> > tem muitos engenheiros de software muito bem qualificados para te
> > ajudar. :-)
> >
> >    E, se eu estiver falando bobagem (tem uma grande chance de eu
> > estar ;-), por favor me explique o que você quer fazer com alta
> > resolução de tempo?
> >
> >    Putamplexos adivinhos. ;-)
> > --
> > Luis Motta Campos ( a.k.a. Monsieur Champs) is a software engineer,
> > Perl fanatic evangelist, and amateur {cook, photographer}
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> www.Empregar.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
>



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

From igor.sutton em yahoo.co.uk  Mon Aug 20 13:26:13 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Mon, 20 Aug 2007 22:26:13 +0200
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <ab9b7e900708201314j68bac19bh87e8335ab04d8954@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<01f301c7e360$ffc93350$6601a8c0@swmobile>
	<ab9b7e900708201314j68bac19bh87e8335ab04d8954@mail.gmail.com>
Message-ID: <B6E81AAC-3CF4-4907-B587-3CC62EE8BAF1@yahoo.co.uk>

On Aug 20, 2007, at 10:14 PM, Marcio Ferreira wrote:

> Sim, são bem seguras quanto a duplicidade e integridade.
> Meu ponto é evitar que os dados possam ser facilmente acessados  
> simplesmente mudando o id do registro sendo acessado através da URL  
> (metodo GET), ou até mesmo que usem Robôs para isso (metodo POST).
> Se for um incremento (1, 2, 3, 4, ...) fica muito fácil. entendeu?
>

Acho que você está com problema de análise de requisitos: se seus  
dados são sensíveis, você deve dar a eles um dono, e solicitar  
autenticação para visualizá-los. Você está querendo se proteger  
através da obscuridade ao invés de dar a segurança necessária.

Meus ?0,02 ;-)

- Igor


From acid06 em gmail.com  Mon Aug 20 13:26:41 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 20 Aug 2007 17:26:41 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <ab9b7e900708201314j68bac19bh87e8335ab04d8954@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<01f301c7e360$ffc93350$6601a8c0@swmobile>
	<ab9b7e900708201314j68bac19bh87e8335ab04d8954@mail.gmail.com>
Message-ID: <9a08c9b40708201326n76b0d6cbt9344522cf7499e06@mail.gmail.com>

On 8/20/07, Marcio Ferreira <mmmferreira em gmail.com> wrote:
> Meu ponto é evitar que os dados possam ser facilmente acessados simplesmente
> mudando o id do registro sendo acessado através da URL (metodo GET), ou até
> mesmo que usem Robôs para isso (metodo POST).
> Se for um incremento (1, 2, 3, 4, ...) fica muito fácil. entendeu?

Por isso você deve implementar um controle de acesso adequado ao invés
de confiar em práticas de "security through obscurity". Usar um ID não
seqüencial por causa disso é uma tremenda violação de camadas e que
não faz nada para atingir o seu objetivo real, trata-se apenas de um
"remendo".

Se os dados são realmente públicos, não existe problema algum em
qualquer pessoa ver apenas alterando os números seqüencialmente. Por
outro lado, se os dados são privados, as pessoas não deveriam poder
acessar a página sem autorização mesmo que "acertassem" a URL.

-Nilson Santos F. Jr.

From glasswalk3r em hotmail.com  Mon Aug 20 13:57:02 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Mon, 20 Aug 2007 23:57:02 +0300
Subject: [Cascavel-pm] Problema com o modulo Proxy.pm do DBI WinXP
Message-ID: <BAY121-W111A9B8E1B35BE4C09C419F5DB0@phx.gbl>

Já tentou os repositórios adicionais para o ActivePerl? Veja a documentação online do mesmo para adicionar esses repositórios, se já não tiver feito isso.Na falta de um pacote PPM, você sempre pode tentar baixar o tarball e compilar no Windows. Se o módulo usar C, a coisa começa a ficar complicada. A documentação do ActivePerl também inclui alguma informação sobre como fazer isso, inclusive como criar um pacote PPM.[]'sAlceuDate: Mon, 20 Aug 2007 11:49:22 -0700From: jhef_bioinfo em yahoo.com.brTo: cascavel-pm em pm.orgSubject: [Cascavel-pm] Problema com o modulo Proxy.pm do DBI WinXP

Estou tentando rodar o script abaixo, mas esta aparecendo um erro com o driver proxy.ppm, ja tentei baixar no ppm mas não encontro.#!/usr/bin/perl -w## ch04/listdsns: Enumerates all data sources and all installed drivers#use DBI;### Probe DBI for the installed driversmy @drivers = DBI->available_drivers();die "No drivers found!\n" unless @drivers; # should never happen### Iterate through the drivers and list the data sources for each oneforeach my $driver ( @drivers ) {print "Driver: $driver\n";my @dataSources = DBI->data_sources( $driver );foreach my $dataSource ( @dataSources ) {print "\tData Source is $dataSource\n";}print "\n";}exit;O erro fala que a compilação do modulo teve que ser
 abortada, ou ouve falha na complilação modulo DBD::ProxyAjuda por favor :) 


      Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

_________________________________________________________________
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/20070820/f60488d5/attachment.html 

From mnsousa em ig.com.br  Tue Aug 21 04:56:36 2007
From: mnsousa em ig.com.br (mnsousa)
Date: Tue, 21 Aug 2007 08:56:36 -0300
Subject: [Cascavel-pm] Perl e SAP
Message-ID: <20070821_115636_085516.mnsousa@ig.com.br>

Prezados, 

Gostaria de saber se alguem já trabalhou com o Perl e SAP. Preciso extrair 
uma lista de usuários para auditar, como não temos o CUA (central user 
administration), temos que entrar em cada servidor SAP para verificar se o 
usuário existe naquele servidor. Trabalho chato de despendioso. 

Pensei em extraficar estes dados e jogar numa planilha semanalmente para 
facilitar a procura. 

Como sou fã de perl a um bom tempo e uso para fazer algumas auditorias em 
windows, imaginei que alguem já tenha se deparado com esta circunstancia. 

Códigos exemplos e dicas serão bem vindos. 

Um grande abraço a todos. 

P.S: Trabalho com perl pra windows (só pra questão de referencia dos módulos 
! ;)) 



From luismottacampos em yahoo.co.uk  Tue Aug 21 05:46:49 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 21 Aug 2007 14:46:49 +0200 (CEST)
Subject: [Cascavel-pm] Perl e SAP
In-Reply-To: <20070821_115636_085516.mnsousa@ig.com.br>
References: <20070821_115636_085516.mnsousa@ig.com.br>
Message-ID: <Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>

On Tue, 21 Aug 2007, mnsousa wrote:

> Prezados,
>
> Gostaria de saber se alguem já trabalhou com o Perl e SAP. Preciso extrair
> uma lista de usuários para auditar, como não temos o CUA (central user
> administration), temos que entrar em cada servidor SAP para verificar se o
> usuário existe naquele servidor. Trabalho chato de despendioso.

   "Chato de dispendioso" eh alguma giria nova? O que voce quis dizer?


> Pensei em extraficar estes dados e jogar numa planilha semanalmente para
> facilitar a procura.

   Eu tambem nao sei o que voce quer dizer com "extraficar". Voce pode por 
favor se explicar melhor?

> Como sou fã de perl a um bom tempo e uso para fazer algumas auditorias em
> windows, imaginei que alguem já tenha se deparado com esta circunstancia.

   Bom, nao eu: eu nao conheco SAP. (sorte minha!)

> Códigos exemplos e dicas serão bem vindos.

   Eu concordo. Que talve voce explicar para a gente o que voce precisa 
com um exemplo em Perl? Assim, a gente pode ajudar voce a resolver seu 
problema melhor, mais depressa, e ainda terminar com um modulo para colocar no
CPAN...

> P.S: Trabalho com perl pra windows (só pra questão de referencia dos módulos
> ! ;))

   Lamento muito, muito mesmo por voce... coitadinho... trabalhando com 
windows o dia todo... :-( (HUA HUA HUA :-)

   Estou no aguardo de mais informacoes. Por exemplo: voce disse que 
precisa "entrar" em cada maquina e dar um comando. Como voce "entra" numa 
maquina? Elas sao assim tao grandes ;-) ?

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From otaviof em gmail.com  Tue Aug 21 06:05:48 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Tue, 21 Aug 2007 10:05:48 -0300
Subject: [Cascavel-pm] Perl e SAP
In-Reply-To: <20070821_115636_085516.mnsousa@ig.com.br>
References: <20070821_115636_085516.mnsousa@ig.com.br>
Message-ID: <8e3843570708210605l3f9faacdqfcfb6459a43ac15a@mail.gmail.com>

On 8/21/07, mnsousa <mnsousa em ig.com.br> wrote:
> Prezados,
>
> Gostaria de saber se alguem já trabalhou com o Perl e SAP. Preciso extrair
> uma lista de usuários para auditar, como não temos o CUA (central user
> administration), temos que entrar em cada servidor SAP para verificar se o
> usuário existe naquele servidor. Trabalho chato de despendioso.
>
> Pensei em extraficar estes dados e jogar numa planilha semanalmente para
> facilitar a procura.
>
> Como sou fã de perl a um bom tempo e uso para fazer algumas auditorias em
> windows, imaginei que alguem já tenha se deparado com esta circunstancia.
>
> Códigos exemplos e dicas serão bem vindos.
>
> Um grande abraço a todos.
>
> P.S: Trabalho com perl pra windows (só pra questão de referencia dos módulos
> ! ;))
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

Pelo que eu estou percebendo, você quer fazer uma rotina, que se
conecte à um banco de dados, no caso a base do SAP, e faça algumas
queries pra vc ... é isso ?

um abraço,

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

From glasswalk3r em hotmail.com  Tue Aug 21 06:26:51 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Tue, 21 Aug 2007 16:26:51 +0300
Subject: [Cascavel-pm] Perl e SAP
Message-ID: <BAY121-W43CAF14836E122F0AB08AF5D40@phx.gbl>

> To: cascavel-pm em pm.org> From: mnsousa em ig.com.br>> Gostaria de saber se alguem já trabalhou com o Perl e SAP. Preciso extrair > uma lista de usuários para auditar, como não temos o CUA (central user > administration), temos que entrar em cada servidor SAP para verificar se o > usuário existe naquele servidor. Trabalho chato de despendioso. Eu não acho que vai ser muito diferente usar Perl para acessar essas dados (você vai ter que visitar cada servidor do mesmo jeito), mas pelo menos você pode automatizar o processo.> Pensei em extraficar estes dados e jogar numa planilha semanalmente para > facilitar a procura. Eca! Excel é o inimigo número 1 do SAP! Prefira usar uma base relacional para fazer isso, mesmo que seja um SQLite da vida.> P.S: Trabalho com perl pra windows (só pra questão de referencia dos módulos Procure por alguma RFC padrão que já exista no SAP que forneça esses dados que você quer. Uma vez que exista, basta consultá-la.Se não houver, você pode verificar a possibilidade de programar uma em ABAP.Compilar o SAP::RFC no Windows pode ser um desafio e tanto... recomendo começar por aqui: http://www.piersharding.com/download/win32/Mais informação aqui: https://www.sdn.sap.com/irj/sdn/wiki?path=/display/EmTech/SAP+Scripting+FAQ&[]'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/20070821/b573692f/attachment.html 

From agnaldo em starweb-software.com.br  Tue Aug 21 06:51:47 2007
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Tue, 21 Aug 2007 10:51:47 -0300
Subject: [Cascavel-pm] Perl e SAP
References: <BAY121-W43CAF14836E122F0AB08AF5D40@phx.gbl>
Message-ID: <00c601c7e3fa$6bfa6690$6401a8c0@swmobile>


Dá uma olhada nesses dois

SAP-BC-XMLRFC
SAP-WAS-SOAP

Estão no PPM do ActivePerl


  ----- Original Message ----- 
  From: Alceu Rodrigues de Freitas Junior 
  To: Cascavel Perl Mongers 
  Sent: Tuesday, August 21, 2007 10:26 AM
  Subject: Re: [Cascavel-pm] Perl e SAP


  > To: cascavel-pm em pm.org
  > From: mnsousa em ig.com.br
  >
  > Gostaria de saber se alguem já trabalhou com o Perl e SAP. Preciso extrair 
  > uma lista de usuários para auditar, como não temos o CUA (central user 
  > administration), temos que entrar em cada servidor SAP para verificar se o 
  > usuário existe naquele servidor. Trabalho chato de despendioso. 

  Eu não acho que vai ser muito diferente usar Perl para acessar essas dados (você vai ter que visitar cada servidor do mesmo jeito), mas pelo menos você pode automatizar o processo.

  > Pensei em extraficar estes dados e jogar numa planilha semanalmente para 
  > facilitar a procura. 

  Eca! Excel é o inimigo número 1 do SAP! Prefira usar uma base relacional para fazer isso, mesmo que seja um SQLite da vida.

  > P.S: Trabalho com perl pra windows (só pra questão de referencia dos módulos 

  Procure por alguma RFC padrão que já exista no SAP que forneça esses dados que você quer. Uma vez que exista, basta consultá-la.
  Se não houver, você pode verificar a possibilidade de programar uma em ABAP.

  Compilar o SAP::RFC no Windows pode ser um desafio e tanto... recomendo começar por aqui: http://www.piersharding.com/download/win32/

  Mais informação aqui: https://www.sdn.sap.com/irj/sdn/wiki?path=/display/EmTech/SAP+Scripting+FAQ&

  []'s
  Alceu


------------------------------------------------------------------------------
  Hotmail to go? Get your Hotmail, news, sports and much more! Check out the New MSN Mobile 


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


  _______________________________________________
  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/20070821/41a44368/attachment-0001.html 

From jhef_bioinfo em yahoo.com.br  Tue Aug 21 08:12:20 2007
From: jhef_bioinfo em yahoo.com.br (Jeferson Martins Gomes)
Date: Tue, 21 Aug 2007 08:12:20 -0700 (PDT)
Subject: [Cascavel-pm] Res:  Problema com o modulo Proxy.pm do DBI WinXP
Message-ID: <360732.74142.qm@web30313.mail.mud.yahoo.com>

Ja tentei procurar no PPM .
Tambem esotu tendo um problema no modulo DBD::Msql. Descobri um tutorial para resolver o problema , mas era pra versão 5.1.8 o perl, minha versão é 5.8.8. Acho que esta ocorredo conflito.


----- Mensagem original ----
De: Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 20 de Agosto de 2007 17:57:02
Assunto: Re: [Cascavel-pm] Problema com o modulo Proxy.pm do DBI WinXP


Já tentou os repositórios adicionais para o ActivePerl? Veja a documentação online do mesmo para adicionar esses repositórios, se já não tiver feito isso.


Na falta de um pacote PPM, você sempre pode tentar baixar o tarball e compilar no Windows. Se o módulo usar C, a coisa começa a ficar complicada. A documentação do ActivePerl também inclui alguma informação sobre como fazer isso, inclusive como criar um pacote PPM.

[]'s
Alceu




Date: Mon, 20 Aug 2007 11:49:22 -0700
From: jhef_bioinfo em yahoo.com.br
To: cascavel-pm em pm.org
Subject: [Cascavel-pm] Problema com o modulo Proxy.pm do DBI WinXP


Estou tentando rodar o script abaixo, mas esta aparecendo um erro com o driver proxy.ppm, ja tentei baixar no ppm mas não encontro.

#!/usr/bin/perl -w
#
# ch04/listdsns: Enumerates all data sources and all installed drivers
#
use DBI;
### Probe DBI for the installed drivers
my @drivers = DBI->available_drivers();
die "No drivers found!\n" unless @drivers; # should never happen

### Iterate through the drivers and list the data sources for each one
foreach my $driver ( @drivers ) {
print "Driver: $driver\n";
my @dataSources = DBI->data_sources( $driver );
foreach my $dataSource ( @dataSources ) {
print "\tData Source is $dataSource\n";
}
print "\n";
}
exit;

O erro fala que a compilação do modulo teve que ser abortada, ou ouve falha na complilação modulo DBD::Proxy

Ajuda por favor :) 

Flickr agora em português. Você clica, todo mundo vê. Saiba mais. 



Change is good. See what's different about Windows Live Hotmail. Check it out!


      Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070821/91f4dc73/attachment.html 

From acid06 em gmail.com  Tue Aug 21 10:47:45 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 21 Aug 2007 14:47:45 -0300
Subject: [Cascavel-pm] Res: Problema com o modulo Proxy.pm do DBI WinXP
In-Reply-To: <360732.74142.qm@web30313.mail.mud.yahoo.com>
References: <360732.74142.qm@web30313.mail.mud.yahoo.com>
Message-ID: <9a08c9b40708211047u7ac0a737jf3236efba83d5ed6@mail.gmail.com>

On 8/21/07, Jeferson Martins Gomes <jhef_bioinfo em yahoo.com.br> wrote:
> Tambem esotu tendo um problema no modulo DBD::Msql. Descobri um tutorial
> para resolver o problema , mas era pra versão 5.1.8 o perl, minha versão é
> 5.8.8. Acho que esta ocorredo conflito.

O DBD::mysql disponível no repositório da ActiveState via PPM funciona
perfeitamente.
Que problema está ocorrendo?

-Nilson Santos F. Jr.

From nferraz em gmail.com  Tue Aug 21 11:52:08 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 21 Aug 2007 19:52:08 +0100
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <46C9ED86.7060003@terra.com.br>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<46C9ED86.7060003@terra.com.br>
Message-ID: <604cec170708211152r60c10198wd18251f1dd3d2134@mail.gmail.com>

>  Bom, eu tive um caso similar, e resolvi da seguinte forma:
>
>  $ID = time;
>  $ID .= int(rand 99999)+1;
>
>  Basicamente eu pego a hora e depois acrescento um número aleatório. Claro
> que não está esgotada a possibilidade de se ter uma duplicação, mas a
> probabilidade é praticamente nula.

Isso me lembra aquela história do programador que, ao abandonar o
emprego, deixou escondida uma linha de código num canto remoto do
sistema, redefinindo o valor de "true" para int(rand()*100), de tal
forma que o sistema se comportasse de maneira totalmente previsível
99% do tempo -- mas, de vez em quando (e com uma frequência apenas
suficiente para se tornar um incômodo) gerava comportamentos
imprevisíveis, que depois eram difíceis de serem reproduzidos.

O seu caso é um pouco melhor do que isso, mas, ainda assim, nunca é
bom contar com a sorte. Se você pensa que algo tem "probabilidade
praticamente nula" é por que cedo ou tarde *vai* acontecer. E, de
acordo com a Lei de Murphy, vai acontecer no pior momento possível: na
frente do seu chefe, quando você estiver demonstrando o sistema para o
cliente.

Melhor procurar uma solução capaz de gerar identificadores
comprovadamente únicos. :-)

-- 
Nelson Ferraz

From fernandocorrea em gmail.com  Tue Aug 21 12:13:09 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Tue, 21 Aug 2007 16:13:09 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <604cec170708211152r60c10198wd18251f1dd3d2134@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<46C9ED86.7060003@terra.com.br>
	<604cec170708211152r60c10198wd18251f1dd3d2134@mail.gmail.com>
Message-ID: <f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>

Em 21/08/07, Nelson Ferraz <nferraz em gmail.com> escreveu:
>
> >  Bom, eu tive um caso similar, e resolvi da seguinte forma:
> >
> >  $ID = time;
> >  $ID .= int(rand 99999)+1;
> >
> >  Basicamente eu pego a hora e depois acrescento um número aleatório.
> Claro
> > que não está esgotada a possibilidade de se ter uma duplicação, mas a
> > probabilidade é praticamente nula.
>
> Isso me lembra aquela história do programador que, ao abandonar o
> emprego, deixou escondida uma linha de código num canto remoto do
> sistema, redefinindo o valor de "true" para int(rand()*100), de tal
> forma que o sistema se comportasse de maneira totalmente previsível
> 99% do tempo -- mas, de vez em quando (e com uma frequência apenas
> suficiente para se tornar um incômodo) gerava comportamentos
> imprevisíveis, que depois eram difíceis de serem reproduzidos.


Teve alguém q realmente fez isso?! esse cara é um FDP de marca maior!!!


O seu caso é um pouco melhor do que isso, mas, ainda assim, nunca é
> bom contar com a sorte. Se você pensa que algo tem "probabilidade
> praticamente nula" é por que cedo ou tarde *vai* acontecer. E, de
> acordo com a Lei de Murphy, vai acontecer no pior momento possível: na
> frente do seu chefe, quando você estiver demonstrando o sistema para o
> cliente.
>
> Melhor procurar uma solução capaz de gerar identificadores
> comprovadamente únicos. :-)
>
> --
> Nelson Ferraz
> _______________________________________________
> 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/20070821/f4b83bc7/attachment.html 

From mmmferreira em gmail.com  Tue Aug 21 12:28:50 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Tue, 21 Aug 2007 16:28:50 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<46C9ED86.7060003@terra.com.br>
	<604cec170708211152r60c10198wd18251f1dd3d2134@mail.gmail.com>
	<f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>
Message-ID: <ab9b7e900708211228j461dbbf9x303661e0beae2ea5@mail.gmail.com>

Pessoal,

quero agradecer os comentários de todos, estamos revendo a arquitetura de
algumas tabelas que pensamos em usar como id primário um id artificial.
Das idéias que tinhamos com os comentários de vcs, estamos finalizando nossa
discussão observando pontos como:
1) Velocidade de Desenvolvimento
2) Simplicidade da Solução
3) Simplicidade da manutenção

(Não necessariamente nessa ordem) ;-)

Mais uma vez obrigado a todos.

Márcio Ferreira


Em 21/08/07, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
>
>
>
> Em 21/08/07, Nelson Ferraz <nferraz em gmail.com> escreveu:
> >
> > >  Bom, eu tive um caso similar, e resolvi da seguinte forma:
> > >
> > >  $ID = time;
> > >  $ID .= int(rand 99999)+1;
> > >
> > >  Basicamente eu pego a hora e depois acrescento um número aleatório.
> > Claro
> > > que não está esgotada a possibilidade de se ter uma duplicação, mas a
> > > probabilidade é praticamente nula.
> >
> > Isso me lembra aquela história do programador que, ao abandonar o
> > emprego, deixou escondida uma linha de código num canto remoto do
> > sistema, redefinindo o valor de "true" para int(rand()*100), de tal
> > forma que o sistema se comportasse de maneira totalmente previsível
> > 99% do tempo -- mas, de vez em quando (e com uma frequência apenas
> > suficiente para se tornar um incômodo) gerava comportamentos
> > imprevisíveis, que depois eram difíceis de serem reproduzidos.
>
>
> Teve alguém q realmente fez isso?! esse cara é um FDP de marca maior!!!
>
>
> O seu caso é um pouco melhor do que isso, mas, ainda assim, nunca é
> > bom contar com a sorte. Se você pensa que algo tem "probabilidade
> > praticamente nula" é por que cedo ou tarde *vai* acontecer. E, de
> > acordo com a Lei de Murphy, vai acontecer no pior momento possível: na
> > frente do seu chefe, quando você estiver demonstrando o sistema para o
> > cliente.
> >
> > Melhor procurar uma solução capaz de gerar identificadores
> > comprovadamente únicos. :-)
> >
> > --
> > Nelson Ferraz
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> []'s Fernando
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From lgbassani em terra.com.br  Tue Aug 21 13:56:38 2007
From: lgbassani em terra.com.br (Luciano Giordani Bassani)
Date: Tue, 21 Aug 2007 17:56:38 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>	<46C9ED86.7060003@terra.com.br>	<604cec170708211152r60c10198wd18251f1dd3d2134@mail.gmail.com>
	<f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>
Message-ID: <46CB5186.40703@terra.com.br>

Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070821/5a86fed1/attachment.html 

From nferraz em gmail.com  Tue Aug 21 15:19:39 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 21 Aug 2007 23:19:39 +0100
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
	<Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
Message-ID: <604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>

> > Er... eu acho que você confundiu as perguntas! Quem falou sobre usar
> > uma data como chave primária foi a Patty, numa outra thread. :-)
>
>    Caro e carissimo Nelson ;-)
>    Nao, eu nao confundi as respostas.
>    Eu "adivinhei" o que se passava (veja a mensagem do Marcio confirmando).

É... pelo jeito você terminou de implementar aquele tão prometido
módulo de leitura de pensamento... já mandou pro CPAN? :-D

[]s

Nelson

From nferraz em gmail.com  Tue Aug 21 15:20:57 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 21 Aug 2007 23:20:57 +0100
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<ab9b7e900708201227n758b88beiabb4f6b637638a59@mail.gmail.com>
	<46C9ED86.7060003@terra.com.br>
	<604cec170708211152r60c10198wd18251f1dd3d2134@mail.gmail.com>
	<f40026c0708211213g4284da3fw2255da2cd378c494@mail.gmail.com>
Message-ID: <604cec170708211520t1abf041o5904e8b6151d3bff@mail.gmail.com>

> Teve alguém q realmente fez isso?! esse cara é um FDP de marca maior!!!

Assim diz a lenda.

(Mas, até onde eu sei, é apenas uma lenda. :-D)

[]s

Nelson

From mmmferreira em gmail.com  Tue Aug 21 22:12:14 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Wed, 22 Aug 2007 02:12:14 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?criando_uma_aplica=E7=E3o_e_adiciona?=
	=?iso-8859-1?q?ndo_m=F3dulos?=
Message-ID: <ab9b7e900708212212x64da25d1w9cf3366fe0a193d5@mail.gmail.com>

Pessoal,

tenho uma aplicação que iniciaremos o desenvolvimento em breve.
Está aplicação será dividida em módulos, e para cada etapa do
desenvolvimento trabalharemos em um módulo distinto que será incorporado ao
que estiver pronto.
Essa aplicação será chamada por um script de start e as configurações, menus
e opções estarão no Banco de Dados
A minha dúvida é: toda vez que adicionarmos um novo módulo teremos que mudar
o código do script de start adicionando o novo módulo, ou existe algo que
permite que o Perl utilize todos modulos que estejam numa sub pasta sem ter
que declará-los explicitamente?
Pensamos na possibilidade dos módulos estarem cadastrados no Banco de Dados
e serem chamados de forma dinâmica de acordo com o menu selecionado ou
tarefa a ser executada.

Obrigado,
Márcio Ferreira

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

From igor.sutton em yahoo.co.uk  Tue Aug 21 22:28:20 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Wed, 22 Aug 2007 07:28:20 +0200
Subject: [Cascavel-pm]
 =?iso-8859-1?q?criando_uma_aplica=E7=E3o_e_adiciona?=
 =?iso-8859-1?q?ndo_m=F3dulos?=
In-Reply-To: <ab9b7e900708212212x64da25d1w9cf3366fe0a193d5@mail.gmail.com>
References: <ab9b7e900708212212x64da25d1w9cf3366fe0a193d5@mail.gmail.com>
Message-ID: <7958D33F-8DD1-4681-A853-707F5BA0E250@yahoo.co.uk>


On Aug 22, 2007, at 7:12 AM, Marcio Ferreira wrote:

> Pessoal,
>
> tenho uma aplicação que iniciaremos o desenvolvimento em breve.
> Está aplicação será dividida em módulos, e para cada etapa do  
> desenvolvimento trabalharemos em um módulo distinto que será  
> incorporado ao que estiver pronto.
> Essa aplicação será chamada por um script de start e as  
> configurações, menus e opções estarão no Banco de Dados
> A minha dúvida é: toda vez que adicionarmos um novo módulo teremos  
> que mudar o código do script de start adicionando o novo módulo, ou  
> existe algo que permite que o Perl utilize todos modulos que  
> estejam numa sub pasta sem ter que declará-los explicitamente?
> Pensamos na possibilidade dos módulos estarem cadastrados no Banco  
> de Dados e serem chamados de forma dinâmica de acordo com o menu  
> selecionado ou tarefa a ser executada.

O módulo 'Module::Pluggable' faz este trabalho prá você. Você define  
o namespace que estão os seus 'plugins' e voi lá.

Boa sorte!

- Igor


From luismottacampos em yahoo.co.uk  Wed Aug 22 00:56:59 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 22 Aug 2007 09:56:59 +0200 (CEST)
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
	<Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
	<604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0708220956120.16207@ivan.bitbistro.com>

On Tue, 21 Aug 2007, Nelson Ferraz wrote:
> > > Er... eu acho que você confundiu as perguntas! Quem falou sobre usar
> > > uma data como chave primária foi a Patty, numa outra thread. :-)
> > 
> >    Caro e carissimo Nelson ;-)
> >    Nao, eu nao confundi as respostas.
> >    Eu "adivinhei" o que se passava (veja a mensagem do Marcio confirmando).
> 
> É... pelo jeito você terminou de implementar aquele tão prometido
> módulo de leitura de pensamento... já mandou pro CPAN? :-D

   Nelson++ # eu dei bastante risada!

   Na realidade, eu pedi um ID no PAUSE, mas ainda nao tive coragem de publicar
um modulo. Eu comecei a implementar uma pequena factory de Iterators baseados em
closures, mas, infelizmente, nao consegui fazer uma diferenca sensivel entre o
meu modulo e o Iterator, um modulo antigo do CPAN, que estah muito bem
implementado e faz o trabalho direito.

   Assim, eu ainda estou "virgem", sem nenhum modulo publicado, por que eu nao
consegui pensar em nada interessante que pudesse ser util para as outras pessoas
e que nao estivesse razoavelmente implementado no CPAN.

   Eu estou pensando em trabalhar com agentes autonomos inteligentes, mas este eh
um assunto complicado para publicar sem algum estudo (pelo menos, para mim).

   Outra ideia que eu penso em implementar eh um simulador de redes de petri, mas
ainda estah muito crua para eu colocar no ar...

   Eu gostaria de ter outras sugestoes de voces.

   E nao, como voces podem ver, meu modulo de leitura de pensamento nao estah aa
caminho do CPAN... ;-)

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From glasswalk3r em hotmail.com  Wed Aug 22 06:10:31 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Wed, 22 Aug 2007 16:10:31 +0300
Subject: [Cascavel-pm] =?windows-1252?q?_RE=3A__criando_uma_aplica=E7=E3o_?=
 =?windows-1252?q?e_adicionando_m=F3dulos?=
Message-ID: <BAY121-W9114E7936A7C4F68B6B8EF5D50@phx.gbl>

> From: igor.sutton em yahoo.co.uk> Date: Wed, 22 Aug 2007 07:28:20 +0200>> O módulo 'Module::Pluggable' faz este trabalho prá você. Você define  > o namespace que estão os seus 'plugins' e voi lá.++Igor pela dica do módulo--Igor pelo francês ruim (voilà) :-)[]'sAlceu
_________________________________________________________________
Make every IM count. Download Windows Live Messenger and join the i?m Initiative now. It?s free. 
http://im.live.com/messenger/im/home/?source=TAGWL_June07
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070822/da6f2353/attachment.html 

From karentaga em gmail.com  Wed Aug 22 09:02:12 2007
From: karentaga em gmail.com (Karen Taga)
Date: Wed, 22 Aug 2007 13:02:12 -0300
Subject: [Cascavel-pm] perl + apache
Message-ID: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>

Tenho duas versões de um projeto em um servidor, proj1 e proj2. Há pacotes
com o mesmo nome  em ambos. Quando acesso pelo browser o proj2, os pacotes
do proj1 são "chamados"... alguém tem alguma idéia do que seja?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070822/6a10ca7a/attachment.html 

From karentaga em gmail.com  Wed Aug 22 09:02:12 2007
From: karentaga em gmail.com (Karen Taga)
Date: Wed, 22 Aug 2007 13:02:12 -0300
Subject: [Cascavel-pm] perl + apache
Message-ID: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>

Tenho duas versões de um projeto em um servidor, proj1 e proj2. Há pacotes
com o mesmo nome  em ambos. Quando acesso pelo browser o proj2, os pacotes
do proj1 são "chamados"... alguém tem alguma idéia do que seja?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070822/6a10ca7a/attachment-0001.html 

From nferraz em gmail.com  Wed Aug 22 09:28:22 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 22 Aug 2007 17:28:22 +0100
Subject: [Cascavel-pm] perl + apache
In-Reply-To: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>
References: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>
Message-ID: <16E53683-8D56-4129-8156-1A3688036FE6@gmail.com>

Em Aug 22, 2007, às 5:02 PM, Karen Taga escreveu:

> Tenho duas versões de um projeto em um servidor, proj1 e proj2. Há  
> pacotes com o mesmo nome  em ambos. Quando acesso pelo browser o  
> proj2, os pacotes do proj1 são "chamados"... alguém tem alguma  
> idéia do que seja?

Se você estiver falando de duas versões de um mesmo pacote, e se os  
pacotes da versão 1 puderem ser substituidos pelos pacotes da versão  
2, talvez você possa simplesmente atualizar a versão instalada:

	cd Foo # diretorio de desenvolvimento do pacote

	perl Makefile.PL
	make
	make test
	make install

Mas se este for apenas um conflito de nomes entre dois módulos  
completamente diferentes, talvez você deva repensar o seu namespace.  
Que tal alguma coisa como:

	package Project1::Foo;
	package Project2::Foo;
	package Project3::Foo;

Esta é a melhor solução a médio e longo prazo.

Contudo, se você quiser uma solução imediata, pode especificar o  
diretório onde os pacotes corretos estão instalados:

	use lib '/usr/lib/project1';
	use Foo;

E no outro projeto:

	use lib '/usr/lib/project2';
	use Foo;

Observe, porém, que este é um remendo -- você realmente deveria rever  
seu namespace.

[]s

Nelson

From fglock em gmail.com  Wed Aug 22 09:29:38 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Wed, 22 Aug 2007 17:29:38 +0100
Subject: [Cascavel-pm] perl + apache
In-Reply-To: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>
References: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>
Message-ID: <aa47605d0708220929s5b66640aj5f63dc24c1e9996b@mail.gmail.com>

Uma forma de resolver isto é com o comando 'lib' do Perl.
Veja a documentação em:

  perldoc lib

Se você estiver usando mod_perl, isto não irá resolver o problema,
pois os dois projetos compartilharão o @INC global.

- Flavio S. Glock

Em 22/08/07, Karen Taga<karentaga em gmail.com> escreveu:
> Tenho duas versões de um projeto em um servidor, proj1 e proj2. Há pacotes
> com o mesmo nome  em ambos. Quando acesso pelo browser o proj2, os pacotes
> do proj1 são "chamados"... alguém tem alguma idéia do que seja?
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From ptfzs em yahoo.com.br  Wed Aug 22 10:48:06 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 22 Aug 2007 14:48:06 -0300 (ART)
Subject: [Cascavel-pm] Duvida expressao regular
Message-ID: <29863.65998.qm@web31301.mail.mud.yahoo.com>

Ola Pessoal..
alguem pode me explicar essa expressao regular?

$returnVal=~ m{<A NAME=.tabA.>(.*?)</TABLE>}s or die "Can't find the population table\n";

o pq do { e desse s??

Obrigada

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

From edencardim em gmail.com  Wed Aug 22 10:59:15 2007
From: edencardim em gmail.com (eden)
Date: Wed, 22 Aug 2007 14:59:15 -0300
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <29863.65998.qm@web31301.mail.mud.yahoo.com>
References: <29863.65998.qm@web31301.mail.mud.yahoo.com>
Message-ID: <3de55ead0708221059q1e6d28adj51b68d4488edb11b@mail.gmail.com>

On 8/22/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Ola Pessoal..
> alguem pode me explicar essa expressao regular?
>
> $returnVal=~ m{<A NAME=.tabA.>(.*?)</TABLE>}s or die "Can't find the
> population table\n";
>
> o pq do { e desse s??

O operador m// aceita qualquer caracter como delimitador, o
implementador dessa expressão decidiu usar chaves.
O 's' é um modificador que faz o padrão '.' adicionalmente casar com
caracteres de nova linha, o que não ocorre normalmente.

vide:
perldoc perlre

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Wed Aug 22 11:02:24 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 22 Aug 2007 15:02:24 -0300 (ART)
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <3de55ead0708221059q1e6d28adj51b68d4488edb11b@mail.gmail.com>
Message-ID: <158742.40409.qm@web31314.mail.mud.yahoo.com>

continuo sem entender  o " s" no final :P
eu tentei tirar o { e colocar // nao funciona

:D

Obrigada

eden <edencardim em gmail.com> escreveu: On 8/22/07, Patty Silva 
 wrote:
> Ola Pessoal..
> alguem pode me explicar essa expressao regular?
>
> $returnVal=~ m{(.*?)}s or die "Can't find the
> population table\n";
>
> o pq do { e desse s??

O operador m// aceita qualquer caracter como delimitador, o
implementador dessa expressão decidiu usar chaves.
O 's' é um modificador que faz o padrão '.' adicionalmente casar com
caracteres de nova linha, o que não ocorre normalmente.

vide:
perldoc perlre

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



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

From wendelscardua em gmail.com  Wed Aug 22 11:03:05 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Wed, 22 Aug 2007 15:03:05 -0300
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <29863.65998.qm@web31301.mail.mud.yahoo.com>
References: <29863.65998.qm@web31301.mail.mud.yahoo.com>
Message-ID: <726229b50708221103m5d890b97lc0218c92a15586fb@mail.gmail.com>

# modo RTFM:
perldoc perlre   # :-p

# modo bonzinho:

Você pode usar /regexp/  quando a regexp é delimitada por /.../.

Mas você pode usar outros delimitadores em vez de /.../ . Porém para isso é
necessário o m .

Então m{regexp}  é a mesma coisa que /regexp/, ou m em regexp@, ou m:regexp:  .


Em geral, o símbolo que vem depois do "m" é o símbolo que vai fechar a
regexp. (como em m em regexp@, ou m:regexp:). Mas se o símbolo é um
abre-algumacoisa, a regexp fecha com o fecha-algumacoisa ( como em m{regexp}
, m(regexp), m[regexp] ).

E finalmente, depois de uma regexp você coloca diversas opções. a opção /s
faz com que o operador ponto (.) case com "\n" . Sem ele, sua regexp só
casaria com o <A NAME....  ....</TABLE> se tudo estivesse na mesma linha.

[]s

Wendel

On 8/22/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> Ola Pessoal..
> alguem pode me explicar essa expressao regular?
>
> $returnVal=~ m{<A NAME=.tabA.>(.*?)</TABLE>}s or die "Can't find the
> population table\n";
>
> o pq do { e desse s??
>
> Obrigada
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070822/a6ec5bc6/attachment.html 

From thomas em tcnet.com.br  Wed Aug 22 11:08:41 2007
From: thomas em tcnet.com.br (Thomas Britis)
Date: Wed, 22 Aug 2007 15:08:41 -0300
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <158742.40409.qm@web31314.mail.mud.yahoo.com>
References: <158742.40409.qm@web31314.mail.mud.yahoo.com>
Message-ID: <46CC7BA9.7040604@tcnet.com.br>

Você pode tirar o { e trocar por /, mas não se esqueça que você tem que 
escapar as próximas / com \.

Quanto ao s, vc não leu o perldoc :)
        s   Treat string as single line.  That is, change "." to match any
            character whatsoever, even a newline, which normally it 
would not
            match.


Patty Silva wrote:
> continuo sem entender  o " s" no final :P
> eu tentei tirar o { e colocar // nao funciona
> 
> :D
> 
> Obrigada
> 
> */eden <edencardim em gmail.com>/* escreveu:
> 
>     On 8/22/07, Patty Silva wrote:
>      > Ola Pessoal..
>      > alguem pode me explicar essa expressao regular?
>      >
>      > $returnVal=~ m{(.*?)}s or die "Can't find the
>      > population table\n";
>      >
>      > o pq do { e desse s??
> 
>     O operador m// aceita qualquer caracter como delimitador, o
>     implementador dessa expressão decidiu usar chaves.
>     O 's' é um modificador que faz o padrão '.' adicionalmente casar com
>     caracteres de nova linha, o que não ocorre normalmente.
> 
>     vide:
>     perldoc perlre
> 
>     -- 
>     edenc.vox.com
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> Flickr agora em português. Você clica, todo mundo vê. Saiba mais 
> <http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/>.
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA

From edencardim em gmail.com  Wed Aug 22 11:09:45 2007
From: edencardim em gmail.com (eden)
Date: Wed, 22 Aug 2007 15:09:45 -0300
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <158742.40409.qm@web31314.mail.mud.yahoo.com>
References: <3de55ead0708221059q1e6d28adj51b68d4488edb11b@mail.gmail.com>
	<158742.40409.qm@web31314.mail.mud.yahoo.com>
Message-ID: <3de55ead0708221109l7d72e346m657e142bfdce5b04@mail.gmail.com>

On 8/22/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> continuo sem entender  o " s" no final :P
> eu tentei tirar o { e colocar // nao funciona

Quem escreveu essa expressão regular provavelmente escolheu chaves
como delimitadores porque ele quer casar com </TABLE>. Então, para não
ter que escapar o '/' ele usou chaves. Se você substituir as chaves
por barras, a expressão vai ter que ficar assim:

m/<A NAME=.tabA.>(.*?)<\/TABLE>/s

observe a barra sendo escapada: \/TABLE

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Wed Aug 22 11:31:44 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 22 Aug 2007 15:31:44 -0300 (ART)
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <3de55ead0708221109l7d72e346m657e142bfdce5b04@mail.gmail.com>
Message-ID: <562570.1355.qm@web31313.mail.mud.yahoo.com>

HUmm.. obrigada Pessoal :)
Entendi agora ...

[]ss





eden <edencardim em gmail.com> escreveu: On 8/22/07, Patty Silva 
 wrote:
> continuo sem entender  o " s" no final :P
> eu tentei tirar o { e colocar // nao funciona

Quem escreveu essa expressão regular provavelmente escolheu chaves
como delimitadores porque ele quer casar com . Então, para não
ter que escapar o '/' ele usou chaves. Se você substituir as chaves
por barras, a expressão vai ter que ficar assim:

m/(.*?)<\/TABLE>/s

observe a barra sendo escapada: \/TABLE

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



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

From ptfzs em yahoo.com.br  Wed Aug 22 11:58:23 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 22 Aug 2007 15:58:23 -0300 (ART)
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <3de55ead0708221109l7d72e346m657e142bfdce5b04@mail.gmail.com>
Message-ID: <391308.11142.qm@web31313.mail.mud.yahoo.com>

So mais uma coisa pessoal...
se eu tirar aquele ? aparentemente funcionou =... qual o objetivo do ? sendo que ja tem  *??

Obrigada

eden <edencardim em gmail.com> escreveu: On 8/22/07, Patty Silva 
 wrote:
> continuo sem entender  o " s" no final :P
> eu tentei tirar o { e colocar // nao funciona

Quem escreveu essa expressão regular provavelmente escolheu chaves
como delimitadores porque ele quer casar com . Então, para não
ter que escapar o '/' ele usou chaves. Se você substituir as chaves
por barras, a expressão vai ter que ficar assim:

m/(.*?)<\/TABLE>/s

observe a barra sendo escapada: \/TABLE

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



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

From nferraz em gmail.com  Wed Aug 22 12:29:00 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 22 Aug 2007 20:29:00 +0100
Subject: [Cascavel-pm] Duvida expressao regular
In-Reply-To: <391308.11142.qm@web31313.mail.mud.yahoo.com>
References: <3de55ead0708221109l7d72e346m657e142bfdce5b04@mail.gmail.com>
	<391308.11142.qm@web31313.mail.mud.yahoo.com>
Message-ID: <604cec170708221229u309dded5j5dd7aaeeea45ed@mail.gmail.com>

> So mais uma coisa pessoal...
> se eu tirar aquele ? aparentemente funcionou =... qual o objetivo do ? sendo
> que ja tem  *??

Você *realmente* não leu o manual... :-(

perldoc perlre

       By default, a quantified subpattern is "greedy", that is, it will match
       as many times as possible (given a particular starting location) while
       still allowing the rest of the pattern to match.  If you want it to
       match the minimum number of times possible, follow the quantifier with
       a "?".  Note that the meanings don't change, just the "greediness":

           *?     Match 0 or more times
           +?     Match 1 or more times
           ??     Match 0 or 1 time
           {n}?   Match exactly n times
           {n,}?  Match at least n times
           {n,m}? Match at least n but not more than m times

Exemplo:

           my $str = "xyzzy";

           my ($match1) = $str =~ /xy(z*)/;
           my ($match2) = $str =~ /xy(z*?)/;

           if ($match1 eq $match2) {
               print "iguais";
           } else {
               print "diferentes";
           }

Veja se são iguais ou diferentes.

-- 
Nelson Ferraz

Free Software Foundation Associate Member #3203
Projeto Software Livre Brasil (www.softwarelivre.org.br)
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital

From mopsfelder em gmail.com  Wed Aug 22 13:33:16 2007
From: mopsfelder em gmail.com (=?ISO-8859-1?Q?Murilo_Opsfelder_Ara=FAjo?=)
Date: Wed, 22 Aug 2007 17:33:16 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Utilizando_sess=E3o_em_perl?=
Message-ID: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>

Olá pessoal,

gostaria que alguém mostrasse-me, com exemplos, a utilização de sessão em perl.

PS.:
mv $flames > /dev/null
Não é possível utilizar catalyst, a aplicação já está pronta.

Muito obrigado.

-- 
Murilo Opsfelder Araújo
sysadmin and perl programmer

From nferraz em gmail.com  Wed Aug 22 14:32:52 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 22 Aug 2007 22:32:52 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Utilizando_sess=E3o_em_perl?=
In-Reply-To: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>
References: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>
Message-ID: <604cec170708221432h3b5a15f0m510b0ac830095844@mail.gmail.com>

> Olá pessoal,
>
> gostaria que alguém mostrasse-me, com exemplos, a utilização de sessão em perl.

E eu gostaria que alguém viesse fazer a faxina aqui em casa.

> PS.:
> mv $flames > /dev/null
> Não é possível utilizar catalyst, a aplicação já está pronta.

Então você usa o quê? CGI? mod_perl?

Você já leu alguma coisa sobre o Apache::Session? O CGI::Session? Viu
o CGI::Session::Tutorial?

Ajude-nos para que possamos ajudá-lo.

-- 
Nelson Ferraz

Free Software Foundation Associate Member #3203
Projeto Software Livre Brasil (www.softwarelivre.org.br)
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital

From otaviof em gmail.com  Wed Aug 22 14:37:07 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Wed, 22 Aug 2007 18:37:07 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Utilizando_sess=E3o_em_perl?=
In-Reply-To: <604cec170708221432h3b5a15f0m510b0ac830095844@mail.gmail.com>
References: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>
	<604cec170708221432h3b5a15f0m510b0ac830095844@mail.gmail.com>
Message-ID: <8e3843570708221437o2793d0deoa3efffa3c8a76d91@mail.gmail.com>

On 8/22/07, Nelson Ferraz <nferraz em gmail.com> wrote:
> > Olá pessoal,
> >
> > gostaria que alguém mostrasse-me, com exemplos, a utilização de sessão em perl.
>
> E eu gostaria que alguém viesse fazer a faxina aqui em casa.

manda um OFF Topic, as vezes alguém se cadidata !

>
> > PS.:
> > mv $flames > /dev/null
> > Não é possível utilizar catalyst, a aplicação já está pronta.
>
> Então você usa o quê? CGI? mod_perl?
>
> Você já leu alguma coisa sobre o Apache::Session? O CGI::Session? Viu
> o CGI::Session::Tutorial?
>
> Ajude-nos para que possamos ajudá-lo.
>
> --
> Nelson Ferraz
>
> Free Software Foundation Associate Member #3203
> Projeto Software Livre Brasil (www.softwarelivre.org.br)
> Sociedade Perl do Brasil (www.perl.org.br)
> Rede Livre de Compartilhamento de Cultura Digital
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From gabriel.vieira em gmail.com  Wed Aug 22 15:39:23 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Wed, 22 Aug 2007 19:39:23 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <Pine.LNX.4.64.0708220956120.16207@ivan.bitbistro.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
	<Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
	<604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>
	<Pine.LNX.4.64.0708220956120.16207@ivan.bitbistro.com>
Message-ID: <83d8367f0708221539h7ecd8ea6k9dbcba933538aa39@mail.gmail.com>

Talvez a utilização de uma encryptação (md5 ou similar) sobre o ID
resolva teu problema.
No caso a chave encryptada seria pública e seria validada pelo seu
sistema com o seu banco de dados.

Mas de qualquer forma o auto_increment é a forma mais simples e viável.

Da pra entender? :)


On 8/22/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> On Tue, 21 Aug 2007, Nelson Ferraz wrote:
> > > > Er... eu acho que você confundiu as perguntas! Quem falou sobre usar
> > > > uma data como chave primária foi a Patty, numa outra thread. :-)
> > >
> > >    Caro e carissimo Nelson ;-)
> > >    Nao, eu nao confundi as respostas.
> > >    Eu "adivinhei" o que se passava (veja a mensagem do Marcio confirmando).
> >
> > É... pelo jeito você terminou de implementar aquele tão prometido
> > módulo de leitura de pensamento... já mandou pro CPAN? :-D
>
>    Nelson++ # eu dei bastante risada!
>
>    Na realidade, eu pedi um ID no PAUSE, mas ainda nao tive coragem de publicar
> um modulo. Eu comecei a implementar uma pequena factory de Iterators baseados em
> closures, mas, infelizmente, nao consegui fazer uma diferenca sensivel entre o
> meu modulo e o Iterator, um modulo antigo do CPAN, que estah muito bem
> implementado e faz o trabalho direito.
>
>    Assim, eu ainda estou "virgem", sem nenhum modulo publicado, por que eu nao
> consegui pensar em nada interessante que pudesse ser util para as outras pessoas
> e que nao estivesse razoavelmente implementado no CPAN.
>
>    Eu estou pensando em trabalhar com agentes autonomos inteligentes, mas este eh
> um assunto complicado para publicar sem algum estudo (pelo menos, para mim).
>
>    Outra ideia que eu penso em implementar eh um simulador de redes de petri, mas
> ainda estah muito crua para eu colocar no ar...
>
>    Eu gostaria de ter outras sugestoes de voces.
>
>    E nao, como voces podem ver, meu modulo de leitura de pensamento nao estah aa
> caminho do CPAN... ;-)
>
>    Putamplexos!
> --
> Luis Motta Campos
> Perl Programmer, Hobbyist Cook and Photographer
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From acid06 em gmail.com  Wed Aug 22 15:41:08 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 22 Aug 2007 19:41:08 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <83d8367f0708221539h7ecd8ea6k9dbcba933538aa39@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
	<Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
	<604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>
	<Pine.LNX.4.64.0708220956120.16207@ivan.bitbistro.com>
	<83d8367f0708221539h7ecd8ea6k9dbcba933538aa39@mail.gmail.com>
Message-ID: <9a08c9b40708221541x7e79519ct88d960d8a83e605e@mail.gmail.com>

On 8/22/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> Talvez a utilização de uma encryptação (md5 ou similar) sobre o ID
> resolva teu problema.

MD5 não é uma função criptográfica, é uma função de hash.

-Nilson Santos F. Jr.

From gabriel.vieira em gmail.com  Wed Aug 22 15:44:33 2007
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Wed, 22 Aug 2007 19:44:33 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <9a08c9b40708221541x7e79519ct88d960d8a83e605e@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
	<Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
	<604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>
	<Pine.LNX.4.64.0708220956120.16207@ivan.bitbistro.com>
	<83d8367f0708221539h7ecd8ea6k9dbcba933538aa39@mail.gmail.com>
	<9a08c9b40708221541x7e79519ct88d960d8a83e605e@mail.gmail.com>
Message-ID: <83d8367f0708221544k51320ad6wbeefd6269a93ee17@mail.gmail.com>

Exato, queria usar outra palavra, mas ainda não me voltou à cabeça.

Mas a idéia está aí.

Desculpas e abraços ;)

On 8/22/07, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> On 8/22/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> > Talvez a utilização de uma encryptação (md5 ou similar) sobre o ID
> > resolva teu problema.
>
> MD5 não é uma função criptográfica, é uma função de hash.
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Gabriel Vieira

From karentaga em gmail.com  Wed Aug 22 17:10:24 2007
From: karentaga em gmail.com (Karen Taga)
Date: Wed, 22 Aug 2007 21:10:24 -0300
Subject: [Cascavel-pm] perl + apache
In-Reply-To: <16E53683-8D56-4129-8156-1A3688036FE6@gmail.com>
References: <ec735bfd0708220902i29ee419ch65771a6850828121@mail.gmail.com>
	<16E53683-8D56-4129-8156-1A3688036FE6@gmail.com>
Message-ID: <ec735bfd0708221710u53a45ea1o1b452f8883df1b82@mail.gmail.com>

Existem módulos em vários diretórios internos.. posso definir o namespace
Proj2::modulo em todos os modulos, ou o namespace deve ter o nome do
diretorio em que se encontram os modulos??

On 8/22/07, Nelson Ferraz <nferraz em gmail.com> wrote:
>
> Em Aug 22, 2007, às 5:02 PM, Karen Taga escreveu:
>
> > Tenho duas versões de um projeto em um servidor, proj1 e proj2. Há
> > pacotes com o mesmo nome  em ambos. Quando acesso pelo browser o
> > proj2, os pacotes do proj1 são "chamados"... alguém tem alguma
> > idéia do que seja?
>
> Se você estiver falando de duas versões de um mesmo pacote, e se os
> pacotes da versão 1 puderem ser substituidos pelos pacotes da versão
> 2, talvez você possa simplesmente atualizar a versão instalada:
>
>         cd Foo # diretorio de desenvolvimento do pacote
>
>         perl Makefile.PL
>         make
>         make test
>         make install
>
> Mas se este for apenas um conflito de nomes entre dois módulos
> completamente diferentes, talvez você deva repensar o seu namespace.
> Que tal alguma coisa como:
>
>         package Project1::Foo;
>         package Project2::Foo;
>         package Project3::Foo;
>
> Esta é a melhor solução a médio e longo prazo.
>
> Contudo, se você quiser uma solução imediata, pode especificar o
> diretório onde os pacotes corretos estão instalados:
>
>         use lib '/usr/lib/project1';
>         use Foo;
>
> E no outro projeto:
>
>         use lib '/usr/lib/project2';
>         use Foo;
>
> Observe, porém, que este é um remendo -- você realmente deveria rever
> seu namespace.
>
> []s
>
> Nelson
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070822/1de8d0b5/attachment-0001.html 

From edencardim em gmail.com  Wed Aug 22 18:39:54 2007
From: edencardim em gmail.com (eden)
Date: Wed, 22 Aug 2007 22:39:54 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Utilizando_sess=E3o_em_perl?=
In-Reply-To: <8e3843570708221437o2793d0deoa3efffa3c8a76d91@mail.gmail.com>
References: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>
	<604cec170708221432h3b5a15f0m510b0ac830095844@mail.gmail.com>
	<8e3843570708221437o2793d0deoa3efffa3c8a76d91@mail.gmail.com>
Message-ID: <3de55ead0708221839n57abc935if03ba5086814963d@mail.gmail.com>

On 8/22/07, Otávio Fernandes <otaviof em gmail.com> wrote:
> > E eu gostaria que alguém viesse fazer a faxina aqui em casa.

Os candidatos vão ter a viagem de ida e volta paga para Portugal? Se
afirmativo, vou pensar no seu caso.

-- 
edenc.vox.com

From edencardim em gmail.com  Wed Aug 22 18:41:32 2007
From: edencardim em gmail.com (eden)
Date: Wed, 22 Aug 2007 22:41:32 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Utilizando_sess=E3o_em_perl?=
In-Reply-To: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>
References: <e17dc37a0708221333k5252d20fg6bd300acb1df76bb@mail.gmail.com>
Message-ID: <3de55ead0708221841x6cc28a5du1a06cb78786f9652@mail.gmail.com>

On 8/22/07, Murilo Opsfelder Araújo <mopsfelder em gmail.com> wrote:

> Não é possível utilizar catalyst, a aplicação já está pronta.

Nada que uma refatoração não resolva :)

-- 
edenc.vox.com

From edencardim em gmail.com  Wed Aug 22 19:09:41 2007
From: edencardim em gmail.com (eden)
Date: Wed, 22 Aug 2007 23:09:41 -0300
Subject: [Cascavel-pm] Tempo com centesimos, mili e nano segundos
In-Reply-To: <83d8367f0708221539h7ecd8ea6k9dbcba933538aa39@mail.gmail.com>
References: <ab9b7e900708171103u4ad3e678o5e0ae7b9058be06b@mail.gmail.com>
	<284EDA80-3BA9-4486-A073-A68114218324@yahoo.co.uk>
	<604cec170708201031x14c9700ftbcb729688243c398@mail.gmail.com>
	<Pine.LNX.4.64.0708202138520.10867@ivan.bitbistro.com>
	<604cec170708211519w19f329c2kc057b39bd9f8d008@mail.gmail.com>
	<Pine.LNX.4.64.0708220956120.16207@ivan.bitbistro.com>
	<83d8367f0708221539h7ecd8ea6k9dbcba933538aa39@mail.gmail.com>
Message-ID: <3de55ead0708221909g708c76c6nc3f9d12a54f28d8f@mail.gmail.com>

On 8/22/07, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> Talvez a utilização de uma encryptação (md5 ou similar) sobre o ID
> resolva teu problema.
> No caso a chave encryptada seria pública e seria validada pelo seu
> sistema com o seu banco de dados.

Essa é uma solução um tanto quanto inviável, pois para saber o número
equivalente você teria que manter uma tabela de hash para poder obter
o ID equivalente. Num banco de dados grande e bastante requisitado
isso vai consumir muito espaço de memória e tempo de processamento.
Fora que você vai ter que lidar com as colisões.
É muito mais viável você autenticar o usuário e não permitir que ele
faça consultas repetidas dentro de um intervalo mínimo de tempo.

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Thu Aug 23 08:32:12 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 12:32:12 -0300 (ART)
Subject: [Cascavel-pm] Ler posicao do array..
Message-ID: <48801.19892.qm@web31305.mail.mud.yahoo.com>

Ola Pessoal tudo bem?
Tenho 1 arquivo onde leio a primeira linha e obtenho as variaveis..
so que tem um problema, eu quero ler somente as variavesi:
VAR1,VAR3,VAR5,...
Tudo bem.. isso eu consegui consegui recuperar a posicao de cada variavel..
agora pra eu pegar o valor dessas variaveis linha a linha pela posicao delas?
Como posso fazer?

Ex:
arquivo:
VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo para arquivo)
4,6,7,8,9,0.....
2,7,4,6,2,0,......
3,57,4,2,44,2,1,4,55,6......

Eu quero pegar a 
VAR5= posicao 2
VAR1= posicao3
VAR3= posicao 4
lendo linha a linha quero pegar os valores na posicao 2,3,4 

Preciso de uma luz :)



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

From glasswalk3r em hotmail.com  Thu Aug 23 08:41:58 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Thu, 23 Aug 2007 18:41:58 +0300
Subject: [Cascavel-pm] Ler posicao do array..
Message-ID: <BAY121-W21F8AE95EF3B6D4958F3E0F5D60@phx.gbl>

Date: Thu, 23 Aug 2007 12:32:12 -0300From: ptfzs em yahoo.com.brTenho 1 arquivo onde leio a primeira linha e obtenho as variaveis..so que tem um problema, eu quero ler somente as variavesi:VAR1,VAR3,VAR5,...Tudo bem.. isso eu consegui consegui recuperar a posicao de cada variavel..agora pra eu pegar o valor dessas variaveis linha a linha pela posicao delas?Ex:arquivo:VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo para arquivo)4,6,7,8,9,0.....2,7,4,6,2,0,......3,57,4,2,44,2,1,4,55,6......Eu quero pegar a VAR5= posicao 2VAR1= posicao3VAR3= posicao 4lendo linha a linha quero pegar os valores na posicao 2,3,4 Peraí... se as variáveis mudam de posição no arquivo, como você quer pegar apenas a VAR5, por exemplo, sempre pela posição 2? Acho que você não se explicou direito...Enfim, depois de ler uma linha do arquivo, você pode jogar o conteúdo em um array usando split, por exemplo... Se já estiver fazendo isso, basta ler o índice do array.Dê uma olhada em array slices (documentação) também, você pode obter os valores que quer direto do split, sem ter que instanciar um array para fazer isso.[]'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/20070823/ffa3deca/attachment.html 

From ptfzs em yahoo.com.br  Thu Aug 23 08:55:52 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 12:55:52 -0300 (ART)
Subject: [Cascavel-pm] Expressao Regular
Message-ID: <873098.12612.qm@web31304.mail.mud.yahoo.com>

Pessoal.. mais uma :) semana de perl.. 
Pra eu recuperar o campo dia eu faco:
my ($dia) = $er =~ /[0-9]{4}-[0-9]{2}-([0-9]{2}) [0-9]{2}:[0-9]{2}:[0-9]{2}/;

Tem como eu recuperar o campo Hora sem precisar fazer outra expressao? nessa msm linha??

Obrigada

[]ss



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

From fernandocorrea em gmail.com  Thu Aug 23 09:27:37 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Thu, 23 Aug 2007 13:27:37 -0300
Subject: [Cascavel-pm] Expressao Regular
In-Reply-To: <873098.12612.qm@web31304.mail.mud.yahoo.com>
References: <873098.12612.qm@web31304.mail.mud.yahoo.com>
Message-ID: <f40026c0708230927l7abe29a5vb3d4d82179de73f4@mail.gmail.com>

my ($ano, $mes, $dia, $hora, $min, $seg) = $er =~
/(\d{4})-(\d{2})-(\d{2})\s+(\d{2}):(\d{2}):(\d{2})/;

Em 23/08/07, Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
> Pessoal.. mais uma :) semana de perl..
> Pra eu recuperar o campo dia eu faco:
> my ($dia) = $er =~ /[0-9]{4}-[0-9]{2}-([0-9]{2})
> [0-9]{2}:[0-9]{2}:[0-9]{2}/;
>
> Tem como eu recuperar o campo Hora sem precisar fazer outra expressao?
> nessa msm linha??
>
> Obrigada
>
> []ss
>
>
> Flickr agora em português. Você clica, todo mundo vê. Saiba mais<http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/>.
>
>
> _______________________________________________
> 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/20070823/d7526e82/attachment.html 

From nferraz em gmail.com  Thu Aug 23 09:28:08 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 23 Aug 2007 17:28:08 +0100
Subject: [Cascavel-pm] Ler posicao do array..
In-Reply-To: <48801.19892.qm@web31305.mail.mud.yahoo.com>
References: <48801.19892.qm@web31305.mail.mud.yahoo.com>
Message-ID: <56FE6B4A-AE5A-48C4-8A37-B858FC814102@gmail.com>

> Ex:
> arquivo:
> VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo  
> para arquivo)
> 4,6,7,8,9,0.....
> 2,7,4,6,2,0,......
> 3,57,4,2,44,2,1,4,55,6......

Isso parece um trabalho para o Text::CSV::Simple

         my $parser = Text::CSV::Simple->new;
         my @data = $parser->read_file($datafile);
         print @$_ foreach @data;

         # Only want certain fields?
         my $parser = Text::CSV::Simple->new;
         $parser->want_fields(1, 2, 4, 8);
         my @data = $parser->read_file($datafile);

         # Map the fields to a hash?
         my $parser = Text::CSV::Simple->new;
         $parser->field_map(qw/id name null town/);
         my @data = $parser->read_file($datafile);

http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm





From fernandocorrea em gmail.com  Thu Aug 23 09:31:30 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Thu, 23 Aug 2007 13:31:30 -0300
Subject: [Cascavel-pm] Ler posicao do array..
In-Reply-To: <56FE6B4A-AE5A-48C4-8A37-B858FC814102@gmail.com>
References: <48801.19892.qm@web31305.mail.mud.yahoo.com>
	<56FE6B4A-AE5A-48C4-8A37-B858FC814102@gmail.com>
Message-ID: <f40026c0708230931u22609954m563710bee75ac34c@mail.gmail.com>

perl -F, -MData::Dumper -nale
'if($.==1){@VARs=map{[$_]}@F;next};push@{$VARs[$_]},$F[$_]for 0..$#F;
END{print Dumper \@VARs}' data

2007/8/23, Nelson Ferraz <nferraz em gmail.com>:
>
> > Ex:
> > arquivo:
> > VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo
> > para arquivo)
> > 4,6,7,8,9,0.....
> > 2,7,4,6,2,0,......
> > 3,57,4,2,44,2,1,4,55,6......
>
> Isso parece um trabalho para o Text::CSV::Simple
>
>          my $parser = Text::CSV::Simple->new;
>          my @data = $parser->read_file($datafile);
>          print @$_ foreach @data;
>
>          # Only want certain fields?
>          my $parser = Text::CSV::Simple->new;
>          $parser->want_fields(1, 2, 4, 8);
>          my @data = $parser->read_file($datafile);
>
>          # Map the fields to a hash?
>          my $parser = Text::CSV::Simple->new;
>          $parser->field_map(qw/id name null town/);
>          my @data = $parser->read_file($datafile);
>
> http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm
>
>
>
>
> _______________________________________________
> 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/20070823/5d4fc141/attachment-0001.html 

From nferraz em gmail.com  Thu Aug 23 09:35:34 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 23 Aug 2007 17:35:34 +0100
Subject: [Cascavel-pm] Expressao Regular
In-Reply-To: <873098.12612.qm@web31304.mail.mud.yahoo.com>
References: <873098.12612.qm@web31304.mail.mud.yahoo.com>
Message-ID: <4CA527F8-946C-4C4C-BEE7-6DEDB62D46AB@gmail.com>


Em Aug 23, 2007, às 4:55 PM, Patty Silva escreveu:

> Pessoal.. mais uma :) semana de perl..
> Pra eu recuperar o campo dia eu faco:
> my ($dia) = $er =~ /[0-9]{4}-[0-9]{2}-([0-9]{2}) [0-9]{2}:[0-9]{2}: 
> [0-9]{2}/;
>
> Tem como eu recuperar o campo Hora sem precisar fazer outra  
> expressao? nessa msm linha??

Tem... e você encontra a resposta, adivinha onde?

perldoc perlre

            if (/Time: (..):(..):(..)/) {   # parse out values
                $hours = $1;
                $minutes = $2;
                $seconds = $3;
            }



From ptfzs em yahoo.com.br  Thu Aug 23 10:42:05 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 14:42:05 -0300 (ART)
Subject: [Cascavel-pm] Ler posicao do array..
In-Reply-To: <f40026c0708230931u22609954m563710bee75ac34c@mail.gmail.com>
Message-ID: <365204.7820.qm@web31309.mail.mud.yahoo.com>

Ok OK Pessoal..
Obrigada pela Força :D

Fernando Oliveira <fernandocorrea em gmail.com> escreveu: perl -F, -MData::Dumper -nale 'if($.==1){@VARs=map{[$_]}@F;next};push@{$VARs[$_]},$F[$_]for 0..$#F; END{print Dumper \@VARs}' data

2007/8/23, Nelson Ferraz < nferraz em gmail.com>:> Ex:
> arquivo:
> VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo 
> para arquivo)
> 4,6,7,8,9,0.....
> 2,7,4,6,2,0,......
> 3,57,4,2,44,2,1,4,55,6......

Isso parece um trabalho para o Text::CSV::Simple

         my $parser = Text::CSV::Simple->new; 
         my @data = $parser->read_file($datafile);
         print @$_ foreach @data;

         # Only want certain fields?
         my $parser = Text::CSV::Simple->new;
         $parser->want_fields(1, 2, 4, 8); 
         my @data = $parser->read_file($datafile);

         # Map the fields to a hash?
         my $parser = Text::CSV::Simple->new;
         $parser->field_map(qw/id name null town/);
         my @data = $parser->read_file($datafile); 

http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm




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

 


-- 
[]'s Fernando _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

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

From ptfzs em yahoo.com.br  Thu Aug 23 10:43:55 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 14:43:55 -0300 (ART)
Subject: [Cascavel-pm] Retirar casas decimais
Message-ID: <970644.4152.qm@web31306.mail.mud.yahoo.com>

Ola Pessoal..
estou retirando as casas decimais usando o sprintf porem
se a variavel vem var=06.00;
ele retira o 0 da frente :)
tem como fazer isso de outro jeito? (me perlll é claro q tem.. :P mas como?)
:)

Obrigada + 1 vez



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

From nferraz em gmail.com  Thu Aug 23 10:54:12 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 23 Aug 2007 18:54:12 +0100
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <970644.4152.qm@web31306.mail.mud.yahoo.com>
References: <970644.4152.qm@web31306.mail.mud.yahoo.com>
Message-ID: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>

> Ola Pessoal..
> estou retirando as casas decimais usando o sprintf porem
> se a variavel vem var=06.00;
> ele retira o 0 da frente :)
> tem como fazer isso de outro jeito? (me perlll é claro q tem.. :P  
> mas como?)

Patty,

Desculpa eu ser repetitivo, mas... RTFM!!!

	perldoc -f sprintf

A resposta está lá, nas primeiras linhas:

                        # Format number with up to 8 leading zeroes
                        $result = sprintf("%08d", $number);

:-(


From joenio em gmail.com  Thu Aug 23 11:02:55 2007
From: joenio em gmail.com (Joenio Costa)
Date: Thu, 23 Aug 2007 15:02:55 -0300
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
References: <970644.4152.qm@web31306.mail.mud.yahoo.com>
	<EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
Message-ID: <65934b450708231102g5720d038u4802f4947191531a@mail.gmail.com>

Nelson,

Vamos olhar com mais calma. A sua sugestão funciona para numeros decimais.
Pelo que eu endendi Patty quer manter a parte fracionaria so seu
numero que nem sempre será 00.

Se o numero for 6.01 o printf("%02d", $number) irá imprimir apenas: 6
Mas como manter o .01 e ainda preencher com zeros a esquerda usando sprintf?

Att,

Em 23/08/07, Nelson Ferraz<nferraz em gmail.com> escreveu:
> > Ola Pessoal..
> > estou retirando as casas decimais usando o sprintf porem
> > se a variavel vem var=06.00;
> > ele retira o 0 da frente :)
> > tem como fazer isso de outro jeito? (me perlll é claro q tem.. :P
> > mas como?)
>
> Patty,
>
> Desculpa eu ser repetitivo, mas... RTFM!!!
>
>         perldoc -f sprintf
>
> A resposta está lá, nas primeiras linhas:
>
>                         # Format number with up to 8 leading zeroes
>                         $result = sprintf("%08d", $number);
>
> :-(
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


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

From nferraz em gmail.com  Thu Aug 23 11:32:29 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 23 Aug 2007 19:32:29 +0100
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <65934b450708231102g5720d038u4802f4947191531a@mail.gmail.com>
References: <970644.4152.qm@web31306.mail.mud.yahoo.com>
	<EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
	<65934b450708231102g5720d038u4802f4947191531a@mail.gmail.com>
Message-ID: <1FEA5B68-9EBE-4EA3-A0A0-215960B3D09F@gmail.com>

> Vamos olhar com mais calma. A sua sugestão funciona para numeros  
> decimais.
> Pelo que eu endendi Patty quer manter a parte fracionaria so seu
> numero que nem sempre será 00.
>
> Se o numero for 6.01 o printf("%02d", $number) irá imprimir apenas: 6
> Mas como manter o .01 e ainda preencher com zeros a esquerda usando  
> sprintf?

Ah... nesse caso eu tive que STFW:

	perl -e "printf('%05.2f', 3.14159265)"

:-)

From ptfzs em yahoo.com.br  Thu Aug 23 11:59:11 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 15:59:11 -0300 (ART)
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
Message-ID: <758171.38144.qm@web31311.mail.mud.yahoo.com>

Nelsonnn :) desculpe.. falha minha :)
1 coisa.. olhar no perldoc :)

Obrigada :D


Nelson Ferraz <nferraz em gmail.com> escreveu: > Ola Pessoal..
> estou retirando as casas decimais usando o sprintf porem
> se a variavel vem var=06.00;
> ele retira o 0 da frente :)
> tem como fazer isso de outro jeito? (me perlll é claro q tem.. :P  
> mas como?)

Patty,

Desculpa eu ser repetitivo, mas... RTFM!!!

 perldoc -f sprintf

A resposta está lá, nas primeiras linhas:

                        # Format number with up to 8 leading zeroes
                        $result = sprintf("%08d", $number);

:-(

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


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

From ptfzs em yahoo.com.br  Thu Aug 23 12:13:57 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 16:13:57 -0300 (ART)
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
Message-ID: <208604.91808.qm@web31313.mail.mud.yahoo.com>

Ola Nelson.. eu nao posso por %d nao da certo

$number=06.00;
$y = sprintf("%01d", $number);
eu quero tirar o .00 e permanecer o 06 :) entendeu :D 


Nelson Ferraz <nferraz em gmail.com> escreveu: > Ola Pessoal..
> estou retirando as casas decimais usando o sprintf porem
> se a variavel vem var=06.00;
> ele retira o 0 da frente :)
> tem como fazer isso de outro jeito? (me perlll é claro q tem.. :P  
> mas como?)

Patty,

Desculpa eu ser repetitivo, mas... RTFM!!!

 perldoc -f sprintf

A resposta está lá, nas primeiras linhas:

                        # Format number with up to 8 leading zeroes
                        $result = sprintf("%08d", $number);

:-(

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


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

From edencardim em gmail.com  Thu Aug 23 12:33:03 2007
From: edencardim em gmail.com (eden)
Date: Thu, 23 Aug 2007 16:33:03 -0300
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <208604.91808.qm@web31313.mail.mud.yahoo.com>
References: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
	<208604.91808.qm@web31313.mail.mud.yahoo.com>
Message-ID: <3de55ead0708231233l6d4cd3a9wa69c493198774678@mail.gmail.com>

On 8/23/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Ola Nelson.. eu nao posso por %d nao da certo
>
> $number=06.00;
> $y = sprintf("%01d", $number);
> eu quero tirar o .00 e permanecer o 06 :) entendeu :D

$y = '0' . sprintf("%01d", $number);

pronto

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Thu Aug 23 12:41:58 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 23 Aug 2007 16:41:58 -0300 (ART)
Subject: [Cascavel-pm] Duvida Array
Message-ID: <662229.55320.qm@web31309.mail.mud.yahoo.com>

Alguem pode me expllicar o pq nao funciona?
Assim funciona


@coins = qw(Quarter Dime Nickel Penny);
@slicecoins = @coins[0,2];
print "@slicecoins\n";

se eu trocar o 0,2 por uma variavel nao funciona:


$teste=0,2;

@coins = qw(Quarter Dime Nickel Penny);
@slicecoins = @coins[$teste];
print "@slicecoins\n";


Obrigada :)

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

From frighetti em cascavel.pm.org  Thu Aug 23 13:12:03 2007
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Thu, 23 Aug 2007 17:12:03 -0300
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <3de55ead0708231233l6d4cd3a9wa69c493198774678@mail.gmail.com>
References: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>	<208604.91808.qm@web31313.mail.mud.yahoo.com>
	<3de55ead0708231233l6d4cd3a9wa69c493198774678@mail.gmail.com>
Message-ID: <46CDEA13.8080503@cascavel.pm.org>

eden escreveu:
> On 8/23/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>> Ola Nelson.. eu nao posso por %d nao da certo
>>
>> $number=06.00;
>> $y = sprintf("%01d", $number);
>> eu quero tirar o .00 e permanecer o 06 :) entendeu :D
> 
> $y = '0' . sprintf("%01d", $number);
> 
> pronto
> 

$y = '0'.int($number);

Pronto novamente!

--
Fabiano Reese Righetti


From frighetti em cascavel.pm.org  Thu Aug 23 13:26:06 2007
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Thu, 23 Aug 2007 17:26:06 -0300
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <662229.55320.qm@web31309.mail.mud.yahoo.com>
References: <662229.55320.qm@web31309.mail.mud.yahoo.com>
Message-ID: <46CDED5E.706@cascavel.pm.org>

Patty Silva escreveu:
> Alguem pode me expllicar o pq nao funciona?
> Assim funciona
> 
> @coins = qw(Quarter Dime Nickel Penny);
> @slicecoins = @coins[0,2];
> print "@slicecoins\n";
> 
> se eu trocar o 0,2 por uma variavel nao funciona:
> 
> $teste=0,2;
> 
> @coins = qw(Quarter Dime Nickel Penny);
> @slicecoins = @coins[$teste];
> print "@slicecoins\n";
> 

    Você passou pela variável uma string no qual não é interpretada para
acessar a "fatia" do array que você esta querendo... Você tem que passar
números!

$start = 0;
$end   = 2;

@slicecoins = @coins[$start,$end];

--
Fabiano Reese Righetti

From igor.sutton em yahoo.co.uk  Thu Aug 23 13:26:53 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Thu, 23 Aug 2007 22:26:53 +0200
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <3de55ead0708231233l6d4cd3a9wa69c493198774678@mail.gmail.com>
References: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>
	<208604.91808.qm@web31313.mail.mud.yahoo.com>
	<3de55ead0708231233l6d4cd3a9wa69c493198774678@mail.gmail.com>
Message-ID: <08DAF28B-0508-4B53-9B5F-504081E04267@yahoo.co.uk>


On Aug 23, 2007, at 9:33 PM, eden wrote:

> On 8/23/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>> Ola Nelson.. eu nao posso por %d nao da certo
>>
>> $number=06.00;
>> $y = sprintf("%01d", $number);
>> eu quero tirar o .00 e permanecer o 06 :) entendeu :D
>
> $y = '0' . sprintf("%01d", $number);

Conforme "man 3 printf":

geezer:~ igor$ perl -e '$a = "06.02"; printf "%08.2f", $a; print $/;'
00006.02

Onde:

%08 => formato tem oito caracteres, completando com zero à esquerda;
.2f => precisão de dois dígitos depois da casa decimal.

- Igor


From edencardim em gmail.com  Thu Aug 23 14:21:41 2007
From: edencardim em gmail.com (eden)
Date: Thu, 23 Aug 2007 18:21:41 -0300
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <46CDED5E.706@cascavel.pm.org>
References: <662229.55320.qm@web31309.mail.mud.yahoo.com>
	<46CDED5E.706@cascavel.pm.org>
Message-ID: <3de55ead0708231421u685aef5eh9ef4eabefe6c6d7c@mail.gmail.com>

On 8/23/07, Fabiano Reese Righetti <frighetti em cascavel.pm.org> wrote:
>     Você passou pela variável uma string no qual não é interpretada para
> acessar a "fatia" do array que você esta querendo... Você tem que passar
> números!
>
> $start = 0;
> $end   = 2;
>
> @slicecoins = @coins[$start,$end];

Você quis dizer @coins[$start..$end] né? @coins[$start, $end] vai te
retornar uma lista contendo só os elementos 0 e 2, então os nomes das
variáveis poderiam confundir o leitor casual.

-- 
edenc.vox.com

From igor.sutton em yahoo.co.uk  Thu Aug 23 14:25:38 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Thu, 23 Aug 2007 23:25:38 +0200
Subject: [Cascavel-pm] Retirar casas decimais
In-Reply-To: <46CDEA13.8080503@cascavel.pm.org>
References: <EFA51440-6D9B-4A58-93D6-6686CAE48C46@gmail.com>	<208604.91808.qm@web31313.mail.mud.yahoo.com>
	<3de55ead0708231233l6d4cd3a9wa69c493198774678@mail.gmail.com>
	<46CDEA13.8080503@cascavel.pm.org>
Message-ID: <DED0059D-F63F-4E0A-8CD8-0234719E01D3@yahoo.co.uk>


On Aug 23, 2007, at 10:12 PM, Fabiano Reese Righetti wrote:

> eden escreveu:
>> On 8/23/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>>> Ola Nelson.. eu nao posso por %d nao da certo
>>>
>>> $number=06.00;
>>> $y = sprintf("%01d", $number);
>>> eu quero tirar o .00 e permanecer o 06 :) entendeu :D
>>
>> $y = '0' . sprintf("%01d", $number);
>>
>> pronto
>>
>
> $y = '0'.int($number);

$y = sprintf "%02d", $number;

From karentaga em gmail.com  Thu Aug 23 15:35:14 2007
From: karentaga em gmail.com (Karen Taga)
Date: Thu, 23 Aug 2007 19:35:14 -0300
Subject: [Cascavel-pm] namespaces
Message-ID: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>

Existem pacotes em vários diretórios internos.. posso definir o namespace
Projeto::pacote em todos os pacotes, ou o namespace deve ter o nome do
diretorio em que se encontram os pacotes??
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070823/a9b039b5/attachment.html 

From fglock em gmail.com  Thu Aug 23 16:12:40 2007
From: fglock em gmail.com (Flavio S. Glock)
Date: Fri, 24 Aug 2007 00:12:40 +0100
Subject: [Cascavel-pm] namespaces
In-Reply-To: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>
References: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>
Message-ID: <aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>

Em 23/08/07, Karen Taga<karentaga em gmail.com> escreveu:
> Existem pacotes em vários diretórios internos.. posso definir o namespace
> Projeto::pacote em todos os pacotes,

sim, pode

> ou o namespace deve ter o nome do
> diretorio em que se encontram os pacotes??

é melhor, porque fica mais fácil de entender a estrutura de módulos

Flavio S. Glock

From luismottacampos em yahoo.co.uk  Fri Aug 24 01:40:22 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 09:40:22 +0100 (WEST)
Subject: [Cascavel-pm] namespaces
In-Reply-To: <aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>
References: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>
	<aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0708240938310.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, Flavio S. Glock wrote:
> Em 23/08/07, Karen Taga<karentaga em gmail.com> escreveu:
>> Existem pacotes em vários diretórios internos.. posso definir o namespace
>> Projeto::pacote em todos os pacotes,
>
> sim, pode
>
>> ou o namespace deve ter o nome do
>> diretorio em que se encontram os pacotes??
>
> é melhor, porque fica mais fácil de entender a estrutura de módulos

   Opa!!! Calma aqui!

   Vamos presumir que voce tenha uma estrutura de diretorios como

   mkdir -p ~/lib/perl/{A/B,C/D,E/F}/

   E, nela, modulos:

   touch ~/lib/perl/{A/{P,B/}M,C/D/N,E/F/O}.pm

   Assim:

  -- perl
     |-- A
     |   |-- B
     |   |   `-- M.pm
     |   `-- PM.pm
     |-- C
     |   `-- D
     |       `-- N.pm
     `-- E
         `-- F
             `-- O.pm

   Voce pode chamar o modulo dentro do arquivo M.pm do que quiser. Mas,=20
para usar o modulo, vai ter de dizer

        use A::B::M;

   Se isso nao for o nome do seu pacote, voce pode ficar confusa, e=20
confundir outros programadores.

   Se, por exemplo, no arquivo perl/A/B/M.pm voce tiver uma declaracao

        package C::D::N.pm

   O cara vai terminar dizendo (depois de ler a documentacao)

        use C::D::N;

   O que vai carregar o modulo que estiver declarado em perl/C/D/N.pm, nao 
o modulo que voce declarou (com o nome de C::D::N) em perl/A/B/M.pm.

   Sendo assim, a recomendacao eh que voce nomeie os seus modulos e
posicione os arquivos em lugares onde fique facil deduzir que pacotes eles 
tem dentro deles.

   Assim, quando voce precisar re-usar codigo, ele vai fazer sentido..

   Eu espero que isso explique melhor. O "mestre" parece nao estar muito
bem para explicacoes. Deve ser o excesso de azeite na comida... ;-)

   Putamplexos!
--
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From nferraz em gmail.com  Fri Aug 24 04:06:46 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 24 Aug 2007 12:06:46 +0100
Subject: [Cascavel-pm] namespaces
In-Reply-To: <aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>
References: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>
	<aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>
Message-ID: <2DDF4CC8-03F4-4F17-8024-311E9D9B95EB@gmail.com>

>> Existem pacotes em vários diretórios internos.. posso definir o  
>> namespace
>> Projeto::pacote em todos os pacotes,
>
> sim, pode

Yup.

>> ou o namespace deve ter o nome do
>> diretorio em que se encontram os pacotes??
>
> é melhor, porque fica mais fácil de entender a estrutura de módulos

Realmente é *muito* melhor, e acho que perl vai reclamar se você não  
o fizer.

Por outro lado, você pode manter o nome do pacote como está, e  
simplesmente movê-lo para um subdiretório "Projeto".

Na hora de usar o pacote, você usa:

	use lib 'Projeto';
	use Pacote;

[]s

Nelson


From nferraz em gmail.com  Fri Aug 24 04:18:04 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 24 Aug 2007 12:18:04 +0100
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <662229.55320.qm@web31309.mail.mud.yahoo.com>
References: <662229.55320.qm@web31309.mail.mud.yahoo.com>
Message-ID: <D1E7CB5D-CF0C-4B70-B58A-8EEE518ECEB8@gmail.com>

Em Aug 23, 2007, às 8:41 PM, Patty Silva escreveu:

> Alguem pode me expllicar o pq nao funciona?
> Assim funciona
>
> @coins = qw(Quarter Dime Nickel Penny);
> @slicecoins = @coins[0,2];
> print "@slicecoins\n";
>
> se eu trocar o 0,2 por uma variavel nao funciona:
>
> $teste=0,2;

Se você imprimir o valor da variável $teste:

	print "$teste\n";

Verá que ela não guardou os valores (0,2), porque não é uma array.

Se você estivesse usando strict e warnings, seria um bom começo...  
mas como você está nessa lista há mais de um ano e ainda não o faz,  
tenho pouca esperança de que um dia começará a fazê-lo. :-(


From luismottacampos em yahoo.co.uk  Fri Aug 24 04:19:54 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 12:19:54 +0100 (WEST)
Subject: [Cascavel-pm] namespaces
In-Reply-To: <2DDF4CC8-03F4-4F17-8024-311E9D9B95EB@gmail.com>
References: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>
	<aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>
	<2DDF4CC8-03F4-4F17-8024-311E9D9B95EB@gmail.com>
Message-ID: <Pine.LNX.4.64.0708241217160.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, Nelson Ferraz wrote:
> Por outro lado, voce pode manter o nome do pacote como estah, e
> simplesmente move-lo para um subdiretorio "Projeto".
>
> Na hora de usar o pacote, voce usa:
>
> use lib 'Projeto';
> use Pacote;

   Nunca!!! Eh isso que faz nascer BHOs(*), Nelson!
   Jamais tente simplificar uma estrutura existente "juntando" tudo num 
pacte soh. Eventualmente, o projeto vai "morder" voce por isso.

   Putamplexos!
--0
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

(*) BHO: Big Hairy Object, um anti-padrao de projeto muito conhecido.
Acontece por meio da aglutinacao de funcionalidades nao necessariamente
conectadas entre si em um determinado pacote do sistema, que termina por
ser "grande e cabeludo", amplamente usado, mas complexo e dificil de
manter. Evite a qualquer custo.

   Putamplexos!
--
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From ptfzs em yahoo.com.br  Fri Aug 24 04:38:15 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 24 Aug 2007 08:38:15 -0300 (ART)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <D1E7CB5D-CF0C-4B70-B58A-8EEE518ECEB8@gmail.com>
Message-ID: <150420.27431.qm@web31301.mail.mud.yahoo.com>

Oooooo Nelson :)
eu costumo usar sim.
foi um erro de digitacao.. 
tem uma aspas
$teste="0,2";

ele pega normal.. eu imprimo e ela sai 0,2 :D
ele da o erro:
Argument "0,2" isn't numeric in array slice at data.pl line 161

:)


Nelson Ferraz <nferraz em gmail.com> escreveu: Em Aug 23, 2007, às 8:41 PM, Patty Silva escreveu:

> Alguem pode me expllicar o pq nao funciona?
> Assim funciona
>
> @coins = qw(Quarter Dime Nickel Penny);
> @slicecoins = @coins[0,2];
> print "@slicecoins\n";
>
> se eu trocar o 0,2 por uma variavel nao funciona:
>
> $teste=0,2;

Se você imprimir o valor da variável $teste:

 print "$teste\n";

Verá que ela não guardou os valores (0,2), porque não é uma array.

Se você estivesse usando strict e warnings, seria um bom começo...  
mas como você está nessa lista há mais de um ano e ainda não o faz,  
tenho pouca esperança de que um dia começará a fazê-lo. :-(

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


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

From ptfzs em yahoo.com.br  Fri Aug 24 04:59:59 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 24 Aug 2007 08:59:59 -0300 (ART)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <D1E7CB5D-CF0C-4B70-B58A-8EEE518ECEB8@gmail.com>
Message-ID: <471553.34645.qm@web31301.mail.mud.yahoo.com>

Pessoal.. assim funcionou: )

#!/usr/bin/perl -wl

use strict;

my @array = (11, 12, 13, 14, 15);

my @new = map { $array[$_] } @ARGV;

print "OUT @new\n";

:))))





Nelson Ferraz <nferraz em gmail.com> escreveu: Em Aug 23, 2007, às 8:41 PM, Patty Silva escreveu:

> Alguem pode me expllicar o pq nao funciona?
> Assim funciona
>
> @coins = qw(Quarter Dime Nickel Penny);
> @slicecoins = @coins[0,2];
> print "@slicecoins\n";
>
> se eu trocar o 0,2 por uma variavel nao funciona:
>
> $teste=0,2;

Se você imprimir o valor da variável $teste:

 print "$teste\n";

Verá que ela não guardou os valores (0,2), porque não é uma array.

Se você estivesse usando strict e warnings, seria um bom começo...  
mas como você está nessa lista há mais de um ano e ainda não o faz,  
tenho pouca esperança de que um dia começará a fazê-lo. :-(

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


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

From luismottacampos em yahoo.co.uk  Fri Aug 24 05:21:18 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 13:21:18 +0100 (WEST)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <D1E7CB5D-CF0C-4B70-B58A-8EEE518ECEB8@gmail.com>
References: <662229.55320.qm@web31309.mail.mud.yahoo.com>
	<D1E7CB5D-CF0C-4B70-B58A-8EEE518ECEB8@gmail.com>
Message-ID: <Pine.LNX.4.64.0708241320220.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, Nelson Ferraz wrote:
> Se você estivesse usando strict e warnings, seria um bom começo...
> mas como você está nessa lista há mais de um ano e ainda não o faz,
> tenho pouca esperança de que um dia começará a fazê-lo. :-(

   Mas que falta de feh na humanidade, Nelson...
   Animo!
   A Patty deve estar morrendo de vergonha agora (eu estaria) e vai lembrar 
de usar "strict" e "warnings" para a proxima vez. ;-)

   Te vejo em Vienna, meu caro...
   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From luismottacampos em yahoo.co.uk  Fri Aug 24 05:31:49 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 13:31:49 +0100 (WEST)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <471553.34645.qm@web31301.mail.mud.yahoo.com>
References: <471553.34645.qm@web31301.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0708241330380.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, Patty Silva wrote:
> Pessoal.. assim funcionou: )
>
> #!/usr/bin/perl -wl
>
> use strict;
>
> my @array = (11, 12, 13, 14, 15);
>
> my @new = map { $array[$_] } @ARGV;
>
> print "OUT @new\n";

   Mas, Patty, isso nao faz o que voce escreveu embaixo...

>> @coins = qw(Quarter Dime Nickel Penny);
>> @slicecoins = @coins[0,2];
>> print "@slicecoins\n";
>>
>> se eu trocar o 0,2 por uma variavel nao funciona:
>>
>> $teste=0,2;

   Se voce quer imprimir todos os elementos do array, pode fazer isso 
diretamente:

   print "@coins";

   Agora, se voce quer apenas alguns elementos, vai precisar construir um 
"slice", como eu te expliquei no email anterior...

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From luismottacampos em yahoo.co.uk  Fri Aug 24 05:33:33 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 13:33:33 +0100 (WEST)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <150420.27431.qm@web31301.mail.mud.yahoo.com>
References: <150420.27431.qm@web31301.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0708241333070.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, Patty Silva wrote:
> ele pega normal.. eu imprimo e ela sai 0,2 :D
> ele da o erro:
> Argument "0,2" isn't numeric in array slice at data.pl line 161
> 
> :)

   Patty,

   O que estah acontecendo aqui eh que o teu codigo estah esperando uma "fatia"
(slice) do array, nao um indice especifico. Lembre-se de que esta eh uma
lingugem de programacao, nao uma maquina de adivinhacao. ;-)

   Voce estah escrevendo

   # Aqui, @coins tem quatro elementos
   @coins = qw{ Quarter Dime Nickel Penny };

   # Agora, vamos pegar dois deles:
   @big_coins = @coins[ $begin , $end ];

   Note que eu escrevi "@coins[ $begin , $end ]". Eu estou cortando o array
@coins inicial entre os indices $begin e $end. Isto eh totalmente diferente de
dizer "@coins[$teste]" (mesmo por que nao deveria ser "@", mas "$", jah que voce
estah se referindo a um valor escalar apenas, dado pelo indice contido em
"$teste").

   Quando a gente escreve um indice com mais de um valor, o que o Perl entende eh
que voce quer uma "fatia", contendo todos os valores presentes no array entre
$begin e $end (no seu caso, "0" e "2"). A virgula faz parte da sintaxe do
"slice", e nao dos dados.

   Acho que agora, quando eu escrever

   @big_coins = @coins[0,2];

   Voce vai ver que eh bem diferente de

   @big_coins = @coins[$teste];

   Seja lah o que for que voce tenha na variavel $teste...

   Espero que agora as coisas esteham claras.
   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From edencardim em gmail.com  Fri Aug 24 06:21:43 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 10:21:43 -0300
Subject: [Cascavel-pm] namespaces
In-Reply-To: <Pine.LNX.4.64.0708241217160.29839@ivan.bitbistro.com>
References: <ec735bfd0708231535k7a66cf4cocacba8c817db7faf@mail.gmail.com>
	<aa47605d0708231612y6a2b5ed8k2872d22ef7eb3aa1@mail.gmail.com>
	<2DDF4CC8-03F4-4F17-8024-311E9D9B95EB@gmail.com>
	<Pine.LNX.4.64.0708241217160.29839@ivan.bitbistro.com>
Message-ID: <3de55ead0708240621v5f0d86c3kf39b4be0f93d2502@mail.gmail.com>

On 8/24/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> (*) BHO: Big Hairy Object, um anti-padrao de projeto muito conhecido.
> Acontece por meio da aglutinacao de funcionalidades nao necessariamente
> conectadas entre si em um determinado pacote do sistema, que termina por
> ser "grande e cabeludo", amplamente usado, mas complexo e dificil de
> manter. Evite a qualquer custo.

Eu conheço isso pelo nome de God Object. Aliás, ainda não tive o
desprazer de conhecer pessoalmente, mas já li a respeito :)

http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#GodObject

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Fri Aug 24 06:28:44 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 24 Aug 2007 10:28:44 -0300 (ART)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <Pine.LNX.4.64.0708241330380.29839@ivan.bitbistro.com>
Message-ID: <659019.46552.qm@web31313.mail.mud.yahoo.com>

Foi so um exemplo.. mas eh exatamente o que eu quero
Quero imprimir so determinadas posicoes do Array :D
:)
e aqui
 my @new = map { $array[$_] } @ARGV;
eu faco isso.. 
se eu entrar com 1 3 4 
ele so vai imprimir os campos 1 3 e 4 do array;.. :D


Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu: On Fri, 24 Aug 2007, Patty Silva wrote:
> Pessoal.. assim funcionou: )
>
> #!/usr/bin/perl -wl
>
> use strict;
>
> my @array = (11, 12, 13, 14, 15);
>
> my @new = map { $array[$_] } @ARGV;
>
> print "OUT @new\n";

   Mas, Patty, isso nao faz o que voce escreveu embaixo...

>> @coins = qw(Quarter Dime Nickel Penny);
>> @slicecoins = @coins[0,2];
>> print "@slicecoins\n";
>>
>> se eu trocar o 0,2 por uma variavel nao funciona:
>>
>> $teste=0,2;

   Se voce quer imprimir todos os elementos do array, pode fazer isso 
diretamente:

   print "@coins";

   Agora, se voce quer apenas alguns elementos, vai precisar construir um 
"slice", como eu te expliquei no email anterior...

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


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

From edencardim em gmail.com  Fri Aug 24 06:42:43 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 10:42:43 -0300
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <659019.46552.qm@web31313.mail.mud.yahoo.com>
References: <Pine.LNX.4.64.0708241330380.29839@ivan.bitbistro.com>
	<659019.46552.qm@web31313.mail.mud.yahoo.com>
Message-ID: <3de55ead0708240642u1feea0d7i1f9ca87de165a17d@mail.gmail.com>

On 8/24/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Foi so um exemplo.. mas eh exatamente o que eu quero
> Quero imprimir so determinadas posicoes do Array :D
> :)
> e aqui
>  my @new = map { $array[$_] } @ARGV;
> eu faco isso..
> se eu entrar com 1 3 4
> ele so vai imprimir os campos 1 3 e 4 do array;.. :D

@new = @array[1, 3, 4]

ou, se preferir:

@indices = (1, 3, 4);
@new = @array[@indices]

Usar slices é bem mais eficiente, sintatica e computacionalmente.

perl -MBenchmark=:all -e '@array = 1..10; cmpthese(10000000, {"slice"
=> sub {@array[1,3,4]}, "map" => sub { map {$array[$_]} 1,3,4}})'

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Fri Aug 24 06:49:37 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 14:49:37 +0100 (WEST)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <659019.46552.qm@web31313.mail.mud.yahoo.com>
References: <659019.46552.qm@web31313.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0708241446240.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, Patty Silva wrote:
> Foi so um exemplo.. mas eh exatamente o que eu quero
> Quero imprimir so determinadas posicoes do Array :D
> :)
> e aqui
> my @new = map { $array[$_] } @ARGV;
> eu faco isso..
> se eu entrar com 1 3 4
> ele so vai imprimir os campos 1 3 e 4 do array;.. :D

   Desperdicio.
   Voce pode "fatiar" um array muito facilmente usando

   @apenas_o_que_eu_quero = @tudo_o_que_eu_tenho[ 1,3,4,5,6,9];

   Ou

   @apenas_o_que_eu_quero = @tudo_o_que_eu_tenho[ @indices_desejados ];

   Ou

   @apenas_o_que_eu_quero = @tudo_o_que_eu_tenho[ @indices, 1, 2, 4..10];

   Como voce pode ver, voce nao precisa de map() ou complicacao.

   Apenas tem de saber a diferenca entre usar um elemento especifico do 
array ("$array[$indice]") ou uma colecao deles 
("@array[@lista_de_indices]").

   Eu espero que voce tenha entendido.
   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From glasswalk3r em hotmail.com  Fri Aug 24 06:53:47 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Fri, 24 Aug 2007 16:53:47 +0300
Subject: [Cascavel-pm] namespaces [off-topic]
Message-ID: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>

> Date: Fri, 24 Aug 2007 10:21:43 -0300> From: edencardim em gmail.com> > On 8/24/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:> > (*) BHO: Big Hairy Object, um anti-padrao de projeto muito conhecido.> > Acontece por meio da aglutinacao de funcionalidades nao necessariamente> > conectadas entre si em um determinado pacote do sistema, que termina por> > ser "grande e cabeludo", amplamente usado, mas complexo e dificil de> > manter. Evite a qualquer custo.> > Eu conheço isso pelo nome de God Object. Aliás, ainda não tive o> desprazer de conhecer pessoalmente, mas já li a respeito :)> > http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#GodObjectEu conheço isso por objeto Highlander (só pode haver um!).[]'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/20070824/fe489496/attachment.html 

From edencardim em gmail.com  Fri Aug 24 07:01:48 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 11:01:48 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
Message-ID: <3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>

On 8/24/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> Eu conheço isso por objeto Highlander (só pode haver um!).

Acho que um "objeto Highlander" seria mais parecido com um Singleton:
http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#SingletonPattern

-- 
edenc.vox.com

From glasswalk3r em hotmail.com  Fri Aug 24 07:07:36 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Fri, 24 Aug 2007 17:07:36 +0300
Subject: [Cascavel-pm] namespaces [off-topic]
Message-ID: <BAY121-W256AE61084318B338A3357F5D70@phx.gbl>

> Date: Fri, 24 Aug 2007 11:01:48 -0300> From: edencardim em gmail.com> > On 8/24/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:> > Eu conheço isso por objeto Highlander (só pode haver um!).> > Acho que um "objeto Highlander" seria mais parecido com um Singleton:> http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#SingletonPatternNão não... é um objeto faz-tudo mesmo... sua idéia é bem intencionada, mas o Highlander vem do POG: http://desciclo.pedia.ws/wiki/POGEu dei uma olhada lá, mas não achei mais a definição do Highlander... uma pena. Mas tem outras besteiras lá, vale a pena para dar umas risadas...[]'sAlceu
_________________________________________________________________
Make every IM count. Download Windows Live Messenger and join the i?m Initiative now. It?s free. 
http://im.live.com/messenger/im/home/?source=TAGWL_June07
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070824/cc49194e/attachment.html 

From luismottacampos em yahoo.co.uk  Fri Aug 24 07:13:58 2007
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 24 Aug 2007 15:13:58 +0100 (WEST)
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>

On Fri, 24 Aug 2007, eden wrote:
> On 8/24/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
>> Eu conheço isso por objeto Highlander (só pode haver um!).
>
> Acho que um "objeto Highlander" seria mais parecido com um Singleton:
> http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#SingletonPattern

   E este, diga-se de passagem, eh considerado "boa pratica", dependendo, 
claro, do que voce estah fazendo...

   Putamplexos!
-- 
Luis Motta Campos
Perl Programmer, Hobbyist Cook and Photographer

From edencardim em gmail.com  Fri Aug 24 07:17:47 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 11:17:47 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
Message-ID: <3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>

On 8/24/07, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> On Fri, 24 Aug 2007, eden wrote:
> > On 8/24/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
> >> Eu conheço isso por objeto Highlander (só pode haver um!).
> >
> > Acho que um "objeto Highlander" seria mais parecido com um Singleton:
> > http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#SingletonPattern
>
>    E este, diga-se de passagem, eh considerado "boa pratica", dependendo,
> claro, do que voce estah fazendo...

Ah sim, esqueci de mencionar que o padrão singleton não é um
anti-pattern. Inclusive, ele é vastamente aplicado no Catalyst. :)

-- 
edenc.vox.com

From edencardim em gmail.com  Fri Aug 24 07:19:03 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 11:19:03 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <BAY121-W256AE61084318B338A3357F5D70@phx.gbl>
References: <BAY121-W256AE61084318B338A3357F5D70@phx.gbl>
Message-ID: <3de55ead0708240719p231d817av44212889b2e88af7@mail.gmail.com>

On 8/24/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com> wrote:
http://search.cpan.org/~swalters/Object-PerlDesignPatterns-0.03/PerlDesignPatterns.pm#SingletonPattern
>
> Não não... é um objeto faz-tudo mesmo... sua idéia é bem intencionada, mas o
> Highlander vem do POG: http://desciclo.pedia.ws/wiki/POG
> Eu dei uma olhada lá, mas não achei mais a definição do Highlander... uma
> pena. Mas tem outras besteiras lá, vale a pena para dar umas risadas...

Acho que alguém percebeu que a analogia estava ambigua :)

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Fri Aug 24 07:53:12 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 24 Aug 2007 11:53:12 -0300 (ART)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <3de55ead0708240642u1feea0d7i1f9ca87de165a17d@mail.gmail.com>
Message-ID: <954126.39320.qm@web31314.mail.mud.yahoo.com>

@indices = (1, 3, 4);
@new = @array[@indices]

Eu posso fazer isso.. so que meu problema é:

meu @indices eu armazeno os valores por push
entao fica assim:

push(@variavel,$i);

pra dar certo teria que ter o ( .. tem como eu colocar ??

Obrigada



eden <edencardim em gmail.com> escreveu: On 8/24/07, Patty Silva 
 wrote:
> Foi so um exemplo.. mas eh exatamente o que eu quero
> Quero imprimir so determinadas posicoes do Array :D
> :)
> e aqui
>  my @new = map { $array[$_] } @ARGV;
> eu faco isso..
> se eu entrar com 1 3 4
> ele so vai imprimir os campos 1 3 e 4 do array;.. :D

@new = @array[1, 3, 4]

ou, se preferir:

@indices = (1, 3, 4);
@new = @array[@indices]

Usar slices é bem mais eficiente, sintatica e computacionalmente.

perl -MBenchmark=:all -e '@array = 1..10; cmpthese(10000000, {"slice"
=> sub {@array[1,3,4]}, "map" => sub { map {$array[$_]} 1,3,4}})'

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



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

From edencardim em gmail.com  Fri Aug 24 08:12:56 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 12:12:56 -0300
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <954126.39320.qm@web31314.mail.mud.yahoo.com>
References: <3de55ead0708240642u1feea0d7i1f9ca87de165a17d@mail.gmail.com>
	<954126.39320.qm@web31314.mail.mud.yahoo.com>
Message-ID: <3de55ead0708240812s32718b0amc097a417d9308a98@mail.gmail.com>

On 8/24/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> @indices = (1, 3, 4);
> @new = @array[@indices]
>
> Eu posso fazer isso.. so que meu problema é:
>
> meu @indices eu armazeno os valores por push
> entao fica assim:
>
> push(@variavel,$i);
>
> pra dar certo teria que ter o ( .. tem como eu colocar ??

Não, não precisa de nada disso pra "dar certo". Construa o array
@indices do jeito que você quiser, usando push, pop, shift, split,
splice, seja lá o que for... Depois faça @array[@indices]

-- 
edenc.vox.com

From acid06 em gmail.com  Fri Aug 24 08:30:40 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 24 Aug 2007 12:30:40 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
	<3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
Message-ID: <9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>

On 8/24/07, eden <edencardim em gmail.com> wrote:
> Ah sim, esqueci de mencionar que o padrão singleton não é um
> anti-pattern. Inclusive, ele é vastamente aplicado no Catalyst. :)

Singleton é um anti-pattern pra mim. Se você, em última instância,
*realmente* precisa de um, implemente uma classe base genérica, que
suporta múltiplas instâncias e então faça uma subclasse singleton.

Singleton é o tipo de visão short-sighted de programadores Java e até
considerado algo bom por alguns (!). "Ah, o usuário *nunca* vai
precisar de mais de uma instância desse objeto". Até que chega uma
hora que precisa. Aí haverá pranto e ranger de dentes...

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Fri Aug 24 08:41:46 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 24 Aug 2007 12:41:46 -0300 (ART)
Subject: [Cascavel-pm] Duvida Array
In-Reply-To: <3de55ead0708240812s32718b0amc097a417d9308a98@mail.gmail.com>
Message-ID: <308550.52568.qm@web31302.mail.mud.yahoo.com>

ok :) funcionou... o meu erro era:
estava colocando , nos elementos :D

Obrigada

eden <edencardim em gmail.com> escreveu: On 8/24/07, Patty Silva 
 wrote:
> @indices = (1, 3, 4);
> @new = @array[@indices]
>
> Eu posso fazer isso.. so que meu problema é:
>
> meu @indices eu armazeno os valores por push
> entao fica assim:
>
> push(@variavel,$i);
>
> pra dar certo teria que ter o ( .. tem como eu colocar ??

Não, não precisa de nada disso pra "dar certo". Construa o array
@indices do jeito que você quiser, usando push, pop, shift, split,
splice, seja lá o que for... Depois faça @array[@indices]

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



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

From edencardim em gmail.com  Fri Aug 24 08:44:27 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 12:44:27 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
	<3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
	<9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>
Message-ID: <3de55ead0708240844j3fdec241q9a39fcbabd1e14fc@mail.gmail.com>

On 8/24/07, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> Singleton é um anti-pattern pra mim. Se você, em última instância,
> *realmente* precisa de um, implemente uma classe base genérica, que
> suporta múltiplas instâncias e então faça uma subclasse singleton.

Até aí tudo bem, não estamos falando de implementações específicas.
Mas essa provavelmente é a melhor forma de implementar mesmo.

> Singleton é o tipo de visão short-sighted de programadores Java e até
> considerado algo bom por alguns (!). "Ah, o usuário *nunca* vai
> precisar de mais de uma instância desse objeto". Até que chega uma
> hora que precisa. Aí haverá pranto e ranger de dentes...

Errm, não se for implementado da forma correta. A idéia do Singleton é
de que o cliente da Classe não precisa saber quantas instâncias
existem por trás das cenas. Um exemplo típico de bom uso de Singletons
é para auxiliar na implementação transparente do padrão Flyweight.

-- 
edenc.vox.com

From acid06 em gmail.com  Fri Aug 24 08:54:11 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 24 Aug 2007 12:54:11 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <3de55ead0708240844j3fdec241q9a39fcbabd1e14fc@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
	<3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
	<9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>
	<3de55ead0708240844j3fdec241q9a39fcbabd1e14fc@mail.gmail.com>
Message-ID: <9a08c9b40708240854w259313e2vf0008ad6aebb82a1@mail.gmail.com>

On 8/24/07, eden <edencardim em gmail.com> wrote:
> Errm, não se for implementado da forma correta. A idéia do Singleton é
> de que o cliente da Classe não precisa saber quantas instâncias
> existem por trás das cenas. Um exemplo típico de bom uso de Singletons
> é para auxiliar na implementação transparente do padrão Flyweight.

Mas o Flyweight não é bem um Singleton. É garantir que não existem
vários objetos iguais repetidos, mas existirão várias instâncias de
uma mesma classe.

A idéia é que quando você está desenvolvendo você não deveria assumir
que quem vai utilizar sua classe deve saber ou não das coisas. Se, por
algum motivo qualquer, o usuário queira instanciar dois objetos (ou
fazer qualquer outra coisa mesmo), ele deveria ser capaz de fazer isso
sem malabarismos. Essa é a solução ótima no quesito reusabilidade.

Aliás, eu nem começo a falar mal de outras linguagens implementando
controle de acesso (private, protected, etc) porque daí eu acredito
que iria enfrentar *muita* oposição. ;-)

-Nilson Santos F. Jr.

From mdacwb em gmail.com  Fri Aug 24 08:54:49 2007
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Fri, 24 Aug 2007 12:54:49 -0300
Subject: [Cascavel-pm] Fwd: [Rio-pm] Vaga para programador Perl
In-Reply-To: <46CD9CF6.1030208@istf.com.br>
References: <46CD9CF6.1030208@istf.com.br>
Message-ID: <42dcdd750708240854m25e33985o91f441ef266379e7@mail.gmail.com>

Pessoal,

Como sempre tem alguem interessado em mudar para o Rio, repasso o convite.

Afinal, mais um monge sempre será bem vindo em nossos encontros na
segunda 5a do mes :D


Sds,
Marco Antonio

---------- Forwarded message ----------
From: Marcos Machado <listas em istf.com.br>
Date: 23/08/2007 11:43
Subject: [Rio-pm] Vaga para programador Perl
To: rio-pm em pm.org



 Prezados,

 Estamos precisando de programadores Perl. Monges, de preferência... :)

 A vaga que temos é para o projeto do sistema NetDefense
(www.netdefense.com.br), que é um gateway com diversas funções de
segurança e conectividade. Estamos desenvolvendo uma nova versão dele
e esta versão é um projeto diversas ordens de grandeza maior que o
anterior. (terei prazer em conversar sobre o projeto com quem se
interessar)

 Temos uma equipe multidisciplinar e precisamos de alguém que programe
bem, com vivência em Perl, para manipulação de arquivos, XML/SOAP e
alguma coisa de banco de dados.

 Como este programador será responsável pela aplicação das
configurações e regras no sistema, é um diferencial ter experiência em
uso/administração de Linux. Experiência em aplicativos de controle e
segurança (iptables, squid, vpn etc.) é muito bem-vinda, mas não é
pré-requisito. O foco é mesmo a programação.

 Eu sou um apaixonado pelo projeto. O Fernando "Smokemachine", que já
está na equipe, pode dar informações mais imparciais (mas corram que
ele está se apaixonado também!)... ;)

 O projeto é do InfoLink, que está há 11 anos no mercado. O produto já
existe há 4 anos e nosso objetivo é fazê-lo crescer muito. Estamos
procurando mais 2 programadores Perl. A probabilidade é que precisemos
de cada vez mais programadores.

 Nosso método de contratação é CLT. O salário está em aberto para
análise das pretensões. Estamos na Barra da Tijuca (Shopping Downtown)
e nosso horário de funcionamento é das 9 as 18h. Mas compreendemos os
atrasos na segunda sexta-feira do mês. :P

 Aos interessados, por favor, entrem em contato comigo no
mmachado em infolink.com.br. Estou à disposição (em particular ou aqui na
lista) para dirimir eventuais dúvidas sobre a vaga ou sobre o projeto.

 Obrigado pela atenção!

 Um grande abraço,
 Marcos Machado

_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

From edencardim em gmail.com  Fri Aug 24 09:22:45 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 13:22:45 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <9a08c9b40708240854w259313e2vf0008ad6aebb82a1@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
	<3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
	<9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>
	<3de55ead0708240844j3fdec241q9a39fcbabd1e14fc@mail.gmail.com>
	<9a08c9b40708240854w259313e2vf0008ad6aebb82a1@mail.gmail.com>
Message-ID: <3de55ead0708240922n2a1c2abdw76c433e06fa15098@mail.gmail.com>

On 8/24/07, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> On 8/24/07, eden <edencardim em gmail.com> wrote:
> > Errm, não se for implementado da forma correta. A idéia do Singleton é
> > de que o cliente da Classe não precisa saber quantas instâncias
> > existem por trás das cenas. Um exemplo típico de bom uso de Singletons
> > é para auxiliar na implementação transparente do padrão Flyweight.
>
> Mas o Flyweight não é bem um Singleton. É garantir que não existem
> vários objetos iguais repetidos, mas existirão várias instâncias de
> uma mesma classe.

Você pode ter uma factory como um singleton que é responsável por
prototipar os objetos e usá-los no lugar de instâncias
recém-construídas. Se houverem múltiplas instâncias da factory,
haverão multiplas instâncias dos protótipos e o padrão vai por agua
abaixo.

> A idéia é que quando você está desenvolvendo você não deveria assumir
> que quem vai utilizar sua classe deve saber ou não das coisas. Se, por
> algum motivo qualquer, o usuário queira instanciar dois objetos (ou
> fazer qualquer outra coisa mesmo), ele deveria ser capaz de fazer isso
> sem malabarismos. Essa é a solução ótima no quesito reusabilidade.

Bem, a API da classe tem que ser bem definida. O usuário pode *achar*
que está criando dois objetos, quando na verdade só existe um, desde
que a classe faça o que alega fazer, não interessa quantos objetos
existem de verdade, isso se chama "design by contract".

> Aliás, eu nem começo a falar mal de outras linguagens implementando
> controle de acesso (private, protected, etc) porque daí eu acredito
> que iria enfrentar *muita* oposição. ;-)

Existe uma diferença sutil mas substancial diferença entre controle de
acesso e transparência de implementação.

-- 
edenc.vox.com

From edencardim em gmail.com  Fri Aug 24 09:23:56 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 13:23:56 -0300
Subject: [Cascavel-pm] Fwd: [Rio-pm] Vaga para programador Perl
In-Reply-To: <42dcdd750708240854m25e33985o91f441ef266379e7@mail.gmail.com>
References: <46CD9CF6.1030208@istf.com.br>
	<42dcdd750708240854m25e33985o91f441ef266379e7@mail.gmail.com>
Message-ID: <3de55ead0708240923j4c913b3ep6c2fe8b847ded7fd@mail.gmail.com>

On 8/24/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> Pessoal,
>
> Como sempre tem alguem interessado em mudar para o Rio, repasso o convite.
>
> Afinal, mais um monge sempre será bem vindo em nossos encontros na
> segunda 5a do mes :D

Estou aguardando ansioso a data da minha mudança pro Rio :)

-- 
edenc.vox.com

From acid06 em gmail.com  Fri Aug 24 09:39:21 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 24 Aug 2007 13:39:21 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <3de55ead0708240922n2a1c2abdw76c433e06fa15098@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
	<3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
	<9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>
	<3de55ead0708240844j3fdec241q9a39fcbabd1e14fc@mail.gmail.com>
	<9a08c9b40708240854w259313e2vf0008ad6aebb82a1@mail.gmail.com>
	<3de55ead0708240922n2a1c2abdw76c433e06fa15098@mail.gmail.com>
Message-ID: <9a08c9b40708240939r18ef96ban3f618d0452d06de9@mail.gmail.com>

On 8/24/07, eden <edencardim em gmail.com> wrote:
> Você pode ter uma factory como um singleton que é responsável por
> prototipar os objetos e usá-los no lugar de instâncias
> recém-construídas. Se houverem múltiplas instâncias da factory,
> haverão multiplas instâncias dos protótipos e o padrão vai por agua
> abaixo.

Até que você queira, por exemplo, executar duas aplicações dentro do
mesmo processo. Aí nesse caso poderia fazer sentido ter duas factories
diferentes. Um outro caso é quando os protótipos são ligados a algum
data-source por exemplo e você agora descobriu que faz sentido
utilizar 2 data-sources simultaneamente.

Enfim, sempre existe um contra-caso pra qualquer caso a favor de singletons.

-Nilson Santos F. Jr.

From edencardim em gmail.com  Fri Aug 24 09:58:06 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 13:58:06 -0300
Subject: [Cascavel-pm] namespaces [off-topic]
In-Reply-To: <9a08c9b40708240939r18ef96ban3f618d0452d06de9@mail.gmail.com>
References: <BAY121-W100739BCA5165A63B32E4F5D70@phx.gbl>
	<3de55ead0708240701i1779d155u1e530982515bba77@mail.gmail.com>
	<Pine.LNX.4.64.0708241513300.29839@ivan.bitbistro.com>
	<3de55ead0708240717y48046a04s94492fa9f81db4af@mail.gmail.com>
	<9a08c9b40708240830w578f1fd3vb80fcb2509440a5e@mail.gmail.com>
	<3de55ead0708240844j3fdec241q9a39fcbabd1e14fc@mail.gmail.com>
	<9a08c9b40708240854w259313e2vf0008ad6aebb82a1@mail.gmail.com>
	<3de55ead0708240922n2a1c2abdw76c433e06fa15098@mail.gmail.com>
	<9a08c9b40708240939r18ef96ban3f618d0452d06de9@mail.gmail.com>
Message-ID: <3de55ead0708240958m319db61i59afd63288a506f3@mail.gmail.com>

On 8/24/07, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> Até que você queira, por exemplo, executar duas aplicações dentro do
> mesmo processo. Aí nesse caso poderia fazer sentido ter duas factories
> diferentes. Um outro caso é quando os protótipos são ligados a algum
> data-source por exemplo e você agora descobriu que faz sentido
> utilizar 2 data-sources simultaneamente.

Isso depende bastante da aplicação. Mas mesmo assim, a aplicação que
precisar de duas factories pode implementar uma factory intermediária
que clone, modifique e "cacheie" os protótipos que obter da singleton
factory. Isto vai inclusive, descentralizar as responsabilidades e
fugir do anti-padrão God Object.

> Enfim, sempre existe um contra-caso pra qualquer caso a favor de singletons.

Então se estamos empatados, podemos nos dar o luxo de ser arbitrários... ;)

-- 
edenc.vox.com

From fernandocorrea em gmail.com  Fri Aug 24 09:58:29 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Fri, 24 Aug 2007 13:58:29 -0300
Subject: [Cascavel-pm] Fwd: [Rio-pm] Vaga para programador Perl
In-Reply-To: <3de55ead0708240923j4c913b3ep6c2fe8b847ded7fd@mail.gmail.com>
References: <46CD9CF6.1030208@istf.com.br>
	<42dcdd750708240854m25e33985o91f441ef266379e7@mail.gmail.com>
	<3de55ead0708240923j4c913b3ep6c2fe8b847ded7fd@mail.gmail.com>
Message-ID: <f40026c0708240958r33033e44u317e2653be1cec8f@mail.gmail.com>

Vc tá interessado nessa vaga? Se estiver, mande um email p/
mmachado em infolink.com.br

Em 24/08/07, eden <edencardim em gmail.com> escreveu:
>
> On 8/24/07, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> > Pessoal,
> >
> > Como sempre tem alguem interessado em mudar para o Rio, repasso o
> convite.
> >
> > Afinal, mais um monge sempre será bem vindo em nossos encontros na
> > segunda 5a do mes :D
>
> Estou aguardando ansioso a data da minha mudança pro Rio :)
>
> --
> edenc.vox.com
> _______________________________________________
> 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/20070824/84d8f1ad/attachment.html 

From edencardim em gmail.com  Fri Aug 24 10:00:45 2007
From: edencardim em gmail.com (eden)
Date: Fri, 24 Aug 2007 14:00:45 -0300
Subject: [Cascavel-pm] Fwd: [Rio-pm] Vaga para programador Perl
In-Reply-To: <f40026c0708240958r33033e44u317e2653be1cec8f@mail.gmail.com>
References: <46CD9CF6.1030208@istf.com.br>
	<42dcdd750708240854m25e33985o91f441ef266379e7@mail.gmail.com>
	<3de55ead0708240923j4c913b3ep6c2fe8b847ded7fd@mail.gmail.com>
	<f40026c0708240958r33033e44u317e2653be1cec8f@mail.gmail.com>
Message-ID: <3de55ead0708241000la29c1ddw530d95b70dc395e0@mail.gmail.com>

On 8/24/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> Vc tá interessado nessa vaga? Se estiver, mande um email p/
> mmachado em infolink.com.br

Ehehe, eu estaria se meu dia tivesse 48 horas ;)

-- 
edenc.vox.com

From rafamv1 em ig.com.br  Sat Aug 25 06:14:07 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Sat, 25 Aug 2007 10:14:07 -0300
Subject: [Cascavel-pm] Descriptografar senha.
Message-ID: <20070825_131407_046643.rafamv1@ig.com.br>

Bom dia, Senhores.. Fiz algumas pesquisas na internet, mas não encontrei 
nada a respeito de como descriptografar senhas criptografadas com o MD5. 
Alguém conhece algum documento que discorra sobre isso? 
Grato... 



From acid06 em gmail.com  Sat Aug 25 08:10:10 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Sat, 25 Aug 2007 12:10:10 -0300
Subject: [Cascavel-pm] Descriptografar senha.
In-Reply-To: <20070825_131407_046643.rafamv1@ig.com.br>
References: <20070825_131407_046643.rafamv1@ig.com.br>
Message-ID: <9a08c9b40708250810n2f449590m3ae08dd9028e5c5d@mail.gmail.com>

On 8/25/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Bom dia, Senhores.. Fiz algumas pesquisas na internet, mas não encontrei
> nada a respeito de como descriptografar senhas criptografadas com o MD5.
> Alguém conhece algum documento que discorra sobre isso?

MD5 não é um método de criptografia. É uma função hash e funções hash
são one-way.
Em outras palavras: é impossível, não existe caminho de volta.

O único jeito é tentar por força bruta e isso vai demorar alguns anos
a não ser que você tenha um super-computador disponível.

-Nilson Santos F. Jr.

From kuntzzz em gmail.com  Sat Aug 25 12:57:18 2007
From: kuntzzz em gmail.com (=?ISO-8859-1?Q?=22Iber=EA_O=2E_Kuntz_de_Souza=22?=)
Date: Sat, 25 Aug 2007 16:57:18 -0300
Subject: [Cascavel-pm] Descriptografar senha.
Message-ID: <46D0899E.3080206@gmail.com>

>
> O único jeito é tentar por força bruta e isso vai demorar alguns anos
> a não ser que você tenha um super-computador disponível.
... ou uma super mente :)

From edencardim em gmail.com  Sat Aug 25 15:04:05 2007
From: edencardim em gmail.com (eden)
Date: Sat, 25 Aug 2007 19:04:05 -0300
Subject: [Cascavel-pm] Descriptografar senha.
In-Reply-To: <46D0899E.3080206@gmail.com>
References: <46D0899E.3080206@gmail.com>
Message-ID: <3de55ead0708251504l5a8f619am73cea2da2750b297@mail.gmail.com>

Aí só em Dune... hehe

On 8/25/07, "Iberê O. Kuntz de Souza" <kuntzzz em gmail.com> wrote:
> >
> > O único jeito é tentar por força bruta e isso vai demorar alguns anos
> > a não ser que você tenha um super-computador disponível.
> ... ou uma super mente :)
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
edenc.vox.com

From rafamv1 em ig.com.br  Sun Aug 26 07:48:28 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Sun, 26 Aug 2007 11:48:28 -0300
Subject: [Cascavel-pm] Descriptografar senha.
Message-ID: <20070826_144828_012071.rafamv1@ig.com.br>




>Aí só em Dune... hehe 
> 
>On 8/25/07, "Iberê O. Kuntz de Souza" wrote: 
>> > 
>> > O único jeito é tentar por força bruta e isso vai demorar alguns anos 
>> > a não ser que você tenha um super-computador disponível. 
>> ... ou uma super mente :) 
>edenc.vox.com 

Já entendi meus caros, não é possível!! Grato.. 



From glasswalk3r em hotmail.com  Mon Aug 27 06:14:58 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Mon, 27 Aug 2007 16:14:58 +0300
Subject: [Cascavel-pm] Descriptografar senha.
Message-ID: <BAY121-W2278D08A363069E0EE5001F5D20@phx.gbl>

> Date: Sat, 25 Aug 2007 12:10:10 -0300> From: acid06 em gmail.com>> MD5 não é um método de criptografia. É uma função hash e funções hash> são one-way.> Em outras palavras: é impossível, não existe caminho de volta.> > O único jeito é tentar por força bruta e isso vai demorar alguns anos> a não ser que você tenha um super-computador disponível.Depende do que ele quer "descriptografar". Se é uma senha no /etc/shadow, por exemplo, o programa John The Ripper consegue "recuperar" rapidamente se a senha for fraca (uma palavra de dicionário, por exemplo). Mas basta usar uma palavra que não esteja em dicionários, colocar maiúsculas e minúsculas junto com números e a coisa fica muito mais complicada.Aproveitando o ensejo, alguém conhece algum módulo Perl com funcionalidades parecidas com o Win32::CryptData?[]'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/20070827/b3f28fd1/attachment.html 

From ptfzs em yahoo.com.br  Mon Aug 27 07:18:59 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 27 Aug 2007 11:18:59 -0300 (ART)
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
Message-ID: <56199.72215.qm@web31315.mail.mud.yahoo.com>

Qual é a diferença?? :D

Obrigada

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

From igor.sutton em yahoo.co.uk  Mon Aug 27 07:21:15 2007
From: igor.sutton em yahoo.co.uk (Igor Lopes)
Date: Mon, 27 Aug 2007 15:21:15 +0100 (BST)
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
In-Reply-To: <56199.72215.qm@web31315.mail.mud.yahoo.com>
Message-ID: <418950.33194.qm@web23003.mail.ird.yahoo.com>


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

> Qual é a diferença?? :D

É que numa você tem que digitar "perldoc -f system" e
na outra "perldoc -f exec"... Aconselha-se que leia-se
aquele monte de letrinha...


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

From lgonzaga em lncc.br  Mon Aug 27 07:30:47 2007
From: lgonzaga em lncc.br (lgonzaga em lncc.br)
Date: Mon, 27 Aug 2007 11:30:47 -0300 (BRT)
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
In-Reply-To: <56199.72215.qm@web31315.mail.mud.yahoo.com>
References: <56199.72215.qm@web31315.mail.mud.yahoo.com>
Message-ID: <1212.146.134.8.173.1188225047.squirrel@webmail.lncc.br>



Patty,

Repita como se fosse um mantra:
perldoc -f exec
perldoc -f system

Luiz.

> Qual é a
diferença?? :D
> 
> Obrigada
> 
>  
     Flickr agora em português. Você clica, todo mundo
vê. Saiba
>
mais._______________________________________________
> Cascavel-pm
mailing list
> Cascavel-pm em pm.org
>
http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070827/2bc1a833/attachment.html 

From nferraz em gmail.com  Mon Aug 27 07:39:20 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Mon, 27 Aug 2007 15:39:20 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
In-Reply-To: <418950.33194.qm@web23003.mail.ird.yahoo.com>
References: <56199.72215.qm@web31315.mail.mud.yahoo.com>
	<418950.33194.qm@web23003.mail.ird.yahoo.com>
Message-ID: <604cec170708270739pd9411e3x22ff5d725f007de2@mail.gmail.com>

> > Qual é a diferença?? :D
>
> É que numa você tem que digitar "perldoc -f system" e
> na outra "perldoc -f exec"... Aconselha-se que leia-se
> aquele monte de letrinha...

Igor++ # huahuahuahua

From rafamv1 em ig.com.br  Mon Aug 27 08:32:20 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Mon, 27 Aug 2007 12:32:20 -0300
Subject: [Cascavel-pm] Diferença entre exec e system
Message-ID: <20070827_153220_089886.rafamv1@ig.com.br>




Em (15:21:15), Cascavel Perl Mongers escreveu: 


>--- Patty Silva wrote: 
> 
>> Qual é a diferença?? :D 
> 
>É que numa você tem que digitar "perldoc -f system" e 
>na outra "perldoc -f exec"... Aconselha-se que leia-se 
>aquele monte de letrinha... 
> 

system => http://perldoc.perl.org/functions/system.html 
exec => http://perldoc.perl.org/functions/exec.html 



From celinhobruxo em gmail.com  Mon Aug 27 08:57:58 2007
From: celinhobruxo em gmail.com (Celio)
Date: Mon, 27 Aug 2007 15:57:58 +0000
Subject: [Cascavel-pm] Join me on Last.fm!
Message-ID: <a45680fdb4654e41ebb5b410f5eb9613@www.last.fm>

 
Hi cascavel-pm em pm.org,

Add me as a friend on Last.fm so we can share our music taste :) 
Check out what I'm listening to: http://www.last.fm/user/celinhobruxo/?invitedby=celinhobruxo&tp=ff_tp_b

--------


Signing up is free and takes less than a minute.
Just click the link to automatically become my friend.
http://www.last.fm/join/?invitedby=celinhobruxo&tp=ff_tp_b


Visit my music profile and leave me a shout! I'll see you around,

Celio




PS: I'm 'celinhobruxo' on Last.fm


--------

You received this message because someone (Celio) who knows you sent you an invitation to join them on Last.fm. Your address was not saved and we will never contact you unsolicited. For more information, see our privacy policy at: http://www.last.fm/help/privacy.php

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070827/752ca57d/attachment.html 

From celinhobruxo em gmail.com  Mon Aug 27 08:58:24 2007
From: celinhobruxo em gmail.com (Celio)
Date: Mon, 27 Aug 2007 15:58:24 +0000
Subject: [Cascavel-pm] Join me on Last.fm!
Message-ID: <cffdc7f6277968add9ea1c3743c15ce9@www.last.fm>

 
Hi cascavel-pm em pm.org,

Add me as a friend on Last.fm so we can share our music taste :) 
Check out what I'm listening to: http://www.last.fm/user/celinhobruxo/?invitedby=celinhobruxo&tp=ff_tp_b

--------


Signing up is free and takes less than a minute.
Just click the link to automatically become my friend.
http://www.last.fm/join/?invitedby=celinhobruxo&tp=ff_tp_b


Visit my music profile and leave me a shout! I'll see you around,

Celio




PS: I'm 'celinhobruxo' on Last.fm


--------

You received this message because someone (Celio) who knows you sent you an invitation to join them on Last.fm. Your address was not saved and we will never contact you unsolicited. For more information, see our privacy policy at: http://www.last.fm/help/privacy.php

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

From lorn.br em gmail.com  Mon Aug 27 09:02:23 2007
From: lorn.br em gmail.com (Lorn)
Date: Mon, 27 Aug 2007 13:02:23 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
In-Reply-To: <20070827_153220_089886.rafamv1@ig.com.br>
References: <20070827_153220_089886.rafamv1@ig.com.br>
Message-ID: <bb8590d00708270902wcb3c147ta20b9b492da49ea3@mail.gmail.com>

Ei, o que é isso? golf de perldoc? :P

On 8/27/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
>
>
>
>
> Em (15:21:15), Cascavel Perl Mongers escreveu:
>
>
> >--- Patty Silva wrote:
> >
> >> Qual é a diferença?? :D
> >
> >É que numa você tem que digitar "perldoc -f system" e
> >na outra "perldoc -f exec"... Aconselha-se que leia-se
> >aquele monte de letrinha...
> >
>
> system => http://perldoc.perl.org/functions/system.html
> exec => http://perldoc.perl.org/functions/exec.html
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From wendelscardua em gmail.com  Mon Aug 27 11:44:56 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Mon, 27 Aug 2007 15:44:56 -0300
Subject: [Cascavel-pm] Join me on Last.fm!
In-Reply-To: <cffdc7f6277968add9ea1c3743c15ce9@www.last.fm>
References: <cffdc7f6277968add9ea1c3743c15ce9@www.last.fm>
Message-ID: <726229b50708271144w720c1c8bi1a9208ca6a5cda2a@mail.gmail.com>

Alguém deveria tomar mais cuidado ao mandar adicionar a lista de contatos do
gmail inteira no Last.fm, rs....

[]s
Wendel

On 8/27/07, Celio <celinhobruxo em gmail.com> wrote:
>
>    *Hi cascavel-pm em pm.org,*
>
> Add me as a friend on Last.fm<http://www.last.fm/?invitedby=celinhobruxo&tp=ff_tp_b>so we can share our music taste :)
> Check out what I'm listening to<http://www.last.fm/user/celinhobruxo/?invitedby=celinhobruxo&tp=ff_tp_b>.
>
>
>  [image: Last.fm] <http://www.last.fm/?invitedby=celinhobruxo&tp=ff_tp_b>
>
> *Signing up is free and takes less than a minute.*
> * Just click here to automatically accept my add.<http://www.last.fm/join/?invitedby=celinhobruxo&tp=ff_tp_b>
> *
>
>  Visit my music profile and leave me a shout! I'll see you around,
> - Celio
>
>
>
> PS: I'm celinhobruxo<http://www.last.fm/user/celinhobruxo/?invitedby=celinhobruxo&tp=ff_tp_b>on
> Last.fm <http://www.www.last.fm/?invitedby=celinhobruxo&tp=ff_tp_a>.
>
>
> ------------------------------
>
> You received this message because someone (Celio) who knows you sent you
> an invitation to join them on Last.fm<http://www.last.fm/?invitedby=celinhobruxo&tp=ff_tp_a>.
> Your address was not saved and we will never contact you unsolicited. For
> more information, see our privacy policy at:
> http://www.last.fm/help/privacy.php.
>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070827/fa3494cc/attachment.html 

From otaviof em gmail.com  Mon Aug 27 18:02:49 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Mon, 27 Aug 2007 22:02:49 -0300
Subject: [Cascavel-pm] Perl + TT2 + Postgres
Message-ID: <8e3843570708271802t7b572acfp842b33d00ccc29f@mail.gmail.com>

Senhores,

Tenho algumas aplicações em Perl que usam TT2 e exibem dados de uma
base de dados em Postgres (utilizando Template::Plugin::DBI), porem,
quando eu estou exibindo os caracteres com acentos todos eles vem
quebrados (típico de quando você abre um arquivo ISO-8859-1 em
codificação UTF-8), quando eu consulto o banco também vem desta forma,
há como fazer com o TT2 a conversão destes ? Eu fiz várias tentativas
com o Template::Provider::Encode::Guess, e não obtve sucesso ...
alguém tem sugestão ?

um abraço,

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

From lorn.br em gmail.com  Mon Aug 27 19:52:57 2007
From: lorn.br em gmail.com (Lorn)
Date: Mon, 27 Aug 2007 23:52:57 -0300
Subject: [Cascavel-pm] Perl + TT2 + Postgres
In-Reply-To: <8e3843570708271802t7b572acfp842b33d00ccc29f@mail.gmail.com>
References: <8e3843570708271802t7b572acfp842b33d00ccc29f@mail.gmail.com>
Message-ID: <bb8590d00708271952n5b99f96at74e66e4af49c5287@mail.gmail.com>

tenta Text::Iconv.

On 8/27/07, Otávio Fernandes <otaviof em gmail.com> wrote:
>
> Senhores,
>
> Tenho algumas aplicações em Perl que usam TT2 e exibem dados de uma
> base de dados em Postgres (utilizando Template::Plugin::DBI), porem,
> quando eu estou exibindo os caracteres com acentos todos eles vem
> quebrados (típico de quando você abre um arquivo ISO-8859-1 em
> codificação UTF-8), quando eu consulto o banco também vem desta forma,
> há como fazer com o TT2 a conversão destes ? Eu fiz várias tentativas
> com o Template::Provider::Encode::Guess, e não obtve sucesso ...
> alguém tem sugestão ?
>
> um abraço,
>
> --
> | --
> | Otávio Fernandes < otaviof | gmail | com >
> | FreeBSD 6.2 Release && GNU/Linux User: 283.396
> | (( Especial Programação )) http://geekbr.podcastbrasil.com/
> | --
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From otaviof em gmail.com  Mon Aug 27 20:25:17 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Tue, 28 Aug 2007 00:25:17 -0300
Subject: [Cascavel-pm] Perl + TT2 + Postgres
In-Reply-To: <bb8590d00708271952n5b99f96at74e66e4af49c5287@mail.gmail.com>
References: <8e3843570708271802t7b572acfp842b33d00ccc29f@mail.gmail.com>
	<bb8590d00708271952n5b99f96at74e66e4af49c5287@mail.gmail.com>
Message-ID: <8e3843570708272025x430dd12cq9798e02c7e50397@mail.gmail.com>

Lorn,

Dá pra usar dentro do TT2 ? Vou dar uma boa olhada.

muito obrigado,

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

From andre.garcia.carneir em terra.com.br  Tue Aug 28 08:07:53 2007
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Tue, 28 Aug 2007 12:07:53 -0300
Subject: [Cascavel-pm] Perl + TT2 + Postgres
Message-ID: <JNHOP5$496B6CA7F0987AFF4C80DAFC7C88D0A7@multidominios>


Otávio,

Normalmente, os problemas com codificação deveriam ser resolvidos simplesmente deixando todo mundo com a mesma
codificação :P
É meio óbvio mas a resposta é essa mesmo. Se você trabalha em UTF-8, não deveria codificar coisas em ISO, e
vice-versa, mas se isso não depende de você, o que parece o seu caso, eu vou te dar duas soluções que eu
costumo usar por aqui.


SOLUÇÃO 1
use strict;
use Encode;

my $string_zuada_em_ISO = 'A$@o'; #Simulando o problema. Essa string deveria ser Ação. Mas está codificada em
8859-1, quando deveria estar em UTF-8.

$string = encode('utf-8',$string);

print $string;

SOLUÇÃO 2
use Unicode::UTF8simple;
my $u = Unicode::UTF8Simple->new();

my $string_zuada_em_ISO = 'A$@o';# não vou escrever de novo....

$string  = $u->toUTF8('iso-8859-1',$string);

print $string;


Para maiores informações, RTFM em CPAN:

http://search.cpan.org/~dankogai/Encode-2.23/Encode.pm

http://search.cpan.org/~gus/Unicode-UTF8simple-1.06/UTF8simple.pm


---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: saopaulo-pm em pm.org,"Cascavel Perl Mongers" cascavel-pm em pm.org
Cópia: 
Data: Mon, 27 Aug 2007 22:02:49 -0300
Assunto: [Cascavel-pm] Perl + TT2 + Postgres

> Senhores,
> 
> Tenho algumas aplicações em Perl que usam TT2 e exibem dados de uma
> base de dados em Postgres (utilizando Template::Plugin::DBI), porem,
> quando eu estou exibindo os caracteres com acentos todos eles vem
> quebrados (típico de quando você abre um arquivo ISO-8859-1 em
> codificação UTF-8), quando eu consulto o banco também vem desta forma,
> há como fazer com o TT2 a conversão destes ? Eu fiz várias tentativas
> com o Template::Provider::Encode::Guess, e não obtve sucesso ...
> alguém tem sugestão ?
> 
> um abraço,
> 
> -- 
>  | --
>  | Otávio Fernandes < otaviof | gmail | com >
>  | FreeBSD 6.2 Release && GNU/Linux User: 283.396
>  | (( Especial Programação )) http://geekbr.podcastbrasil.com/
>  | --
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=andre.garcia.carneir&_l=1,1188263061.724685.28413.cadarga.hst.terra.com.br,3988,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 27/08/2007 / Versão: 5.1.00/5106
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From otaviof em gmail.com  Tue Aug 28 08:28:03 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Tue, 28 Aug 2007 12:28:03 -0300
Subject: [Cascavel-pm] Perl + TT2 + Postgres
In-Reply-To: <JNHOP5$496B6CA7F0987AFF4C80DAFC7C88D0A7@multidominios>
References: <JNHOP5$496B6CA7F0987AFF4C80DAFC7C88D0A7@multidominios>
Message-ID: <8e3843570708280828m3e675af4sd9aaaab492854ea4@mail.gmail.com>

André,

Todos eles estão na mesma codificação, o banco está em Latin9, os
scripts em ISO, porem os resultados não estão satisfatórios, o que eu
gostaria de obter aqui, é uma boa indicação de uma ferramenta que
trabalhe junto com o Template Toolkit, já que os dados não passam
dentro do meu script, eles são apenas tratados pelo TT2.

um abraço,

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

From kamusbr em gmail.com  Tue Aug 28 11:47:41 2007
From: kamusbr em gmail.com (Robson Negreiros)
Date: Tue, 28 Aug 2007 15:47:41 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
In-Reply-To: <20070827_153220_089886.rafamv1@ig.com.br>
References: <20070827_153220_089886.rafamv1@ig.com.br>
Message-ID: <c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>

Só não esqueçam é que algumas pessoas querem apenas ter uma visão diferente
de outras sobre o que foi lido, e não que ela desconheça/não saiba utilizar
a documentação...

Pergunta 1: vocês nunca discutiram as idéias sobre um livro com outra
pessoa?
Pergunta 2: o que vocês estudam/lêem vem de uma única fonte?
Pergunta 3: vocês acham que todas as pessoas tem a proeficiência da língua
inglesa que vocês possuem?

Acredito que na resposta caberia pelo menos uma breve explicação do que
"VOCÊ ^1" entende sobre o assunto, e complementasse com a referência, ou
vocês acham que as pessoas não fazem um "perldoc -f xyz" quando estão
estudando perl.

Faço essa crítica, pq se fala muito na divulgação da linguagem... então
procuremos dar uma ajuda construtiva e amigável para aqueles que estão
procurando absorver mais conhecimento, evitando respostas secas, óbvias e
sarcásticas.

Meus centavos em prol da melhoria da comunidade


^1: Todos que respoderam a thread


Em 27/08/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> escreveu:
>
>
>
>
> Em (15:21:15), Cascavel Perl Mongers escreveu:
>
>
> >--- Patty Silva wrote:
> >
> >> Qual é a diferença?? :D
> >
> >É que numa você tem que digitar "perldoc -f system" e
> >na outra "perldoc -f exec"... Aconselha-se que leia-se
> >aquele monte de letrinha...
> >
>
> system => http://perldoc.perl.org/functions/system.html
> exec => http://perldoc.perl.org/functions/exec.html
>
>
>
> _______________________________________________
> 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/20070828/0b835def/attachment-0001.html 

From nferraz em gmail.com  Tue Aug 28 11:57:12 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 28 Aug 2007 19:57:12 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Diferen=E7a_entre_exec_e_system?=
In-Reply-To: <c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
References: <20070827_153220_089886.rafamv1@ig.com.br>
	<c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
Message-ID: <65A8E90C-D783-412E-A71E-BCCCCF6A1AA6@gmail.com>

Em Aug 28, 2007, às 7:47 PM, Robson Negreiros escreveu:

> Faço essa crítica, pq se fala muito na divulgação da linguagem...  
> então procuremos dar uma ajuda construtiva e amigável para aqueles  
> que estão procurando absorver mais conhecimento, evitando respostas  
> secas, óbvias e sarcásticas.

http://br.geocities.com/cesarakg/smart-questions-pt_BR.html

From lgonzaga em lncc.br  Tue Aug 28 12:15:19 2007
From: lgonzaga em lncc.br (Luiz Gonzaga)
Date: Tue, 28 Aug 2007 16:15:19 -0300
Subject: [Cascavel-pm] =?utf-8?q?Diferen=C3=A7a_entre_exec_e_system?=
In-Reply-To: <c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
References: <20070827_153220_089886.rafamv1@ig.com.br>
	<c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
Message-ID: <200708281615.19491.lgonzaga@lncc.br>

Robson, eu fui um dos que deu respostas "secas, óbvias e sarcásticas".

Então vou responder as suas perguntas e depois vou dizer por que dei a 
resposta que eu escrevi para ela ler o perldoc.

Em Terça 28 Agosto 2007 15:47, Robson Negreiros escreveu:
> Só não esqueçam é que algumas pessoas querem apenas ter uma visão diferente
> de outras sobre o que foi lido, e não que ela desconheça/não saiba utilizar
> a documentação...
>
> Pergunta 1: vocês nunca discutiram as idéias sobre um livro com outra
> pessoa?

Sim. Sempre que tenho esta oportunidade nunca a desperdiço.

> Pergunta 2: o que vocês estudam/lêem vem de uma única fonte?

Não.

> Pergunta 3: vocês acham que todas as pessoas tem a proeficiência da língua
> inglesa que vocês possuem?

Não e eu não sou proeficiente na língua inglesa.

>
> Acredito que na resposta caberia pelo menos uma breve explicação do que
> "VOCÊ ^1" entende sobre o assunto, e complementasse com a referência, ou
> vocês acham que as pessoas não fazem um "perldoc -f xyz" quando estão
> estudando perl.
>
> Faço essa crítica, pq se fala muito na divulgação da linguagem... então
> procuremos dar uma ajuda construtiva e amigável para aqueles que estão
> procurando absorver mais conhecimento, evitando respostas secas, óbvias e
> sarcásticas.
>
> Meus centavos em prol da melhoria da comunidade
>
>
> ^1: Todos que respoderam a thread

Se voce olhar nos arquivos da lista, você verá que na quinta-feira passada, as 
14:33 tem uma mensagem com o título "Retirar casas decimais". Acompanhe as 
respostas até a mensagem de 15:59  e entenderá porque eu respondi 
"sarcasticamente" e que tenho a certeza que a Patty não se ofendeu.

Luiz.

From igor.sutton em yahoo.co.uk  Tue Aug 28 13:45:11 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Tue, 28 Aug 2007 22:45:11 +0200
Subject: [Cascavel-pm] =?iso-8859-1?q?Algumas_pondera=E7=F5es_=5BEra=3A_Re?=
 =?iso-8859-1?q?=3A__Diferen=E7a_entre_exec_e_system=5D?=
In-Reply-To: <c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
References: <20070827_153220_089886.rafamv1@ig.com.br>
	<c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
Message-ID: <0C340862-C85C-4119-8DF5-109F4C8C2CEE@yahoo.co.uk>


On Aug 28, 2007, at 8:47 PM, Robson Negreiros wrote:

> Só não esqueçam é que algumas pessoas querem apenas ter uma visão  
> diferente de outras sobre o que foi lido, e não que ela desconheça/ 
> não saiba utilizar a documentação...

Neste caso, *eu* surgiria com algo do tipo:

"Pessoal, eu li a documentação do exec e do system e não entendi  
lhufas... Alguém poderia me iluminar?"

O problema é o mesmo de sempre: lista de *discussões* não é lista de  
*helpdesk*. Ajuda-se quando tem tempo, e quando o esforço do  
aprendizado é correspondido. O problema é que as pessoas não mostram  
isso, então essas respostas aparecem.

> Pergunta 1: vocês nunca discutiram as idéias sobre um livro com  
> outra pessoa?

Sim, desde que eu tenha *lido* o livro.

> Pergunta 2: o que vocês estudam/lêem vem de uma única fonte?

Não, por quê eu *leio* várias fontes.

> Pergunta 3: vocês acham que todas as pessoas tem a proeficiência da  
> língua inglesa que vocês possuem?

Não. Eu tenho alguma, mas diversas vezes vi minhas dúvidas sendo  
sanadas lendo a parte que interessa de textos em francês, alemão e  
outros.

> Acredito que na resposta caberia pelo menos uma breve explicação do  
> que "VOCÊ ^1" entende sobre o assunto, e complementasse com a  
> referência, ou vocês acham que as pessoas não fazem um "perldoc -f  
> xyz" quando estão estudando perl.

Eu acredito que diversas pessoas *não* fazem um "perldoc -f xyz"  
quando estão estudando Perl.

> Faço essa crítica, pq se fala muito na divulgação da linguagem...  
> então procuremos dar uma ajuda construtiva e amigável para aqueles  
> que estão procurando absorver mais conhecimento, evitando respostas  
> secas, óbvias e sarcásticas.

Se você acompanhar o histórico da lista, diversos usuários aqui  
ajudaram diversas outras vezes. Vamos fazer uma ponderação: o quê  
você diria se uma pessoa que está aprendendo a dirigir, usando um  
automóvel com câmbio manual, não seguisse instruções básicas como  
utilizar a embreagem para fazer a mudança?

> Meus centavos em prol da melhoria da comunidade

Eu também tenho meus centavos: se alguém quer aprender algo e pede  
opiniões em uma lista de discussões, siga os conselhos, aprenda e  
depois tire as suas conclusões se deve ou não fazê-lo.

Acho que resumindo:

- Pessoas não leêm a documentação e querem algo mastigado da lista.  
Não vejo *muito* mal nisso, quando vemos sinais claros de evolução da  
pessoa. Perguntar dois anos ou mais anos seguidos coisas que podem  
ser resolvidas da mesma maneira não demonstra isso muito bem;

- Pessoas acreditam que lista de discussões são helpdesks da  
linguagem xyz online. Olha, eu ajudo quem quer ser ajudado. Eu divido  
conhecimento, e eventualmente até faço código de graça (Patty, estou  
mentindo?) porém chega uma hora que enche o saco regar a árvore e ela  
nunca crescer...

- Pessoas esquecem que uma lista de discussões serve, além de trocar  
conhecimento técnico e teórico, para discussões filosóficas,  
dicussões sobre trabalho, como as empresas deveriam agir caso o mundo  
fosse perfeito, e inclusive filosofia ou sobre o Universo. Eu acho  
relevante conversar sim, em uma lista de discussões, sobre trabalho,  
sobre ofertas de emprego e se é razoável ou não a empresa ABC estar  
fazendo aquilo. Se alguém quiser tirar isso daqui, pode abrir a list  
cascavel-jobs e continuamos esse tipo de assunto lá.

Agora, em relação ao ogro-mode: todos podem ser ogros sem que isso  
vire pessoal. O que eu vi, e não apreciei muito foi o tipo de  
argumento e o tom que nosso colega André usou quando estávamos  
falando sobre o email que ele mesmo enviou para uma lista de  
discussões. Me senti ofendido porém não vou o retribuir pois não  
preciso disso, mas não vou deixar passar em branco a coisa. Antes de  
falar que alguma coisa faz pessoas se afastarem da comunidade, o tipo  
de atitude do mesmo faz também, e muito. E acho que muito mais do  
que, com "delicadeza", tentarmos colocar a marretadas 'use warnings;  
use strict;' e perldoc -f foo na cabeça das pessoas. Com a segunda  
atitude, mais cedo ou mais tarde, aquele em que usamos a marreta  
perceberá que estávamos tentando ajudá-lo da melhor maneira,  
ensinando-o a pescar. Já no segundo, fica apenas a má educação do  
remetente.

-- Igor



From ptfzs em yahoo.com.br  Wed Aug 29 12:37:51 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 29 Aug 2007 16:37:51 -0300 (ART)
Subject: [Cascavel-pm] Formatando com Sprintf
Message-ID: <207205.38681.qm@web31310.mail.mud.yahoo.com>

Pessoal... estou usando o sprintf para formatar a saida no meu arquivo, 
Tenho um array e apartir dele quero imprimir os dados formatados..
estou fazendo:

for ($i=0;$i<@valores;$i++)
{

 print OUT sprintf('%9.2f',$valores[$i]);
}

tentei fazer direto no @array.. nao consegui...
teria outro jeito?? :)

Obrigada



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

From nferraz em gmail.com  Wed Aug 29 13:33:27 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 29 Aug 2007 21:33:27 +0100
Subject: [Cascavel-pm] Formatando com Sprintf
In-Reply-To: <207205.38681.qm@web31310.mail.mud.yahoo.com>
References: <207205.38681.qm@web31310.mail.mud.yahoo.com>
Message-ID: <604cec170708291333q3a53f41k89e7135a8662cf42@mail.gmail.com>

> Pessoal... estou usando o sprintf para formatar a saida no meu arquivo,
> Tenho um array e apartir dele quero imprimir os dados formatados..
> estou fazendo:
>
> for ($i=0;$i<@valores;$i++)
> {
>
>  print OUT sprintf('%9.2f',$valores[$i]);
> }

Por que você usa o "for" como se estivesse programando em C? Que tal:

foreach ( @valores ) {
    print OUT sprintf('%9.2f', $_);
}

Isso é bem melhor do que ficar controlando os índices do array. (Você
pode usar uma variável nomeada ao invés de $_, se quiser).

> tentei fazer direto no @array.. nao consegui...

Você pode transformar um array em outro usando map:

    my @formated = map { sprintf('%9.2f', $_) } @valores;

Mas acho um desperdício usar um array auxiliar quando você pode
simplesmente usar um loop -- como já fez no exemplo inicial.

[]s

Nelson

From mmmferreira em gmail.com  Wed Aug 29 22:07:12 2007
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Thu, 30 Aug 2007 02:07:12 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?criando_uma_aplica=E7=E3o_e_adiciona?=
	=?iso-8859-1?q?ndo_m=F3dulos?=
In-Reply-To: <7958D33F-8DD1-4681-A853-707F5BA0E250@yahoo.co.uk>
References: <ab9b7e900708212212x64da25d1w9cf3366fe0a193d5@mail.gmail.com>
	<7958D33F-8DD1-4681-A853-707F5BA0E250@yahoo.co.uk>
Message-ID: <ab9b7e900708292207j788bbd3ep35893be1bb43f7d8@mail.gmail.com>

Obrigado pela dica Igor.
Depois de testar o Module::Pluggable, encontrei o Module::Find, é mais
simples, mas serve ao propósito de carregar um módulo baseado no diretório e
no que está configurado em banco de dados.

Márcio Ferreira

Em 22/08/07, Igor Sutton Lopes <igor.sutton em yahoo.co.uk> escreveu:
>
>
> On Aug 22, 2007, at 7:12 AM, Marcio Ferreira wrote:
>
> > Pessoal,
> >
> > tenho uma aplicação que iniciaremos o desenvolvimento em breve.
> > Está aplicação será dividida em módulos, e para cada etapa do
> > desenvolvimento trabalharemos em um módulo distinto que será
> > incorporado ao que estiver pronto.
> > Essa aplicação será chamada por um script de start e as
> > configurações, menus e opções estarão no Banco de Dados
> > A minha dúvida é: toda vez que adicionarmos um novo módulo teremos
> > que mudar o código do script de start adicionando o novo módulo, ou
> > existe algo que permite que o Perl utilize todos modulos que
> > estejam numa sub pasta sem ter que declará-los explicitamente?
> > Pensamos na possibilidade dos módulos estarem cadastrados no Banco
> > de Dados e serem chamados de forma dinâmica de acordo com o menu
> > selecionado ou tarefa a ser executada.
>
> O módulo 'Module::Pluggable' faz este trabalho prá você. Você define
> o namespace que estão os seus 'plugins' e voi lá.
>
> Boa sorte!
>
> - Igor
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From ptfzs em yahoo.com.br  Thu Aug 30 04:29:02 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 30 Aug 2007 08:29:02 -0300 (ART)
Subject: [Cascavel-pm] Formatando com Sprintf
In-Reply-To: <604cec170708291333q3a53f41k89e7135a8662cf42@mail.gmail.com>
Message-ID: <537779.25985.qm@web31314.mail.mud.yahoo.com>

 Ola Nelson :)
Lembrei  o pq do for.. :D
Eu quero apartir do 2 elemento :D
 for ($i=2;$i<@valores;$i++
por isso usei for..

Mudei para : 

for $i ( 2 .. $#valores )  

o resultado foi o msm  :D mas .. é um boa pratica isso?

Obrigada







Nelson Ferraz <nferraz em gmail.com> escreveu: > Pessoal... estou usando o sprintf para formatar a saida no meu arquivo,
> Tenho um array e apartir dele quero imprimir os dados formatados..
> estou fazendo:
>
> for ($i=0;$i<@valores;$i++)
> {
>
>  print OUT sprintf('%9.2f',$valores[$i]);
> }

Por que você usa o "for" como se estivesse programando em C? Que tal:

foreach ( @valores ) {
    print OUT sprintf('%9.2f', $_);
}

Isso é bem melhor do que ficar controlando os índices do array. (Você
pode usar uma variável nomeada ao invés de $_, se quiser).

> tentei fazer direto no @array.. nao consegui...

Você pode transformar um array em outro usando map:

    my @formated = map { sprintf('%9.2f', $_) } @valores;

Mas acho um desperdício usar um array auxiliar quando você pode
simplesmente usar um loop -- como já fez no exemplo inicial.

[]s

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


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

From igor.sutton em yahoo.co.uk  Thu Aug 30 04:55:50 2007
From: igor.sutton em yahoo.co.uk (Igor Lopes)
Date: Thu, 30 Aug 2007 12:55:50 +0100 (BST)
Subject: [Cascavel-pm] Formatando com Sprintf
In-Reply-To: <537779.25985.qm@web31314.mail.mud.yahoo.com>
Message-ID: <795711.80283.qm@web23013.mail.ird.yahoo.com>


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

>  Ola Nelson :)
> Lembrei  o pq do for.. :D
> Eu quero apartir do 2 elemento :D
>  for ($i=2;$i<@valores;$i++
> por isso usei for..
> 
> Mudei para : 
> 
> for $i ( 2 .. $#valores )  

for my $i ( @valores[1 .. $#valores] ) { ... }

Por exemplo:

[igor em voidhawk igor]$ perl -e '@a = qw(1 2 3); print
$_, $/ for (@a[1..$#a]);'
2
3
</exemplo>



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


From ptfzs em yahoo.com.br  Thu Aug 30 05:21:09 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 30 Aug 2007 09:21:09 -0300 (ART)
Subject: [Cascavel-pm] Formatando com Sprintf
In-Reply-To: <795711.80283.qm@web23013.mail.ird.yahoo.com>
Message-ID: <512880.9863.qm@web31313.mail.mud.yahoo.com>

Obrigada Igor.. funcionou tb..

Igor Lopes <igor.sutton em yahoo.co.uk> escreveu: 
--- Patty Silva 
 wrote:

>  Ola Nelson :)
> Lembrei  o pq do for.. :D
> Eu quero apartir do 2 elemento :D
>  for ($i=2;$i<@valores;$i++
> por isso usei for..
> 
> Mudei para : 
> 
> for $i ( 2 .. $#valores )  

for my $i ( @valores[1 .. $#valores] ) { ... }

Por exemplo:

[igor em voidhawk igor]$ perl -e '@a = qw(1 2 3); print
$_, $/ for (@a[1..$#a]);'
2
3





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

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


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

From fernandolouis em terra.com.br  Thu Aug 30 05:50:25 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 30 Aug 2007 09:50:25 -0300
Subject: [Cascavel-pm] TAG <a name>
References: <20070821_115636_085516.mnsousa@ig.com.br>
	<Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
Message-ID: <010701c7eb04$56ae2b80$0b01a8c0@servidorliz>

Fiz várias pesquisa e não encontrei a solução para este caso:

tenho um ".pl" que gera uma lista gigante, sendo que cada linha da lista, 
tem a tag <a name=numero_da_linha></a>.

se fosse em html, para acessar diretamente a linha 25, por exemplo, eu 
entraria com uma endereço assim: www.site.com.br/lista.htm#25,
onde na lista vai ter o <a name=25></a>

com perl isso não funciona!?!? queria que funcionasse assim: 
www.site.com.br/lista.pl#25

[]s,
Fernando 


From fernandolouis em terra.com.br  Thu Aug 30 06:41:23 2007
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 30 Aug 2007 10:41:23 -0300
Subject: [Cascavel-pm] TAG <a name>
References: <20070821_115636_085516.mnsousa@ig.com.br><Pine.LNX.4.64.0708211444100.13255@ivan.bitbistro.com>
	<010701c7eb04$56ae2b80$0b01a8c0@servidorliz>
Message-ID: <003701c7eb0b$78199aa0$0b01a8c0@servidorliz>

me enganei, desculpem pessoal dá pra fazer a referência link.pl#25 sim

[],
Fernando

----- Original Message ----- 
From: <fernandolouis em terra.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, August 30, 2007 9:50 AM
Subject: [Cascavel-pm] TAG <a name>


Fiz várias pesquisa e não encontrei a solução para este caso:

tenho um ".pl" que gera uma lista gigante, sendo que cada linha da lista,
tem a tag <a name=numero_da_linha></a>.

se fosse em html, para acessar diretamente a linha 25, por exemplo, eu
entraria com uma endereço assim: www.site.com.br/lista.htm#25,
onde na lista vai ter o <a name=25></a>

com perl isso não funciona!?!? queria que funcionasse assim:
www.site.com.br/lista.pl#25

[]s,
Fernando

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


From lgonzaga em lncc.br  Thu Aug 30 08:41:52 2007
From: lgonzaga em lncc.br (Luiz Gonzaga)
Date: Thu, 30 Aug 2007 12:41:52 -0300
Subject: [Cascavel-pm] [OT] OW2
Message-ID: <200708301241.52791.lgonzaga@lncc.br>

Pessoal,

Alguém conhece o Consorcio OW2 (http://www.ow2.org/)? Por motivos 
profissionais tomei contato com ele hoje. Até então não o conhecia.

Queria opiniões. Alguém tem?

Luiz.

From kamusbr em gmail.com  Thu Aug 30 10:57:32 2007
From: kamusbr em gmail.com (Robson Negreiros)
Date: Thu, 30 Aug 2007 14:57:32 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Algumas_pondera=E7=F5es_=5BEra=3A_Re?=
	=?iso-8859-1?q?=3A_Diferen=E7a_entre_exec_e_system=5D?=
In-Reply-To: <0C340862-C85C-4119-8DF5-109F4C8C2CEE@yahoo.co.uk>
References: <20070827_153220_089886.rafamv1@ig.com.br>
	<c9f9c1760708281147re28b34btb5a960909f88ac7a@mail.gmail.com>
	<0C340862-C85C-4119-8DF5-109F4C8C2CEE@yahoo.co.uk>
Message-ID: <c9f9c1760708301057g48a43ad0yb4d100f06a9b5207@mail.gmail.com>

Em 28/08/07, Igor Sutton Lopes <igor.sutton em yahoo.co.uk> escreveu:
>
>
> On Aug 28, 2007, at 8:47 PM, Robson Negreiros wrote:
>
> > Só não esqueçam é que algumas pessoas querem apenas ter uma visão
> > diferente de outras sobre o que foi lido, e não que ela desconheça/
> > não saiba utilizar a documentação...
>
> Neste caso, *eu* surgiria com algo do tipo:
>
> "Pessoal, eu li a documentação do exec e do system e não entendi
> lhufas... Alguém poderia me iluminar?"


Assim ficaria bem mais claro.

O problema é o mesmo de sempre: lista de *discussões* não é lista de
> *helpdesk*. Ajuda-se quando tem tempo, e quando o esforço do
> aprendizado é correspondido.


Concordo.


O problema é que as pessoas não mostram
> isso, então essas respostas aparecem.
>
> > Pergunta 1: vocês nunca discutiram as idéias sobre um livro com
> > outra pessoa?
>
> Sim, desde que eu tenha *lido* o livro.
>
> > Pergunta 2: o que vocês estudam/lêem vem de uma única fonte?
>
> Não, por quê eu *leio* várias fontes.
>
> > Pergunta 3: vocês acham que todas as pessoas tem a proeficiência da
> > língua inglesa que vocês possuem?
>
> Não. Eu tenho alguma, mas diversas vezes vi minhas dúvidas sendo
> sanadas lendo a parte que interessa de textos em francês, alemão e
> outros.


... e às vezes até em japonês e chinês.

> Acredito que na resposta caberia pelo menos uma breve explicação do
> > que "VOCÊ ^1" entende sobre o assunto, e complementasse com a
> > referência, ou vocês acham que as pessoas não fazem um "perldoc -f
> > xyz" quando estão estudando perl.
>
> Eu acredito que diversas pessoas *não* fazem um "perldoc -f xyz"
> quando estão estudando Perl.


... mas aí elas não devem estar estudando, e sim só usando...

> Faço essa crítica, pq se fala muito na divulgação da linguagem...
> > então procuremos dar uma ajuda construtiva e amigável para aqueles
> > que estão procurando absorver mais conhecimento, evitando respostas
> > secas, óbvias e sarcásticas.
>
> Se você acompanhar o histórico da lista, diversos usuários aqui
> ajudaram diversas outras vezes. Vamos fazer uma ponderação: o quê
> você diria se uma pessoa que está aprendendo a dirigir, usando um
> automóvel com câmbio manual, não seguisse instruções básicas como
> utilizar a embreagem para fazer a mudança?


diria: "... para o carro funcionar do que jeito que você espera tem que usar
a embreagem, mas se você quer saber como funciona e o por que de usar
consulte materiais sobre mecânica de automóveis"


> Meus centavos em prol da melhoria da comunidade
>
> Eu também tenho meus centavos: se alguém quer aprender algo e pede
> opiniões em uma lista de discussões, siga os conselhos, aprenda e
> depois tire as suas conclusões se deve ou não fazê-lo.
>
> Acho que resumindo:
>
> - Pessoas não leêm a documentação e querem algo mastigado da lista.
> Não vejo *muito* mal nisso, quando vemos sinais claros de evolução da
> pessoa. Perguntar dois anos ou mais anos seguidos coisas que podem
> ser resolvidas da mesma maneira não demonstra isso muito bem;
>
- Pessoas acreditam que lista de discussões são helpdesks da
> linguagem xyz online. Olha, eu ajudo quem quer ser ajudado. Eu divido
> conhecimento, e eventualmente até faço código de graça (Patty, estou
> mentindo?) porém chega uma hora que enche o saco regar a árvore e ela
> nunca crescer...


E isso é quase uma regra geral para listas de discussão

- Pessoas esquecem que uma lista de discussões serve, além de trocar
> conhecimento técnico e teórico, para discussões filosóficas,
> dicussões sobre trabalho, como as empresas deveriam agir caso o mundo
> fosse perfeito, e inclusive filosofia ou sobre o Universo.


Tenho a mesma visão que você.


Eu acho
> relevante conversar sim, em uma lista de discussões, sobre trabalho,
> sobre ofertas de emprego e se é razoável ou não a empresa ABC estar
> fazendo aquilo. Se alguém quiser tirar isso daqui, pode abrir a list
> cascavel-jobs e continuamos esse tipo de assunto lá.
>
Agora, em relação ao ogro-mode: todos podem ser ogros sem que isso
> vire pessoal. O que eu vi, e não apreciei muito foi o tipo de
> argumento e o tom que nosso colega André usou quando estávamos
> falando sobre o email que ele mesmo enviou para uma lista de
> discussões. Me senti ofendido porém não vou o retribuir pois não
> preciso disso, mas não vou deixar passar em branco a coisa. Antes de
> falar que alguma coisa faz pessoas se afastarem da comunidade, o tipo
> de atitude do mesmo faz também, e muito. E acho que muito mais do
> que, com "delicadeza", tentarmos colocar a marretadas 'use warnings;
> use strict;' e perldoc -f foo na cabeça das pessoas. Com a segunda
> atitude, mais cedo ou mais tarde, aquele em que usamos a marreta
> perceberá que estávamos tentando ajudá-lo da melhor maneira,
> ensinando-o a pescar. Já no segundo, fica apenas a má educação do
> remetente.


A minha conclusão sobre esse episódio é que todos aqui temos aqui boas
intenções, sobre o quê e como ensinar, porém cada um do seu jeito. Enviei o
email expressando uma opinião (exclusivamente)minha e apesar de conhecer o
link que o Nelson me enviou, que ao meu ver, também é mais uma opinião sobre
como proceder diante de uma situação como essas onde podemos ou não
concordar.

Em resumo, caminhos diferentes mas os mesmos objetivos.

-- Igor
>
>
> _______________________________________________
> 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/20070830/c1e0bc69/attachment.html 

From flaviobei em gmail.com  Thu Aug 30 11:02:37 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Thu, 30 Aug 2007 15:02:37 -0300
Subject: [Cascavel-pm] =?utf-8?q?saber_se_o_arquivo_est=C3=A1_aberto?=
Message-ID: <557376b60708301102k4a484756t7b1de47b90ff0470@mail.gmail.com>

To precisando de um help..
to montando uma rotina em perl que precisa verificar periodicamente
alguns arquivos no servidor (até ai lindo, ta na cron), mas preciso
saber se o arquivo não está em uso antes de mecher nele...

O arquivo é gerado por um robo que não tenho acesso, caso tivesse eu
poderia gerar um arquivo de lock e liberar após a conclusão, mas não
tenho como...

então preciso ficar buscando o arquivo numa pasta, e processar ele,
mas caso ele esteja incompleto vai dar inconsistência dos dados, pois
não vai bater o número de registros com o traller...

se estiver liberado, eu vou tirar ele de lá e renomear, mas ai sussa,
só preciso mesmo confirmar se ele ta em uso...

tentei alguns comando via o system, mas pelo visto ele não traz
retorno da instrução...

alguma sugestão?

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

From edencardim em gmail.com  Thu Aug 30 11:08:44 2007
From: edencardim em gmail.com (eden)
Date: Thu, 30 Aug 2007 15:08:44 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <557376b60708301102k4a484756t7b1de47b90ff0470@mail.gmail.com>
References: <557376b60708301102k4a484756t7b1de47b90ff0470@mail.gmail.com>
Message-ID: <3de55ead0708301108u4f470ad4o23ac5efc243de7e2@mail.gmail.com>

On 8/30/07, Flavio Bei <flaviobei em gmail.com> wrote:
> To precisando de um help..
> to montando uma rotina em perl que precisa verificar periodicamente
> alguns arquivos no servidor (até ai lindo, ta na cron), mas preciso
> saber se o arquivo não está em uso antes de mecher nele...
>
> O arquivo é gerado por um robo que não tenho acesso, caso tivesse eu
> poderia gerar um arquivo de lock e liberar após a conclusão, mas não
> tenho como...
>
> então preciso ficar buscando o arquivo numa pasta, e processar ele,
> mas caso ele esteja incompleto vai dar inconsistência dos dados, pois
> não vai bater o número de registros com o traller...

O que é "traller"?

> se estiver liberado, eu vou tirar ele de lá e renomear, mas ai sussa,
> só preciso mesmo confirmar se ele ta em uso...
>
> tentei alguns comando via o system, mas pelo visto ele não traz
> retorno da instrução...

"The return value is the exit status of the program as returned by the
"wait" call" -- perldoc -f system

-- 
edenc.vox.com

From lgbassani em terra.com.br  Thu Aug 30 11:20:33 2007
From: lgbassani em terra.com.br (Luciano Giordani Bassani)
Date: Thu, 30 Aug 2007 15:20:33 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <557376b60708301102k4a484756t7b1de47b90ff0470@mail.gmail.com>
References: <557376b60708301102k4a484756t7b1de47b90ff0470@mail.gmail.com>
Message-ID: <46D70A71.5010009@terra.com.br>

Estes tempos eu tive um problema similar, e resolvi usando um "ps", mas
acabei fazendo isso em bash ao invés de Perl.
Se o robo é executado na mesma máquina, tu pode fazer um "ps x | grep
robo" e ver se ele está rodando. Se estiver rodando, não executa teu
script em Perl.
Eu "enriqueci" a rotina com um sleep, dai o script fica monitorando até
o o processo não estar mais rodando.

SDS,

Luciano


Flavio Bei escreveu:
> To precisando de um help..
> to montando uma rotina em perl que precisa verificar periodicamente
> alguns arquivos no servidor (até ai lindo, ta na cron), mas preciso
> saber se o arquivo não está em uso antes de mecher nele...
>
> O arquivo é gerado por um robo que não tenho acesso, caso tivesse eu
> poderia gerar um arquivo de lock e liberar após a conclusão, mas não
> tenho como...
>
> então preciso ficar buscando o arquivo numa pasta, e processar ele,
> mas caso ele esteja incompleto vai dar inconsistência dos dados, pois
> não vai bater o número de registros com o traller...
>
> se estiver liberado, eu vou tirar ele de lá e renomear, mas ai sussa,
> só preciso mesmo confirmar se ele ta em uso...
>
> tentei alguns comando via o system, mas pelo visto ele não traz
> retorno da instrução...
>
> alguma sugestão?
>
>   

From flaviobei em gmail.com  Thu Aug 30 11:21:16 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Thu, 30 Aug 2007 15:21:16 -0300
Subject: [Cascavel-pm] =?utf-8?q?saber_se_o_arquivo_est=C3=A1_aberto?=
In-Reply-To: <3de55ead0708301108u4f470ad4o23ac5efc243de7e2@mail.gmail.com>
References: <557376b60708301102k4a484756t7b1de47b90ff0470@mail.gmail.com>
	<3de55ead0708301108u4f470ad4o23ac5efc243de7e2@mail.gmail.com>
Message-ID: <557376b60708301121mda53d1fr9ff57c27f7d2091e@mail.gmail.com>

ops, trailer... a linha com o número de registros do fim do arquivo...
sou novo no perl e me jogaram a bucha,,,dai to apanhando legal com as funções,
assim que der um jeito posto aqui

Em 30/08/07, eden<edencardim em gmail.com> escreveu:
> On 8/30/07, Flavio Bei <flaviobei em gmail.com> wrote:
> > To precisando de um help..
> > to montando uma rotina em perl que precisa verificar periodicamente
> > alguns arquivos no servidor (até ai lindo, ta na cron), mas preciso
> > saber se o arquivo não está em uso antes de mecher nele...
> >
> > O arquivo é gerado por um robo que não tenho acesso, caso tivesse eu
> > poderia gerar um arquivo de lock e liberar após a conclusão, mas não
> > tenho como...
> >
> > então preciso ficar buscando o arquivo numa pasta, e processar ele,
> > mas caso ele esteja incompleto vai dar inconsistência dos dados, pois
> > não vai bater o número de registros com o traller...
>
> O que é "traller"?
>
> > se estiver liberado, eu vou tirar ele de lá e renomear, mas ai sussa,
> > só preciso mesmo confirmar se ele ta em uso...
> >
> > tentei alguns comando via o system, mas pelo visto ele não traz
> > retorno da instrução...
>
> "The return value is the exit status of the program as returned by the
> "wait" call" -- perldoc -f system
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


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

From glasswalk3r em hotmail.com  Thu Aug 30 12:40:51 2007
From: glasswalk3r em hotmail.com (Alceu Rodrigues de Freitas Junior)
Date: Thu, 30 Aug 2007 22:40:51 +0300
Subject: [Cascavel-pm] =?windows-1252?q?_RE=3A__saber_se_o_arquivo_est=E1_?=
 =?windows-1252?q?aberto?=
Message-ID: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>

Se você tem como monitorar esse robô via "ps", então procure um módulo no CPAN que lhe forneça uma saída semelhante ao invés de usar system. Aliás, como alguém já explicou, system não vai lhe fornecer a saída do programa. Você teria que usar truques com open (vide perldoc) ou usar os módulos IPC::Open2 ou IPC::Open3.Isso, no entanto, não é mais do que um quebra-galho. Seu programa não tem como saber se o robô terminou o arquivo corretamente ou não... a melhor coisa seria se esse programa gerasse algum tipo de sinal para seu programa (um arquivo .lock, por exemplo) ou usasse o lock consultivo do UNIX. Se ele implementar isso, você pode fazer o mesmo com seu programa e ficar mais tranqüilo.[]'sAlceu> Date: Thu, 30 Aug 2007 15:02:37 -0300> From: flaviobei em gmail.com> To: cascavel-pm em pm.org> Subject: [Cascavel-pm] saber se o arquivo está aberto> > To precisando de um help..> to montando uma rotina em perl que precisa verificar periodicamente> alguns arquivos no servidor (até ai lindo, ta na cron), mas preciso> saber se o arquivo não está em uso antes de mecher nele...> > O arquivo é gerado por um robo que não tenho acesso, caso tivesse eu> poderia gerar um arquivo de lock e liberar após a conclusão, mas não> tenho como...> > então preciso ficar buscando o arquivo numa pasta, e processar ele,> mas caso ele esteja incompleto vai dar inconsistência dos dados, pois> não vai bater o número de registros com o traller...> > se estiver liberado, eu vou tirar ele de lá e renomear, mas ai sussa,> só preciso mesmo confirmar se ele ta em uso...> > tentei alguns comando via o system, mas pelo visto ele não traz> retorno da instrução...> > alguma sugestão?
_________________________________________________________________
Make every IM count. Download Windows Live Messenger and join the i?m Initiative now. It?s free. 
http://im.live.com/messenger/im/home/?source=TAGWL_June07
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070830/2f0222ef/attachment.html 

From flaviobei em gmail.com  Thu Aug 30 16:02:37 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Thu, 30 Aug 2007 20:02:37 -0300
Subject: [Cascavel-pm] =?utf-8?q?saber_se_o_arquivo_est=C3=A1_aberto?=
In-Reply-To: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
Message-ID: <557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>

consegui uma solução assim, deu certo, mas to com dúvidas... será que
o resultado será sempre preciso?

o código ficou + - assim

##########################################
#!/usr/bin/perl
# sistema que vai buscar em um diretório um determinado arquivo
# caso o arquivo não esteja em uso por nenhum processo ele é renomeado
##########################################

use strict;
my $caminho = "/home/user/pasta/";
my $extensao = "*.txt";
my $completo = $caminho.$extensao;
my @encontrados;
my $retorno;
my $lista;
my $teste;

$lista = (`ls -1 $completo`);

if ($lista ne '')
{
@encontrados = split('\n', $lista);
}

foreach $retorno (@encontrados) {
	
$teste = (`ps xa |grep $retorno\$`);
		
	if ($teste eq '')
	{
	#processa o arquivo pois ele não está em uso por nenhum processo
	print ("=======>>> Altera o arquivo $retorno pois não está em uso\n");
	`mv $retorno $retorno.new`;	
	}
	else
	{
 	#não processa o arquivo pois ele está em uso por algum processo
  	print ("========>!!!! Não altera o arquivo $retorno\n");	
	}
}
##############################################
deu certo, e está rodando de boa, dai joguei na cron e ele fica
verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
que tem hora que ele não mostra o  processo sendo executado por outro
usuário, tem hora que mostra normal...

From fernandocorrea em gmail.com  Thu Aug 30 16:26:43 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Thu, 30 Aug 2007 20:26:43 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
Message-ID: <f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>

pq, ao invez de usar 2 comando,  não usa só o ps -C nome_prog???

Em 30/08/07, Flavio Bei <flaviobei em gmail.com> escreveu:
>
> consegui uma solução assim, deu certo, mas to com dúvidas... será que
> o resultado será sempre preciso?
>
> o código ficou + - assim
>
> ##########################################
> #!/usr/bin/perl
> # sistema que vai buscar em um diretório um determinado arquivo
> # caso o arquivo não esteja em uso por nenhum processo ele é renomeado
> ##########################################
>
> use strict;
> my $caminho = "/home/user/pasta/";
> my $extensao = "*.txt";
> my $completo = $caminho.$extensao;
> my @encontrados;
> my $retorno;
> my $lista;
> my $teste;
>
> $lista = (`ls -1 $completo`);
>
> if ($lista ne '')
> {
> @encontrados = split('\n', $lista);
> }
>
> foreach $retorno (@encontrados) {
>
> $teste = (`ps xa |grep $retorno\$`);
>
>         if ($teste eq '')
>         {
>         #processa o arquivo pois ele não está em uso por nenhum processo
>         print ("=======>>> Altera o arquivo $retorno pois não está em
> uso\n");
>         `mv $retorno $retorno.new`;
>         }
>         else
>         {
>         #não processa o arquivo pois ele está em uso por algum processo
>         print ("========>!!!! Não altera o arquivo $retorno\n");
>         }
> }
> ##############################################
> deu certo, e está rodando de boa, dai joguei na cron e ele fica
> verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
> que tem hora que ele não mostra o  processo sendo executado por outro
> usuário, tem hora que mostra normal...
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From ednardo em lobo.eti.br  Thu Aug 30 16:42:37 2007
From: ednardo em lobo.eti.br (Ednardo Lobo)
Date: Thu, 30 Aug 2007 20:42:37 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
Message-ID: <46D755ED.4090509@lobo.eti.br>

Flávio,

Posso não estar completamente correto, mas creio estar!

Portanto, se o que você pretende fazer com arquivo é apenas renomeá-lo 
não precisa se preocupar se ele está sendo usado por outro processo - 
simplesmente o renomeie.

O fato de usar o comando "mv" não irá causar nenhum problema de 
leitura/escrita a ele por parte de algum processo. E a razão, é que um 
arquivo após aberto será referênciado por seu descritor e não pelo nome. 
E esse descritor não irá mudar após o arquivo ser renomeado.

O "logrotate" se utiliza desse princípio para rotacionar os arquivos de 
logs. E faz isto com arquivos de logs de servidores como: syslog, 
apache, ftp, mysql, etc.

Flavio Bei wrote:
> consegui uma solução assim, deu certo, mas to com dúvidas... será que
> o resultado será sempre preciso?
> 
> o código ficou + - assim
> 
> ##########################################
> #!/usr/bin/perl
> # sistema que vai buscar em um diretório um determinado arquivo
> # caso o arquivo não esteja em uso por nenhum processo ele é renomeado
> ##########################################
> 
> use strict;
> my $caminho = "/home/user/pasta/";
> my $extensao = "*.txt";
> my $completo = $caminho.$extensao;
> my @encontrados;
> my $retorno;
> my $lista;
> my $teste;
> 
> $lista = (`ls -1 $completo`);
> 
> if ($lista ne '')
> {
> @encontrados = split('\n', $lista);
> }
> 
> foreach $retorno (@encontrados) {
> 	
> $teste = (`ps xa |grep $retorno\$`);
> 		
> 	if ($teste eq '')
> 	{
> 	#processa o arquivo pois ele não está em uso por nenhum processo
> 	print ("=======>>> Altera o arquivo $retorno pois não está em uso\n");
> 	`mv $retorno $retorno.new`;	
> 	}
> 	else
> 	{
>  	#não processa o arquivo pois ele está em uso por algum processo
>   	print ("========>!!!! Não altera o arquivo $retorno\n");	
> 	}
> }
> ##############################################
> deu certo, e está rodando de boa, dai joguei na cron e ele fica
> verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
> que tem hora que ele não mostra o  processo sendo executado por outro
> usuário, tem hora que mostra normal...

-- 
     Ednardo Lobo

     www.lobo.eti.br

From lgbassani em terra.com.br  Thu Aug 30 17:15:16 2007
From: lgbassani em terra.com.br (Luciano Giordani Bassani)
Date: Thu, 30 Aug 2007 21:15:16 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
Message-ID: <46D75D94.7090502@terra.com.br>

Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070830/1d0728f2/attachment.html 

From flaviobei em gmail.com  Fri Aug 31 07:18:10 2007
From: flaviobei em gmail.com (Flavio Bei)
Date: Fri, 31 Aug 2007 11:18:10 -0300
Subject: [Cascavel-pm] =?utf-8?q?saber_se_o_arquivo_est=C3=A1_aberto?=
In-Reply-To: <46D75D94.7090502@terra.com.br>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
Message-ID: <557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>

opa Ednardo, blz?
eu não posso renomear ele antes de terminar, pois o processo pra
renomear vai ser executado junto com uma mudança dop local do arquivo,
para ele ser processado por outro programa..
sei que parece uma zona, mas é um esquema que já funcionava aqui.,...
mas era manual..

e hoje apareceu mais uma novidade, esse arquivo vai estar em uso por
um ftp, então preciso esperar o ftp acabar pra mecher nele...

to tentando o fuser, mas não ta resultando nada útil...

abraços

Em 30/08/07, Luciano Giordani Bassani<lgbassani em terra.com.br> escreveu:
> Eu não sabia deste pc -C <nome_prog>, mas aqui funcionou.
> Em todo caso, se tu quiser mesmo utilizar o esquema com o grep, eu recomendo
> tu mudar para algo assim:
> $teste = (`ps xa | grep $retorno\$ | grep -v grep`);
>
> Isso é para evitar que o próprio comando "ps xa | grep" gere um
> "falso-positivo".
>
>
> SDS,
>
> Luciano
>
>
>
> Fernando Oliveira escreveu:
> pq, ao invez de usar 2 comando,  não usa só o ps -C nome_prog???
>
> Em 30/08/07, Flavio Bei <flaviobei em gmail.com > escreveu:
> > consegui uma solução assim, deu certo, mas to com dúvidas... será que
> > o resultado será sempre preciso?
> >
> > o código ficou + - assim
> >
> > ##########################################
> > #!/usr/bin/perl
> > # sistema que vai buscar em um diretório um determinado arquivo
> > # caso o arquivo não esteja em uso por nenhum processo ele é renomeado
> > ##########################################
> >
> > use strict;
> > my $caminho = "/home/user/pasta/";
> > my $extensao = "*.txt";
> > my $completo = $caminho.$extensao;
> > my @encontrados;
> > my $retorno;
> > my $lista;
> > my $teste;
> >
> > $lista = (`ls -1 $completo`);
> >
> > if ($lista ne '')
> > {
> > @encontrados = split('\n', $lista);
> > }
> >
> > foreach $retorno (@encontrados) {
> >
> > $teste = (`ps xa |grep $retorno\$`);
> >
> >         if ($teste eq '')
> >         {
> >         #processa o arquivo pois ele não está em uso por nenhum processo
> >         print ("=======>>> Altera o arquivo $retorno pois não está em
> uso\n");
> >         `mv $retorno $retorno.new`;
> >         }
> >         else
> >         {
> >         #não processa o arquivo pois ele está em uso por algum processo
> >         print ("========>!!!! Não altera o arquivo $retorno\n");
> >         }
> > }
> > ##############################################
> > deu certo, e está rodando de boa, dai joguei na cron e ele fica
> > verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
> > que tem hora que ele não mostra o  processo sendo executado por outro
> > usuário, tem hora que mostra normal...
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> []'s Fernando ________________________________
>
_______________________________________________
Cascavel-pm
> mailing
> list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


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

From ptfzs em yahoo.com.br  Fri Aug 31 12:05:54 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 31 Aug 2007 12:05:54 -0700 (PDT)
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
Message-ID: <334372.52530.qm@web31313.mail.mud.yahoo.com>

Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D


Obrigad's




      Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070831/f3f3b155/attachment.html 

From nferraz em gmail.com  Fri Aug 31 12:18:26 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 31 Aug 2007 20:18:26 +0100
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <334372.52530.qm@web31313.mail.mud.yahoo.com>
References: <334372.52530.qm@web31313.mail.mud.yahoo.com>
Message-ID: <EDCC3D23-5A23-4E97-B637-8970DA480559@gmail.com>

Em Aug 31, 2007, às 8:05 PM, Patty Silva escreveu:

> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D

perldoc Tie::File


From rafamv1 em ig.com.br  Fri Aug 31 13:23:32 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Fri, 31 Aug 2007 17:23:32 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
Message-ID: <20070831_202332_027277.rafamv1@ig.com.br>




>Em Aug 31, 2007, às 8:05 PM, Patty Silva escreveu: 
> 
>> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D 

system ("tail -3 arquivo"); 



From acid06 em gmail.com  Fri Aug 31 13:30:18 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 31 Aug 2007 17:30:18 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <20070831_202332_027277.rafamv1@ig.com.br>
References: <20070831_202332_027277.rafamv1@ig.com.br>
Message-ID: <9a08c9b40708311330v2ed0b10dw728559dc9c96d417@mail.gmail.com>

On 8/31/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> system ("tail -3 arquivo");

Eu estou tendo um erro com a sua "solução"!

  C:\>perl -e "system ('tail -3 arquivo');"
  'tail' não é reconhecido como um comando interno
  ou externo, um programa operável ou um arquivo em lotes.

Claramente ela não funciona!
Por favor, poste somente soluções que funcionem e estejam corretas.
Preferencialmente, em Perl.

PS: o "tom" desse email é irônico.

-Nilson Santos F. Jr.

From rafamv1 em ig.com.br  Fri Aug 31 13:36:19 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Fri, 31 Aug 2007 17:36:19 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
Message-ID: <20070831_203619_038613.rafamv1@ig.com.br>




Em (17:30:18), Cascavel Perl Mongers escreveu: 


>On 8/31/07, Rafael Lebrão Martins wrote: 
>> system ("tail -3 arquivo"); 
> 
>Eu estou tendo um erro com a sua "solução"! 
> 
> C:\>perl -e "system ('tail -3 arquivo');" 
> 'tail' não é reconhecido como um comando interno 
> ou externo, um programa operável ou um arquivo em lotes. 
> 
>Claramente ela não funciona! 
>Por favor, poste somente soluções que funcionem e estejam corretas. 
>Preferencialmente, em Perl. 
> 
>PS: o "tom" desse email é irônico. 
> 
>-Nilson Santos F. Jr. 

Você é um perfeito idiota.... 
---------------------------------- 
#!/usr/bin/perl 
use warnings; 
use strict; 
use diagnostics; 

system ("tail -3 arquivo"); 

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



From rafamv1 em ig.com.br  Fri Aug 31 13:42:04 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Fri, 31 Aug 2007 17:42:04 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
Message-ID: <20070831_204204_021778.rafamv1@ig.com.br>

Caro Nelson, tail não é reconhecido como um porra nenhuma no Windows!!!! 





From acid06 em gmail.com  Fri Aug 31 13:42:13 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 31 Aug 2007 17:42:13 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <20070831_203619_038613.rafamv1@ig.com.br>
References: <20070831_203619_038613.rafamv1@ig.com.br>
Message-ID: <9a08c9b40708311342y239789beg9ecb3d29ca2d4cc9@mail.gmail.com>

On 8/31/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Você é um perfeito idiota....
> ----------------------------------
> #!/usr/bin/perl
> use warnings;
> use strict;
> use diagnostics;
>
> system ("tail -3 arquivo");
>
> ------------------------------------

Hmmm... continua sem funcionar. Você pode me ajudar?

Vou colocar a listagem passo a passo do que eu fiz, pra ver se o
problema fica mais claro pra você:

  1) Abri o shell cmd.exe e executei o editor da seguinte maneira:
notepad programa.pl
  2) Colei o código no editor e salvei.
  3)
    E:\>perl programa.pl
    'tail' não é reconhecido como um comando interno
    ou externo, um programa operável ou um arquivo em lotes.
  4) Continuo tendo o mesmo erro.

Repito a sugestão anterior. Por favor, escreva uma solução *em Perl*.

PS: s/me ajudar/se ajudar/

-Nilson Santos F. Jr.

From rafamv1 em ig.com.br  Fri Aug 31 13:42:50 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Fri, 31 Aug 2007 17:42:50 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
Message-ID: <20070831_204250_064508.rafamv1@ig.com.br>

Nilson, 'tail' não é reconhecido como bosta nenhuma no Windows!! 



From paulo.ricardo em expresso.com.br  Fri Aug 31 13:45:26 2007
From: paulo.ricardo em expresso.com.br (Paulo Ricardo)
Date: Fri, 31 Aug 2007 17:45:26 -0300
Subject: [Cascavel-pm] SAIR DA LISTA
Message-ID: <013b01c7ec0f$dc89c730$0e62d70a@radicepaulo>

Boa noite.

Administrador, por favor, me tire da lista.
Grato!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070831/c34b0e1c/attachment.html 

From igor.sutton em yahoo.co.uk  Fri Aug 31 13:47:04 2007
From: igor.sutton em yahoo.co.uk (Igor Sutton Lopes)
Date: Fri, 31 Aug 2007 22:47:04 +0200
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <20070831_204204_021778.rafamv1@ig.com.br>
References: <20070831_204204_021778.rafamv1@ig.com.br>
Message-ID: <BEA744D4-1088-49C8-837B-89DF88F7C8D3@yahoo.co.uk>


On Aug 31, 2007, at 10:42 PM, Rafael Lebrão Martins wrote:

> Caro Nelson, tail não é reconhecido como um porra nenhuma no  
> Windows!!!!

Hrm... Acho que você deveria se acalmar um bocado... Isso aqui já  
passou da 'ogrice' e virou falta de educação...

-- Igor


From rafamv1 em ig.com.br  Fri Aug 31 13:49:38 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Fri, 31 Aug 2007 17:49:38 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
Message-ID: <20070831_204938_017089.rafamv1@ig.com.br>




Em (22:47:04), Cascavel Perl Mongers escreveu: 


>On Aug 31, 2007, at 10:42 PM, Rafael Lebrão Martins wrote: 
> 
>> Caro Nelson, tail não é reconhecido como um porra nenhuma no 
>> Windows!!!! 
> 
>Hrm... Acho que você deveria se acalmar um bocado... Isso aqui já 
>passou da 'ogrice' e virou falta de educação... 
> 
>-- Igor 
Sinceramente, não sei o que você entende por "educação".. Leia todas as 
mensagens desta lista e tire as suas conclusões!!! 



From acid06 em gmail.com  Fri Aug 31 13:50:39 2007
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 31 Aug 2007 17:50:39 -0300
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <20070831_204250_064508.rafamv1@ig.com.br>
References: <20070831_204250_064508.rafamv1@ig.com.br>
Message-ID: <9a08c9b40708311350j697ebe91o29047ce1dd45e106@mail.gmail.com>

On 8/31/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Nilson, 'tail' não é reconhecido como bosta nenhuma no Windows!!

Isso, você chegou ao ponto desejado.

O *aplicativo externo* "tail" não existe em uma instalação padrão[1]
do Windows assim como pode não existir em alguma instalação não padrão
de um Linux ou *BSD e muito dificilmente irá existir em plataformas
mais exóticas como Symbian ou WinCE.

[1]: se você instalar as GNU Tools for Windows ou estiver sob Cygwin,
você terá um "tail" sob Windows.

-Nilson Santos F. Jr.

From otaviof em gmail.com  Fri Aug 31 13:50:46 2007
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Fri, 31 Aug 2007 17:50:46 -0300
Subject: [Cascavel-pm] SAIR DA LISTA
In-Reply-To: <013b01c7ec0f$dc89c730$0e62d70a@radicepaulo>
References: <013b01c7ec0f$dc89c730$0e62d70a@radicepaulo>
Message-ID: <8e3843570708311350t4e77b370o8c96517d17cf538f@mail.gmail.com>

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

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

From nferraz em gmail.com  Fri Aug 31 14:05:55 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 31 Aug 2007 22:05:55 +0100
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <20070831_202332_027277.rafamv1@ig.com.br>
References: <20070831_202332_027277.rafamv1@ig.com.br>
Message-ID: <C625417B-D100-467F-BCCB-DA1A4101BCC2@gmail.com>

>>> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D
>
> system ("tail -3 arquivo");

Rafael,

Tem dois erros aí:

1) system não retorna os valores do programa externo; para ler o  
resultado você precisaria usar backticks:

	my @result = `tail -n 3 arquivo`;

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

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

[]s

Nelson


From nferraz em gmail.com  Fri Aug 31 14:07:23 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 31 Aug 2007 22:07:23 +0100
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <20070831_204204_021778.rafamv1@ig.com.br>
References: <20070831_204204_021778.rafamv1@ig.com.br>
Message-ID: <8E152CDC-426F-49D4-8D5F-BAA243C28775@gmail.com>

Em Aug 31, 2007, às 9:42 PM, Rafael Lebrão Martins escreveu:

> Caro Nelson, tail não é reconhecido como um porra nenhuma no  
> Windows!!!!

Hey,

Não confunda Nelson com Nilson!!! ;-)


From nferraz em gmail.com  Fri Aug 31 14:40:29 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 31 Aug 2007 22:40:29 +0100
Subject: [Cascavel-pm] Ler arquivo - ultimas linhas
In-Reply-To: <334372.52530.qm@web31313.mail.mud.yahoo.com>
References: <334372.52530.qm@web31313.mail.mud.yahoo.com>
Message-ID: <D4D0E8A3-D8B7-445C-917C-6ADFA8CF6071@gmail.com>

> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D

Bom,

Deixe-me desenvolver um pouco mais a resposta anterior:

       1 #!/usr/bin/perl
       2
       3 use strict;
       4 use warnings;
       5
       6 use Tie::File;
       7
       8 my @array;
       9
      10 tie @array, 'Tie::File', $ARGV[0]
      11     or die "Can't tie to '$ARGV[0]': $!\n";
      12
      13 print "$array[-1]\n";

Deixo o desafio de ler as três últimas linhas como um exercício à  
leitora. :-)

From ptfzs em yahoo.com.br  Fri Aug 31 14:57:49 2007
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 31 Aug 2007 14:57:49 -0700 (PDT)
Subject: [Cascavel-pm] Res:  Ler arquivo - ultimas linhas
Message-ID: <440263.97839.qm@web31311.mail.mud.yahoo.com>

#!/usr/bin/perl



@ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja <NOME> <LINHA>\n";



($arquivo, $linha) = @ARGV;

open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo para leitura: $!\n";

while (<INFILE>) {

    $linha = $_;

    last if $. == $linha;

}

if ($. != $linha) {

    die "Nao eh possivel encontrar a linha desejada no arquivo...\n";

}

print;

----- Mensagem original ----
De: Nelson Ferraz <nferraz em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Sexta-feira, 31 de Agosto de 2007 18:40:29
Assunto: Re: [Cascavel-pm] Ler arquivo - ultimas linhas

> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D

Bom,

Deixe-me desenvolver um pouco mais a resposta anterior:

       1 #!/usr/bin/perl
       2
       3 use strict;
       4 use warnings;
       5
       6 use Tie::File;
       7
       8 my @array;
       9
      10 tie @array, 'Tie::File', $ARGV[0]
      11     or die "Can't tie to '$ARGV[0]': $!\n";
      12
      13 print "$array[-1]\n";

Deixo o desafio de ler as três últimas linhas como um exercício à  
leitora. :-)
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm







      Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070831/9408f376/attachment.html 

From rafamv1 em ig.com.br  Fri Aug 31 15:35:22 2007
From: rafamv1 em ig.com.br (Rafael Lebrão Martins)
Date: Fri, 31 Aug 2007 19:35:22 -0300
Subject: Discussão
Message-ID: <20070831_223522_053687.rafamv1@ig.com.br>

Queria pedir desculpas ao Nilson pela minha resposta grosseira.. Tenho 
certeza de que nós dois tentamos ajudar. "Existe mais de uma maneira de 
fazer ...". Admito que a solução proposta por mim não foi a melhor, no 
entanto, tentei ajudar da forma que eu sabia..Minha especialidade ainda não 
é Perl, portanto, antes de responder a alguma dúvida na lista, vou me 
certificar de que a minha resposta será uma solução válida... Um abraço. 



From edencardim em gmail.com  Fri Aug 31 15:52:03 2007
From: edencardim em gmail.com (eden)
Date: Fri, 31 Aug 2007 19:52:03 -0300
Subject: [Cascavel-pm] Res: Ler arquivo - ultimas linhas
In-Reply-To: <440263.97839.qm@web31311.mail.mud.yahoo.com>
References: <440263.97839.qm@web31311.mail.mud.yahoo.com>
Message-ID: <3de55ead0708311552w425ac31bn21909767659144a6@mail.gmail.com>

On 8/31/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> #!/usr/bin/perl
>
>  @ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja <NOME>
> <LINHA>\n";
>
>  ($arquivo, $linha) = @ARGV;
>  open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo para
> leitura: $!\n";
>  while (<INFILE>) {
>      $linha = $_;
>      last if $. == $linha;
>  }
>  if ($. != $linha) {
>      die "Nao eh possivel encontrar a linha desejada no arquivo...\n";
>  }
>  print;

Bem, pelo visto, o desempenho não importa, então, golfe!

perl -e 'print(reverse((reverse <>)[0..2]))' arquivo

-- 
edenc.vox.com

From fernandocorrea em gmail.com  Fri Aug 31 16:37:48 2007
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Fri, 31 Aug 2007 20:37:48 -0300
Subject: [Cascavel-pm] Res: Ler arquivo - ultimas linhas
In-Reply-To: <3de55ead0708311552w425ac31bn21909767659144a6@mail.gmail.com>
References: <440263.97839.qm@web31311.mail.mud.yahoo.com>
	<3de55ead0708311552w425ac31bn21909767659144a6@mail.gmail.com>
Message-ID: <f40026c0708311637r270050eemba01a2b82b2f3a23@mail.gmail.com>

perl -e 'print((<>)[-3..-1])' arquivo

Em 31/08/07, eden <edencardim em gmail.com> escreveu:
>
> On 8/31/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> >
> > #!/usr/bin/perl
> >
> >  @ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja
> <NOME>
> > <LINHA>\n";
> >
> >  ($arquivo, $linha) = @ARGV;
> >  open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo para
> > leitura: $!\n";
> >  while (<INFILE>) {
> >      $linha = $_;
> >      last if $. == $linha;
> >  }
> >  if ($. != $linha) {
> >      die "Nao eh possivel encontrar a linha desejada no arquivo...\n";
> >  }
> >  print;
>
> Bem, pelo visto, o desempenho não importa, então, golfe!
>
> perl -e 'print(reverse((reverse <>)[0..2]))' arquivo
>
> --
> edenc.vox.com
> _______________________________________________
> 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/20070831/17347d0a/attachment.html 

From edencardim em gmail.com  Fri Aug 31 16:45:20 2007
From: edencardim em gmail.com (eden)
Date: Fri, 31 Aug 2007 20:45:20 -0300
Subject: [Cascavel-pm] Res: Ler arquivo - ultimas linhas
In-Reply-To: <f40026c0708311637r270050eemba01a2b82b2f3a23@mail.gmail.com>
References: <440263.97839.qm@web31311.mail.mud.yahoo.com>
	<3de55ead0708311552w425ac31bn21909767659144a6@mail.gmail.com>
	<f40026c0708311637r270050eemba01a2b82b2f3a23@mail.gmail.com>
Message-ID: <3de55ead0708311645j5432efect2c025c1fc28f1b7a@mail.gmail.com>

On 8/31/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> perl -e 'print((<>)[-3..-1])' arquivo

É... ficou difícil agora, ainda mais sexta-feira a noite! :)

-- 
edenc.vox.com

From nferraz em gmail.com  Fri Aug 31 19:08:06 2007
From: nferraz em gmail.com (Nelson Ferraz)
Date: Sat, 1 Sep 2007 03:08:06 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Discuss=E3o?=
In-Reply-To: <20070831_223522_053687.rafamv1@ig.com.br>
References: <20070831_223522_053687.rafamv1@ig.com.br>
Message-ID: <151651DA-4518-4C91-82C7-8A92BB76BA58@gmail.com>

Em Aug 31, 2007, às 11:35 PM, Rafael Lebrão Martins escreveu:

> Queria pedir desculpas ao Nilson pela minha resposta grosseira.. Tenho
> certeza de que nós dois tentamos ajudar. "Existe mais de uma  
> maneira de
> fazer ...". Admito que a solução proposta por mim não foi a melhor, no
> entanto, tentei ajudar da forma que eu sabia..Minha especialidade  
> ainda não
> é Perl, portanto, antes de responder a alguma dúvida na lista, vou me
> certificar de que a minha resposta será uma solução válida... Um  
> abraço.

Rafael++

Parabéns pela humildade! Estamos todos aqui para aprender.

Um grande abraço,

Nelson


From shonorio em gmail.com  Fri Aug 31 19:27:20 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Fri, 31 Aug 2007 23:27:20 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?saber_se_o_arquivo_est=E1_aberto?=
In-Reply-To: <557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
References: <BAY121-W12B386FA4BA0033B4EF76DF5CD0@phx.gbl>
	<557376b60708301602r239f2aabu433666b8e07f9cef@mail.gmail.com>
	<f40026c0708301626u10875521sdedf7fd6b5ac16b4@mail.gmail.com>
	<46D75D94.7090502@terra.com.br>
	<557376b60708310718v4c5eb7a0w91be51d1dda959ac@mail.gmail.com>
Message-ID: <12d1f4ee0708311927v4cadaad0l4fa4096958fc76b9@mail.gmail.com>

Cara, eu acho que você pode utilizar também o Linux::Inotify2. Este link (
http://peter.makholm.net/2007/08/21/on-handling-email/) possue um exemplo
interessante.

Abaixo tem um código meu mais simples ....

<code>
#!/usr/bin/perl
use Linux::Inotify2;

my $inotify = new Linux::Inotify2
     or die "Unable to create new inotify object: $!";

$inotify->watch('/tmp/t.txt', IN_ALL_EVENTS)
     or die "Watch creation failed: $!" ; # Take a look at the directory for
file changes

while () { # Loop forever
    my @events = $inotify->read;
    $e = shift(@events);
    my $name = $e->fullname;
    print "$name was accessed\n" if $e->IN_ACCESS;
    print "$name is no longer mounted\n" if $e->IN_UNMOUNT;
    print "$name is gone\n" if $e->IN_IGNORED;
    print "$name is close from write\n" if $e->IN_CLOSE_WRITE;
    print "$name is opened\n" if $e->IN_OPEN;
    print "events for $name have been lost\n" if $e->IN_Q_OVERFLOW;
}
</code>

On 8/31/07, Flavio Bei <flaviobei em gmail.com> wrote:
>
> opa Ednardo, blz?
> eu não posso renomear ele antes de terminar, pois o processo pra
> renomear vai ser executado junto com uma mudança dop local do arquivo,
> para ele ser processado por outro programa..
> sei que parece uma zona, mas é um esquema que já funcionava aqui.,...
> mas era manual..
>
> e hoje apareceu mais uma novidade, esse arquivo vai estar em uso por
> um ftp, então preciso esperar o ftp acabar pra mecher nele...
>
> to tentando o fuser, mas não ta resultando nada útil...
>
> abraços
>
> Em 30/08/07, Luciano Giordani Bassani<lgbassani em terra.com.br> escreveu:
> > Eu não sabia deste pc -C <nome_prog>, mas aqui funcionou.
> > Em todo caso, se tu quiser mesmo utilizar o esquema com o grep, eu
> recomendo
> > tu mudar para algo assim:
> > $teste = (`ps xa | grep $retorno\$ | grep -v grep`);
> >
> > Isso é para evitar que o próprio comando "ps xa | grep" gere um
> > "falso-positivo".
> >
> >
> > SDS,
> >
> > Luciano
> >
> >
> >
> > Fernando Oliveira escreveu:
> > pq, ao invez de usar 2 comando,  não usa só o ps -C nome_prog???
> >
> > Em 30/08/07, Flavio Bei <flaviobei em gmail.com > escreveu:
> > > consegui uma solução assim, deu certo, mas to com dúvidas... será que
> > > o resultado será sempre preciso?
> > >
> > > o código ficou + - assim
> > >
> > > ##########################################
> > > #!/usr/bin/perl
> > > # sistema que vai buscar em um diretório um determinado arquivo
> > > # caso o arquivo não esteja em uso por nenhum processo ele é renomeado
> > > ##########################################
> > >
> > > use strict;
> > > my $caminho = "/home/user/pasta/";
> > > my $extensao = "*.txt";
> > > my $completo = $caminho.$extensao;
> > > my @encontrados;
> > > my $retorno;
> > > my $lista;
> > > my $teste;
> > >
> > > $lista = (`ls -1 $completo`);
> > >
> > > if ($lista ne '')
> > > {
> > > @encontrados = split('\n', $lista);
> > > }
> > >
> > > foreach $retorno (@encontrados) {
> > >
> > > $teste = (`ps xa |grep $retorno\$`);
> > >
> > >         if ($teste eq '')
> > >         {
> > >         #processa o arquivo pois ele não está em uso por nenhum
> processo
> > >         print ("=======>>> Altera o arquivo $retorno pois não está em
> > uso\n");
> > >         `mv $retorno $retorno.new`;
> > >         }
> > >         else
> > >         {
> > >         #não processa o arquivo pois ele está em uso por algum
> processo
> > >         print ("========>!!!! Não altera o arquivo $retorno\n");
> > >         }
> > > }
> > > ##############################################
> > > deu certo, e está rodando de boa, dai joguei na cron e ele fica
> > > verificando de tempos em tempos... mas não sei se é a sintaxe do ps,
> > > que tem hora que ele não mostra o  processo sendo executado por outro
> > > usuário, tem hora que mostra normal...
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> >
> >
> >
> > --
> > []'s Fernando ________________________________
> >
> _______________________________________________
> Cascavel-pm
> > mailing
> > list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> --
> Flávio Bei
> Webdesigner
> (11) 8964 5315
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From shonorio em gmail.com  Fri Aug 31 19:33:35 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Fri, 31 Aug 2007 23:33:35 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Discuss=E3o?=
In-Reply-To: <20070831_223522_053687.rafamv1@ig.com.br>
References: <20070831_223522_053687.rafamv1@ig.com.br>
Message-ID: <12d1f4ee0708311933r6f404669lca40da18ab7d6d5c@mail.gmail.com>

Assim como existe mais de uma maneira de fazer alguma coisa no Perl, também
existe mais de uma maneira de apreender. Apreender com as experiências é com
certeza uma das mais eficientes.

Rafael++

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

From shonorio em gmail.com  Fri Aug 31 19:36:52 2007
From: shonorio em gmail.com (Solli Honorio)
Date: Fri, 31 Aug 2007 23:36:52 -0300
Subject: [Cascavel-pm] Res: Ler arquivo - ultimas linhas
In-Reply-To: <f40026c0708311637r270050eemba01a2b82b2f3a23@mail.gmail.com>
References: <440263.97839.qm@web31311.mail.mud.yahoo.com>
	<3de55ead0708311552w425ac31bn21909767659144a6@mail.gmail.com>
	<f40026c0708311637r270050eemba01a2b82b2f3a23@mail.gmail.com>
Message-ID: <12d1f4ee0708311936h7ea303dei442775efd8f051b6@mail.gmail.com>

Fernando e seu vício em código one-line. Cara tenho medo só de imaginar como
devem ser os teus códigos :) ... excelente tacada.

Abraços,

Solli M. Honório

On 8/31/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
>
> perl -e 'print((<>)[-3..-1])' arquivo
>
> Em 31/08/07, eden <edencardim em gmail.com> escreveu:
> >
> > On 8/31/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
> > >
> > > #!/usr/bin/perl
> > >
> > >  @ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja
> > <NOME>
> > > <LINHA>\n";
> > >
> > >  ($arquivo, $linha) = @ARGV;
> > >  open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo
> > para
> > > leitura: $!\n";
> > >  while (<INFILE>) {
> > >      $linha = $_;
> > >      last if $. == $linha;
> > >  }
> > >  if ($. != $linha) {
> > >      die "Nao eh possivel encontrar a linha desejada no arquivo...\n";
> >
> > >  }
> > >  print;
> >
> > Bem, pelo visto, o desempenho não importa, então, golfe!
> >
> > perl -e 'print(reverse((reverse <>)[0..2]))' arquivo
> >
> > --
> > edenc.vox.com
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> []'s Fernando
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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

From wendelscardua em gmail.com  Fri Aug 31 21:28:55 2007
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Sat, 1 Sep 2007 01:28:55 -0300
Subject: [Cascavel-pm] Res: Ler arquivo - ultimas linhas
In-Reply-To: <3de55ead0708311645j5432efect2c025c1fc28f1b7a@mail.gmail.com>
References: <440263.97839.qm@web31311.mail.mud.yahoo.com>
	<3de55ead0708311552w425ac31bn21909767659144a6@mail.gmail.com>
	<f40026c0708311637r270050eemba01a2b82b2f3a23@mail.gmail.com>
	<3de55ead0708311645j5432efect2c025c1fc28f1b7a@mail.gmail.com>
Message-ID: <726229b50708312128y66e60dfm34df6c985a585d35@mail.gmail.com>

Consegui diminuir mais 1 ponto:
perl -e 'print+(<>)[-3..-1]' arquivo


[]s
Wendel

On 8/31/07, eden <edencardim em gmail.com> wrote:
>
> On 8/31/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> > perl -e 'print((<>)[-3..-1])' arquivo
>
> É... ficou difícil agora, ainda mais sexta-feira a noite! :)
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070901/fc6bfcfa/attachment-0001.html