From rafamv1 em ig.com.br  Fri Jan  4 03:37:49 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 4 Jan 2008 08:37:49 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
Message-ID: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>

Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
diretório principal, usando o código abaixo:


use CGI qw ( :standard );
use warnings;
use strict;

my @clear = param ( "limparlog" );

my $dir = "/var/imm/chats/";
opendir (MSN, $dir);
my @diretorio = readdir (MSN);
close (MSN);

my $usuario;
foreach $usuario (@clear) {
rmdir ("$dir/$usuario");
}
O código não dá erro, no entanto, não exclui nenhum diretório.. Há alguma
coisa errada nessa "bomba" acima..?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080104/84997248/attachment.html 

From wendelscardua em gmail.com  Fri Jan  4 03:41:06 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Fri, 4 Jan 2008 09:41:06 -0200
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
In-Reply-To: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
Message-ID: <726229b50801040341j79d21109i8bb1f492c39002da@mail.gmail.com>

Só uma pergunta, porque você preenche @diretorio se não o usa depois ?

[]s
Wendel

On Jan 4, 2008 9:37 AM, Rafael Lebrao Martins <rafamv1 em ig.com.br> wrote:

> Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
> diretório principal, usando o código abaixo:
>
>
> use CGI qw ( :standard );
> use warnings;
> use strict;
>
> my @clear = param ( "limparlog" );
>
> my $dir = "/var/imm/chats/";
> opendir (MSN, $dir);
> my @diretorio = readdir (MSN);
> close (MSN);
>
> my $usuario;
> foreach $usuario (@clear) {
> rmdir ("$dir/$usuario");
> }
> O código não dá erro, no entanto, não exclui nenhum diretório.. Há alguma
> coisa errada nessa "bomba" acima..?
>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080104/63d62fff/attachment.html 

From rafamv1 em ig.com.br  Fri Jan  4 03:42:47 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 4 Jan 2008 08:42:47 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
In-Reply-To: <726229b50801040341j79d21109i8bb1f492c39002da@mail.gmail.com>
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
	<726229b50801040341j79d21109i8bb1f492c39002da@mail.gmail.com>
Message-ID: <3e759d2b0801040342h6a3db3c0p88585f2aa4b1c1fc@mail.gmail.com>

Eu uso, mas em outra parte do código..Ai é só o trecho com problema.

Em 04/01/08, Wendel Scardua <wendelscardua em gmail.com> escreveu:
>
> Só uma pergunta, porque você preenche @diretorio se não o usa depois ?
>
> []s
> Wendel
>
> On Jan 4, 2008 9:37 AM, Rafael Lebrao Martins <rafamv1 em ig.com.br > wrote:
>
> > Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
> > diretório principal, usando o código abaixo:
> >
> >
> > use CGI qw ( :standard );
> > use warnings;
> > use strict;
> >
> > my @clear = param ( "limparlog" );
> >
> > my $dir = "/var/imm/chats/";
> > opendir (MSN, $dir);
> > my @diretorio = readdir (MSN);
> > close (MSN);
> >
> > my $usuario;
> > foreach $usuario (@clear) {
> > rmdir ("$dir/$usuario");
> > }
> > O código não dá erro, no entanto, não exclui nenhum diretório.. Há
> > alguma coisa errada nessa "bomba" acima..?
> >
> >
> >
> _______________________________________________
> 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/20080104/4988c06b/attachment.html 

From oberdan.luiz em gmail.com  Fri Jan  4 03:50:11 2008
From: oberdan.luiz em gmail.com (Oberdan Luiz May)
Date: Fri, 4 Jan 2008 08:50:11 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
In-Reply-To: <3e759d2b0801040342h6a3db3c0p88585f2aa4b1c1fc@mail.gmail.com>
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
	<726229b50801040341j79d21109i8bb1f492c39002da@mail.gmail.com>
	<3e759d2b0801040342h6a3db3c0p88585f2aa4b1c1fc@mail.gmail.com>
Message-ID: <ac3a9ba80801040350q3112fa35r8db343efd3d56434@mail.gmail.com>

   Oi,

   Pode até nem ser esse o problema, mas o rmdir só apaga o diretório
se estiver vazio. Na prática, é bem melhor usar a função rmtree do
File::Path , que apaga tudo.

   []'s

   Oberdan

On Jan 4, 2008 8:42 AM, Rafael Lebrao Martins <rafamv1 em ig.com.br> wrote:
> Eu uso, mas em outra parte do código..Ai é só o trecho com problema.
>
>
> Em 04/01/08, Wendel Scardua <wendelscardua em gmail.com> escreveu:
> >
> >
> >
> > Só uma pergunta, porque você preenche @diretorio se não o usa depois ?
> >
> > []s
> > Wendel
> >
> >
> >
> > On Jan 4, 2008 9:37 AM, Rafael Lebrao Martins <rafamv1 em ig.com.br > wrote:
> >
> > >
> > > Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
> diretório principal, usando o código abaixo:
> > >
> > >
> > > use CGI qw ( :standard );
> > > use warnings;
> > > use strict;
> > >
> > > my @clear = param ( "limparlog" );
> > >
> > > my $dir = "/var/imm/chats/";
> > > opendir (MSN, $dir);
> > > my @diretorio = readdir (MSN);
> > > close (MSN);
> > >
> > > my $usuario;
> > > foreach $usuario (@clear) {
> > > rmdir ("$dir/$usuario");
> > > }
> > > O código não dá erro, no entanto, não exclui nenhum diretório.. Há
> alguma coisa errada nessa "bomba" acima..?
> > >
> > >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From rafamv1 em ig.com.br  Fri Jan  4 03:53:24 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 4 Jan 2008 08:53:24 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
In-Reply-To: <ac3a9ba80801040350q3112fa35r8db343efd3d56434@mail.gmail.com>
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
	<726229b50801040341j79d21109i8bb1f492c39002da@mail.gmail.com>
	<3e759d2b0801040342h6a3db3c0p88585f2aa4b1c1fc@mail.gmail.com>
	<ac3a9ba80801040350q3112fa35r8db343efd3d56434@mail.gmail.com>
Message-ID: <3e759d2b0801040353u70c6d2caje79f40725704a404@mail.gmail.com>

Isso.. Eu acabei de descobrir isso aqui.. Vou verificar o uso do rmtree...
Valeu.;


Em 04/01/08, Oberdan Luiz May <oberdan.luiz em gmail.com> escreveu:
>
>   Oi,
>
>   Pode até nem ser esse o problema, mas o rmdir só apaga o diretório
> se estiver vazio. Na prática, é bem melhor usar a função rmtree do
> File::Path , que apaga tudo.
>
>   []'s
>
>   Oberdan
>
> On Jan 4, 2008 8:42 AM, Rafael Lebrao Martins <rafamv1 em ig.com.br> wrote:
> > Eu uso, mas em outra parte do código..Ai é só o trecho com problema.
> >
> >
> > Em 04/01/08, Wendel Scardua <wendelscardua em gmail.com> escreveu:
> > >
> > >
> > >
> > > Só uma pergunta, porque você preenche @diretorio se não o usa depois ?
> > >
> > > []s
> > > Wendel
> > >
> > >
> > >
> > > On Jan 4, 2008 9:37 AM, Rafael Lebrao Martins <rafamv1 em ig.com.br >
> wrote:
> > >
> > > >
> > > > Bom dia, pessoal. Estou tentando remover algumas pastas que estão
> num
> > diretório principal, usando o código abaixo:
> > > >
> > > >
> > > > use CGI qw ( :standard );
> > > > use warnings;
> > > > use strict;
> > > >
> > > > my @clear = param ( "limparlog" );
> > > >
> > > > my $dir = "/var/imm/chats/";
> > > > opendir (MSN, $dir);
> > > > my @diretorio = readdir (MSN);
> > > > close (MSN);
> > > >
> > > > my $usuario;
> > > > foreach $usuario (@clear) {
> > > > rmdir ("$dir/$usuario");
> > > > }
> > > > O código não dá erro, no entanto, não exclui nenhum diretório.. Há
> > alguma coisa errada nessa "bomba" acima..?
> > > >
> > > >
> > >
> > > _______________________________________________
> > > 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
> >
> _______________________________________________
> 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/20080104/e00683c8/attachment.html 

From agnaldo em starweb-software.com.br  Fri Jan  4 03:58:16 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 4 Jan 2008 09:58:16 -0200
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
Message-ID: <012601c84ec9$1799af40$6401a8c0@swmobile>


Dá uma olhada também nas permissões.
Salvo se você tiver outras configurações, se você esta rodando via browser (web) é provavel que esteja atrelado às permissões do usuário da web, nobody, www, etc. para Apache sobre Unix/Linux ou IUSR_máquina para IIS sobre Windows.



  ----- Original Message ----- 
  From: Rafael Lebrao Martins 
  To: cascavel-pm em pm.org
  Sent: Friday, January 04, 2008 9:37 AM
  Subject: [Cascavel-pm] Remover diretórios


  Bom dia, pessoal. Estou tentando remover algumas pastas que estão num diretório principal, usando o código abaixo:

  use CGI qw ( :standard );
  use warnings;
  use strict;

  my @clear = param ( "limparlog" );

  my $dir = "/var/imm/chats/";
  opendir (MSN, $dir);
  my @diretorio = readdir (MSN);
  close (MSN);

  my $usuario;
  foreach $usuario (@clear) {
  rmdir ("$dir/$usuario");
  }

  O código não dá erro, no entanto, não exclui nenhum diretório.. Há alguma coisa errada nessa "bomba" acima..?


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


  _______________________________________________
  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/20080104/5f71016b/attachment-0001.html 

From rafamv1 em ig.com.br  Fri Jan  4 04:15:54 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 4 Jan 2008 09:15:54 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
In-Reply-To: <012601c84ec9$1799af40$6401a8c0@swmobile>
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
	<012601c84ec9$1799af40$6401a8c0@swmobile>
Message-ID: <3e759d2b0801040415k35490acar2b6370b260e16b73@mail.gmail.com>

O problema é a utilização indevida da função 'rmdir'... Os diretórios estão
cheios..
Vou utilizar o 'rmtree'. Valeu.
Se houvesse um 'rmdir -r' :)


Em 04/01/08, Agnaldo Macedo <agnaldo em starweb-software.com.br> escreveu:
>
>
> Dá uma olhada também nas permissões.
> Salvo se você tiver outras configurações, se você esta rodando via browser
> (web) é provavel que esteja atrelado às permissões do usuário da web,
> nobody, www, etc. para Apache sobre Unix/Linux ou IUSR_máquina para IIS
> sobre Windows.
>
>
>
>
>  ----- Original Message -----
> *From:* Rafael Lebrao Martins <rafamv1 em ig.com.br>
> *To:* cascavel-pm em pm.org
> *Sent:* Friday, January 04, 2008 9:37 AM
> *Subject:* [Cascavel-pm] Remover diretórios
>
>
> Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
> diretório principal, usando o código abaixo:
>
>
> use CGI qw ( :standard );
> use warnings;
> use strict;
>
> my @clear = param ( "limparlog" );
>
> my $dir = "/var/imm/chats/";
> opendir (MSN, $dir);
> my @diretorio = readdir (MSN);
> close (MSN);
>
> my $usuario;
> foreach $usuario (@clear) {
> rmdir ("$dir/$usuario");
> }
> O código não dá erro, no entanto, não exclui nenhum diretório.. Há alguma
> coisa errada nessa "bomba" acima..?
>
> ------------------------------
>
> _______________________________________________
> 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/20080104/a0f05487/attachment.html 

From rafamv1 em ig.com.br  Fri Jan  4 04:28:46 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 4 Jan 2008 09:28:46 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Remover_diret=F3rios?=
In-Reply-To: <3e759d2b0801040415k35490acar2b6370b260e16b73@mail.gmail.com>
References: <3e759d2b0801040337v2383e624v4690a871ae00dc05@mail.gmail.com>
	<012601c84ec9$1799af40$6401a8c0@swmobile>
	<3e759d2b0801040415k35490acar2b6370b260e16b73@mail.gmail.com>
Message-ID: <3e759d2b0801040428v2ee2beabi4949c407be4efd47@mail.gmail.com>

Fiz a substituição do 'rmdir' pelo 'rmtree' e os diretórios foram
apagados....!!


use CGI qw ( :standard );
use warnings;
use strict;
use File::Path;

my @clear = param ( "limparlog" );

my $dir = "/var/imm/chats/";
opendir (MSN, $dir);
my @diretorio = readdir (MSN);
close (MSN);

my $usuario;
foreach $usuario (@clear) {
rmtree ("$dir/$usuario");
}



Em 04/01/08, Rafael Lebrao Martins <rafamv1 em ig.com.br> escreveu:
>
> O problema é a utilização indevida da função 'rmdir'... Os diretórios
> estão cheios..
> Vou utilizar o 'rmtree'. Valeu.
> Se houvesse um 'rmdir -r' :)
>
>
> Em 04/01/08, Agnaldo Macedo <agnaldo em starweb-software.com.br> escreveu:
> >
> >
> > Dá uma olhada também nas permissões.
> > Salvo se você tiver outras configurações, se você esta rodando via
> > browser (web) é provavel que esteja atrelado às permissões do usuário da
> > web, nobody, www, etc. para Apache sobre Unix/Linux ou IUSR_máquina para IIS
> > sobre Windows.
> >
> >
> >
> >
> >  ----- Original Message -----
> > *From:* Rafael Lebrao Martins <rafamv1 em ig.com.br>
> > *To:* cascavel-pm em pm.org
> > *Sent:* Friday, January 04, 2008 9:37 AM
> > *Subject:* [Cascavel-pm] Remover diretórios
> >
> >
> > Bom dia, pessoal. Estou tentando remover algumas pastas que estão num
> > diretório principal, usando o código abaixo:
> >
> >
> > use CGI qw ( :standard );
> > use warnings;
> > use strict;
> >
> > my @clear = param ( "limparlog" );
> >
> > my $dir = "/var/imm/chats/";
> > opendir (MSN, $dir);
> > my @diretorio = readdir (MSN);
> > close (MSN);
> >
> > my $usuario;
> > foreach $usuario (@clear) {
> > rmdir ("$dir/$usuario");
> > }
> > O código não dá erro, no entanto, não exclui nenhum diretório.. Há
> > alguma coisa errada nessa "bomba" acima..?
> >
> > ------------------------------
> >
> > _______________________________________________
> > 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/20080104/43630118/attachment.html 

From ajsavige em yahoo.com.au  Sat Jan  5 19:53:01 2008
From: ajsavige em yahoo.com.au (Andrew Savige)
Date: Sat, 5 Jan 2008 19:53:01 -0800 (PST)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?=5BGolf=5D_Converter_n=FAmeros_roman?=
 =?iso-8859-1?q?os_para_decimais?=
Message-ID: <477595.18741.qm@web56415.mail.re3.yahoo.com>

> Mas se alguém quiser fazer um "golf paralelo" aqui na lista, eu tô
> tentando resolver esse aqui:
>
> http://codegolf.com/roman-to-decimal
>
> Mas não acho que vou conseguir nada muito abaixo de 105 pontos, sendo
> que no site o primeiro lugar tá em 55 :-(
>
>update:  cheguei a 93
>
> []s
> Wendel
>
> ps: minha tacada atual é:
> $b=.5;$$_=$b*=5-($a^=3)for IVXLCDM=~/./g;$\+=($$_<$x?-1:1)*($x=$$_)for
> reverse<>=~/./g;print

> $b=.5;$$_=$b*=5-($a^=3)for IVXLCDM=~/./g

  $$_=$b*=$^F^=7for$b=.1,IVXLCDM=~/./g

or:

  $b=++$I;$$_=$b*=$^F^=7for V,X,L,C,D,M

> $\+=($$_<$x?-1:1)

  $\-=($$_<$x||-1)

Cheers,
/-\


      Make the switch to the world's best email. Get the new Yahoo!7 Mail now. www.yahoo7.com.au/worldsbestemail



From giulianisanches em gmail.com  Mon Jan  7 03:04:00 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Mon, 7 Jan 2008 09:04:00 -0200
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
Message-ID: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>

Bom dia a todos!
Alguém tem algum material sobre como trabalhar com o CGI.pm +
Template::Toolkit ?

Grato pela atenção

From luismottacampos em yahoo.co.uk  Mon Jan  7 03:56:08 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 07 Jan 2008 12:56:08 +0100
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
In-Reply-To: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
References: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
Message-ID: <47821358.3050309@yahoo.co.uk>

Giuliani Deon Sanches wrote:
> Bom dia a todos!
> Alguém tem algum material sobre como trabalhar com o CGI.pm +
> Template::Toolkit ?

Giuliani,

Eu tenho certeza de que você vai gostar mais de trabalhar SEM o
CGI.pm... ele é feio, velho, mal implementado e continua na distro do
Perl por que a gente tem de suportar software velho também.

Dá uma olhada no meu artigo sobre CGI::App e TT em

http://sao-paulo.pm.org/papers/champs/cgi-app-paper/index.html

Espero que isso ajude. Em caso de dúvidas, basta perguntar.

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


From giulianisanches em gmail.com  Mon Jan  7 04:28:29 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Mon, 7 Jan 2008 10:28:29 -0200
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
In-Reply-To: <47821358.3050309@yahoo.co.uk>
References: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
	<47821358.3050309@yahoo.co.uk>
Message-ID: <572750180801070428q5c6fa76o11465bb2c13dab0b@mail.gmail.com>

> Eu tenho certeza de que você vai gostar mais de trabalhar SEM o
> CGI.pm... ele é feio, velho, mal implementado e continua na distro do
> Perl por que a gente tem de suportar software velho também.
>
> Dá uma olhada no meu artigo sobre CGI::App e TT em
>
> http://sao-paulo.pm.org/papers/champs/cgi-app-paper/index.html

Muito obrigado Luis.
Estou procurando um solução simples, porém rápida e robusta para o
site de uma empresa. A intenção futura deles é inclusive migrar um
sistema win32 para web. Tanto o CGI:App quanto o Cgi.pm me pareceram
bons, mas como sua experiente opnião aponto o CGI::App, vamos a ele.
:)

From edencardim em gmail.com  Mon Jan  7 04:48:18 2008
From: edencardim em gmail.com (eden)
Date: Mon, 7 Jan 2008 09:48:18 -0300
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
In-Reply-To: <572750180801070428q5c6fa76o11465bb2c13dab0b@mail.gmail.com>
References: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
	<47821358.3050309@yahoo.co.uk>
	<572750180801070428q5c6fa76o11465bb2c13dab0b@mail.gmail.com>
Message-ID: <3de55ead0801070448x14b356f7gda6eacb0ae99295b@mail.gmail.com>

On Jan 7, 2008 9:28 AM, Giuliani Deon Sanches <giulianisanches em gmail.com> wrote:
> Muito obrigado Luis.
> Estou procurando um solução simples, porém rápida e robusta para o
> site de uma empresa. A intenção futura deles é inclusive migrar um
> sistema win32 para web. Tanto o CGI:App quanto o Cgi.pm me pareceram
> bons, mas como sua experiente opnião aponto o CGI::App, vamos a ele.
> :)

Da uma olhada no Catalyst, e se tiver coragem, no Reaction.

-- 
edenc.vox.com

From giulianisanches em gmail.com  Mon Jan  7 05:44:12 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Mon, 7 Jan 2008 11:44:12 -0200
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
In-Reply-To: <3de55ead0801070448x14b356f7gda6eacb0ae99295b@mail.gmail.com>
References: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
	<47821358.3050309@yahoo.co.uk>
	<572750180801070428q5c6fa76o11465bb2c13dab0b@mail.gmail.com>
	<3de55ead0801070448x14b356f7gda6eacb0ae99295b@mail.gmail.com>
Message-ID: <572750180801070544h6cbcb713g5f000eae6c4c0d3@mail.gmail.com>

Eu cheguei a passar o olho no catalyst. Mas ele me pareceu muito
grande. Algo como, no meu caso, usar uma bazuca para matar um cavalo
(no máximo um elefante) :)
O reaction eu nunca havia ouvido falar, vamos ao goolge.

Em 07/01/08, eden<edencardim em gmail.com> escreveu:
> On Jan 7, 2008 9:28 AM, Giuliani Deon Sanches <giulianisanches em gmail.com> wrote:
> > Muito obrigado Luis.
> > Estou procurando um solução simples, porém rápida e robusta para o
> > site de uma empresa. A intenção futura deles é inclusive migrar um
> > sistema win32 para web. Tanto o CGI:App quanto o Cgi.pm me pareceram
> > bons, mas como sua experiente opnião aponto o CGI::App, vamos a ele.
> > :)
>
> Da uma olhada no Catalyst, e se tiver coragem, no Reaction.
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From edencardim em gmail.com  Mon Jan  7 05:51:15 2008
From: edencardim em gmail.com (eden)
Date: Mon, 7 Jan 2008 10:51:15 -0300
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
In-Reply-To: <572750180801070544h6cbcb713g5f000eae6c4c0d3@mail.gmail.com>
References: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
	<47821358.3050309@yahoo.co.uk>
	<572750180801070428q5c6fa76o11465bb2c13dab0b@mail.gmail.com>
	<3de55ead0801070448x14b356f7gda6eacb0ae99295b@mail.gmail.com>
	<572750180801070544h6cbcb713g5f000eae6c4c0d3@mail.gmail.com>
Message-ID: <3de55ead0801070551m60d2364er42e670d77dc22509@mail.gmail.com>

On Jan 7, 2008 10:44 AM, Giuliani Deon Sanches
<giulianisanches em gmail.com> wrote:
> Eu cheguei a passar o olho no catalyst. Mas ele me pareceu muito
> grande. Algo como, no meu caso, usar uma bazuca para matar um cavalo
> (no máximo um elefante) :)

É grande porque ele resolve a maioria dos problemas pra você, melhor
do que passar um tempão reescrevendo tudo por conta própria. Na minha
máquina 'apt-get install libcatalyst-perl' levou 30 segundos.

-- 
edenc.vox.com

From giulianisanches em gmail.com  Mon Jan  7 09:16:32 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Mon, 7 Jan 2008 15:16:32 -0200
Subject: [Cascavel-pm] Sobre CGI.pm e Template::Toolkit
In-Reply-To: <3de55ead0801070551m60d2364er42e670d77dc22509@mail.gmail.com>
References: <572750180801070304k472ea9d0r54a139a751397057@mail.gmail.com>
	<47821358.3050309@yahoo.co.uk>
	<572750180801070428q5c6fa76o11465bb2c13dab0b@mail.gmail.com>
	<3de55ead0801070448x14b356f7gda6eacb0ae99295b@mail.gmail.com>
	<572750180801070544h6cbcb713g5f000eae6c4c0d3@mail.gmail.com>
	<3de55ead0801070551m60d2364er42e670d77dc22509@mail.gmail.com>
Message-ID: <572750180801070916i2b17431elc3c96be503c7c370@mail.gmail.com>

Desculpa, não me expressei direito. Quando disse grande, quis dizer em
questão de features. Para um projeto pequeno não acho que ele se
encaixe bem.

2008/1/7, eden <edencardim em gmail.com>:
> On Jan 7, 2008 10:44 AM, Giuliani Deon Sanches
> <giulianisanches em gmail.com> wrote:
> > Eu cheguei a passar o olho no catalyst. Mas ele me pareceu muito
> > grande. Algo como, no meu caso, usar uma bazuca para matar um cavalo
> > (no máximo um elefante) :)
>
> É grande porque ele resolve a maioria dos problemas pra você, melhor
> do que passar um tempão reescrevendo tudo por conta própria. Na minha
> máquina 'apt-get install libcatalyst-perl' levou 30 segundos.
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From glasswalk3r em yahoo.com.br  Mon Jan  7 10:18:51 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 7 Jan 2008 15:18:51 -0300 (ART)
Subject: [Cascavel-pm] =?iso-8859-1?q?acess=F3rios_de_altera=E7=E3o_mais_s?=
	=?iso-8859-1?q?ofisticados?=
Message-ID: <545775.74624.qm@web30803.mail.mud.yahoo.com>

Olá monges,

Estou querendo incluir acessórios em algumas classes,
mas eu acho que o Class::Accessor não consegue dar
conta do recado...

Essas classes precisam de métodos para alterar
atributos e eles deveriam seguir sempre a mesma regra
de validação. Eu gostaria de implementar métodos
automáticos que já fizesse essas verificações, mas
queria escrever isso uma vez só.

Algum "filhote" do Class::Accessor já faz isso? Dei
uma procurada no CPAN mas não achei nada.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From glasswalk3r em yahoo.com.br  Mon Jan  7 10:40:02 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 7 Jan 2008 15:40:02 -0300 (ART)
Subject: [Cascavel-pm] Re: uso de __DATA__ com hierarquia de classes e
	Template Toolkit
Message-ID: <928872.78216.qm@web30806.mail.mud.yahoo.com>

Luis Motta Campos luismottacampos em yahoo.co.uk
Quarta Dezembro 5 01:14:19 PST 2007 wrote:

> Onde estah o codigo de leitura do __DATA__ ? Ler do 
> __DATA__ nao eh
> trivial, especialmente quando voce estah tentando
ler
> de um __DATA__ que
> nao eh o seu proprio.

É dureza... mas dá para fazer com manipulação da
tabela de símbolos. O único inconveniente é que você
consegue recuperar os dados na primeira leitura,
depois dá erro.

> Eu recomendo que voce transcreva teus templates em
um > inline string
> dentro de um metodo na classe filha. Assim, fica
mais > simples de
> entender o que voce estah colocando ali.

Eu estava usando isso. Mas dar manutenção em código
assim é um porre. Sem contar que fazer escape do
código também é um inferno. Depois do __DATA__, tudo
fica muito mais fácil. Com o TT eu ainda consegui
gerar código identado.

> Bom, isso se voce quiser continuar com esta solucao 
> complicada.

Parece limpo pra mim. Mas usar a tabela de símbolos é
realmente complicado. A sintaxe é ruim, nada
intuitiva. Tive que fazer alguns testes antes de
chegar no que queria.

> Voce ainda me deve:
> 
> 1. Status;

Ainda preciso fazer mais testes e colocar um POD. Mas
isso aí vai pro CPAN.

> 2. Codigo de leitura do __DATA__ que voce estah 
> usando.

O código abaixo é funcional:

<code>
package File::Validate::Template;
use Carp qw(confess);
use strict;
use warnings;

sub new {

    my $class = shift;
    my $self;

    {
        no strict;
        $self = { data_handle => *{"$class\::DATA"} };

    }

    bless $self, $class;

    return $self;

}

sub get_code {

    my $self = shift;
    my $buffer;

    # turn on slurp mode
    local $/;

    my $handle = $self->{data_handle};

    $buffer = <$handle>;

    confess "No data from __DATA__ file handle" unless
( defined($buffer) );

    return \$buffer;

}

1;
</code>

[]'s



Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From edencardim em gmail.com  Mon Jan  7 11:59:33 2008
From: edencardim em gmail.com (eden)
Date: Mon, 7 Jan 2008 16:59:33 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?acess=F3rios_de_altera=E7=E3o_mais_s?=
	=?iso-8859-1?q?ofisticados?=
In-Reply-To: <545775.74624.qm@web30803.mail.mud.yahoo.com>
References: <545775.74624.qm@web30803.mail.mud.yahoo.com>
Message-ID: <3de55ead0801071159v653251aegf436ca797bc36cde@mail.gmail.com>

On Jan 7, 2008 3:18 PM, Alceu R. de Freitas Jr.
<glasswalk3r em yahoo.com.br> wrote:
> Olá monges,
>
> Estou querendo incluir acessórios em algumas classes,
> mas eu acho que o Class::Accessor não consegue dar
> conta do recado...
>
> Essas classes precisam de métodos para alterar
> atributos e eles deveriam seguir sempre a mesma regra
> de validação. Eu gostaria de implementar métodos
> automáticos que já fizesse essas verificações, mas
> queria escrever isso uma vez só.
>
> Algum "filhote" do Class::Accessor já faz isso? Dei
> uma procurada no CPAN mas não achei nada.

http://search.cpan.org/~stevan/Moose-0.33/lib/Moose.pm

-- 
edenc.vox.com

From giulianisanches em gmail.com  Mon Jan  7 17:23:51 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Mon, 7 Jan 2008 23:23:51 -0200
Subject: [Cascavel-pm] Sobre o perltidy
Message-ID: <20080107232351.7594dfa2@dracco.home>

Boa noite. Sei que não existe um padrão definitivo para formatação de
código perl, somente algumas indicações no Perl Best Pratices e
perlstyle.
Baixei o perltidy e li o man dele. Testei principalmente o -pbp que
segue as indicações do livro citado e também essas, que me agradaram
muito aos olhos :D :
-nola
-pt=2
-ci=4
-sbt=2
-bt=2
-nsfs
-ce
-otr
-sot
-lp
-vt=2

Gostaria de opniões quanto a isso para que eu consiga deixar a
aparência do código o mais genérica e bem organizada possível a ponto
de qqer outro programador perl sentar e ler sem se sentir muito
desconfortável com a organização.
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : signature.asc
Tipo  : application/pgp-signature
Tam   : 189 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20080107/fa4113f2/attachment.bin 

From acid06 em gmail.com  Mon Jan  7 19:58:08 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 8 Jan 2008 01:58:08 -0200
Subject: [Cascavel-pm] Sobre o perltidy
In-Reply-To: <20080107232351.7594dfa2@dracco.home>
References: <20080107232351.7594dfa2@dracco.home>
Message-ID: <9a08c9b40801071958m51712457ncb67ab196f23c835@mail.gmail.com>

On Jan 7, 2008 11:23 PM, Giuliani Deon Sanches
<giulianisanches em gmail.com> wrote:
> Gostaria de opniões quanto a isso para que eu consiga deixar a
> aparência do código o mais genérica e bem organizada possível a ponto
> de qqer outro programador perl sentar e ler sem se sentir muito
> desconfortável com a organização.

Pra estética pura e simples, desde que você indente o código e coloque
quebras de linhas em lugares que façam sentido, ninguém vai ter muito
problema em entender se você abriu a chave do "if" na mesma linha ou
na linha seguinte (em Perl, é mais comum abrir na mesma linha).

O principal mesmo é seguir o estilo de nomenclatura das coisas
normalmente utilizado - acho que a maior parte dessas coisas está no
documento perlstyle.

Basicamente:

* NomeDeModulo::SemUsarUnderscore
* $variavel_local
* $VARIAVEL_GLOBAL
* nome_de_metodo
* _metodo_privado

Sempre:

  use strict;
  use warnings;

Evite loops for estilo C. Por exemplo, utilize:

  for my $i (0..9)

ao invés de:

  for (my $i = 0; $i < 10; $i++)

Ao abrir arquivos, utilize variáveis léxicas ao invés de GLOBs e faça
uso do open() com 3 parâmetros. Por exemplo, utilize:

  open my $fh, '>', 'meu_arquivo' or die $!;

ao invés de

  open(FH, '>meu_arquivo') or die $!;

(depois de aberto você pode usar $fh como usaria o FH)

Saiba quando utilizar as estruturas de controle em uma linha só para
aumentar legibilidade e evite os casos em que ela é piorada por esses
usos. Por exemplo, utilize:

  $hash{ $_ } = 1 for qw/foo bar baz/;

ao invés de:

  for (qw/foo bar/baz/) {
      $hash{ $_ } = 1;
  }

Quem vem de outras linguagens de programação costuma colocar prefixos
nos nomes de variáveis. Isso não é um idioma comum em Perl.

Você pode ficar tentado a utilizar a protótipos para os parâmetros de
suas funções. Não utilize a não ser que esteja querendo fazer algum
uso avançado que só é possível com o uso de protótipos (criar nova
sintaxe).

Caso você esteja programando orientado a objetos, não cheque o tipo
dos objetos específicamente - verifique a capacidade dos objetos
através do método can(). Caso esteja checando herança ou capacidade,
não utilize UNIVERSAL::isa() e UNIVERSAL::can() como funções - sempre
chame os métodos. Caso realmente não confie no que chega em você ao
ponto de duvidar se o que vem é realmente um objeto, utilize a
seguinte sintaxe:

  use Scalar::Util qw/blessed/;

  if ( blessed $obj && $obj->can('foo') ) {
      # faça o que tem que fazer, provavemente chamar o método foo()
      $obj->foo('bar');
  }

Claro que minha opinião é que essas verificações são excessivas e
desnecessárias mas, caso se sinta tentado a fazê-las, pelo menos faça
do jeito correto.

Tem muito mais coisa por aí, quem sabe alguém completa.

-Nilson Santos F. Jr.

From daniel em ruoso.com  Tue Jan  8 02:05:27 2008
From: daniel em ruoso.com (Daniel Ruoso)
Date: Tue, 08 Jan 2008 10:05:27 +0000
Subject: [Cascavel-pm] =?iso-8859-1?q?Accessors_-=3E_Acess=F3rios=3F_=28Wa?=
	=?iso-8859-1?q?s=3A_Re=3A__acess=F3rios_de_altera=E7=E3o_mais_sofi?=
	=?iso-8859-1?q?sticados=29?=
In-Reply-To: <545775.74624.qm@web30803.mail.mud.yahoo.com>
References: <545775.74624.qm@web30803.mail.mud.yahoo.com>
Message-ID: <1199786727.11383.4.camel@pitombeira>

Seg, 2008-01-07 às 15:18 -0300, Alceu R. de Freitas Jr. escreveu:
> Olá monges,
> Estou querendo incluir acessórios em algumas classes,
> mas eu acho que o Class::Accessor não consegue dar
> conta do recado...

Hmm... li a mensagem só porque não fazia a menor idéia de o que seriam
acessórios de alteração, até ver que você se referia a accessors, e foi
então que eu vi que eu nunca tinha parado para traduzir Accessors no
sentido de OO.

Mas eu fico me perguntando, essa tradução está correta?

Accessor vem de acesso, não de acessório, é aquilo que dá acesso.

Será que usar simplemente "acessores" não seria mais razoável? O google
translate traduz accessor como "acessador", mas isso me parece
esquisito.

daniel


From daniel em ruoso.com  Tue Jan  8 02:07:49 2008
From: daniel em ruoso.com (Daniel Ruoso)
Date: Tue, 08 Jan 2008 10:07:49 +0000
Subject: [Cascavel-pm] uso de __DATA__ com hierarquia de classes
	e	Template Toolkit
In-Reply-To: <928872.78216.qm@web30806.mail.mud.yahoo.com>
References: <928872.78216.qm@web30806.mail.mud.yahoo.com>
Message-ID: <1199786869.11383.8.camel@pitombeira>

Seg, 2008-01-07 às 15:40 -0300, Alceu R. de Freitas Jr. escreveu:
> Luis Motta Campos luismottacampos em yahoo.co.uk
> Quarta Dezembro 5 01:14:19 PST 2007 wrote:
> > Onde estah o codigo de leitura do __DATA__ ? Ler do 
> > __DATA__ nao eh
> > trivial, especialmente quando voce estah tentando
> ler
> > de um __DATA__ que
> > nao eh o seu proprio.
> É dureza... mas dá para fazer com manipulação da
> tabela de símbolos. O único inconveniente é que você
> consegue recuperar os dados na primeira leitura,
> depois dá erro.

Não exatamente. O __DATA__ é um filehandle como qualquer outro, e você
pode fazer seek nele. O único problema é que, ao contrário do que se
pensa, ele não aponta somente para o trecho depois do __DATA__, mas sim
para o arquivo inteiro, então na hora que você fizer seek 0, ele vai
para o início do arquivo 8|. Então uma alternativa é você guardar a
posição atual do fh antes de usar usando o tell, e depois fazer seek
para essa mesma posição.

daniel


From giulianisanches em gmail.com  Tue Jan  8 02:36:51 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Tue, 8 Jan 2008 08:36:51 -0200
Subject: [Cascavel-pm] Sobre o perltidy
In-Reply-To: <9a08c9b40801071958m51712457ncb67ab196f23c835@mail.gmail.com>
References: <20080107232351.7594dfa2@dracco.home>
	<9a08c9b40801071958m51712457ncb67ab196f23c835@mail.gmail.com>
Message-ID: <572750180801080236n6fbe66ecl9c83a834d45fdf24@mail.gmail.com>

Muito obrigado por toda essa informação Nilson. Extremamente útil.
(Preciso compra o Perl Best Pratices hehehe).

Me permita apenas fazer um apontamento. Onde você afirma:

> * NomeDeModulo::SemUsarUnderscore
> * $variavel_local
> * $VARIAVEL_GLOBAL
> * nome_de_metodo
> * _metodo_privado

Dei uma consultada no perlstyle e encontrei essa nomeclatura para
nomes de variáveis:

$ALL_CAPS_HERE   constants only (beware clashes with perl vars!)
$Some_Caps_Here  package-wide global/static
$no_caps_here    function scope my() or local() variables

Quanto aos nomes de métodos e pacotes estou cuidando para fazer sempre
da forma sugerida.

From glasswalk3r em yahoo.com.br  Tue Jan  8 04:21:39 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Jan 2008 09:21:39 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Accessors_-=3E_Acess=F3rios=3F_=28Wa?=
 =?iso-8859-1?q?s=3A_Re=3A__acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <1199786727.11383.4.camel@pitombeira>
Message-ID: <977983.38522.qm@web30806.mail.mud.yahoo.com>


--- Daniel Ruoso <daniel em ruoso.com> escreveu:

> Hmm... li a mensagem só porque não fazia a menor
> idéia de o que seriam
> acessórios de alteração, até ver que você se referia
> a accessors, e foi
> então que eu vi que eu nunca tinha parado para
> traduzir Accessors no
> sentido de OO.

Ih, nem eu fiz isso! Na realidade foi erro meu, isso é
um falso cognato.
 
> Mas eu fico me perguntando, essa tradução está
> correta?
> 
> Accessor vem de acesso, não de acessório, é aquilo
> que dá acesso.
> 
> Será que usar simplemente "acessores" não seria mais
> razoável? O google
> translate traduz accessor como "acessador", mas isso
> me parece
> esquisito.

Acessórios realmente está errado, mesmo se pensando em
OO, sem fazer a tradução literal.

Se você achou esquisito a tradução direta do inglês,
procure ver como é a tradução de mandarim ou
cantonês... tem coisas que simplesmente não fazem
sentido direito em outra língua.

Melhor mesmo usar método de acesso...

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From glasswalk3r em yahoo.com.br  Tue Jan  8 04:24:31 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Jan 2008 09:24:31 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <3de55ead0801071159v653251aegf436ca797bc36cde@mail.gmail.com>
Message-ID: <771533.54380.qm@web30803.mail.mud.yahoo.com>


--- eden <edencardim em gmail.com> escreveu:

>
http://search.cpan.org/~stevan/Moose-0.33/lib/Moose.pm

OK, alguma outra forma de fazer sem ter que aprender
mais um sistema de orientação à objetos? :-)

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From luismottacampos em yahoo.co.uk  Tue Jan  8 04:30:33 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 08 Jan 2008 13:30:33 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <771533.54380.qm@web30803.mail.mud.yahoo.com>
References: <771533.54380.qm@web30803.mail.mud.yahoo.com>
Message-ID: <47836CE9.7010400@yahoo.co.uk>

Alceu R. de Freitas Jr. wrote:
> --- eden <edencardim em gmail.com> escreveu:
> 
> http://search.cpan.org/~stevan/Moose-0.33/lib/Moose.pm
> 
> OK, alguma outra forma de fazer sem ter que aprender
> mais um sistema de orientação à objetos? :-)

O que exatamente você quer fazer que o Class::Accessor não te oferece
pronto, Alceu?

Eu ainda não entendi o que os teus métodos de acesso tem de especiais.
Pode ser distração minha, também...

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


From glasswalk3r em yahoo.com.br  Tue Jan  8 04:43:32 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Jan 2008 09:43:32 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <47836CE9.7010400@yahoo.co.uk>
Message-ID: <884012.59749.qm@web30806.mail.mud.yahoo.com>


--- Luis Motta Campos <luismottacampos em yahoo.co.uk>
escreveu:

> O que exatamente você quer fazer que o
> Class::Accessor não te oferece
> pronto, Alceu?

Talvez ele ofereça... mas eu ainda não descobri como.

> Eu ainda não entendi o que os teus métodos de acesso
> tem de especiais.
> Pode ser distração minha, também...

Ou meus emails andam confusos demais... De qualquer
forma, vamos para um exemplo que é mais fácil.

Quando eu criei módulos para acessar recurso pacotes
DTS, eu encapsulei o objeto fornecido via COM através
do módulo Win32::OLE. Até então eu só utilizava
métodos de leitura (get_) para ler os atributos.

Agora resolvi ir mais longe e oferecer métodos para
alterar esses atributos. Mas aí tenho um problema de
sincronização, eu tenho que alterar ambos os objetos
(o da classe DTS e o objeto obtido via COM).

O objeto via COM é referenciado por um atributo
"oculto" chamado _sibling. Eu só conseguiria alterar
um atributo e sincronizar o valor entre os dois
objetos se esse atributo _sibling estiver disponível.
Se eu fosse escrever isso na mão, eu teria um trabalho
chato para fazer.

Eu imagino algo assim:

sub set_attribute {

    my $self = shift;
    my $attrib = shift;
    my $value = shift;

    die "não consigo configurar nada sem _sibling"
unless (defined($self->{_sibling}));

    #restante do código viria aqui

}

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From edencardim em gmail.com  Tue Jan  8 05:45:33 2008
From: edencardim em gmail.com (eden)
Date: Tue, 8 Jan 2008 10:45:33 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
	=?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofi?=
	=?iso-8859-1?q?sticados=29?=
In-Reply-To: <771533.54380.qm@web30803.mail.mud.yahoo.com>
References: <3de55ead0801071159v653251aegf436ca797bc36cde@mail.gmail.com>
	<771533.54380.qm@web30803.mail.mud.yahoo.com>
Message-ID: <3de55ead0801080545p7889e330xd08e51143c8142fb@mail.gmail.com>

On Jan 8, 2008 9:24 AM, Alceu R. de Freitas Jr.
<glasswalk3r em yahoo.com.br> wrote:
>
> --- eden <edencardim em gmail.com> escreveu:
>
> >
> http://search.cpan.org/~stevan/Moose-0.33/lib/Moose.pm
>
> OK, alguma outra forma de fazer sem ter que aprender
> mais um sistema de orientação à objetos? :-)

Aprender mais um sistema de orientação de objetos vai lhe fazer mais
bem do que mal. Além disso, quem lida com tecnologia não pode ter medo
de aprender. A sintaxe do Moose é inspirada no Perl 6 e é bem simples,
o tempo que você passar lendo um pouco de documentação vai ser igual
ao tempo que você tá usando postando na lista a procura de uma solução
e não vai ser desperdiçado por inteiro.
Por sinal, tem *mais um* sistema que pode lhe interessar:
http://search.cpan.org/~claco/Class-Accessor-Grouped-0.07000/lib/Class/Accessor/Grouped.pm

-- 
edenc.vox.com

From a.r.ferreira em gmail.com  Tue Jan  8 08:00:03 2008
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Tue, 8 Jan 2008 14:00:03 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
	=?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofi?=
	=?iso-8859-1?q?sticados=29?=
In-Reply-To: <884012.59749.qm@web30806.mail.mud.yahoo.com>
References: <47836CE9.7010400@yahoo.co.uk>
	<884012.59749.qm@web30806.mail.mud.yahoo.com>
Message-ID: <73ddeb6c0801080800s83ccb42qc9821f7cfd476f1c@mail.gmail.com>

On Jan 8, 2008 10:43 AM, Alceu R. de Freitas Jr.
<glasswalk3r em yahoo.com.br> wrote:
>
> --- Luis Motta Campos <luismottacampos em yahoo.co.uk>
> escreveu:
>
> > O que exatamente você quer fazer que o
> > Class::Accessor não te oferece
> > pronto, Alceu?
>
> Talvez ele ofereça... mas eu ainda não descobri como.

Pelo que eu entendi das suas necessidades, acho que o Class::Accessor
pode fazer o que você quer com alguma ajudinha.

> > Eu ainda não entendi o que os teus métodos de acesso
> > tem de especiais.
> > Pode ser distração minha, também...
>
> Ou meus emails andam confusos demais... De qualquer
> forma, vamos para um exemplo que é mais fácil.
>
> Quando eu criei módulos para acessar recurso pacotes
> DTS, eu encapsulei o objeto fornecido via COM através
> do módulo Win32::OLE. Até então eu só utilizava
> métodos de leitura (get_) para ler os atributos.
>
> Agora resolvi ir mais longe e oferecer métodos para
> alterar esses atributos. Mas aí tenho um problema de
> sincronização, eu tenho que alterar ambos os objetos
> (o da classe DTS e o objeto obtido via COM).
>
> O objeto via COM é referenciado por um atributo
> "oculto" chamado _sibling. Eu só conseguiria alterar
> um atributo e sincronizar o valor entre os dois
> objetos se esse atributo _sibling estiver disponível.
> Se eu fosse escrever isso na mão, eu teria um trabalho
> chato para fazer.

Aqui vale lembrar que para fazer o Class::Accessor lhe dar getters e
setters separados segundo o PBP (Perl Best Practices), basta usar

use base qw( Class::Accessor );
__PACKAGE__->follow_best_practices();
__PACKAGE__->mk_accessors( qw( sibling ... ) );

Mas isto é digressão e você provavelmente leu isto na documentação
(http://search.cpan.org/perldoc?Class::Accessor).

> Eu imagino algo assim:
>
> sub set_attribute {
>
>     my $self = shift;
>     my $attrib = shift;
>     my $value = shift;
>
>     die "não consigo configurar nada sem _sibling"
> unless (defined($self->{_sibling}));
>
>     #restante do código viria aqui
>
> }

Acho que uma das formas possíveis de fazer isto é prestar atenção
nesta recomendação:

"Modifying the behavior of the accessor

Rather than actually modifying the accessor itself, it is much more
sensible to simply override the two key methods which the accessor
calls. Namely set() and get().
"

Assim acho que, sobrepondo o método set(), com um código similar a

# mapa dos atributos dependentes para aqueles de que eles dependem
my %DEPENDENT_FIELDS = (
      attribute => [ qw(sibling) ],
      #sibling não tem dependencias, portanto não é incluído aqui
);

sub set {
   my ($self, $k, $v) = @_;
   for my $dep ( @{$DEPENDENT_FIELDS{$k}} ) {
        die "$dep deve ser definido antes de $k" unless defined
$self->get($dep);
   }
   return $self->SUPER::set( $k, $v );
}

Provavelmente alguma coisa parecida pode ser adaptada para suas necessidades.

Saudações,
Adriano Ferreira

> []'s
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em yahoo.com.br
> http://www.imortais.cjb.net
> -----------------------------------------------------------------------
> A well-used door needs no oil on its hinges.
> A swift-flowing stream does not grow stagnant.
> Neither sound nor thoughts can travel through a vacuum.
> Software rots if not used.
> These are great mysteries -- The Tao Of Programming, 5.1
>
>
>       Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
> http://br.mail.yahoo.com/
> _______________________________________________
>
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From glasswalk3r em yahoo.com.br  Tue Jan  8 08:10:11 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Jan 2008 13:10:11 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <3de55ead0801080545p7889e330xd08e51143c8142fb@mail.gmail.com>
Message-ID: <155859.30697.qm@web30806.mail.mud.yahoo.com>


--- eden <edencardim em gmail.com> escreveu:

> Aprender mais um sistema de orientação de objetos
> vai lhe fazer mais
> bem do que mal. Além disso, quem lida com tecnologia
> não pode ter medo
> de aprender. A sintaxe do Moose é inspirada no Perl
> 6 e é bem simples,
> o tempo que você passar lendo um pouco de
> documentação vai ser igual
> ao tempo que você tá usando postando na lista a
> procura de uma solução
> e não vai ser desperdiçado por inteiro.

Obrigado pela dica Eden. Mas eu realmente não gostaria
de aprender isso agora, até pelo meu tempo que é curto
(ultimamente tenho que pensar primeiro no que é mais
urgente aprender). E mesmo que tivesse tempo para
isso, não sei se valeria a pena: a própria
especificação do Perl 6 tem mudado com o tempo, eu
acho que vou esperar o primeiro release estável.
Agora, se eu passar a fazer desenvolvimento mais
"sério" com Perl e OOP, aí sim eu consideraria a
possibilidade. Só li bons comentários sobre o Moose.

Claro, isso é só minha opinião. Eu já acho que postar
aqui na lista pode me trazer outras idéias ou
propostas, talvez até de redesenhar uma solução para o
problema.

> Por sinal, tem *mais um* sistema que pode lhe
> interessar:
>
http://search.cpan.org/~claco/Class-Accessor-Grouped-0.07000/lib/Class/Accessor/Grouped.pm
> 

Vou dar uma olhada nesse aí.

[]'s



Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From glasswalk3r em yahoo.com.br  Tue Jan  8 08:17:00 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Jan 2008 13:17:00 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <73ddeb6c0801080800s83ccb42qc9821f7cfd476f1c@mail.gmail.com>
Message-ID: <781221.2835.qm@web30815.mail.mud.yahoo.com>


--- Adriano Ferreira <a.r.ferreira em gmail.com>
escreveu:

> On Jan 8, 2008 10:43 AM, Alceu R. de Freitas Jr.
> <glasswalk3r em yahoo.com.br> wrote:
>
> Aqui vale lembrar que para fazer o Class::Accessor
> lhe dar getters e
> setters separados segundo o PBP (Perl Best
> Practices), basta usar
> 
> use base qw( Class::Accessor );
> __PACKAGE__->follow_best_practices();
> __PACKAGE__->mk_accessors( qw( sibling ... ) );
> 
> Mas isto é digressão e você provavelmente leu isto
> na documentação
> (http://search.cpan.org/perldoc?Class::Accessor).

Você diz assim?
http://search.cpan.org/src/ARFREITAS/DTS-0.03/lib/DTS/Connection.pm
:-)
 
> Acho que uma das formas possíveis de fazer isto é
> prestar atenção
> nesta recomendação:
> 
> "Modifying the behavior of the accessor
> 
> Rather than actually modifying the accessor itself,
> it is much more
> sensible to simply override the two key methods
> which the accessor
> calls. Namely set() and get().
> "

Acho que comi bola. Isso aqui eu não tinha visto.

> Assim acho que, sobrepondo o método set(), com um
> código similar a
> 
> # mapa dos atributos dependentes para aqueles de que
> eles dependem
> my %DEPENDENT_FIELDS = (
>       attribute => [ qw(sibling) ],
>       #sibling não tem dependencias, portanto não é
> incluído aqui
> );
> 
> sub set {
>    my ($self, $k, $v) = @_;
>    for my $dep ( @{$DEPENDENT_FIELDS{$k}} ) {
>         die "$dep deve ser definido antes de $k"
> unless defined
> $self->get($dep);
>    }
>    return $self->SUPER::set( $k, $v );
> }
> 
> Provavelmente alguma coisa parecida pode ser
> adaptada para suas necessidades.

Acredito que sim! Obrigado!

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From glasswalk3r em yahoo.com.br  Tue Jan  8 08:19:32 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 8 Jan 2008 13:19:32 -0300 (ART)
Subject: [Cascavel-pm] uso de __DATA__ com hierarquia de classes e
	Template Toolkit
In-Reply-To: <1199786869.11383.8.camel@pitombeira>
Message-ID: <170934.74537.qm@web30805.mail.mud.yahoo.com>


--- Daniel Ruoso <daniel em ruoso.com> escreveu:

> Não exatamente. O __DATA__ é um filehandle como
> qualquer outro, e você
> pode fazer seek nele. O único problema é que, ao
> contrário do que se
> pensa, ele não aponta somente para o trecho depois
> do __DATA__, mas sim
> para o arquivo inteiro, então na hora que você fizer
> seek 0, ele vai
> para o início do arquivo 8|. Então uma alternativa é
> você guardar a
> posição atual do fh antes de usar usando o tell, e
> depois fazer seek
> para essa mesma posição.

"O diabo mora nos detalhes"... obrigado Daniel! :-)

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From edencardim em gmail.com  Tue Jan  8 08:50:34 2008
From: edencardim em gmail.com (eden)
Date: Tue, 8 Jan 2008 13:50:34 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
	=?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofi?=
	=?iso-8859-1?q?sticados=29?=
In-Reply-To: <155859.30697.qm@web30806.mail.mud.yahoo.com>
References: <3de55ead0801080545p7889e330xd08e51143c8142fb@mail.gmail.com>
	<155859.30697.qm@web30806.mail.mud.yahoo.com>
Message-ID: <3de55ead0801080850g7fbf1223x817c8774415979e9@mail.gmail.com>

On Jan 8, 2008 1:10 PM, Alceu R. de Freitas Jr.
<glasswalk3r em yahoo.com.br> wrote:
> Obrigado pela dica Eden. Mas eu realmente não gostaria
> de aprender isso agora, até pelo meu tempo que é curto
> (ultimamente tenho que pensar primeiro no que é mais
> urgente aprender). E mesmo que tivesse tempo para
> isso, não sei se valeria a pena: a própria
> especificação do Perl 6 tem mudado com o tempo, eu
> acho que vou esperar o primeiro release estável.
> Agora, se eu passar a fazer desenvolvimento mais
> "sério" com Perl e OOP, aí sim eu consideraria a
> possibilidade. Só li bons comentários sobre o Moose.

Muda mas muda pouco, como eu falei, a sintaxe é similar, não idêntica.
O Moose já tá bastante estável e é utilizado em diversos ambientes de
produção.

-- 
edenc.vox.com

From acid06 em gmail.com  Tue Jan  8 08:59:08 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 8 Jan 2008 14:59:08 -0200
Subject: [Cascavel-pm] Sobre o perltidy
In-Reply-To: <572750180801080236n6fbe66ecl9c83a834d45fdf24@mail.gmail.com>
References: <20080107232351.7594dfa2@dracco.home>
	<9a08c9b40801071958m51712457ncb67ab196f23c835@mail.gmail.com>
	<572750180801080236n6fbe66ecl9c83a834d45fdf24@mail.gmail.com>
Message-ID: <9a08c9b40801080859m705dc3bdod34df5bc4a7c7fb6@mail.gmail.com>

On Jan 8, 2008 8:36 AM, Giuliani Deon Sanches <giulianisanches em gmail.com> wrote:
> $ALL_CAPS_HERE   constants only (beware clashes with perl vars!)
> $Some_Caps_Here  package-wide global/static
> $no_caps_here    function scope my() or local() variables

Certo, na prática você não deve usar variáveis globais e quando usa
elas vão ter o sentido de constantes ou variáveis de configuração. A
maior parte dos módulos (exemplo: variáveis de configuração do TT),
apesar do perlstyle sugerir algo ligeiramente diferente.

De fato, o melhor que você faz é evitar variáveis e utilizar métodos
pra configurar as coisas. Daí esse problema nem existe mais.

Se realmente tiver que usar uma variável global, daí utiliza a
convenção sugerida. Eu me lembro que as únicas vezes que usei isso foi
quando implementava memoizing na mão pra criar uma variável %Cache
(algo que você não deveria fazer - use o módulo Memoize).

-Nilson Santos F. Jr.

From luismottacampos em yahoo.co.uk  Wed Jan  9 02:00:18 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 09 Jan 2008 11:00:18 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <884012.59749.qm@web30806.mail.mud.yahoo.com>
References: <884012.59749.qm@web30806.mail.mud.yahoo.com>
Message-ID: <47849B32.2010606@yahoo.co.uk>

Alceu R. de Freitas Jr. wrote:
> --- Luis Motta Campos <luismottacampos em yahoo.co.uk>
> escreveu:
> 
>> O que exatamente você quer fazer que o
>> Class::Accessor não te oferece
>> pronto, Alceu?
> 
> Talvez ele ofereça... mas eu ainda não descobri como.
> 
>> Eu ainda não entendi o que os teus métodos de acesso
>> tem de especiais.
>> Pode ser distração minha, também...
> 
> Ou meus emails andam confusos demais... De qualquer
> forma, vamos para um exemplo que é mais fácil.
> 
> Quando eu criei módulos para acessar recurso pacotes
> DTS, eu encapsulei o objeto fornecido via COM através
> do módulo Win32::OLE. Até então eu só utilizava
> métodos de leitura (get_) para ler os atributos.
> 
> Agora resolvi ir mais longe e oferecer métodos para
> alterar esses atributos. Mas aí tenho um problema de
> sincronização, eu tenho que alterar ambos os objetos
> (o da classe DTS e o objeto obtido via COM).
> 
> O objeto via COM é referenciado por um atributo
> "oculto" chamado _sibling. Eu só conseguiria alterar
> um atributo e sincronizar o valor entre os dois
> objetos se esse atributo _sibling estiver disponível.
> Se eu fosse escrever isso na mão, eu teria um trabalho
> chato para fazer.
> 
> Eu imagino algo assim:
> 
> sub set_attribute {
> 
>     my $self = shift;
>     my $attrib = shift;
>     my $value = shift;
> 
>     die "não consigo configurar nada sem _sibling"
> unless (defined($self->{_sibling}));
> 
>     #restante do código viria aqui
> 
> }

Parece que você interrompeu isso bruscamente.

Você está no caminho certo; precisa construir um método genérico capaz
de, dado o nome de um atributo e o valor que se deseja atribuir, realize
a alteração.

Mas isso é apenas metade do seu problema. Você tem de gerar os métodos
de acesso, depois.

De qualquer forma, se você conseguir construir uma lista de atributos
interessantes (talvez consultando o tal "_sibling"?), pode usar o
Class::Accessor para criar os teus métodos de acesso.

Para que os teus métodos de acesso façam o que você espera, você precisa
sobrecarregar os métodos Class::Accessor::get() e
Class::Accessor::set(), para que eles saibam o que alterar e como (no
caso do set()) e o que consultar e como devolver valores (no caso do get()).

Assim, ao invés de implementar set_attribute(), você precisa implementar
set(), na sua classe, e garantir as chamadas necessárias para o
Class::Accessor:

#!perl
use strict;
use warnings;

use base qw( Class::Accessor );
__PACKAGE__->mk_accessors( @Lista_De_Atributos_Calculada_Pelo_Alceu );

=pod

=head2 B<C<get($key)>>
=head2 B<C<get(@keys)>>

Métodos de acesso usados pelo C<Class::Accessor> para gerar
automaticamente os métodos de acesso de cada atributo.

C<get($key)> lê e devolve um valor do atributo cujo nome é C<$key>.

C<get(@keys)> lê e devolve os valores dos atributos cujos nomes estão
listados em C<@keys>.

=cut

sub get {
  # você já escreveu este método, provavelmente,
  # é o teu método de leitura de atributos.
}

=pod

=head2 B<C<set($key, $value)>>
=head2 B<C<set($key, @values)>>

Métodos de acesso usados pelo C<Class::Accessor> para gerar
automaticamente os métodos de acesso de cada atributo.

C<set($key, $value)> guarda o valor C<$value> no atributo nomeado por
C<$key>.

C<set($key, @values)> guarda B<todos> os valores passados em C<@values>
no atributo nomeado por C<$key>.

=cut

sub set {
  # Este é possivelmente o método que você
  # começou a me escrever lá em cima, no começo deste email.
}

__END__

Espero que isso ajude.
Se você precisar de mais ajuda, por favor não se sinta constrangido - é
muito difícil eu ter uma oportunidade de ajudar você,

-- 
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 Jan 14 10:09:53 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 14 Jan 2008 10:09:53 -0800 (PST)
Subject: [Cascavel-pm] Duvida em contar elemento no array
Message-ID: <827066.36144.qm@web31305.mail.mud.yahoo.com>

Pessoal, 
como de sugestao de pessoas da lista, estou tentar contar quantidade de elementos em um array..

vou no banco e recupero os dados :

.....
.....


while ( my @row = $sth2->fetchrow_array( ) )
{ 
    my $tot=0;
    my @cont_var;
    my $cont_var;
    
    @cont_var=("$umid","$dir","$ven","$pre","$vel","$velv","$pres","$par","$min","$max","$tacao","$lo");    

    
    $cont_var{$_}++ for @cont_var; # contar os números
    
     
     foreach my $key1 (keys %cont_var)
     {
  
          if($key1 >= 5)
          {
             $tot_flag++;
 
          }
 
      }

    print "TOT_FLAG=>>$tot_flag\n";





so que ele nao esta zerando.. na 1 passagem ele faz correto na segunda ele conta a 1 + a 2 :/

Alguem pode me dar uma luz..

Obrigada




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080114/b28217cc/attachment.html 

From shonorio em gmail.com  Mon Jan 14 11:00:16 2008
From: shonorio em gmail.com (Solli Honorio)
Date: Mon, 14 Jan 2008 17:00:16 -0200
Subject: [Cascavel-pm] Duvida em contar elemento no array
In-Reply-To: <827066.36144.qm@web31305.mail.mud.yahoo.com>
References: <827066.36144.qm@web31305.mail.mud.yahoo.com>
Message-ID: <12d1f4ee0801141100u1b2432bfm58a6eb296a8f5e97@mail.gmail.com>

Em 14/01/08, Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
> Pessoal,
> como de sugestao de pessoas da lista, estou tentar contar quantidade de
> elementos em um array..
>
> vou no banco e recupero os dados :
>
> .....
> .....
>
>
> while ( my @row = $sth2->fetchrow_array( ) )
> {
>     my $tot=0;
>     my @cont_var;
>     my $cont_var;
>

Patty, estou confuso neste ponto (entre outros)... você está declarando  um
array  'cont_var' e uma string 'cont_var' ao mesmo tempo ? Este programa
roda com stricts e '-w' ?


> @cont_var=("$umid","$dir","$ven","$pre","$vel","$velv","$pres","$par","$min","$max","$tacao","$lo");
>
>
>
>     $cont_var{$_}++ for @cont_var; # contar os números
>
>
>      foreach my $key1 (keys %cont_var)
>      {
>
>           if($key1 >= 5)
>           {
>              $tot_flag++;
>
>           }
>
>       }
>
>     print "TOT_FLAG=>>$tot_flag\n";
>
>
>
>
>
> so que ele nao esta zerando.. na 1 passagem ele faz correto na segunda ele
> conta a 1 + a 2 :/
>

Mas onde você está pedindo para  'zerar' ?  E quem você  quer  zerar ?

Alguem pode me dar uma luz..
>
> Obrigada
>
> ------------------------------
> Abra sua conta no Yahoo! Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>,
> o único sem limite de espaço para armazenamento!
>
> _______________________________________________
> 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/20080114/f4e96ff9/attachment.html 

From acid06 em gmail.com  Mon Jan 14 12:34:08 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 14 Jan 2008 18:34:08 -0200
Subject: [Cascavel-pm] Duvida em contar elemento no array
In-Reply-To: <12d1f4ee0801141100u1b2432bfm58a6eb296a8f5e97@mail.gmail.com>
References: <827066.36144.qm@web31305.mail.mud.yahoo.com>
	<12d1f4ee0801141100u1b2432bfm58a6eb296a8f5e97@mail.gmail.com>
Message-ID: <9a08c9b40801141234i18ae4d9bjb02045c4936ea20b@mail.gmail.com>

2008/1/14 Solli Honorio <shonorio em gmail.com>:
>  Patty, estou confuso neste ponto (entre outros)... você está declarando  um
> array  'cont_var' e uma string 'cont_var' ao mesmo tempo ? Este programa
> roda com stricts e '-w' ?

Claro, isso não é um erro ou um problema de forma alguma. Todos os
namespaces são separados em Perl.

  use warnings;
  use strict;

  my ($var, @var, %var);
  open(var, 'file');

É perfeitamente válido.
Se é recomendado, bom, aí são outros 500. ;-)

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Mon Jan 14 13:18:01 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 14 Jan 2008 13:18:01 -0800 (PST)
Subject: [Cascavel-pm] Res:  Duvida em contar elemento no array
Message-ID: <110480.65338.qm@web31304.mail.mud.yahoo.com>

Eu zero em   my $tot=0;
mas ele nao zera :/
Tem como eu contar elementos de outra forma?
Ex:
array=(4,3,10,45,23)
contar os elementos > q 5 :D

Obrigada

----- Mensagem original ----
De: Solli Honorio <shonorio em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 14 de Janeiro de 2008 17:00:16
Assunto: Re: [Cascavel-pm] Duvida em contar elemento no array



Em 14/01/08, Patty Silva <ptfzs em yahoo.com.br> escreveu:
Pessoal, 
como de sugestao de pessoas da lista, estou tentar contar quantidade de elementos em um array..

vou no banco e recupero os dados :


.....
.....


while ( my @row = $sth2->fetchrow_array( ) )
{ 
    my $tot=0;
    my @cont_var;
    my $cont_var;




Patty, estou confuso neste ponto (entre outros)... você está declarando  um  array  'cont_var' e uma string 'cont_var' ao mesmo tempo ? Este programa roda com stricts e '-w' ?




    @cont_var=("$umid","$dir","$ven","$pre","$vel","$velv","$pres","$par","$min","$max","$tacao","$lo");    


    
    $cont_var{$_}++ for @cont_var; # contar os números
    
     
     foreach my $key1 (keys %cont_var)
    
 {
  
          if($key1 >= 5)
          {
             $tot_flag++;
 
          }
 
      }

    print "TOT_FLAG=>>$tot_flag\n";





so que ele nao esta zerando.. na 1 passagem ele faz correto na segunda ele conta a 1 + a 2 :/




Mas onde você está pedindo para  'zerar' ?  E quem você  quer  zerar ?  



Alguem pode me dar uma luz..

Obrigada






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 


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

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




-- 
"o animal satisfeito dorme". - Guimarães Rosa






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080114/cec1e937/attachment.html 

From acid06 em gmail.com  Mon Jan 14 14:35:16 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 14 Jan 2008 20:35:16 -0200
Subject: [Cascavel-pm] Res: Duvida em contar elemento no array
In-Reply-To: <110480.65338.qm@web31304.mail.mud.yahoo.com>
References: <110480.65338.qm@web31304.mail.mud.yahoo.com>
Message-ID: <9a08c9b40801141435u5125f439vf941e346acc75ac7@mail.gmail.com>

2008/1/14 Patty Silva <ptfzs em yahoo.com.br>:
> Tem como eu contar elementos de outra forma?

  my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9);
  my $count = scalar grep { $_ >= 5 } @array;

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Mon Jan 14 15:01:28 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 14 Jan 2008 15:01:28 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res: Duvida em contar elemento no array
Message-ID: <949442.89246.qm@web31301.mail.mud.yahoo.com>

Nilson :D
Muito Obrigada
onde eu posso encontrar apostilas, artigos sobre hash... ??? scalar???

Obrigada

----- Mensagem original ----
De: Nilson Santos Figueiredo Junior <acid06 em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 14 de Janeiro de 2008 20:35:16
Assunto: Re: [Cascavel-pm] Res: Duvida em contar elemento no array

2008/1/14 Patty Silva <ptfzs em yahoo.com.br>:
> Tem como eu contar elementos de outra forma?

  my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9);
  my $count = scalar grep { $_ >= 5 } @array;

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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080114/d101bb0b/attachment.html 

From edencardim em gmail.com  Mon Jan 14 15:05:15 2008
From: edencardim em gmail.com (eden)
Date: Mon, 14 Jan 2008 20:05:15 -0300
Subject: [Cascavel-pm] Res: Res: Duvida em contar elemento no array
In-Reply-To: <949442.89246.qm@web31301.mail.mud.yahoo.com>
References: <949442.89246.qm@web31301.mail.mud.yahoo.com>
Message-ID: <3de55ead0801141505y1a8cf888na750725b40e8e72b@mail.gmail.com>

2008/1/14 Patty Silva <ptfzs em yahoo.com.br>:
>
> Nilson :D
> Muito Obrigada
> onde eu posso encontrar apostilas, artigos sobre hash... ??? scalar???

Na documentação do perl:

perldoc perlintro

-- 
edenc.vox.com

From shonorio em gmail.com  Mon Jan 14 19:06:00 2008
From: shonorio em gmail.com (Solli Honorio)
Date: Tue, 15 Jan 2008 01:06:00 -0200
Subject: [Cascavel-pm] Duvida em contar elemento no array
In-Reply-To: <9a08c9b40801141234i18ae4d9bjb02045c4936ea20b@mail.gmail.com>
References: <827066.36144.qm@web31305.mail.mud.yahoo.com>
	<12d1f4ee0801141100u1b2432bfm58a6eb296a8f5e97@mail.gmail.com>
	<9a08c9b40801141234i18ae4d9bjb02045c4936ea20b@mail.gmail.com>
Message-ID: <12d1f4ee0801141906y54816e6dp7d2dcc1833d9b3c5@mail.gmail.com>

Em 14/01/08, Nilson Santos Figueiredo Junior <acid06 em gmail.com> escreveu:
>
> 2008/1/14 Solli Honorio <shonorio em gmail.com>:
> >  Patty, estou confuso neste ponto (entre outros)... você está
> declarando  um
> > array  'cont_var' e uma string 'cont_var' ao mesmo tempo ? Este programa
> > roda com stricts e '-w' ?
>
> Claro, isso não é um erro ou um problema de forma alguma. Todos os
> namespaces são separados em Perl.
>
>   use warnings;
>   use strict;
>
>   my ($var, @var, %var);
>   open(var, 'file');


Válido eu sei, só estava preocupado com os 'outros 500' :-] ....

É perfeitamente válido.
> Se é recomendado, bom, aí são outros 500. ;-)
>
> -Nilson Santos F. Jr.
> _______________________________________________
> 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/20080115/b04e124b/attachment.html 

From shonorio em gmail.com  Mon Jan 14 19:21:44 2008
From: shonorio em gmail.com (Solli Honorio)
Date: Tue, 15 Jan 2008 01:21:44 -0200
Subject: [Cascavel-pm] Res: Res: Duvida em contar elemento no array
In-Reply-To: <949442.89246.qm@web31301.mail.mud.yahoo.com>
References: <949442.89246.qm@web31301.mail.mud.yahoo.com>
Message-ID: <12d1f4ee0801141921w3442d62bq2356e4510ef33c87@mail.gmail.com>

Em 14/01/08, Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
> Nilson :D
> Muito Obrigada
> onde eu posso encontrar apostilas, artigos sobre hash... ??? scalar???
>
> Obrigada
>

Se o inglês não for o problema, pode procurar no
http://www.perl.org/books/library.html, no
http://www.perltraining.com.au/notes.html e claro no http://www.perl.org.br.

----- Mensagem original ----
> De: Nilson Santos Figueiredo Junior <acid06 em gmail.com>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Segunda-feira, 14 de Janeiro de 2008 20:35:16
> Assunto: Re: [Cascavel-pm] Res: Duvida em contar elemento no array
>
> 2008/1/14 Patty Silva <ptfzs em yahoo.com.br>:
> > Tem como eu contar elementos de outra forma?
>
>   my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9);
>   my $count = scalar grep { $_ >= 5 } @array;
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
> ------------------------------
> Abra sua conta no Yahoo! Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>,
> o único sem limite de espaço para armazenamento!
>
> _______________________________________________
> 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/20080115/b5e66ef4/attachment-0001.html 

From rafamv1 em ig.com.br  Tue Jan 15 04:42:48 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Tue, 15 Jan 2008 09:42:48 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
Message-ID: <3e759d2b0801150442s24201b46v571270756f00bd72@mail.gmail.com>

Bom dia, pessoal. Estou tentando apagar todos os arquivos de um diretório
com o código
abaixo, mas essa "bomba" não apaga nada. O que há de errado nisso ai?
A variável $user contem o diretório de cada usuário. Quero apagar os
arquivos que existem
dentro de cada diretório.

Trecho do código:

my $dir = '/[diretorio principal]';

foreach my $user (@users) {
     unlink glob("$dir/$user/*.*");

}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080115/1ddb45f7/attachment.html 

From rafamv1 em ig.com.br  Tue Jan 15 05:51:41 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Tue, 15 Jan 2008 10:51:41 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Apagar_arquivos_em_diret=F3rio?=
Message-ID: <3e759d2b0801150551g20c8548cq566846a292cda0f1@mail.gmail.com>

Bom dia, pessoal. Estou tentando apagar todos os arquivos de um diretório
com o código
abaixo, mas essa "bomba" não apaga nada. O que há de errado nisso ai?

A variável $user contem o diretório de cada usuário. Quero apagar os
arquivos que existem
dentro de cada diretório.
Trecho do código:

my $dir = '/[diretorio principal]';

foreach my $user (@users) {
     unlink glob("$dir/$user/*.*");

}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080115/94cea665/attachment.html 

From hamilton.listas em gmail.com  Tue Jan 15 10:09:24 2008
From: hamilton.listas em gmail.com (Hamilton Vera)
Date: Tue, 15 Jan 2008 16:09:24 -0200
Subject: [Cascavel-pm] =?iso-8859-1?q?Substituindo_n=FAmeros_com_zero_a_es?=
	=?iso-8859-1?q?querda=2E?=
Message-ID: <70ebb3b30801151009r3b1f85ddj1bc3dd0ee4bb3c5b@mail.gmail.com>

Boa tarde mestres,

Estou trabalhando em um arquivo imenso para importa-lo de maneira
correta em um sistema. Consegui tratar quase todos os
campos perfeitamente, exceto;

Grupo: A T I V O                                 Levantado em
20/07/2007                        Folha  00001
....dados....
Grupo: P A S S I V O                          Levantado em 20/07/2007
                      Folha  00002
....dados....
Grupo: P A S S I V O                          Levantado em 20/07/2007
                      Folha  00004
....dados....
Grupo: P A S S I V O                          Levantado em 20/07/2007
                      Folha  00005
...dados....

Meu obstáculo é converter o "Folha  0000x" em um valor "incremental
que deveria começar em "Folha  00002"  (mantendo os zeros a esquerda).
Tentei algo tolo como;

$line =~ s/Folha  \d+/Folha  $count/;

Só que não consigo manter os zeros a esquerda.

Pensei em fazer um split e depois imprimir a parte numérica em separado,

printf '%05s', $count;

deu certo, mas gostaria de saber  uma forma mais galante para fazer isso.


Muito obrigado.


-- 
Hamilton Vera
int Administrator (char Network[],char ComputationalSystems[]);
"Google is my shepherd, no want shall I know"

From rafamv1 em ig.com.br  Tue Jan 15 11:54:35 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Tue, 15 Jan 2008 16:54:35 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
Message-ID: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>

Bom dia, pessoal. Estou tentando apagar todos os arquivos de um diretório
com o código
abaixo, mas essa "bomba" não apaga nada. O que há de errado nisso ai?

A variável $user contem o diretório de cada usuário. Quero apagar os
arquivos que existem
dentro de cada diretório.

Trecho do código:

my $dir = '/[diretorio principal]';
foreach my $user (@users) {
     unlink glob("$dir/$user/*.*");

}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080115/ab0074d7/attachment.html 

From wendelscardua em gmail.com  Tue Jan 15 12:26:39 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Tue, 15 Jan 2008 18:26:39 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
Message-ID: <726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>

Que é isso ? Mensagens velhas voltando à vida ? De coisas já respondidas a
11 dias atrás ?

[]s
Wendel

ps: porque você chama seu código de "bomba" ? É que não me agrada muito o
nome, dá a impressão de que isso é usado onde não deve...

2008/1/15 Rafael Lebrao Martins <rafamv1 em ig.com.br>:

> Bom dia, pessoal. Estou tentando apagar todos os arquivos de um diretório
> com o código
> abaixo, mas essa "bomba" não apaga nada. O que há de errado nisso ai?
>
> A variável $user contem o diretório de cada usuário. Quero apagar os
> arquivos que existem
> dentro de cada diretório.
>
> Trecho do código:
>
> my $dir = '/[diretorio principal]';
> foreach my $user (@users) {
>      unlink glob("$dir/$user/*.*");
>
> }
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080115/cd0b2610/attachment.html 

From rafamv1 em ig.com.br  Tue Jan 15 12:35:19 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Tue, 15 Jan 2008 17:35:19 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
Message-ID: <3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>

Olá. Não é uma "mensagem velha voltando à vida"..
A minha dúvida anterior era quanto à remoção de diretórios cheios..
Agora estou querendo remover todos os arquivos de um ou mais diretórios..


Em 15/01/08, Wendel Scardua <wendelscardua em gmail.com> escreveu:
>
> Que é isso ? Mensagens velhas voltando à vida ? De coisas já respondidas a
> 11 dias atrás ?
>
> []s
> Wendel
>
> ps: porque você chama seu código de "bomba" ? É que não me agrada muito o
> nome, dá a impressão de que isso é usado onde não deve...
>
> 2008/1/15 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
>
> >   Bom dia, pessoal. Estou tentando apagar todos os arquivos de um
> > diretório com o código
> > abaixo, mas essa "bomba" não apaga nada. O que há de errado nisso ai?
> >
> > A variável $user contem o diretório de cada usuário. Quero apagar os
> > arquivos que existem
> > dentro de cada diretório.
> >
> > Trecho do código:
> >
> > my $dir = '/[diretorio principal]';
> > foreach my $user (@users) {
> >      unlink glob("$dir/$user/*.*");
> >
> > }
> >
> >
> _______________________________________________
> 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/20080115/b4b04f12/attachment.html 

From a.r.ferreira em gmail.com  Tue Jan 15 12:21:17 2008
From: a.r.ferreira em gmail.com (Adriano Ferreira)
Date: Tue, 15 Jan 2008 18:21:17 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <3e759d2b0801150442s24201b46v571270756f00bd72@mail.gmail.com>
References: <3e759d2b0801150442s24201b46v571270756f00bd72@mail.gmail.com>
Message-ID: <73ddeb6c0801151221q73af42f5je29d881d36ceef89@mail.gmail.com>

2008/1/15 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
>
>
> Bom dia, pessoal. Estou tentando apagar todos os arquivos de um diretório
> com o código
> abaixo, mas essa "bomba" não apaga nada. O que há de errado nisso ai?
> A variável $user contem o diretório de cada usuário. Quero apagar os
> arquivos que existem
> dentro de cada diretório.
>
> Trecho do código:
>
> my $dir = '/[diretorio principal]';
>
> foreach my $user (@users) {
>      unlink glob("$dir/$user/*.*");
>
> }

Para saber o que está acontecendo é uma boa idéia olhar o que o "glob"
está retornando:

   my @files = glob("$dir/$user/*.*");
   print "files: @files\n";

Talvez você possa usar também o File::Path::rmtree:

http://perldoc.perl.org/File/Path.html

Saudações,
Adriano

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

From glasswalk3r em yahoo.com.br  Tue Jan 15 13:35:26 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 15 Jan 2008 18:35:26 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <47849B32.2010606@yahoo.co.uk>
Message-ID: <856979.15079.qm@web30809.mail.mud.yahoo.com>

Oi Champs,

--- Luis Motta Campos <luismottacampos em yahoo.co.uk>
escreveu:

[tutorial de Class::Accessor]

> __END__
> 
> Espero que isso ajude.
> Se você precisar de mais ajuda, por favor não se
> sinta constrangido - é
> muito difícil eu ter uma oportunidade de ajudar
> você,

Deve ser a diferença de fuso... ou então que o nível
da lista melhorou! Ou os dois!!

Acho que você está perdendo a primeira posição de
envio de respostas mais rápidas (temos essa
competição?). Ano  passado você ganhou na quantidade,
mas do jeito que as coisas andam, você vai precisar de
um BOT para se manter no páreo! :-)

Obrigado pela ajuda.

[]'s
 

Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From nferraz em gmail.com  Tue Jan 15 18:12:44 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 16 Jan 2008 02:12:44 +0000
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Substituindo_n=FAmeros_com_zero_a_es?=
	=?iso-8859-1?q?querda=2E?=
In-Reply-To: <70ebb3b30801151009r3b1f85ddj1bc3dd0ee4bb3c5b@mail.gmail.com>
References: <70ebb3b30801151009r3b1f85ddj1bc3dd0ee4bb3c5b@mail.gmail.com>
Message-ID: <604cec170801151812s31ce0c53ofc2acdb82f94afd5@mail.gmail.com>

> Tentei algo tolo como;
>
> $line =~ s/Folha  \d+/Folha  $count/;
>
> Só que não consigo manter os zeros a esquerda.
>
> Pensei em fazer um split e depois imprimir a parte numérica em separado,
>
> printf '%05s', $count;
>
> deu certo, mas gostaria de saber  uma forma mais galante para fazer isso.

Você está no caminho certo.

Agora pode combinar as duas soluções colocando um /e no final da
expressão regular, que significa realizar um "eval" no lado direito da
regexp:

    my $line  = "Folha 1234";
    my $count = 5;

    $line =~ s/Folha \d+/sprintf('Folha %05d', $count)/e;

    print $line;

From ptfzs em yahoo.com.br  Wed Jan 16 04:12:36 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 16 Jan 2008 04:12:36 -0800 (PST)
Subject: [Cascavel-pm] Declaracao de variaveis
Message-ID: <307905.70271.qm@web31314.mail.mud.yahoo.com>

Pessoal, 
eu sou obrigada a inicializar variaveis??

Estou usando a biblioteca use Getopt::Std; 
so que quando eu nao entro com a opcao -i no caso, ele da esse erro:

Use of uninitialized value in string


 if(!$opt_i)                    -------------> nessa linha
{
        next if ($varaux && $DBM>=$ROW);
}


???

Obrigada Pessoal








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080116/fce7cf99/attachment.html 

From giulianisanches em gmail.com  Wed Jan 16 04:16:47 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Wed, 16 Jan 2008 10:16:47 -0200
Subject: [Cascavel-pm] Declaracao de variaveis
In-Reply-To: <307905.70271.qm@web31314.mail.mud.yahoo.com>
References: <307905.70271.qm@web31314.mail.mud.yahoo.com>
Message-ID: <572750180801160416s4a30bda6l977369d9ca70d1a1@mail.gmail.com>

Inicializar acredito que não (mas você vai precisar atribuir valores
nelas para poder testar suas condições corretamente), mas declarar
sim:

my $opt_i;
my $varaux;
my$DBM;
my $ROW;

if(!$opt_i)  {
         next if ($varaux && $DBM>=$ROW);
 }

Em 16/01/08, Patty Silva<ptfzs em yahoo.com.br> escreveu:
>
> Pessoal,
> eu sou obrigada a inicializar variaveis??
>
> Estou usando a biblioteca use Getopt::Std;
> so que quando eu nao entro com a opcao -i no caso, ele da esse erro:
>
> Use of uninitialized value in string
>
>
>  if(!$opt_i)                    -------------> nessa linha
> {
>         next if ($varaux && $DBM>=$ROW);
> }
>
>
> ???
>
> Obrigada Pessoal
>
>
>
>
>
>  ________________________________
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From nferraz em gmail.com  Wed Jan 16 06:36:22 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 16 Jan 2008 14:36:22 +0000
Subject: [Cascavel-pm] Declaracao de variaveis
In-Reply-To: <307905.70271.qm@web31314.mail.mud.yahoo.com>
References: <307905.70271.qm@web31314.mail.mud.yahoo.com>
Message-ID: <604cec170801160636j118edaf2o9c30729b25dd9c05@mail.gmail.com>

> Estou usando a biblioteca use Getopt::Std;
> so que quando eu nao entro com a opcao -i no caso, ele da esse erro:
>
> Use of uninitialized value in string

Patty,

Isso não é um "erro"; é um "warning".

Significa que você está usando a diretiva "use warnings" (o que é
muito bom!) e o perl está tentando te ajudar a eliminar problemas em
potencial.

Para obter uma explicação mais precisa dos warnings, você pode incluir
a seguinte linha:

  use diagnostics;

Com relação à pergunta inicial:

> eu sou obrigada a inicializar variaveis??

Você não é obrigada, mas esta é considerada uma boa prática.

Uma alternativa é testar se uma variável foi definida, com a função "defined":

    if (defined $foo) {
        # ...
    }

[]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 ptfzs em yahoo.com.br  Wed Jan 16 08:19:12 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 16 Jan 2008 08:19:12 -0800 (PST)
Subject: [Cascavel-pm] Res:  Duvida campo numerico
Message-ID: <62041.40859.qm@web31310.mail.mud.yahoo.com>

Pessoal.. 
uma duvida::
pq ele nao aceita:

my $teste=0;
if($teste)
{
print "Contem Dados\n";
}
else
{
print "Nao contem Dados\n";
}


Ele imprime "Nao Contem Dados"

pq? sendo q é = a 0

Obrigada

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 11 de Outubro de 2007 13:42:40
Assunto: Re: [Cascavel-pm] Duvida campo numerico

Obrigada pela dica :D
O problema eh que ele retorna do banco vazio aparentemente,, mas se fou verificar com defined ele nao pega.. :/
O problema deve estar ao retornar do banco..


Nelson Ferraz <nferraz em gmail.com> escreveu: Em Oct 11, 2007, às 12:56 PM, Patty Silva escreveu:

> Se eu colocar if($fields[4] =="\\N")
> ele entra no IF
> :/
> pq sera q no banco esta assim?

Calma, Patty... vamos voltar para o básico.

Como você deve se lembrar, não existe diferença entre variáveis  
numéricas e alfanuméricas em Perl: as mesmas variáveis (escalares)  
podem armazenar letras e números.

O que acontece se você quiser comparar, por exemplo, $a=7 com  
$b="007"? As duas variáveis têm valores iguais ou diferentes?

A resposta é: depende. Se compararmos numericamente, $a e $b são
  
iguais; mas se compararmos literalmente, são diferentes.

Portanto, quando você estiver trabalhando com números, utilize  
comparações numéricas, e quando estiver trabalhando com strings,  
utilize comparações literais:

    # Comparações numéricas
    if ($idade == 18) { ... }
    if ($idade > 100) { ... }

    # Comparações literais
    if ($resposta eq "s") { ... }
    if ($field ne "") { ... }

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

 


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 







      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080116/951db72e/attachment.html 

From ptfzs em yahoo.com.br  Wed Jan 16 08:24:05 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 16 Jan 2008 08:24:05 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  Duvida campo numerico
Message-ID: <219839.12562.qm@web31303.mail.mud.yahoo.com>

Desculpem esqueci de mencionar se colocar o defined.. dai da certo..:/
alguem pode explicar??

Obrigada

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quarta-feira, 16 de Janeiro de 2008 16:19:12
Assunto: [Cascavel-pm] Res:  Duvida campo numerico

Pessoal.. 
uma duvida::
pq ele nao aceita:

my $teste=0;
if($teste)
{
print "Contem Dados\n";
}
else
{
print "Nao contem Dados\n";
}


Ele imprime "Nao Contem Dados"

pq? sendo q é = a 0

Obrigada

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 11 de Outubro de 2007 13:42:40
Assunto: Re: [Cascavel-pm] Duvida campo numerico

Obrigada pela dica :D
O problema eh que ele retorna do banco vazio aparentemente,, mas se fou verificar com defined ele nao
 pega.. :/
O problema deve estar ao retornar do banco..


Nelson Ferraz <nferraz em gmail.com> escreveu: Em Oct 11, 2007, às 12:56 PM, Patty Silva escreveu:

> Se eu colocar if($fields[4] =="\\N")
> ele entra no IF
> :/
> pq sera q no banco esta assim?

Calma, Patty... vamos voltar para o básico.

Como você deve se lembrar, não existe diferença entre variáveis  
numéricas e alfanuméricas em Perl: as mesmas variáveis (escalares)  
podem armazenar letras e números.

O que acontece se você quiser comparar, por exemplo, $a=7 com  
$b="007"? As duas variáveis têm valores iguais ou diferentes?

A resposta é: depende. Se compararmos numericamente, $a e $b são
  
iguais; mas se compararmos literalmente, são diferentes.

Portanto, quando você estiver trabalhando com números, utilize  
comparações numéricas, e quando estiver trabalhando com strings,  
utilize comparações literais:

    # Comparações numéricas
    if ($idade == 18) { ... }
    if ($idade > 100) { ... }

    # Comparações literais
    if ($resposta eq "s") { ... }
    if ($field ne "") { ... }

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

 


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 









      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080116/b80d3c89/attachment.html 

From danielrantunes em yahoo.com.br  Wed Jan 16 08:46:16 2008
From: danielrantunes em yahoo.com.br (=?iso-8859-1?Q?Daniel_=AE_Antunes?=)
Date: Wed, 16 Jan 2008 08:46:16 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  Res:  Duvida campo numerico
Message-ID: <203982.8944.qm@web36914.mail.mud.yahoo.com>

Td que é diferente de zero é "true" (verdadeiro) e o zero é "false" (falso).
    Qdo vc utiliza o defined a análise feita é se a variável está "definida", ou seja; não é avaliado o seu valor.

if ($teste) não é uma condição verdadeira pois o valor de $teste é 0 (falso)
if (defined $teste) é uma condição verdadeira pois o retorno da avaliação da expressão é 1 (verdadeiro)

    Eu sou ruim para explicar mas espero que isto te ajude.
    É um conceito básico em programação.
    Abraço.

 
Daniel ® Antunes
profissional de informática
msn daniel em daniel-antunes.com.br
gnu/linux user #238553



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quarta-feira, 16 de Janeiro de 2008 14:24:05
Assunto: [Cascavel-pm] Res: Res: Duvida campo numerico


Desculpem esqueci de mencionar se colocar o defined.. dai da certo..:/
alguem pode explicar??

Obrigada


----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quarta-feira, 16 de Janeiro de 2008 16:19:12
Assunto: [Cascavel-pm] Res: Duvida campo numerico


Pessoal.. 
uma duvida::
pq ele nao aceita:

my $teste=0;
if($teste)
{
print "Contem Dados\n";
}
else
{
print "Nao contem Dados\n";
}


Ele imprime "Nao Contem Dados"

pq? sendo q é = a 0

Obrigada


----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 11 de Outubro de 2007 13:42:40
Assunto: Re: [Cascavel-pm] Duvida campo numerico

Obrigada pela dica :D
O problema eh que ele retorna do banco vazio aparentemente,, mas se fou verificar com defined ele nao pega.. :/
O problema deve estar ao retornar do banco..


Nelson Ferraz <nferraz em gmail.com> escreveu:
Em Oct 11, 2007, às 12:56 PM, Patty Silva escreveu:

> Se eu colocar if($fields[4] =="\\N")
> ele entra no IF
> :/
> pq sera q no banco esta assim?

Calma, Patty... vamos voltar para o básico.

Como você deve se lembrar, não existe diferença entre variáveis 
numéricas e alfanuméricas em Perl: as mesmas variáveis (escalares) 
podem armazenar letras e números.

O que acontece se você quiser comparar, por exemplo, $a=7 com 
$b="007"? As duas variáveis têm valores iguais ou diferentes?

A resposta é: depende. Se compararmos numericamente, $a e $b são 
iguais; mas se compararmos literalmente, são diferentes.

Portanto, quando você estiver trabalhando com números, utilize 
comparações numéricas, e quando estiver trabalhando com strings, 
utilize comparações literais:

# Comparações numéricas
if ($idade == 18) { ... }
if ($idade > 100) { ... }

# Comparações literais
if ($resposta eq "s") { ... }
if ($field ne "") { ... }

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



Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 





Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 





Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080116/b74c8209/attachment-0001.html 

From edencardim em gmail.com  Wed Jan 16 09:10:59 2008
From: edencardim em gmail.com (eden)
Date: Wed, 16 Jan 2008 14:10:59 -0300
Subject: [Cascavel-pm] Res: Res: Res: Duvida campo numerico
In-Reply-To: <203982.8944.qm@web36914.mail.mud.yahoo.com>
References: <203982.8944.qm@web36914.mail.mud.yahoo.com>
Message-ID: <3de55ead0801160910n67f0b6b3u5a70afb99913f011@mail.gmail.com>

2008/1/16 Daniel (R) Antunes <danielrantunes em yahoo.com.br>:
>
>
>     Td que é diferente de zero é "true" (verdadeiro) e o zero é "false"
> (falso).

na verdade, os valores 0, '' (string vazia) e undef avaliam como falso
em contexto booleano, todos os outros valores são verdadeiros.

>     Qdo vc utiliza o defined a análise feita é se a variável está
> "definida", ou seja; não é avaliado o seu valor.

O valor é avaliado sim, a função defined() indica se o valor contido
na variável é undef.
O comportamento que você mencionou ocorre com a função exists() que só
se aplica a chaves de hashes.

> if ($teste) não é uma condição verdadeira pois o valor de $teste é 0 (falso)
> if (defined $teste) é uma condição verdadeira pois o retorno da avaliação da
> expressão é 1 (verdadeiro)

Depois da sessão de chatisse... Agora sim, eu concordo, é isso mesmo... :)

-- 
edenc.vox.com

From jaja.gabriel em gmail.com  Wed Jan 16 10:08:33 2008
From: jaja.gabriel em gmail.com (Joao Gabriel C. Laass)
Date: Wed, 16 Jan 2008 16:08:33 -0200
Subject: [Cascavel-pm] =?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
	=?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_vo?=
	=?iso-8859-1?q?c=EAs?=
Message-ID: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>

Boa tarde pessoal.

Estou enviando esse e-mail para ouvir a opinião de vocês...
esse mês eu fui aprovado no CEFET-ES* para o curso "tecnólogo" em
"Análise e Desenvolvimento de Sistemas" (vulgo Sistemas de
Informação)... e estou um pouco confuso...

A um tempo atrás eu fui em uma palestra na qual o instrutor citou as
diferenças entre Ciência da Computação e Sistemas de Informação... e
em certa parte da palestra ele disse que no mercado, tirando o momento
da contratação (em que Ciência da Compt. parece levar vantagem sobre
Sistemas de Informação) ambas as áreas se interceptam e um pode fazer
o trabalho do outro...

Gostaria de saber os prós e contras sobre o curso que irei cursar
(aviso: continuarei a tentar passar em Ciência da Computação pela
UFES)...

*CEFET-ES pra quem não sabe, tem fama de dar uma boa formação em
cursos técnicos, tecnólogos e superiores (ensino médio já foi o tempo
que era TOP) e também tem fama de que os professores sugam os alunos
(o que eu acho correto para uma boa formação).

-- 
Um abraço,
João Gabriel C. Laass

From nferraz em gmail.com  Wed Jan 16 10:36:57 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 16 Jan 2008 18:36:57 +0000
Subject: [Cascavel-pm] Res: Res: Duvida campo numerico
In-Reply-To: <219839.12562.qm@web31303.mail.mud.yahoo.com>
References: <219839.12562.qm@web31303.mail.mud.yahoo.com>
Message-ID: <604cec170801161036k13043761j6f6c444160dc6900@mail.gmail.com>

> Desculpem esqueci de mencionar se colocar o defined.. dai da certo..:/
> alguem pode explicar??

perldoc -f defined

From ptfzs em yahoo.com.br  Wed Jan 16 10:39:45 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 16 Jan 2008 10:39:45 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res: Res: Res: Duvida campo numerico
Message-ID: <608295.53524.qm@web31302.mail.mud.yahoo.com>

Resumindo :)
eu posso usar defined entao?? :)
Obrigada



----- Mensagem original ----
De: eden <edencardim em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quarta-feira, 16 de Janeiro de 2008 17:10:59
Assunto: Re: [Cascavel-pm] Res: Res: Res: Duvida campo numerico

2008/1/16 Daniel (R) Antunes <danielrantunes em yahoo.com.br>:
>
>
>     Td que é diferente de zero é "true" (verdadeiro) e o zero é
 "false"
> (falso).

na verdade, os valores 0, '' (string vazia) e undef avaliam como falso
em contexto booleano, todos os outros valores são verdadeiros.

>     Qdo vc utiliza o defined a análise feita é se a variável está
> "definida", ou seja; não é avaliado o seu valor.

O valor é avaliado sim, a função defined() indica se o valor contido
na variável é undef.
O comportamento que você mencionou ocorre com a função exists() que
 só
se aplica a chaves de hashes.

> if ($teste) não é uma condição verdadeira pois o valor de $teste
 é 0 (falso)
> if (defined $teste) é uma condição verdadeira pois o retorno da
 avaliação da
> expressão é 1 (verdadeiro)

Depois da sessão de chatisse... Agora sim, eu concordo, é isso
 mesmo... :)

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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080116/491b71a4/attachment.html 

From acid06 em gmail.com  Wed Jan 16 10:58:31 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 16 Jan 2008 16:58:31 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
	=?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_vo?=
	=?iso-8859-1?q?c=EAs?=
In-Reply-To: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
References: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
Message-ID: <9a08c9b40801161058v5a59bfa0g80cce71b188550f7@mail.gmail.com>

2008/1/16 Joao Gabriel C. Laass <jaja.gabriel em gmail.com>:
> A um tempo atrás eu fui em uma palestra na qual o instrutor citou as
> diferenças entre Ciência da Computação e Sistemas de Informação... e
> em certa parte da palestra ele disse que no mercado, tirando o momento
> da contratação (em que Ciência da Compt. parece levar vantagem sobre
> Sistemas de Informação) ambas as áreas se interceptam e um pode fazer
> o trabalho do outro...

Olá,

Em geral, eu recomendo contra o ingresso em cursos de
nível"tecnólogo". Eles são considerados como nível superior e
categorizados de maneira equivalente aos bacharelados somente por
pressão de algumas universidades. Na realidade, o intuito da criação
dos mesmos era funcionar como um nível intermediário entre um nível
técnico e um bacharel e, originalmente, nem era possível fazer
pós-graduação depois (agora é, novamente, por pressão).

Quanto ao ensino, bem, a idéia desses cursos é uma abordagem mais
específica ao invés de generalista. É comum algumas universidades
possuírem disciplinas específicas para "Java" ou ".NET" nesses cursos,
enquanto um bacharelado teria uma disciplina de "Linguagens de
Programação".

Note que tem um erro no que você disse. Tecnólogo em Análise de
Sistemas é um título diferente de um Bacharel em Sistemas de
Informação.

Além disso, se o que você gosta mesmo é de desafios técnicos,
desenvolver algoritmos, etc, eu não recomendaria nem mesmo o
Bacharelado em Sistemas de Informação mas, sim, um Bacharelado em
Ciência da Computação. O curso de Sistemas de Informação possuí um
foco também em aspectos gerenciais e administrativos, enquanto num
curso de Ciência da Computação, em geral, esse foco é reduzido ou não
existe.

Por outro lado, é melhor fazer um curso ligeiramente simplificado em
uma boa instituição de ensino do que um que seria supostamente melhor,
em uma instituição de ensino inferior (essas particulares meia-boca
que brotam a cada dia).

Aqui em BH é comum (principalmente para alunos de Engenharias em
geral) começar a estudar no CEFET e depois pedir transferência para a
UFMG. Com isso, você consegue evitar o vestibular e no final acaba com
o mesmo diploma e nível de aprendizado que todo mundo. Não sei se isso
é possível na UFES.

-Nilson Santos F. Jr.

From danielrantunes em yahoo.com.br  Wed Jan 16 12:15:48 2008
From: danielrantunes em yahoo.com.br (=?iso-8859-1?Q?Daniel_=AE_Antunes?=)
Date: Wed, 16 Jan 2008 12:15:48 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res: Res: Res: Duvida campo numerico
Message-ID: <260917.91666.qm@web36905.mail.mud.yahoo.com>

Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080116/9aa5094c/attachment.html 
-------------- Próxima Parte ----------
     Sim. A diferença é que mesmo o valor da variável sendo 0 (o que faz atualmente seu if bater sempre no else), o status dela é defined.



Sent from my iPhone

On 16/01/2008, at 16:39, Patty Silva <ptfzs em yahoo.com.br> wrote:

Resumindo :)
eu posso usar defined entao?? :)
Obrigada



----- Mensagem original ----
De: eden <edencardim em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quarta-feira, 16 de Janeiro de 2008 17:10:59
Assunto: Re: [Cascavel-pm] Res: Res: Res: Duvida campo numerico

2008/1/16 Daniel (R) Antunes <danielrantunes em yahoo.com.br>:
>
>
>    Td que é diferente de zero é "true" (verdadeiro) e o zero é "false"
> (falso).

na verdade, os valores 0, '' (string vazia) e undef avaliam como falso
em contexto booleano, todos os outros valores são verdadeiros.

>    Qdo vc utiliza o defined a análise feita é se a variável está
> "definida", ou seja; não é avaliado o seu valor.

O valor é avaliado sim, a função defined() indica se o valor contido
na variável é undef.
O comportamento que você mencionou ocorre com a função exists() que só
se aplica a chaves de hashes.

> if ($teste) não é uma condição verdadeira pois o valor de $teste é 0 (falso)
> if (defined $teste) é uma condição verdadeira pois o retorno da avaliação da
> expressão é 1 (verdadeiro)

Depois da sessão de chatisse... Agora sim, eu concordo, é isso mesmo... :)

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


Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From rafamv1 em ig.com.br  Thu Jan 17 04:44:19 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 09:44:19 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
Message-ID: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>

Bom dia, pessoal. Eu estava pesquisando aqui sobre intersecção e diferença
entre arrays, mas não consegui encontrar nenhum link que "respondesse" às
minhas dúvidas. Alguém ai pode me enviar algum link sobre o assunto...?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/6d2740a5/attachment.html 

From luismottacampos em yahoo.co.uk  Thu Jan 17 04:53:21 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 17 Jan 2008 13:53:21 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
Message-ID: <478F4FC1.6060504@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> Olá. Não é uma "mensagem velha voltando à vida"..
> A minha dúvida anterior era quanto à remoção de diretórios cheios..
> Agora estou querendo remover todos os arquivos de um ou mais diretórios..

  Posso saber qual é a diferença, por favor?
  O que é um "diretório", se não um arquivo especial?

  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  Thu Jan 17 04:55:45 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 17 Jan 2008 13:55:45 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?m=E9todos_de_acesso_mais_sofisticado?=
 =?iso-8859-1?q?s_=28era=3A_acess=F3rios_de_altera=E7=E3o_mais_sofisticado?=
 =?iso-8859-1?q?s=29?=
In-Reply-To: <856979.15079.qm@web30809.mail.mud.yahoo.com>
References: <856979.15079.qm@web30809.mail.mud.yahoo.com>
Message-ID: <478F5051.3000101@yahoo.co.uk>

Alceu R. de Freitas Jr. wrote:
> Oi Champs,
> 
> --- Luis Motta Campos <luismottacampos em yahoo.co.uk>
> escreveu:
> 
> [tutorial de Class::Accessor]
> 
>> __END__
>>
>> Espero que isso ajude.
>> Se você precisar de mais ajuda, por favor não se
>> sinta constrangido - é
>> muito difícil eu ter uma oportunidade de ajudar
>> você,
> 
> Deve ser a diferença de fuso... ou então que o nível
> da lista melhorou! Ou os dois!!
> 
> Acho que você está perdendo a primeira posição de
> envio de respostas mais rápidas (temos essa
> competição?). Ano  passado você ganhou na quantidade,
> mas do jeito que as coisas andam, você vai precisar de
> um BOT para se manter no páreo! :-)
> 
> Obrigado pela ajuda.

  A diferença de fuso não ajuda nada, e agora eu respondo no IRC e nas
listas da Europa, também... ;) e traduzir do holandês não está fácil, ainda.

  De qualquer forma, o importante é ter uma resposta, não a mais rápida.

  Eu fico muito contente de ver respostas para as perguntas antes que eu
possa responder - paga cada minuto do meu tempo investindo nisso nos
últimos anos, ver mais gente se dedicando ao suporte. :)

  Putamplexos, felizes e em segundo (ou terceiro?) lugar!!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}


From rafamv1 em ig.com.br  Thu Jan 17 04:58:18 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 09:58:18 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <478F4FC1.6060504@yahoo.co.uk>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
	<478F4FC1.6060504@yahoo.co.uk>
Message-ID: <3e759d2b0801170458k6d518735uae6f93da73b1b81f@mail.gmail.com>

Que seja então, Luis!!!!

Em 17/01/08, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> Rafael Lebrao Martins wrote:
> > Olá. Não é uma "mensagem velha voltando à vida"..
> > A minha dúvida anterior era quanto à remoção de diretórios cheios..
> > Agora estou querendo remover todos os arquivos de um ou mais
> diretórios..
>
> Posso saber qual é a diferença, por favor?
> O que é um "diretório", se não um arquivo especial?
>
> 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/02372287/attachment.html 

From luismottacampos em yahoo.co.uk  Thu Jan 17 05:02:48 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 17 Jan 2008 14:02:48 +0100
Subject: [Cascavel-pm] Res:  Res: Res: Res: Duvida campo numerico
In-Reply-To: <608295.53524.qm@web31302.mail.mud.yahoo.com>
References: <608295.53524.qm@web31302.mail.mud.yahoo.com>
Message-ID: <478F51F8.702@yahoo.co.uk>

Patty Silva wrote:
> Resumindo :)
> eu posso usar defined entao?? :)

  Patty, na minha opinião, você deveria tentar programar Java...

  Não teste valores em condições se você não sabe o que está fazendo.
Vai dar merda, mais cedo ou mais tarde.

  Entenda o que é "undef" (a única constante do Perl, fora os literais),
e o que é falso e verdadeiro. Tenho certeza de que alguém aqui pode te
apontar para uma tradução razoável do "perlintro", o manual de Perl para
iniciantes.

  Você já deveria estar programando melhor, já faz bastante tempo que
você fala aqui, mas as tuas perguntas não sobem de nível. A gente
responde e você não pensa, não aprende.

  Por favor, preste mais atenção. Você está jogando a tua vida (e o
nosso tempo) fora. Não faz isso, não é bom nem para você nem para a gente.

  Putamplexos preocupados com o teu desenvolvimento profissional. Ou com
a falta dele, para ser mais exato.
-- 
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  Thu Jan 17 05:03:57 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 17 Jan 2008 14:03:57 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <3e759d2b0801170458k6d518735uae6f93da73b1b81f@mail.gmail.com>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>	<478F4FC1.6060504@yahoo.co.uk>
	<3e759d2b0801170458k6d518735uae6f93da73b1b81f@mail.gmail.com>
Message-ID: <478F523D.3050705@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> Que seja então, Luis!!!!  

Bom, se um "diretório" é apenas um arquivo, acho que a gente pode
aplicar mais ou menos as mesmas técnicas... ;) e agora já dá para
aproveitar o programa anterior, resolver isso mais depressa e tomar mais
um gole de café.

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


From rafamv1 em ig.com.br  Thu Jan 17 05:10:59 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 10:10:59 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <478F523D.3050705@yahoo.co.uk>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
	<478F4FC1.6060504@yahoo.co.uk>
	<3e759d2b0801170458k6d518735uae6f93da73b1b81f@mail.gmail.com>
	<478F523D.3050705@yahoo.co.uk>
Message-ID: <3e759d2b0801170510v25f869e9i43c1dbdb5975d59b@mail.gmail.com>

Luis, estou querendo saber mais sobre intersecção entre arrays... Não
consegui encontrar nada que pudesse me ajudasse... Você poderia me passar
algum link sobre esse assunto?

2008/1/17, Luis Motta Campos <luismottacampos em yahoo.co.uk>:
>
> Rafael Lebrao Martins wrote:
> > Que seja então, Luis!!!!
>
> Bom, se um "diretório" é apenas um arquivo, acho que a gente pode
> aplicar mais ou menos as mesmas técnicas... ;) e agora já dá para
> aproveitar o programa anterior, resolver isso mais depressa e tomar mais
> um gole de café.
>
> :) 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/419adf8d/attachment.html 

From edencardim em gmail.com  Thu Jan 17 05:18:12 2008
From: edencardim em gmail.com (eden)
Date: Thu, 17 Jan 2008 10:18:12 -0300
Subject: [Cascavel-pm]
	=?utf-8?b?SW50ZXJzZWPDp8OjbyBlIGRpZmVyZW7Dp2EgZW50?=
	=?utf-8?q?re_arrays?=
In-Reply-To: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
Message-ID: <3de55ead0801170518n338f3d6bobc7543e6207aa4f3@mail.gmail.com>

2008/1/17 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Bom dia, pessoal. Eu estava pesquisando aqui sobre intersecção e diferença
> entre arrays, mas não consegui encontrar nenhum link que "respondesse" às
> minhas dúvidas. Alguém ai pode me enviar algum link sobre o assunto...?

Você pode usar o módulo List::Compare ... Mas isso merece um golf:

O problema é:

assumindo que as seguintes variáveis estão inicializadas:

@a1=1..5;
@a2=3..7;

problema 1: imprimir @a1 - @a2 com os itens separados por vírgula. vai
resultar em "1, 2"
problema 2: imprimir @a1 ? @a2 com os itens separados por vírgula. vai
resultar em "3, 4, 5"

Minhas soluções:

diferença:

@a1{@a1}=1;
delete @a1{@a2};
print join ', ', keys %a1;

intersecção:

@a1{@a1}=1;
print join ', ', grep { exists $a1{$_} } @a2;

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Thu Jan 17 05:25:54 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 17 Jan 2008 14:25:54 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
 =?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_voc=EAs?=
In-Reply-To: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
References: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
Message-ID: <478F5762.4080802@yahoo.co.uk>

Joao Gabriel C. Laass wrote:
> Boa tarde pessoal.
> Estou enviando esse e-mail para ouvir a opinião de vocês... esse mês
> eu fui aprovado no CEFET-ES* para o curso "tecnólogo" em "Análise e
> Desenvolvimento de Sistemas" (vulgo Sistemas de Informação)... e
> estou um pouco confuso...

Bom, antes de mais nada, meus parabéns.

> A um tempo atrás eu fui em uma palestra na qual o instrutor citou as 
> diferenças entre Ciência da Computação e Sistemas de Informação... e 
> em certa parte da palestra ele disse que no mercado, tirando o
> momento da contratação (em que Ciência da Compt. parece levar
> vantagem sobre Sistemas de Informação) ambas as áreas se interceptam
> e um pode fazer o trabalho do outro...

Bom, aqui tem uma verdade e uma mentira. Vamos tentar desenroscar as
duas coisas:

É sim verdade que os profissionais formados "Cientistas da Computação" e
os profissionais formados "Tecnólogos em Sistemas de Informação" tem um
conjunto de tarefas em comum (i.é, podem "fazer a mesma coisa").

O problema é que, para o tecnólogo, esse "subconjunto" comum representa
algo como 80%-90% de todo o conhecimento que ele teve nos estudos dele.
Para o cientista, isso não passa de 20%-30%.

O problema é que a maior parte do mercado de IT do Brazil não entende
nada de IT, e não faz idéia do motivo pelo qual temos duas
"denominações" diferentes para o "mesmo curso" (eles acham).

Assim, se o que importa para você é "trabalhar", qualquer um serve, e
usualmente tecnologia é mais fácil de terminar.

Por outro lado, se você quer fazer diferença, estudar Ciências da
Computação pode pesar na sua carreira.

Eu não estou dizendo que todo mundo que é (interessante|relevante) na
área fez ou faz Ciências da Computação. Não é condição
/sine/-/qua/-/non/ para conseguir bons empregos, e você vai fazer
"essencialmente" a mesma coisa.

É muito mais como comparar as piruetas de um atleta olímpico com as
piruetas de uma criança de 5 anos - o atleta olímpico teve muito mais
preparo e pode dar piruetas mais bonitas... :)

> Gostaria de saber os prós e contras sobre o curso que irei cursar 
> (aviso: continuarei a tentar passar em Ciência da Computação pela 
> UFES)...

Bom, acho que você consegue listar prós e contras por sua conta. O que
eu quero que você preste atenção é se o curso que você escolher te oferece:

  1. Mais horas de prática de programação;
  2. C, Lisp, Perl, Ruby, Python, Eiffel, Smalltalk;
  3. Aprendizado prático e teórico nos três paradigmas de programação
mais antigos e mais usados (Funcional, OO, e Eventos);
  4. Aulas de Engenharia de Software;
  5. Aulas de gestão de projetos;
  6. Cursos completos de Compiladores e estudo de Gramáticas Regulares -
requisito para ser bom é terminar o semestre com um compilador básico de
pascal, por exemplo.
  6. Contato com sistemas operacionais "unix-like" (linux, solaris, aix,
hpux, irix, minix, bsd, freebsd, entre outros)
  7. Contato com tecnologias "abertas" (padrões públicos, usados por
muitas empresas e fornecedores diferentes).

  Quanto mais ítens desta lista, mais perto do currículo que eu
considero "ideal" para um bom profissional, não importa como você chame
o teu curso.

  Bom, estes são os meus "dois centavos" ;) tenho certeza de que outras
pessoas vão acrescentar mais ítens à lista.
  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  Thu Jan 17 05:59:44 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 17 Jan 2008 13:59:44 +0000
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
In-Reply-To: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
Message-ID: <604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>

> Bom dia, pessoal. Eu estava pesquisando aqui sobre intersecção e diferença
> entre arrays, mas não consegui encontrar nenhum link que "respondesse" às
> minhas dúvidas. Alguém ai pode me enviar algum link sobre o assunto...?

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

From jaja.gabriel em gmail.com  Thu Jan 17 05:48:02 2008
From: jaja.gabriel em gmail.com (Joao Gabriel C. Laass)
Date: Thu, 17 Jan 2008 11:48:02 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
	=?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_vo?=
	=?iso-8859-1?q?c=EAs?=
In-Reply-To: <478F5762.4080802@yahoo.co.uk>
References: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
	<478F5762.4080802@yahoo.co.uk>
Message-ID: <8ff2963a0801170548i300d9420gbfb2117396808c10@mail.gmail.com>

Nilson Santos F. Jr...
> Aqui em BH é comum (principalmente para alunos de Engenharias em
> geral) começar a estudar no CEFET e depois pedir transferência para a
> UFMG. Com isso, você consegue evitar o vestibular e no final acaba com
> o mesmo diploma e nível de aprendizado que todo mundo. Não sei se isso
> é possível na UFES.

Se aqui for possível, eu tentarei... já é meio caminho andado, já que
aqui no Espírito Santo nós só temos uma universidade federal, logo, a
concorrência é bem acirrada.

Luis Motta Campos...
> Bom, antes de mais nada, meus parabéns.

valeu!!

Luis Motta Campos...
> O problema é que, para o tecnólogo, esse "subconjunto" comum representa
> algo como 80%-90% de todo o conhecimento que ele teve nos estudos dele.
> Para o cientista, isso não passa de 20%-30%.

Isso deve ser levado em consideração... mas como eu disse, ainda
tentarei ir p/ Ciência da Computação.

Minha intriga era saber como anda o mercado de trabalho p/ essa
formação do CEFET-ES e, como o Luis disse, o mercado "não sabe qual é
um, qual é outro"...

Valeu pelas dicas.

João Gabriel C. Laass

From rafamv1 em ig.com.br  Thu Jan 17 06:22:29 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 11:22:29 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
In-Reply-To: <604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
	<604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>
Message-ID: <3e759d2b0801170622n5d623c31y1bf5edf0f25657e0@mail.gmail.com>

Eu tentei encontrar a diferença no código abaixo:

@file{@file}=1;
delete @file{@users};
my @newlist = join ("\n", keys %file);

print "@users"; -> imprime os nomes que eu digitei..
print "@file"; -> imprime os nomes que estão no arquivo...

Mas:
print "@newlist"; -> não imprime a diferença entre os dois.. Não imprime
nada..
Dessa forma, deveria imprimir a diferença em "@newlist", ou estou fazendo
errado?


Em 17/01/08, Nelson Ferraz <nferraz em gmail.com> escreveu:
>
> > Bom dia, pessoal. Eu estava pesquisando aqui sobre intersecção e
> diferença
> > entre arrays, mas não consegui encontrar nenhum link que "respondesse"
> às
> > minhas dúvidas. Alguém ai pode me enviar algum link sobre o assunto...?
>
> http://www.perl.org.br/bin/view/Artigos/ComoLidarComConjuntos
> _______________________________________________
> 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/20080117/2fc3890e/attachment.html 

From ptfzs em yahoo.com.br  Thu Jan 17 07:03:38 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 17 Jan 2008 07:03:38 -0800 (PST)
Subject: [Cascavel-pm] Ler Arquivo bin
Message-ID: <255489.86622.qm@web31307.mail.mud.yahoo.com>

Pessoal.. gostaria de alguma sugestao de vcs...

Estou lendo um arquivo em binario e lendo byte a byte..
preciso recuperar trechos do programa:

ex:


 while(my  $arquivos = <*.bin> )
 {

           open(FH, "<$arquivos") or die("Unable to open file");

           while((my $caracter = getc(FH)) ne "") 
           {
                          print "CARACTER     $caracter\n";   
           }
}

Obs: nao sei se tem metodos melhores.. mas q encontrei foi  esse
porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre
os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..

o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar na linha de cima e ^A^C na linha de baixo
e nao basta ler linha a linha

Obrigada Pessoal :D






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/1eb70314/attachment-0001.html 

From wendelscardua em gmail.com  Thu Jan 17 07:16:08 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Thu, 17 Jan 2008 13:16:08 -0200
Subject: [Cascavel-pm]
	=?utf-8?b?SW50ZXJzZWPDp8OjbyBlIGRpZmVyZW7Dp2EgZW50?=
	=?utf-8?q?re_arrays?=
In-Reply-To: <3de55ead0801170518n338f3d6bobc7543e6207aa4f3@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
	<3de55ead0801170518n338f3d6bobc7543e6207aa4f3@mail.gmail.com>
Message-ID: <726229b50801170716k6b083c3cy1ab80b9e0859e2ba@mail.gmail.com>

Continuando o golf...   (ainda não me conformo de não conseguir nada
melhor que 45 no codegolf.com/choose , mas tudo bem, rs)

* @a1 - @a2 , 46 chars:

@x{@a2}=(1)x em a2;print join', ',grep!$x{$_}, em a1

* @a1 inter @a2, 45 chars:

@x{@a1}=(1)x em a1;print join', ',grep$x{$_}, em a2

[]s
Wendel

2008/1/17 eden <edencardim em gmail.com>:
> Você pode usar o módulo List::Compare ... Mas isso merece um golf:
>
> O problema é:
>
> assumindo que as seguintes variáveis estão inicializadas:
>
> @a1=1..5;
> @a2=3..7;
>
> problema 1: imprimir @a1 - @a2 com os itens separados por vírgula. vai
> resultar em "1, 2"
> problema 2: imprimir @a1 ? @a2 com os itens separados por vírgula. vai
> resultar em "3, 4, 5"
>
> Minhas soluções:
>
> diferença:
>
> @a1{@a1}=1;
> delete @a1{@a2};
> print join ', ', keys %a1;
>
> intersecção:
>
> @a1{@a1}=1;
> print join ', ', grep { exists $a1{$_} } @a2;
>
> --
> edenc.vox.com

From acid06 em gmail.com  Thu Jan 17 09:09:15 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 17 Jan 2008 15:09:15 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <478F4FC1.6060504@yahoo.co.uk>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
	<478F4FC1.6060504@yahoo.co.uk>
Message-ID: <9a08c9b40801170909x43aada4cub83be94a8c81b429@mail.gmail.com>

2008/1/17 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
>   Posso saber qual é a diferença, por favor?
>   O que é um "diretório", se não um arquivo especial?

Ele é, específicamente, um diretório. ;-)
E acho que você anda misturando conceitos com implementações.

-Nilson Santos F. Jr.

From edencardim em gmail.com  Thu Jan 17 09:13:53 2008
From: edencardim em gmail.com (eden)
Date: Thu, 17 Jan 2008 14:13:53 -0300
Subject: [Cascavel-pm]
	=?utf-8?b?SW50ZXJzZWPDp8OjbyBlIGRpZmVyZW7Dp2EgZW50?=
	=?utf-8?q?re_arrays?=
In-Reply-To: <3e759d2b0801170622n5d623c31y1bf5edf0f25657e0@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
	<604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>
	<3e759d2b0801170622n5d623c31y1bf5edf0f25657e0@mail.gmail.com>
Message-ID: <3de55ead0801170913u38581f0ej8ba389f9dd602d9d@mail.gmail.com>

2008/1/17 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Eu tentei encontrar a diferença no código abaixo:
>
> @file{@file}=1;
> delete @file{@users};
> my @newlist = join ("\n", keys %file);

Acho que você quis dizer:

    my @newlist = keys %file;

já que join() retorna um escalar


> print "@users"; -> imprime os nomes que eu digitei..
> print "@file"; -> imprime os nomes que estão no arquivo...
>
> Mas:
> print "@newlist"; -> não imprime a diferença entre os dois.. Não imprime
> nada..
> Dessa forma, deveria imprimir a diferença em "@newlist", ou estou fazendo
> errado?

Bom, deveria funcionar. Aliás, pode ser que esteja funcionando,
lembre-se que pela teoria dos conjuntos @file - @users = ø, se @file ?
@users

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Thu Jan 17 09:15:35 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 17 Jan 2008 09:15:35 -0800 (PST)
Subject: [Cascavel-pm] Res:  Ler Arquivo bin
Message-ID: <635075.14590.qm@web31312.mail.mud.yahoo.com>

Pessoal.. estou quase conseguindo :)

fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
so uma duvida:
teho o arquivo.. 
abc
abc
abcd

ele me retorna
a
b
c

a
b
c

a
b
c
d

Como faco para ele nao ler o <ENTER>
ja tentei fazer com expressao regular.. nada ...

Obrigada



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
Assunto: [Cascavel-pm] Ler Arquivo bin

Pessoal.. gostaria de alguma sugestao de vcs...

Estou lendo um arquivo em binario e lendo byte a byte..
preciso recuperar trechos do programa:

ex:


 while(my  $arquivos = <*.bin> )
 {

           open(FH, "<$arquivos") or die("Unable to open file");

           while((my $caracter = getc(FH)) ne "") 
           {
                          print "CARACTER     $caracter\n";   
           }
}

Obs: nao sei se tem metodos melhores..
 mas q encontrei foi  esse
porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre
os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..

o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar na linha de cima e ^A^C na linha de baixo
e nao basta ler linha a linha

Obrigada Pessoal :D








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/2a85e406/attachment.html 

From acid06 em gmail.com  Thu Jan 17 09:18:41 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 17 Jan 2008 15:18:41 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
	=?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_vo?=
	=?iso-8859-1?q?c=EAs?=
In-Reply-To: <8ff2963a0801170548i300d9420gbfb2117396808c10@mail.gmail.com>
References: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
	<478F5762.4080802@yahoo.co.uk>
	<8ff2963a0801170548i300d9420gbfb2117396808c10@mail.gmail.com>
Message-ID: <9a08c9b40801170918y44e96e35p4f2c42e8fbba1060@mail.gmail.com>

2008/1/17 Joao Gabriel C. Laass <jaja.gabriel em gmail.com>:
> Se aqui for possível, eu tentarei... já é meio caminho andado, já que
> aqui no Espírito Santo nós só temos uma universidade federal, logo, a
> concorrência é bem acirrada.

Uma outra opção é tentar em outros estados. Aqui em MG, a UFMG é
bastante concorrida (mais que a UFES, acredito eu). Porém, a UFV em
Viçosa possui um Bacharelado em Ciência da Computação de altíssima
qualidade (infelizmente, não reconhecido popularmente, mas basta olhar
os resultados do ENADE pra você ver).

No Nordeste a UFPE é de boa qualidade e, se não me engano, a UFBA também.

Se você estiver disposto a essa mudança radical, eu acredito que vale
à pena. Eu conheço e trabalhei com um cara que veio do Espírito Santo,
acho que ele até começou a estudar na UFES e depois veio aqui pra UFMG
(não gostou muito de lá). Hoje ele está completando o mestrado aqui na
UFMG e trabalha na área de tratamento e recuperação de informação.

No final do curso, umas pessoas resolvem voltar pra terra natal e
outros resolvem ficar por aqui mesmo. É interessante ter como morar em
outros estados por um tempo. O problema é a viabilidade financeira.
Mas a UFMG, por exemplo, possui programa de moradia universitária para
estudantes oriundos de outros estados (não sei sobre a UFV ou as
outras citadas).

É como o Luís disse, se você quer só poder trabalhar, não faz muita
diferença. Mas se realmente quiser estudar e se aprofundar de verdade,
eu acredito que seja mais adequado um curso de Ciência da Computação.

-Nilson Santos F. Jr.

From giulianisanches em gmail.com  Thu Jan 17 09:29:52 2008
From: giulianisanches em gmail.com (Giuliani Deon Sanches)
Date: Thu, 17 Jan 2008 15:29:52 -0200
Subject: [Cascavel-pm] Res: Ler Arquivo bin
In-Reply-To: <635075.14590.qm@web31312.mail.mud.yahoo.com>
References: <635075.14590.qm@web31312.mail.mud.yahoo.com>
Message-ID: <572750180801170929x27312b25hecf77e90052bab47@mail.gmail.com>

Da uma olhada na função chomp()

http://www.perlmeme.org/howtos/perlfunc/chomp_function.html

Em 17/01/08, Patty Silva<ptfzs em yahoo.com.br> escreveu:
>
> Pessoal.. estou quase conseguindo :)
>
> fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
> so uma duvida:
> teho o arquivo..
> abc
> abc
> abcd
>
> ele me retorna
> a
> b
> c
>
> a
> b
> c
>
> a
> b
> c
> d
>
> Como faco para ele nao ler o <ENTER>
> ja tentei fazer com expressao regular.. nada ...
>
> Obrigada
>
>
>
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
> Assunto: [Cascavel-pm] Ler Arquivo bin
>
>
> Pessoal.. gostaria de alguma sugestao de vcs...
>
> Estou lendo um arquivo em binario e lendo byte a byte..
> preciso recuperar trechos do programa:
>
> ex:
>
>
>  while(my  $arquivos = <*.bin> )
>  {
>
>            open(FH, "<$arquivos") or die("Unable to open file");
>
>            while((my $caracter = getc(FH)) ne "")
>            {
>                           print "CARACTER     $caracter\n";
>            }
> }
>
> Obs: nao sei se tem metodos melhores.. mas q encontrei foi  esse
> porem no arquivo tenho varias coisas e gostaria de recuperar os dados q
> estao entre
> os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..
>
> o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar na
> linha de cima e ^A^C na linha de baixo
> e nao basta ler linha a linha
>
> Obrigada Pessoal :D
>
>
>
>  ________________________________
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
>  ________________________________
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From danielrantunes em yahoo.com.br  Thu Jan 17 09:43:56 2008
From: danielrantunes em yahoo.com.br (=?iso-8859-1?Q?Daniel_=AE_Antunes?=)
Date: Thu, 17 Jan 2008 09:43:56 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  Ler Arquivo bin
Message-ID: <951998.49107.qm@web36904.mail.mud.yahoo.com>

    Utilize a função chomp()
 
Daniel ® Antunes
profissional de informática
gnu/linux user #238553

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35
Assunto: [Cascavel-pm] Res:  Ler Arquivo bin

Pessoal.. estou quase conseguindo :)

fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
so uma duvida:
teho o arquivo.. 
abc
abc
abcd

ele me retorna
a
b
c

a
b
c

a
b
c
d

Como faco para ele nao ler o <ENTER>
ja tentei fazer com expressao regular.. nada ...

Obrigada



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
Assunto: [Cascavel-pm] Ler Arquivo bin

Pessoal.. gostaria de alguma sugestao de vcs...

Estou lendo um arquivo em binario e lendo byte a byte..
preciso recuperar trechos do programa:

ex:


 while(my  $arquivos = <*.bin> )
 {

           open(FH, "<$arquivos") or die("Unable to open file");

           while((my $caracter = getc(FH)) ne "") 
           {
                          print "CARACTER     $caracter\n";   
           }
}

Obs: nao sei se tem metodos melhores..
 mas q encontrei foi  esse
porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre
os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..

o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar na linha de cima e ^A^C na linha de baixo
e nao basta ler linha a linha

Obrigada Pessoal :D








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/424a2d5e/attachment-0001.html 

From acid06 em gmail.com  Thu Jan 17 09:51:37 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 17 Jan 2008 15:51:37 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
In-Reply-To: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
Message-ID: <9a08c9b40801170951n34a8a892rf8b97c06d0227c2f@mail.gmail.com>

2008/1/17 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Bom dia, pessoal. Eu estava pesquisando aqui sobre intersecção e diferença
> entre arrays, mas não consegui encontrar nenhum link que "respondesse" às
> minhas dúvidas. Alguém ai pode me enviar algum link sobre o assunto...?

  http://search.cpan.org/~samv/Set-Object-1.22/lib/Set/Object.pm

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Thu Jan 17 10:01:32 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 17 Jan 2008 10:01:32 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  Res:  Ler Arquivo bin
Message-ID: <149632.37950.qm@web31306.mail.mud.yahoo.com>

Nao adiantou :)
fiz:  next if ($caracteratual =~ /\n/);

assim funcionou... nao sei o pq..

----- Mensagem original ----
De: Daniel ® Antunes <danielrantunes em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 17:43:56
Assunto: [Cascavel-pm] Res:  Res:  Ler Arquivo bin

    Utilize a função chomp()
 
Daniel ® Antunes
profissional de informática
gnu/linux user #238553

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35
Assunto: [Cascavel-pm] Res:  Ler Arquivo bin

Pessoal.. estou quase conseguindo :)

fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
so uma duvida:
teho o arquivo.. 
abc
abc
abcd

ele me retorna
a
b
c

a
b
c

a
b
c
d

Como faco para ele nao ler o <ENTER>
ja tentei fazer com expressao regular.. nada ...

Obrigada



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
Assunto: [Cascavel-pm] Ler Arquivo bin

Pessoal.. gostaria de alguma sugestao de vcs...

Estou lendo um arquivo em binario e lendo byte a byte..
preciso recuperar trechos do
 programa:

ex:


 while(my  $arquivos = <*.bin> )
 {

           open(FH, "<$arquivos") or die("Unable to open file");

           while((my $caracter = getc(FH)) ne "") 
           {
                          print "CARACTER     $caracter\n";   
           }
}

Obs: nao sei se tem metodos melhores..
 mas q encontrei foi  esse
porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre
os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..

o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar na linha de cima e ^A^C na linha de baixo
e nao basta ler linha a linha

Obrigada Pessoal :D








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/06654eb7/attachment.html 

From thomas em tcnet.com.br  Thu Jan 17 10:02:52 2008
From: thomas em tcnet.com.br (Thomas Britis)
Date: Thu, 17 Jan 2008 16:02:52 -0200
Subject: [Cascavel-pm] Res:  Res:  Res:  Ler Arquivo bin
In-Reply-To: <149632.37950.qm@web31306.mail.mud.yahoo.com>
References: <149632.37950.qm@web31306.mail.mud.yahoo.com>
Message-ID: <478F984C.9090204@tcnet.com.br>

o chomp() não funcionou pois vc lê caracter por caracter.

Patty Silva wrote:
> Nao adiantou :)
> fiz:  next if ($caracteratual =~ /\n/);
> 
> assim funcionou... nao sei o pq..
> 
> ----- Mensagem original ----
> De: Daniel ® Antunes <danielrantunes em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 17:43:56
> Assunto: [Cascavel-pm] Res: Res: Ler Arquivo bin
> 
>     Utilize a função chomp()
>  
> Daniel ® Antunes
> /profissional de informática/
> ///gnu/linux user/ #238553
> 
> 
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35
> Assunto: [Cascavel-pm] Res: Ler Arquivo bin
> 
> Pessoal.. estou quase conseguindo :)
> 
> fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
> so uma duvida:
> teho o arquivo..
> abc
> abc
> abcd
> 
> ele me retorna
> a
> b
> c
> 
> a
> b
> c
> 
> a
> b
> c
> d
> 
> Como faco para ele nao ler o <ENTER>
> ja tentei fazer com expressao regular.. nada ...
> 
> Obrigada
> 
> 
> 
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
> Assunto: [Cascavel-pm] Ler Arquivo bin
> 
> Pessoal.. gostaria de alguma sugestao de vcs...
> 
> Estou lendo um arquivo em binario e lendo byte a byte..
> preciso recuperar trechos do programa:
> 
> ex:
> 
> 
>  while(my  $arquivos = <*.bin> )
>  {
> 
>            open(FH, "<$arquivos") or die("Unable to open file");
> 
>            while((my $caracter = getc(FH)) ne "")
>            {
>                           print "CARACTER     $caracter\n";  
>            }
> }
> 
> Obs: nao sei se tem metodos melhores.. mas q encontrei foi  esse
> porem no arquivo tenho varias coisas e gostaria de recuperar os dados q 
> estao entre
> os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..
> 
> o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar 
> na linha de cima e ^A^C na linha de baixo
> e nao basta ler linha a linha
> 
> Obrigada Pessoal :D
> 
> 
> 
> ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
> <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
> ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
> <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
> ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
> <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
> ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
> <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> 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 danielrantunes em yahoo.com.br  Thu Jan 17 10:16:43 2008
From: danielrantunes em yahoo.com.br (=?iso-8859-1?Q?Daniel_=AE_Antunes?=)
Date: Thu, 17 Jan 2008 10:16:43 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  Res:  Res:  Ler Arquivo bin
Message-ID: <777716.27418.qm@web36912.mail.mud.yahoo.com>

    Ahhhh, desculpe.
    Vc está lendo a cada caracter. O chomp() seria útil na leitura linha a linha.
    Sua solução funcionou pois vc dispensou o caracter "\n", também funcionaria assim :

next if ($caracteratual eq '\n');

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

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 16:01:32
Assunto: [Cascavel-pm] Res:  Res:  Res:  Ler Arquivo bin

Nao adiantou :)
fiz:  next if ($caracteratual =~ /\n/);

assim funcionou... nao sei o pq..

----- Mensagem original ----
De: Daniel ® Antunes <danielrantunes em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 17:43:56
Assunto: [Cascavel-pm] Res:  Res:  Ler Arquivo bin

    Utilize a função chomp()
 
Daniel ® Antunes
profissional de informática
gnu/linux user #238553

----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35
Assunto: [Cascavel-pm] Res:  Ler Arquivo bin

Pessoal.. estou quase conseguindo :)

fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
so uma duvida:
teho o arquivo.. 
abc
abc
abcd

ele me retorna
a
b
c

a
b
c

a
b
c
d

Como faco para ele nao ler o <ENTER>
ja
 tentei fazer com expressao regular.. nada ...

Obrigada



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
Assunto: [Cascavel-pm] Ler Arquivo bin

Pessoal.. gostaria de alguma sugestao de vcs...

Estou lendo um arquivo em binario e lendo byte a byte..
preciso recuperar trechos do
 programa:

ex:


 while(my  $arquivos = <*.bin> )
 {

           open(FH, "<$arquivos") or die("Unable to open file");

           while((my $caracter = getc(FH)) ne "") 
           {
                          print "CARACTER     $caracter\n";   
           }
}

Obs: nao sei se tem metodos melhores..
 mas q encontrei foi  esse
porem no arquivo tenho varias coisas e gostaria de recuperar os dados q estao entre
os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso gravar..

o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode estar na linha de cima e ^A^C na linha de baixo
e nao basta ler linha a linha

Obrigada Pessoal :D








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/ce84de05/attachment-0001.html 

From ptfzs em yahoo.com.br  Thu Jan 17 10:23:39 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 17 Jan 2008 10:23:39 -0800 (PST)
Subject: [Cascavel-pm] Res:  Ler Arquivo bin
Message-ID: <431441.48208.qm@web31304.mail.mud.yahoo.com>

Hum.. oks :)
meu problema eh o seguinte
se o arquvo vier
abc

e o outro vier
ab
cd

eles deveriam pegar.. mas do jeito q fiz nao pega pq ele pega o \n
e eu preciso do \n para manter a formatacao original


eu fiz assim:


while( $arquivos = <*.teste> ) 
{

    open(FH, "<$arquivos") or die("Unable to open file");

    my $campo1;
    my $campo2;
    my $teste1;
    my $teste2;
    
    my $cont; 
    
    while(($caracteratual = getc(FH)) ne "") 
   {

           
           
           $campo1=$teste1;
           $campo2=$teste2;
                  
           $teste1=$caracteratual;
           $teste2=$campo1;
                  
           if(($campo2=~ /^\cA/) && ($campo1=~ /^\cB/)  && ($caracteratual=~ /^\cC/) )
           {
               print "INICIO\n";
           }
           
.
.
.
.
.

alguma sugestao?? :D

Obrigada


----- Mensagem original ----
De: Thomas Britis <thomas em tcnet.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 17 de Janeiro de 2008 18:02:52
Assunto: Re: [Cascavel-pm] Res:  Res:  Res:  Ler Arquivo bin

o chomp() não funcionou pois vc lê caracter por caracter.

Patty Silva wrote:
> Nao adiantou :)
> fiz:  next if ($caracteratual =~ /\n/);
> 
> assim funcionou... nao sei o pq..
> 
> ----- Mensagem original ----
> De: Daniel ® Antunes <danielrantunes em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 17:43:56
> Assunto: [Cascavel-pm] Res: Res: Ler Arquivo bin
> 
>     Utilize a função chomp()
>  
> Daniel ® Antunes
> /profissional de informática/
> ///gnu/linux user/ #238553
> 
> 
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35
> Assunto: [Cascavel-pm] Res: Ler Arquivo bin
> 
> Pessoal.. estou quase conseguindo :)
> 
> fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..
> so uma duvida:
> teho o arquivo..
> abc
> abc
> abcd
> 
> ele me retorna
> a
> b
> c
> 
> a
> b
> c
> 
> a
> b
> c
> d
> 
> Como faco para ele nao ler o <ENTER>
> ja tentei fazer com expressao regular.. nada ...
> 
> Obrigada
> 
> 
> 
> ----- Mensagem original ----
> De: Patty Silva <ptfzs em yahoo.com.br>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38
> Assunto: [Cascavel-pm] Ler Arquivo bin
> 
> Pessoal.. gostaria de alguma sugestao de vcs...
> 
> Estou lendo um arquivo em binario e lendo byte a byte..
> preciso recuperar trechos do programa:
> 
> ex:
> 
> 
>  while(my  $arquivos = <*.bin> )
>  {
> 
>            open(FH, "<$arquivos") or die("Unable to open file");
> 
>            while((my $caracter = getc(FH)) ne "")
>            {
>                           print "CARACTER     $caracter\n";  
>            }
> }
> 
> Obs: nao sei se tem metodos melhores.. mas q encontrei foi  esse
> porem no arquivo tenho varias coisas e gostaria de recuperar os dados
 q 
> estao entre
> os caracteres ^D^C^C  e ^A^A^C  tudo q tiver entre isso preciso
 gravar..
> 
> o pq ler byte a byte.. para identificar a seguencia  pq ex ^A pode
 estar 
> na linha de cima e ^A^C na linha de baixo
> e nao basta ler linha a linha
> 
> Obrigada Pessoal :D
> 
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
>
 <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
>
 ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/b4dc8085/attachment.html 

From rafamv1 em ig.com.br  Thu Jan 17 10:44:55 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 15:44:55 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
In-Reply-To: <3de55ead0801170913u38581f0ej8ba389f9dd602d9d@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
	<604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>
	<3e759d2b0801170622n5d623c31y1bf5edf0f25657e0@mail.gmail.com>
	<3de55ead0801170913u38581f0ej8ba389f9dd602d9d@mail.gmail.com>
Message-ID: <3e759d2b0801171044h3a490592g11e2a54c06065806@mail.gmail.com>

Eden, olha o código que eu fiz... Ele não me retorna a diferença entre as
duas listas... Não consegui detectar o erro ai..
Qual é o problema desse "negócio" abaixo?


#!/usr/bin/perl
use List::Compare;
use warnings;
use strict;

my $naomonitorado = '/var/www/cgi-bin/imm/naomonitorar.txt';
open (NAOMONIT, $naomonitorado);
my @file = <NAOMONIT>;
close (NAOMONIT);

print "Digite os nomes: ";
my $user = <STDIN>;
chomp $user;

my @users = split (/ /, "$user");

my %file;
my @newlist;

if ( $user eq "" ) {
print "Bla..\n";

} else {
@file{@file}=1;
delete @file{@users};
@newlist = keys %file;
}

print "LISTA:: @newlist", "\n";
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/403c2a4c/attachment.html 

From jaja.gabriel em gmail.com  Thu Jan 17 10:52:31 2008
From: jaja.gabriel em gmail.com (Joao Gabriel C. Laass)
Date: Thu, 17 Jan 2008 16:52:31 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
	=?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_vo?=
	=?iso-8859-1?q?c=EAs?=
In-Reply-To: <9a08c9b40801170918y44e96e35p4f2c42e8fbba1060@mail.gmail.com>
References: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
	<478F5762.4080802@yahoo.co.uk>
	<8ff2963a0801170548i300d9420gbfb2117396808c10@mail.gmail.com>
	<9a08c9b40801170918y44e96e35p4f2c42e8fbba1060@mail.gmail.com>
Message-ID: <8ff2963a0801171052o3af2e2b9r66333e9b264512cd@mail.gmail.com>

Em 17/01/08, Nilson Santos Figueiredo Junior<acid06 em gmail.com> escreveu:
> Uma outra opção é tentar em outros estados. Aqui em MG, a UFMG é
> bastante concorrida (mais que a UFES, acredito eu). Porém, a UFV em
> Viçosa possui um Bacharelado em Ciência da Computação de altíssima
> qualidade (infelizmente, não reconhecido popularmente, mas basta olhar
> os resultados do ENADE pra você ver).

Fiz várias vestibulares fora, inclusive UFV (estou esperando sair o resultado).


-- 
Um abraço,
João Gabriel C. Laass

From wendelscardua em gmail.com  Thu Jan 17 11:38:17 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Thu, 17 Jan 2008 17:38:17 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
In-Reply-To: <3e759d2b0801171044h3a490592g11e2a54c06065806@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
	<604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>
	<3e759d2b0801170622n5d623c31y1bf5edf0f25657e0@mail.gmail.com>
	<3de55ead0801170913u38581f0ej8ba389f9dd602d9d@mail.gmail.com>
	<3e759d2b0801171044h3a490592g11e2a54c06065806@mail.gmail.com>
Message-ID: <726229b50801171138m523cce45kb53030d0fad9afe1@mail.gmail.com>

Você esqueceu de fazer

chomp @file;

(os elementos da sua lista @file todos tem "\n" no final; os nomes em
@users não. Logo, são elementos distintos)

[]s
Wendel

2008/1/17 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Eden, olha o código que eu fiz... Ele não me retorna a diferença entre as
> duas listas... Não consegui detectar o erro ai..
> Qual é o problema desse "negócio" abaixo?
>
>
> #!/usr/bin/perl
> use List::Compare;
> use warnings;
> use strict;
>
> my $naomonitorado = '/var/www/cgi-bin/imm/naomonitorar.txt';
> open (NAOMONIT, $naomonitorado);
> my @file = <NAOMONIT>;
> close (NAOMONIT);
>
> print "Digite os nomes: ";
> my $user = <STDIN>;
> chomp $user;
>
> my @users = split (/ /, "$user");
>
> my %file;
> my @newlist;
>
> if ( $user eq "" ) {
> print "Bla..\n";
>
> } else {
>
> @file{@file}=1;
> delete @file{@users};
> @newlist = keys %file;
> }
>
> print "LISTA:: @newlist", "\n";
>
>

From rafamv1 em ig.com.br  Thu Jan 17 11:43:47 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 16:43:47 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Intersec=E7=E3o_e_diferen=E7a_entre_?=
	=?iso-8859-1?q?arrays?=
In-Reply-To: <726229b50801171138m523cce45kb53030d0fad9afe1@mail.gmail.com>
References: <3e759d2b0801170444j430be14bt31b09947e990d04e@mail.gmail.com>
	<604cec170801170559l3cee435cmfcc929e945664a50@mail.gmail.com>
	<3e759d2b0801170622n5d623c31y1bf5edf0f25657e0@mail.gmail.com>
	<3de55ead0801170913u38581f0ej8ba389f9dd602d9d@mail.gmail.com>
	<3e759d2b0801171044h3a490592g11e2a54c06065806@mail.gmail.com>
	<726229b50801171138m523cce45kb53030d0fad9afe1@mail.gmail.com>
Message-ID: <3e759d2b0801171143s17f58bb8web8d76919c26da6f@mail.gmail.com>

Wendel, você tinha toda razão!!! Agora funcionou.
Muito obrigado....
Vou prestar mais atenção nesses detalhes.



Em 17/01/08, Wendel Scardua <wendelscardua em gmail.com> escreveu:
>
> Você esqueceu de fazer
>
> chomp @file;
>
> (os elementos da sua lista @file todos tem "\n" no final; os nomes em
> @users não. Logo, são elementos distintos)
>
> []s
> Wendel
>
> 2008/1/17 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> > Eden, olha o código que eu fiz... Ele não me retorna a diferença entre
> as
> > duas listas... Não consegui detectar o erro ai..
> > Qual é o problema desse "negócio" abaixo?
> >
> >
> > #!/usr/bin/perl
> > use List::Compare;
> > use warnings;
> > use strict;
> >
> > my $naomonitorado = '/var/www/cgi-bin/imm/naomonitorar.txt';
> > open (NAOMONIT, $naomonitorado);
> > my @file = <NAOMONIT>;
> > close (NAOMONIT);
> >
> > print "Digite os nomes: ";
> > my $user = <STDIN>;
> > chomp $user;
> >
> > my @users = split (/ /, "$user");
> >
> > my %file;
> > my @newlist;
> >
> > if ( $user eq "" ) {
> > print "Bla..\n";
> >
> > } else {
> >
> > @file{@file}=1;
> > delete @file{@users};
> > @newlist = keys %file;
> > }
> >
> > print "LISTA:: @newlist", "\n";
> >
> >
> _______________________________________________
> 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/20080117/c6a14fbc/attachment-0001.html 

From acid06 em gmail.com  Thu Jan 17 12:13:13 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 17 Jan 2008 18:13:13 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Tecn=F3logo_em_an=E1lise_e_desenvolv?=
	=?iso-8859-1?q?imento_de_sistemas=2E=2E=2E_quero_a_opini=E3o_de_vo?=
	=?iso-8859-1?q?c=EAs?=
In-Reply-To: <8ff2963a0801171052o3af2e2b9r66333e9b264512cd@mail.gmail.com>
References: <8ff2963a0801161008k4e27784due403847c28e569d6@mail.gmail.com>
	<478F5762.4080802@yahoo.co.uk>
	<8ff2963a0801170548i300d9420gbfb2117396808c10@mail.gmail.com>
	<9a08c9b40801170918y44e96e35p4f2c42e8fbba1060@mail.gmail.com>
	<8ff2963a0801171052o3af2e2b9r66333e9b264512cd@mail.gmail.com>
Message-ID: <9a08c9b40801171213o4c9eb707r6fa5269afa955656@mail.gmail.com>

2008/1/17 Joao Gabriel C. Laass <jaja.gabriel em gmail.com>:
> Fiz várias vestibulares fora, inclusive UFV (estou esperando sair o resultado).

Você chegou a tentar na UFMG?

Não sei como é a prova da UFES, mas o vestibular da UFMG é um pouco
diferente do da FUVEST em SP, por exemplo. Então gente que vai bem na
FUVEST às vezes não vai bem na UFMG e gente que vai bem na UFMG às
vezes não vai tão bem na FUVEST.

As provas de exatas no vestibular da UFMG tentam valorizar um pouco
mais a capacidade de raciocínio ao invés de ficar se preocupando com
detalhes específicos. É bom pra quem tem dificuldade em guardar as
coisas (memória ruim) mas mesmo assim é inteligente. É comum por aqui
algumas pessoas que iam muito bem no colégio acabarem indo mal no
vestibular por causa disso - decoreba não adianta muita coisa na
prova.

Para o próximo ano, a UFMG estará abrindo diversos cursos, alguns
deles na área de computação. Para aulas iniciando em 2009 abrirão
vagas pro curso de Engenharia de Sistemas e pra aulas iniciando em
2010 abrirão vagas para o curso de Inteligência Artificial. Além
disso, o Departamento de Ciência da Computação vai ganhar um prédio
novo que fica pronto em 2010.

Se for uma alternativa viável pra você, eu sugiro fortemente que tente
por aqui. O futuro por aqui é bastante promissor.
Ainda mais considerando que o centro de R&D do Google na América
Latina fica aqui em BH e começou dentro da UFMG. ;-)

-Nilson Santos F. Jr.

From rafamv1 em ig.com.br  Thu Jan 17 12:25:33 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 17 Jan 2008 17:25:33 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Reload_em_P=E1gina?=
Message-ID: <3e759d2b0801171225w1ad86261s6f5aab1840f26b0e@mail.gmail.com>

Olá, pessoal. Tenho uma popup na qual há uma tabela que eu envio alguns
dados para um .pl. Após clicar em "Enviar dados" (na popup), eu quero que
ela seja fechada e seja dado um reload na página que a originou. Tentei
utilizar o window.close(), mas não funcionou... Alguma dica?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/65195b5b/attachment.html 

From rafamv1 em ig.com.br  Fri Jan 18 06:43:21 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 18 Jan 2008 11:43:21 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
Message-ID: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>

Bom dia, pessoal. Estou com um problema, a função system não está
funcionando nos meus códigos..
Coloquei em um código a linha abaixo:

system (`chmod 777 -R /var/imm/chats`);

Mas quando acesso a o caminho "/var/imm/chats", as permissões continuam as
mesmas...
Alguém pode me ajudar?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080118/0dcede60/attachment.html 

From glasswalk3r em yahoo.com.br  Fri Jan 18 07:20:21 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 18 Jan 2008 12:20:21 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
 =?iso-8859-1?q?mando=2E?=
In-Reply-To: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
Message-ID: <39887.36778.qm@web30813.mail.mud.yahoo.com>

Se estou lendo certo, seu comando está entre crases.
Não sei o efeito disso.

system devolve um valor numérico indicando ou não o
sucesso da execução do programa. Uma lida na
documentação deve lhe ajudar com os detalhes.

[]'s
Alceu

--- Rafael Lebrao Martins <rafamv1 em ig.com.br>
escreveu:

> Bom dia, pessoal. Estou com um problema, a função
> system não está
> funcionando nos meus códigos..
> Coloquei em um código a linha abaixo:
> 
> system (`chmod 777 -R /var/imm/chats`);
> 
> Mas quando acesso a o caminho "/var/imm/chats", as
> permissões continuam as
> mesmas...
> Alguém pode me ajudar?
> > _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm



      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From luismottacampos em yahoo.co.uk  Fri Jan 18 08:05:12 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 18 Jan 2008 17:05:12 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
 =?iso-8859-1?q?mando=2E?=
In-Reply-To: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
Message-ID: <4790CE38.7090102@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> Bom dia, pessoal. Estou com um problema, a função system não está 
> funcionando nos meus códigos.. Coloquei em um código a linha abaixo:
> 
> system (`chmod 777 -R /var/imm/chats`);

AAAAAAHHHHH!!!!

> Mas quando acesso a o caminho "/var/imm/chats", as permissões
> continuam as mesmas... Alguém pode me ajudar?

Meu caro, teu caso é quase de camisa-de-força e umas férias de uns 5
anos no manicômio mais próximo ;) , mas eu vou tentar te colocar na
linha. Vamos aos comentários...

1. Permissões:

  Certifique-se de que você pode executar o mesmo comando, com o mesmo
usuário, à mão.

  Me envie o resultado de "ls -l /var/imm/chats"

2. Onde está o teu código? Eu vejo montes de erros nesta linha. Tantos
que meus olhos estão até ardendo... :(

2.1. Erro de conceito: nunca use permissões "777". Você não sabe o que
está fazendo.
2.2. Erro de programação: backticks (ou "crase") são operadores no perl.
Nunca use para quotar strings no programa. Se você não sabe para que
serve, não use - é perigoso.
2.3. Se você está construindo um programa, pretende rodar isso com
frequência. Isso é um erro de conceito, você deveria configurar seus
programas e sistema para permitir acesso apenas aos sistemas / programas
que precisam de acesso, não construir um programa para abrir acesso
irrestrito para alguma coisa.
2.4. usar "system()" sem conferir erros.
2.5. usar o operador de execução no shell (qx//, ou "`" - veja "perlop",
secção "Regexp Quote-Like Operators") e passar o resultado para um
"system()" - ou você é ninja, e podia estar me ensinando alguma coisa,
ou você não faz idéia do que está fazendo. CUIDADO!

3. Sugestão: RTFM, e implementa mais ou menos assim, que deve ser
seguro. ATENÇÃO: eu não testei isso, use por sua conta e risco.

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

my @args = ( q{/usr/bin/chmod}, q{0777}, q{-R}, q{/var/imms/chats} );
system(@args) == 0
  or die "system @args failed: $?";

if ( $? == -1 ) {
    print "failed to execute: $!\n";
}
elsif ( $? & 127 ) {
    printf qq{child died with signal %d, %s coredump\n}, ( $? & 127 ),
      ( $? & 128 ) ? 'with' : 'whitout';
}
else {
    printf "child exited with value %d\n", $? >> 8;
}
__END__

Espero que isso ajude.
Se você tiver mais perguntas, eu estou à disposição.

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


From rafamv1 em ig.com.br  Fri Jan 18 08:21:17 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 18 Jan 2008 13:21:17 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <4790CE38.7090102@yahoo.co.uk>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
Message-ID: <3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>

"Meu caro, teu caso é quase de camisa-de-força e umas férias de uns 5
anos no manicômio mais próximo ;) , mas eu vou tentar te colocar na
linha. Vamos aos comentários..."

Você é um idiota!

"Erro de conceito: nunca use permissões "777". Você não sabe o que
está fazendo."

Se estou setando as permissões para "777" é porque preciso que elas estejam
dessa forma.. EU SEI O QUE ESTOU FAZENDO.

Já resolvi o meu problema, mas obrigado pela sua imensa ajuda...



Em 18/01/08, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> Rafael Lebrao Martins wrote:
> > Bom dia, pessoal. Estou com um problema, a função system não está
> > funcionando nos meus códigos.. Coloquei em um código a linha abaixo:
> >
> > system (`chmod 777 -R /var/imm/chats`);
>
> AAAAAAHHHHH!!!!
>
> > Mas quando acesso a o caminho "/var/imm/chats", as permissões
> > continuam as mesmas... Alguém pode me ajudar?
>
> Meu caro, teu caso é quase de camisa-de-força e umas férias de uns 5
> anos no manicômio mais próximo ;) , mas eu vou tentar te colocar na
> linha. Vamos aos comentários...
>
> 1. Permissões:
>
> Certifique-se de que você pode executar o mesmo comando, com o mesmo
> usuário, à mão.
>
> Me envie o resultado de "ls -l /var/imm/chats"
>
> 2. Onde está o teu código? Eu vejo montes de erros nesta linha. Tantos
> que meus olhos estão até ardendo... :(
>
> 2.1. Erro de conceito: nunca use permissões "777". Você não sabe o que
> está fazendo.
> 2.2. Erro de programação: backticks (ou "crase") são operadores no perl.
> Nunca use para quotar strings no programa. Se você não sabe para que
> serve, não use - é perigoso.
> 2.3. Se você está construindo um programa, pretende rodar isso com
> frequência. Isso é um erro de conceito, você deveria configurar seus
> programas e sistema para permitir acesso apenas aos sistemas / programas
> que precisam de acesso, não construir um programa para abrir acesso
> irrestrito para alguma coisa.
> 2.4. usar "system()" sem conferir erros.
> 2.5. usar o operador de execução no shell (qx//, ou "`" - veja "perlop",
> secção "Regexp Quote-Like Operators") e passar o resultado para um
> "system()" - ou você é ninja, e podia estar me ensinando alguma coisa,
> ou você não faz idéia do que está fazendo. CUIDADO!
>
> 3. Sugestão: RTFM, e implementa mais ou menos assim, que deve ser
> seguro. ATENÇÃO: eu não testei isso, use por sua conta e risco.
>
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my @args = ( q{/usr/bin/chmod}, q{0777}, q{-R}, q{/var/imms/chats} );
> system(@args) == 0
> or die "system @args failed: $?";
>
> if ( $? == -1 ) {
>    print "failed to execute: $!\n";
> }
> elsif ( $? & 127 ) {
>    printf qq{child died with signal %d, %s coredump\n}, ( $? & 127 ),
>      ( $? & 128 ) ? 'with' : 'whitout';
> }
> else {
>    printf "child exited with value %d\n", $? >> 8;
> }
> __END__
>
> Espero que isso ajude.
> Se você tiver mais perguntas, eu estou à disposição.
>
> 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080118/c7340a00/attachment-0001.html 

From nferraz em gmail.com  Fri Jan 18 09:00:24 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 18 Jan 2008 17:00:24 +0000
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
Message-ID: <604cec170801180900m74e2e73w45bba25e67577212@mail.gmail.com>

Em 18/01/08, Rafael Lebrao Martins<rafamv1 em ig.com.br> escreveu:
> "Meu caro, teu caso é quase de camisa-de-força e umas férias de uns 5
> anos no manicômio mais próximo ;) , mas eu vou tentar te colocar na
> linha. Vamos aos comentários..."
>
> Você é um idiota!
>
> "Erro de conceito: nunca use permissões "777". Você não sabe o que
> está fazendo."
>
> Se estou setando as permissões para "777" é porque preciso que elas estejam
> dessa forma.. EU SEI O QUE ESTOU FAZENDO.

Rafael,

Como o Eric S. Raymond escreveu, há muito tempo atrás...

"Não Reaja como um Perdedor".

"Eventualmente você vai se dar mal algumas vezes em fóruns da
comunidade hacker... E vai ser dito para você exatamente onde você se
deu mal, possivelmente com termos 'coloridos'. Em público.

Quando isto acontecer, a pior coisa que você pode fazer é se queixar
da experiência, alegar ter sido verbalmente atacado, exigir que se
desculpem, gritar, prender a respiração, ameaçar com processos legais,
reclamar com os chefes das pessoas, deixar a tampa do vaso levantada,
etc. Ao invés disso, aqui está o que você deve fazer:

Supere isto. É normal. De fato, é saudável e apropriado.

Os padrões da comunidade não se mantém por si mesmos: eles são
mantidos por pessoas que ativamente os aplicam, visivelmente, em
público. Não se queixe que toda crítica deveria ir por email privado:
não é assim que isto funciona. Nem é útil insistir que você foi
insultado pessoalmente quanto alguém comentar que algumas de suas
alegações estão erradas, ou que ele vê de forma diferente. Estas são
atitudes de perdedores. (...)

Lembre-se: quando aquele hacker te disser que você errou, e (não
importa o quão rude) te diz para não fazer isto novamente, ele está
agindo por preocupação (1) por ti e (2) pela comunidade. Seria mais
fácil para ele ignorar você e filtrar você fora da vida dele. Se você
não consegue ser grato, pelo menos tenha um pouco de dignidade, não
chore, e não espere ser tratado como uma boneca frágil só por que você
é um novato com uma alma teatralmente hipersensível e ilusões de
merecimento".

http://br.geocities.com/cesarakg/smart-questions-pt_BR.html

From acid06 em gmail.com  Fri Jan 18 09:29:36 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 18 Jan 2008 15:29:36 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
Message-ID: <9a08c9b40801180929q53c79a12udc7ac8dbe49dc02c@mail.gmail.com>

2008/1/18 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Já resolvi o meu problema, mas obrigado pela sua imensa ajuda...

Se você tivesse se dado ao trabalho de ler a mensagem inteira, teria
visto que ele aponta vários dos seus erros *de uma forma construtiva*
e explica como solucionar. De fato, no final, ele até coloca um código
de exemplo (de boa qualidade, por sinal) que soluciona seu problema.

De fato, ele te deu uma imensa ajuda - muito mais do que você merecia,
pela sua atitude.

Se você "sabe o que está fazendo" em seus programas (não que eu tenha
tanta certeza disso, mas vou dar uma colher de chá e confiar em você),
certamente você ainda *não* sabe o que está fazendo em uma lista de
discussão.

Isso daqui não é boteco e se alguém falar de uma forma que você não
gosta você não vai chamar pra briga. Você deveria ter ficado
agradecido e honrado por ele ter perdido tempo pra responder sua
dúvida. Provavelmente o tempo dele vale muito mais que o seu e ele fez
isso por pura caridade.

-Nilson Santos F. Jr.

From hamilton.listas em gmail.com  Sat Jan 19 06:43:07 2008
From: hamilton.listas em gmail.com (Hamilton Vera)
Date: Sat, 19 Jan 2008 12:43:07 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Substituindo_n=FAmeros_com_zero_a_es?=
	=?iso-8859-1?q?querda=2E?=
In-Reply-To: <604cec170801151812s31ce0c53ofc2acdb82f94afd5@mail.gmail.com>
References: <70ebb3b30801151009r3b1f85ddj1bc3dd0ee4bb3c5b@mail.gmail.com>
	<604cec170801151812s31ce0c53ofc2acdb82f94afd5@mail.gmail.com>
Message-ID: <70ebb3b30801190643u1efda00pd6b80e4490e2e15f@mail.gmail.com>

Nelson, muito obrigado, funcionou perfeitamente.

Desculpe a demora para responder.


Obrigado.

On 1/16/08, Nelson Ferraz <nferraz em gmail.com> wrote:
> > Tentei algo tolo como;
> >
> > $line =~ s/Folha  \d+/Folha  $count/;
> >
> > Só que não consigo manter os zeros a esquerda.
> >
> > Pensei em fazer um split e depois imprimir a parte numérica em separado,
> >
> > printf '%05s', $count;
> >
> > deu certo, mas gostaria de saber  uma forma mais galante para fazer isso.
>
> Você está no caminho certo.
>
> Agora pode combinar as duas soluções colocando um /e no final da
> expressão regular, que significa realizar um "eval" no lado direito da
> regexp:
>
>    my $line  = "Folha 1234";
>    my $count = 5;
>
>    $line =~ s/Folha \d+/sprintf('Folha %05d', $count)/e;
>
>    print $line;
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Hamilton Vera
int Administrator (char Network[],char ComputationalSystems[]);
Seven Internet http://lib.seven.com.br
"Google is my shepherd, no want shall I know"

From otaviof em gmail.com  Sun Jan 20 07:06:56 2008
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Sun, 20 Jan 2008 13:06:56 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
Message-ID: <8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>

Engraçado :-) As vezes eu fico considerando uma hipotese de BAN ! ;-)
O q vcs acham ?! Já que o nosso amigo sabe tanto o que faz, pode fazer
sozinho.

From acid06 em gmail.com  Sun Jan 20 08:21:06 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Sun, 20 Jan 2008 14:21:06 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
	<8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
Message-ID: <9a08c9b40801200821l5c559082kbb447a581351501c@mail.gmail.com>

On Jan 20, 2008 1:06 PM, Otávio Fernandes <otaviof em gmail.com> wrote:
> Engraçado :-) As vezes eu fico considerando uma hipotese de BAN ! ;-)
> O q vcs acham ?! Já que o nosso amigo sabe tanto o que faz, pode fazer
> sozinho.

Não concordo.
Pois, claramente, ele tem muito o que aprender. Inclusive, como se
portar em uma lista de discussões técnica.

-Nilson Santos F. Jr.

From wendelscardua em gmail.com  Sun Jan 20 13:12:44 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Sun, 20 Jan 2008 19:12:44 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <9a08c9b40801200821l5c559082kbb447a581351501c@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
	<8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
	<9a08c9b40801200821l5c559082kbb447a581351501c@mail.gmail.com>
Message-ID: <726229b50801201312s60f058d4m9df6d4994d6e2fb8@mail.gmail.com>

2008/1/20 Nilson Santos Figueiredo Junior <acid06 em gmail.com>:
>
> Não concordo.
> Pois, claramente, ele tem muito o que aprender. Inclusive, como se
> portar em uma lista de discussões técnica.
>

De fato. E ele poderia começar mostrando *como* ele resolveu o problema dele.

[]s
Wendel

From luismottacampos em yahoo.co.uk  Sun Jan 20 14:27:26 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Sun, 20 Jan 2008 23:27:26 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
 =?iso-8859-1?q?mando=2E?=
In-Reply-To: <8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>	<4790CE38.7090102@yahoo.co.uk>	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
	<8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
Message-ID: <4793CACE.3080104@yahoo.co.uk>

Otávio Fernandes wrote:
> Engraçado :-) As vezes eu fico considerando uma hipotese de BAN ! ;-)
> O q vcs acham ?! Já que o nosso amigo sabe tanto o que faz, pode fazer
> sozinho.

Isso não depende só de mim, mas eu acho que o Rafael fez não chega nem 
perto de ser problema de banimento.

Ele apenas precisa aprender um pouco mais sobre ética hacker e senso de 
humor... ;)

Não se deixe assustar por pouca coisa como isso, Rafael. ;)

Putamplexos!
-- 
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  Mon Jan 21 03:18:53 2008
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 21 Jan 2008 09:18:53 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com><4790CE38.7090102@yahoo.co.uk><3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com><8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
	<4793CACE.3080104@yahoo.co.uk>
Message-ID: <024101c85c1f$685ebd40$1f01a8c0@servidorliz>

Pô Luis... esperei ler sua resposta para sentir um pouco mais de cheiro.... 
de mijo!

até pensei em ajudar a secar:

sol++; # desculpe, não pude evitar...

[]s

----- Original Message ----- 
From: "Luis Motta Campos" <luismottacampos em yahoo.co.uk>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Sunday, January 20, 2008 8:27 PM
Subject: Re: [Cascavel-pm] Função system não executa o comando.


Otávio Fernandes wrote:
> Engraçado :-) As vezes eu fico considerando uma hipotese de BAN ! ;-)
> O q vcs acham ?! Já que o nosso amigo sabe tanto o que faz, pode fazer
> sozinho.

Isso não depende só de mim, mas eu acho que o Rafael fez não chega nem
perto de ser problema de banimento.

Ele apenas precisa aprender um pouco mais sobre ética hacker e senso de
humor... ;)

Não se deixe assustar por pouca coisa como isso, Rafael. ;)

Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From edencardim em gmail.com  Mon Jan 21 03:21:35 2008
From: edencardim em gmail.com (eden)
Date: Mon, 21 Jan 2008 08:21:35 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <024101c85c1f$685ebd40$1f01a8c0@servidorliz>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
	<8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
	<4793CACE.3080104@yahoo.co.uk>
	<024101c85c1f$685ebd40$1f01a8c0@servidorliz>
Message-ID: <3de55ead0801210321la497908g159ea27121bc5dcb@mail.gmail.com>

2008/1/21  <fernandolouis em terra.com.br>:
> Pô Luis... esperei ler sua resposta para sentir um pouco mais de cheiro....
> de mijo!
>
> até pensei em ajudar a secar:
>
> sol++; # desculpe, não pude evitar...

Que!? Não entedi nada.

-- 
edenc.vox.com

From fernandolouis em terra.com.br  Mon Jan 21 04:13:14 2008
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 21 Jan 2008 10:13:14 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com><4790CE38.7090102@yahoo.co.uk><3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com><8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com><4793CACE.3080104@yahoo.co.uk><024101c85c1f$685ebd40$1f01a8c0@servidorliz>
	<3de55ead0801210321la497908g159ea27121bc5dcb@mail.gmail.com>
Message-ID: <02c701c85c26$ff7db440$1f01a8c0@servidorliz>

uma "mijada" é uma bronca... pelo menos onde vivo.

[]s

----- Original Message ----- 
From: "eden" <edencardim em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Monday, January 21, 2008 9:21 AM
Subject: Re: [Cascavel-pm]Função system não executa o comando.


2008/1/21  <fernandolouis em terra.com.br>:
> Pô Luis... esperei ler sua resposta para sentir um pouco mais de 
> cheiro....
> de mijo!
>
> até pensei em ajudar a secar:
>
> sol++; # desculpe, não pude evitar...

Que!? Não entedi nada.

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


From wendelscardua em gmail.com  Mon Jan 21 04:47:47 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Mon, 21 Jan 2008 10:47:47 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E?=
In-Reply-To: <02c701c85c26$ff7db440$1f01a8c0@servidorliz>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
	<8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
	<4793CACE.3080104@yahoo.co.uk>
	<024101c85c1f$685ebd40$1f01a8c0@servidorliz>
	<3de55ead0801210321la497908g159ea27121bc5dcb@mail.gmail.com>
	<02c701c85c26$ff7db440$1f01a8c0@servidorliz>
Message-ID: <726229b50801210447h6963acej25ee30707f4b346@mail.gmail.com>

Pará ? (não sou paraense, mas esbarrei num "dicionário de paraense" nos
tubos da interweb, e lá falava que mijada era bronca )

[]s
Wendel

2008/1/21 <fernandolouis em terra.com.br>:

> uma "mijada" é uma bronca... pelo menos onde vivo.
>
> []s
>
> ----- Original Message -----
> From: "eden" <edencardim em gmail.com>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Monday, January 21, 2008 9:21 AM
> Subject: Re: [Cascavel-pm]Função system não executa o comando.
>
>
> 2008/1/21  <fernandolouis em terra.com.br>:
> > Pô Luis... esperei ler sua resposta para sentir um pouco mais de
> > cheiro....
> > de mijo!
> >
> > até pensei em ajudar a secar:
> >
> > sol++; # desculpe, não pude evitar...
>
> Que!? Não entedi nada.
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/cba238e6/attachment.html 

From glasswalk3r em yahoo.com.br  Mon Jan 21 05:04:33 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 21 Jan 2008 10:04:33 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Substituindo_n=FAmeros_com_zero_a_es?=
 =?iso-8859-1?q?querda=2E?=
In-Reply-To: <70ebb3b30801190643u1efda00pd6b80e4490e2e15f@mail.gmail.com>
Message-ID: <701595.94282.qm@web30802.mail.mud.yahoo.com>

Só tenha cuidado aonde esse programa será
disponibilizado. O eval é útil mas pode executar mais
coisas que você gostaria de ele fizesse.

[]'s
Alceu

--- Hamilton Vera <hamilton.listas em gmail.com>
escreveu:

> Nelson, muito obrigado, funcionou perfeitamente.
> 
> Desculpe a demora para responder.
> 
> 
> Obrigado.
> 
> On 1/16/08, Nelson Ferraz <nferraz em gmail.com> wrote:
> > Você está no caminho certo.
> >
> > Agora pode combinar as duas soluções colocando um
> /e no final da
> > expressão regular, que significa realizar um
> "eval" no lado direito da
> > regexp:
> >
> >    my $line  = "Folha 1234";
> >    my $count = 5;
> >
> >    $line =~ s/Folha \d+/sprintf('Folha %05d',
> $count)/e;
> >
> >    print $line;



      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From fernandolouis em terra.com.br  Mon Jan 21 05:15:01 2008
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 21 Jan 2008 11:15:01 -0200
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E_=5BOT=5D?=
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com><4790CE38.7090102@yahoo.co.uk><3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com><8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com><4793CACE.3080104@yahoo.co.uk><024101c85c1f$685ebd40$1f01a8c0@servidorliz><3de55ead0801210321la497908g159ea27121bc5dcb@mail.gmail.com><02c701c85c26$ff7db440$1f01a8c0@servidorliz>
	<726229b50801210447h6963acej25ee30707f4b346@mail.gmail.com>
Message-ID: <002901c85c2f$a1c2dde0$1f01a8c0@servidorliz>

eheheeh não não... sou de SC
[]s
  ----- Original Message ----- 
  From: Wendel Scardua 
  To: Cascavel Perl Mongers 
  Sent: Monday, January 21, 2008 10:47 AM
  Subject: Re: [Cascavel-pm]Função system não executa o comando.


  Pará ? (não sou paraense, mas esbarrei num "dicionário de paraense" nos tubos da interweb, e lá falava que mijada era bronca )

  []s
  Wendel


  2008/1/21 < fernandolouis em terra.com.br>:

    uma "mijada" é uma bronca... pelo menos onde vivo. 

    []s


    ----- Original Message -----
    From: "eden" <edencardim em gmail.com>
    To: "Cascavel Perl Mongers" < cascavel-pm em pm.org>

    Sent: Monday, January 21, 2008 9:21 AM
    Subject: Re: [Cascavel-pm]Função system não executa o comando.



    2008/1/21  < fernandolouis em terra.com.br>:
    > Pô Luis... esperei ler sua resposta para sentir um pouco mais de
    > cheiro....
    > de mijo!
    >
    > até pensei em ajudar a secar: 
    >
    > sol++; # desculpe, não pude evitar...

    Que!? Não entedi nada.




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


  _______________________________________________
  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/20080121/af1212c2/attachment-0001.html 

From ptfzs em yahoo.com.br  Mon Jan 21 06:53:06 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 21 Jan 2008 06:53:06 -0800 (PST)
Subject: [Cascavel-pm] expressao regular
Message-ID: <252003.23833.qm@web31307.mail.mud.yahoo.com>

pessoal..
alguem da um help para extrair partes de uma string??

tenho um string="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh fim"
quero recuperar os elementos entre o inicio e o fim..
se eu fizer:

(my $data) = split(/fim/, $te);
 my (@registros) = split (/inicio/, $data);

ele pega somente o 1 registro :)

Alguem pode dar um help

Obrigada








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/ef980acc/attachment.html 

From oberdan.luiz em gmail.com  Mon Jan 21 07:25:12 2008
From: oberdan.luiz em gmail.com (Oberdan Luiz May)
Date: Mon, 21 Jan 2008 12:25:12 -0300
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <252003.23833.qm@web31307.mail.mud.yahoo.com>
References: <252003.23833.qm@web31307.mail.mud.yahoo.com>
Message-ID: <ac3a9ba80801210725u39aef8b8s5262dedc3a824b81@mail.gmail.com>

  Hummm, deixa eu ver... Que tal perldoc perlre ou perldoc perlretut? Pra
mim isso ajudou bastante.

2008/1/21 Patty Silva <ptfzs em yahoo.com.br>:

> pessoal..
> alguem da um help para extrair partes de uma string??
>
> tenho um string="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh
> fim"
> quero recuperar os elementos entre o inicio e o fim..
> se eu fizer:
>
> (my $data) = split(/fim/, $te);
>  my (@registros) = split (/inicio/, $data);
>
> ele pega somente o 1 registro :)
>
> Alguem pode dar um help
>
> Obrigada
>
>
>
>
>
> ------------------------------
> Abra sua conta no Yahoo! Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>,
> o único sem limite de espaço para armazenamento!
>
> _______________________________________________
> 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/20080121/05e831cb/attachment.html 

From mxsoares em gmail.com  Mon Jan 21 07:24:14 2008
From: mxsoares em gmail.com (_mx_)
Date: Mon, 21 Jan 2008 13:24:14 -0200
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <252003.23833.qm@web31307.mail.mud.yahoo.com>
References: <252003.23833.qm@web31307.mail.mud.yahoo.com>
Message-ID: <3cd298d70801210724i699505cbt33dc0037bec87020@mail.gmail.com>

é +/- isto?

my $s="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh fim\n";
my @d = ($s =~ /inicio\s*(.*?)fim/g);

print "$_\n" for @d;

2008/1/21 Patty Silva <ptfzs em yahoo.com.br>:

> pessoal..
> alguem da um help para extrair partes de uma string??
>
> tenho um string="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh
> fim"
> quero recuperar os elementos entre o inicio e o fim..
> se eu fizer:
>
> (my $data) = split(/fim/, $te);
>  my (@registros) = split (/inicio/, $data);
>
> ele pega somente o 1 registro :)
>
> Alguem pode dar um help
>
> Obrigada
>
>
>
>
>
> ------------------------------
> Abra sua conta no Yahoo! Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>,
> o único sem limite de espaço para armazenamento!
>
> _______________________________________________
> 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/20080121/528e3253/attachment.html 

From ptfzs em yahoo.com.br  Mon Jan 21 07:42:52 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 21 Jan 2008 07:42:52 -0800 (PST)
Subject: [Cascavel-pm] Res:  expressao regular
Message-ID: <122861.7068.qm@web31311.mail.mud.yahoo.com>

Obrigada

estou tentando usar o
use Text::Balanced qw(extract_delimited);
alguem ja usou??


----- Mensagem original ----
De: _mx_ <mxsoares em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 21 de Janeiro de 2008 15:24:14
Assunto: Re: [Cascavel-pm] expressao regular

é +/- isto?

my $s="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh fim\n";
my @d = ($s =~ /inicio\s*(.*?)fim/g);

print "$_\n" for @d;

2008/1/21 Patty Silva <
ptfzs em yahoo.com.br>:

pessoal..
alguem da um help para extrair partes de uma string??

tenho um string="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh fim"
quero recuperar os elementos entre o inicio e o fim..

se eu fizer:

(my $data) = split(/fim/, $te);
 my (@registros) = split (/inicio/, $data);

ele pega somente o 1 registro :)

Alguem pode dar um help

Obrigada












      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 



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

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









      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/33dc5069/attachment.html 

From fernandes em cpan.org  Mon Jan 21 09:07:43 2008
From: fernandes em cpan.org (Rodrigo Panchiniak Fernandes)
Date: Mon, 21 Jan 2008 09:07:43 -0800 (PST)
Subject: [Cascavel-pm] DBI
In-Reply-To: <122861.7068.qm@web31311.mail.mud.yahoo.com>
Message-ID: <211566.62687.qm@web44811.mail.sp1.yahoo.com>

Salve,

Numa das colunas da minha tabela há strings repetidas.
Eu queria que dump_results mostrasse apenas as linhas
nas quais ocorre a repetição. 

Algo como:
"SELECT
    coluna1 TEXT
FROM user
    WHERE
        /linha anterior/ =~ /linha atual/
    ORDER BY 
        coluna1 desc";

Alguém pode explicar uma forma simples de fazer isto?

[]s

Rodrigo




      ____________________________________________________________________________________
Be a better friend, newshound, and 
know-it-all with Yahoo! Mobile.  Try it now.  http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ 



From fernandolouis em terra.com.br  Mon Jan 21 10:24:44 2008
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Mon, 21 Jan 2008 16:24:44 -0200
Subject: [Cascavel-pm] expressao regular
References: <252003.23833.qm@web31307.mail.mud.yahoo.com>
Message-ID: <00eb01c85c5a$e5bab650$1f01a8c0@servidorliz>

Patty,

O primeiro split que você usou deve ser atribuído à um array.

Assim, cada índice do array vai ter o respectivo conteúdo de "inicio e fim"

[]s
Fernando
  ----- Original Message ----- 
  From: Patty Silva 
  To: Cascavel Perl Mongers 
  Sent: Monday, January 21, 2008 12:53 PM
  Subject: [Cascavel-pm] expressao regular


  pessoal..
  alguem da um help para extrair partes de uma string??

  tenho um string="inicio hghghghg fim inicio hghghgghghgfim inicio hghghgh fim"
  quero recuperar os elementos entre o inicio e o fim..
  se eu fizer:

  (my $data) = split(/fim/, $te);
   my (@registros) = split (/inicio/, $data);

  ele pega somente o 1 registro :)

  Alguem pode dar um help

  Obrigada







------------------------------------------------------------------------------
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 


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


  _______________________________________________
  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/20080121/806a5a5c/attachment-0001.html 

From mmmferreira em gmail.com  Mon Jan 21 10:55:13 2008
From: mmmferreira em gmail.com (Marcio Ferreira)
Date: Mon, 21 Jan 2008 16:55:13 -0200
Subject: [Cascavel-pm] DBI
In-Reply-To: <211566.62687.qm@web44811.mail.sp1.yahoo.com>
References: <122861.7068.qm@web31311.mail.mud.yahoo.com>
	<211566.62687.qm@web44811.mail.sp1.yahoo.com>
Message-ID: <ab9b7e900801211055v31e12785r54156d7c61ec9725@mail.gmail.com>

Have fun

SELECT coluna1, COUNT(1)
FROM user
GROUP BY coluna1 desc
HAVING COUNT(1) > 1

2008/1/21, Rodrigo Panchiniak Fernandes <fernandes em cpan.org>:
>
> Salve,
>
> Numa das colunas da minha tabela há strings repetidas.
> Eu queria que dump_results mostrasse apenas as linhas
> nas quais ocorre a repetição.
>
> Algo como:
> "SELECT
>     coluna1 TEXT
> FROM user
>     WHERE
>         /linha anterior/ =~ /linha atual/
>     ORDER BY
>         coluna1 desc";
>
> Alguém pode explicar uma forma simples de fazer isto?
>
> []s
>
> Rodrigo
>
>
>
>
>
>       ____________________________________________________________________________________
> Be a better friend, newshound, and
> know-it-all with Yahoo! Mobile.  Try it now.
> http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Em breve: www.Empregar.com
Wiki sobre MySQL: MySQL-BR.wikidot.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/2cbf3d3d/attachment.html 

From fernandes em cpan.org  Mon Jan 21 11:53:13 2008
From: fernandes em cpan.org (Rodrigo Panchiniak Fernandes)
Date: Mon, 21 Jan 2008 11:53:13 -0800 (PST)
Subject: [Cascavel-pm] DBI
In-Reply-To: <ab9b7e900801211055v31e12785r54156d7c61ec9725@mail.gmail.com>
Message-ID: <302702.56189.qm@web44808.mail.sp1.yahoo.com>

Obrigado pela dica, Márcio,

Mas ainda não consegui exatamente o que queria.
Gostaria de ver "apenas as linhas nas quais ocorre a
repetição", porém, todas as linhas nas quais ocorre a
repetição. GROUP BY coluna1 mostra apenas a última
ocorrência do grupo. Ou seja, se tenho:

maçã, verde
maçã, vermelha
morango, azul

Obtenho

maçã, vermelha.

Mas eu precisava de

maçã, verde
maçã, vermelha 

Obrigadão,

Rodrigo

--- Marcio Ferreira <mmmferreira em gmail.com> wrote:

> Have fun
> 
> SELECT coluna1, COUNT(1)
> FROM user
> GROUP BY coluna1 desc
> HAVING COUNT(1) > 1
> 
> 2008/1/21, Rodrigo Panchiniak Fernandes
> <fernandes em cpan.org>:
> >
> > Salve,
> >
> > Numa das colunas da minha tabela há strings
> repetidas.
> > Eu queria que dump_results mostrasse apenas as
> linhas
> > nas quais ocorre a repetição.
> >
> > Algo como:
> > "SELECT
> >     coluna1 TEXT
> > FROM user
> >     WHERE
> >         /linha anterior/ =~ /linha atual/
> >     ORDER BY
> >         coluna1 desc";
> >
> > Alguém pode explicar uma forma simples de fazer
> isto?
> >
> > []s
> >
> > Rodrigo
> >
> >
> >
> >
> >
> >      
>
____________________________________________________________________________________
> > Be a better friend, newshound, and
> > know-it-all with Yahoo! Mobile.  Try it now.
> >
>
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> 
> 
> 
> -- 
> Em breve: www.Empregar.com
> Wiki sobre MySQL: MySQL-BR.wikidot.com
> > _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm



      ____________________________________________________________________________________
Never miss a thing.  Make Yahoo your home page. 
http://www.yahoo.com/r/hs


From luismottacampos em yahoo.co.uk  Mon Jan 21 09:53:18 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 21 Jan 2008 18:53:18 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?Non-sense_total=2E=2E=2E_=5BWas=3A__?=
 =?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_comando=2E=5D?=
In-Reply-To: <024101c85c1f$685ebd40$1f01a8c0@servidorliz>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com><4790CE38.7090102@yahoo.co.uk><3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com><8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>	<4793CACE.3080104@yahoo.co.uk>
	<024101c85c1f$685ebd40$1f01a8c0@servidorliz>
Message-ID: <4794DC0E.4090606@yahoo.co.uk>

fernandolouis em terra.com.br wrote:
> Pô Luis... esperei ler sua resposta para sentir um pouco mais de cheiro.... 
> de mijo!
> 
> até pensei em ajudar a secar:
> 
> sol++; # desculpe, não pude evitar...

Olha, eu posso dizer que eu estou até acostumado a escutar /non-sense/ 
nas listas de discussão, mas isso é exagero...

Sobre o que é mesmo que você está falando?

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  Mon Jan 21 10:00:22 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 21 Jan 2008 19:00:22 +0100
Subject: [Cascavel-pm] Res:  expressao regular
In-Reply-To: <122861.7068.qm@web31311.mail.mud.yahoo.com>
References: <122861.7068.qm@web31311.mail.mud.yahoo.com>
Message-ID: <4794DDB6.7090900@yahoo.co.uk>

Patty Silva wrote:
> Obrigada
> 
> estou tentando usar o
> use Text::Balanced qw(extract_delimited);
> alguem ja usou??

Eu, claro. :)
Mas eu acho que ele não serve para você: 
Text::Balanced::extract_delimited() espera que o delimitador de string 
seja igual no início e no fim da string que você quer extrair do texto.

A não ser, claro, que o teu exemplo seja mais parecido com

## BEGIN EXAMPLE ##
"informação informação" lixo lixo lixo "informação" lixo lixo
##  END EXAMPLE  ##

Você pode por favor postar pelo menos uma linha do seu texto, Patty?
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  Mon Jan 21 10:11:41 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 21 Jan 2008 19:11:41 +0100
Subject: [Cascavel-pm] DBI
In-Reply-To: <211566.62687.qm@web44811.mail.sp1.yahoo.com>
References: <211566.62687.qm@web44811.mail.sp1.yahoo.com>
Message-ID: <4794E05D.4040805@yahoo.co.uk>

Rodrigo Panchiniak Fernandes wrote:
> Salve,
> 
> Numa das colunas da minha tabela há strings repetidas.
> Eu queria que dump_results mostrasse apenas as linhas
> nas quais ocorre a repetição. 
> 
> Algo como:
> "SELECT
>     coluna1 TEXT
> FROM user
>     WHERE
>         /linha anterior/ =~ /linha atual/
>     ORDER BY 
>         coluna1 desc";
> 
> Alguém pode explicar uma forma simples de fazer isto?

ARGH. Teu query:

SELECT coluna1 AS "Texto Repetido"
FROM user u
WHERE u.coluna1 = ?
ORDER BY u DESC

Isso vai te trazer todos os usuários repetidos na sua tabela agrupados.

Agora, você parece ter um problema de exibição: quer exibir espaços em 
branco sempre que o valor de "coluna1" for o mesmo da linha anterior, certo?

Teu código (ATENÇÃO: EU NÃO TESTEI!)

#!perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect( "DBI:mysql:database", 'mysql_user', 'secret', { 
AutoCommit => 1, RaiseError => 1, PrintError => 0 } );

my $query = ; <<SQL
SELECT coluna1 AS "Texto Repetido"
FROM user u
WHERE u.coluna1 = ?
ORDER BY u DESC
SQL

my $sth = eval { $dbi->prepare( $query ) } or die DBI->errstr;

eval{ $sth->execute( 'valor procurado' ) } or die $sth->errstr;

my $current_value = ''; # sim, faz assim, evita warnings de "undef"
while( ( $value ) = $sth->fetchrow_array ){
   if( $current_value eq $value ){
     # mesma coisa que a linha anterior
     print $/;
   }else{
     # linha diferente
     print $value;
   } # if-else
} # while

eval{ $sth->finish } or die $sth->errstr;

$dbi->close or die $DBI->errstr;

__END__

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 luismottacampos em yahoo.co.uk  Mon Jan 21 12:31:50 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 21 Jan 2008 21:31:50 +0100
Subject: [Cascavel-pm] DBI
In-Reply-To: <302702.56189.qm@web44808.mail.sp1.yahoo.com>
References: <302702.56189.qm@web44808.mail.sp1.yahoo.com>
Message-ID: <47950136.9050508@yahoo.co.uk>

Rodrigo Panchiniak Fernandes wrote:
> Obrigado pela dica, Márcio,
> 
> Mas ainda não consegui exatamente o que queria.
> Gostaria de ver "apenas as linhas nas quais ocorre a
> repetição", porém, todas as linhas nas quais ocorre a
> repetição. GROUP BY coluna1 mostra apenas a última
> ocorrência do grupo. Ou seja, se tenho:
> 
> maçã, verde
> maçã, vermelha
> morango, azul
> 
> Obtenho
> 
> maçã, vermelha.
> 
> Mas eu precisava de
> 
> maçã, verde
> maçã, vermelha 

Agora é fácil.

SELECT * FROM fruta WHERE fruta.nome = 'maçã' ORDER BY fruta.cor;

Mas você tem de olhar o meu outro email para saber como fazer loops e 
mostrar mais valores usando o DBI - você está selecionando todos os 
valores que deseja, mas está mostrando apenas o primeiro.

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

From vandersons em gmail.com  Mon Jan 21 16:13:52 2008
From: vandersons em gmail.com (Vanderson Sampaio)
Date: Mon, 21 Jan 2008 21:13:52 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Fun=E7=E3o_system_n=E3o_executa_o_co?=
	=?iso-8859-1?q?mando=2E_=5BOT=5D?=
In-Reply-To: <002901c85c2f$a1c2dde0$1f01a8c0@servidorliz>
References: <3e759d2b0801180643n4ff795d8n1be11c94c31f90a7@mail.gmail.com>
	<4790CE38.7090102@yahoo.co.uk>
	<3e759d2b0801180821g13a8a4b3i30030fd8f8ccb440@mail.gmail.com>
	<8e3843570801200706g23094391x268e155d3d308581@mail.gmail.com>
	<4793CACE.3080104@yahoo.co.uk>
	<024101c85c1f$685ebd40$1f01a8c0@servidorliz>
	<3de55ead0801210321la497908g159ea27121bc5dcb@mail.gmail.com>
	<02c701c85c26$ff7db440$1f01a8c0@servidorliz>
	<726229b50801210447h6963acej25ee30707f4b346@mail.gmail.com>
	<002901c85c2f$a1c2dde0$1f01a8c0@servidorliz>
Message-ID: <792d03600801211613o5a10a7aaxf7ff46dfb3d121d2@mail.gmail.com>

Seguindo a corrente non-sense, no Pará mijada = bronca!
E como paraense, eu atesto o fato!
[]'s

2008/1/21 <fernandolouis em terra.com.br>:

>  eheheeh não não... sou de SC
> []s
>
> ----- Original Message -----
> *From:* Wendel Scardua <wendelscardua em gmail.com>
> *To:* Cascavel Perl Mongers <cascavel-pm em pm.org>
> *Sent:* Monday, January 21, 2008 10:47 AM
> *Subject:* Re: [Cascavel-pm]Função system não executa o comando.
>
> Pará ? (não sou paraense, mas esbarrei num "dicionário de paraense" nos
> tubos da interweb, e lá falava que mijada era bronca )
>
> []s
> Wendel
>
> 2008/1/21 < fernandolouis em terra.com.br>:
>
> > uma "mijada" é uma bronca... pelo menos onde vivo.
> >
> > []s
> >
> > ----- Original Message -----
> > From: "eden" <edencardim em gmail.com>
> > To: "Cascavel Perl Mongers" < cascavel-pm em pm.org>
> > Sent: Monday, January 21, 2008 9:21 AM
> > Subject: Re: [Cascavel-pm]Função system não executa o comando.
> >
> >
> >  2008/1/21  < fernandolouis em terra.com.br>:
> > > Pô Luis... esperei ler sua resposta para sentir um pouco mais de
> > > cheiro....
> > > de mijo!
> > >
> > > até pensei em ajudar a secar:
> > >
> > > sol++; # desculpe, não pude evitar...
> >
> > Que!? Não entedi nada.
> >
> >  ------------------------------
>
> _______________________________________________
> 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
>



-- 
Vanderson Sampaio
Biólogo - Especialista em Bioinformática
Mestre em Genética e Biol. Molecular
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/223c8187/attachment.html 

From ptfzs em yahoo.com.br  Mon Jan 21 16:47:46 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 21 Jan 2008 16:47:46 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  expressao regular
Message-ID: <177317.13676.qm@web31305.mail.mud.yahoo.com>

Desculpe a msg anterior :D
nao completei :D

meu texto:
Inicio testetestetestetestetesteteste
testetestetestetestetesteteste
testetestetestetestetestetesteteste
testetestetestetestetestetesteteste
Fim
Inicio
teste2teste2teste2teste2teste2teste2teste2
teste2teste2teste2teste2teste2teste2teste2
teste2teste2teste2teste2teste2teste2F
im
Ini
cio teste3teste3Fi
m


obs: observe que tenho Inicio e fim em linhas diferentes
pra esse caso serviria o Text::Balanced???

Obrigada


----- Mensagem original ----
De: Luis Motta Campos <luismottacampos em yahoo.co.uk>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 21 de Janeiro de 2008 16:00:22
Assunto: Re: [Cascavel-pm] Res:  expressao regular

Patty Silva wrote:
> Obrigada
> 
> estou tentando usar o
> use Text::Balanced qw(extract_delimited);
> alguem ja usou??

Eu, claro. :)
Mas eu acho que ele não serve para você: 
Text::Balanced::extract_delimited() espera que o delimitador de string 
seja igual no início e no fim da string que você quer extrair do
 texto.

A não ser, claro, que o teu exemplo seja mais parecido com

## BEGIN EXAMPLE ##
"informação informação" lixo lixo lixo "informação" lixo lixo
##  END EXAMPLE  ##

Você pode por favor postar pelo menos uma linha do seu texto, Patty?
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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/ab8d45ca/attachment-0001.html 

From ptfzs em yahoo.com.br  Mon Jan 21 16:45:34 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 21 Jan 2008 16:45:34 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  expressao regular
Message-ID: <482519.69802.qm@web31309.mail.mud.yahoo.com>

Bom :D
meu texto:
Inicio teste teste teste testetestetesteteste
testetestetesteteste----- Mensagem original ----
De: Luis Motta Campos <luismottacampos em yahoo.co.uk>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 21 de Janeiro de 2008 16:00:22
Assunto: Re: [Cascavel-pm] Res:  expressao regular

Patty Silva wrote:
> Obrigada
> 
> estou tentando usar o
> use Text::Balanced qw(extract_delimited);
> alguem ja usou??

Eu, claro. :)
Mas eu acho que ele não serve para você: 
Text::Balanced::extract_delimited() espera que o delimitador de string 
seja igual no início e no fim da string que você quer extrair do
 texto.

A não ser, claro, que o teu exemplo seja mais parecido com

## BEGIN EXAMPLE ##
"informação informação" lixo lixo lixo "informação" lixo lixo
##  END EXAMPLE  ##

Você pode por favor postar pelo menos uma linha do seu texto, Patty?
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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/d81deb55/attachment.html 

From ptfzs em yahoo.com.br  Mon Jan 21 16:55:15 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 21 Jan 2008 16:55:15 -0800 (PST)
Subject: [Cascavel-pm] Res:   expressao regular
Message-ID: <332770.32353.qm@web31314.mail.mud.yahoo.com>



----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 21 de Janeiro de 2008 22:47:46
Assunto: [Cascavel-pm] Res:  Res:  expressao regular

Desculpe a msg anterior :D
nao completei :D

meu texto:
Inicio testetestetestetestetesteteste
testetestetestetestetesteteste
testetestetestetestetestetesteteste
testetestetestetestetestetesteteste
Fim
Inicio
teste2teste2teste2teste2teste2teste2teste2
teste2teste2teste2teste2teste2teste2teste2
teste2teste2teste2teste2teste2teste2F
im
Ini
cio teste3teste3Fi
m


obs: observe que tenho Inicio e fim em linhas diferentes
pra esse caso serviria o Text::Balanced???

Obrigada

Bom.. respondendo a minha propria pergunta..kakakka

OKS... :D acho que nao serve para o meu caso :)
A solucao que achei foi.. ler byte a byte cada elemento e atribuir a eles variaveis auxiliares para que pudesse 
identificar a sequencia INICIO e FIM
tive um pequeno problema quando muda de linha ele le o caracter \n tb.. entao.. nunca  q achava a sequencia correta
quando a palavra INICIO e FIM estava separada
resolvi fazendo um IF e verificando se era \n se fosse ele nao atribuia a variavel auxiliar :D
Nao sei se essa eh a melhor forma.. mas estou quase resolvendo meu problema


Obrigada pessoal :D


----- Mensagem original ----
De: Luis Motta Campos
 <luismottacampos em yahoo.co.uk>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 21 de Janeiro de 2008 16:00:22
Assunto: Re: [Cascavel-pm] Res:  expressao regular

Patty Silva wrote:
> Obrigada
> 
> estou tentando usar o
> use Text::Balanced qw(extract_delimited);
> alguem ja usou??

Eu, claro. :)
Mas eu acho que ele não serve para você: 
Text::Balanced::extract_delimited() espera que o delimitador de string 
seja igual no início e no fim da string que você quer extrair do
 texto.

A não ser, claro, que o teu exemplo seja mais parecido com

## BEGIN EXAMPLE ##
"informação informação" lixo lixo lixo "informação" lixo lixo
##  END EXAMPLE  ##

Você pode por favor postar pelo menos uma linha do seu texto, Patty?
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








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080121/8bf6329a/attachment.html 

From joenio em gmail.com  Mon Jan 21 18:09:17 2008
From: joenio em gmail.com (Joenio Costa)
Date: Mon, 21 Jan 2008 23:09:17 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <3e759d2b0801170510v25f869e9i43c1dbdb5975d59b@mail.gmail.com>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
	<478F4FC1.6060504@yahoo.co.uk>
	<3e759d2b0801170458k6d518735uae6f93da73b1b81f@mail.gmail.com>
	<478F523D.3050705@yahoo.co.uk>
	<3e759d2b0801170510v25f869e9i43c1dbdb5975d59b@mail.gmail.com>
Message-ID: <65934b450801211809i42105d10taf0e53cfebba511d@mail.gmail.com>

Sei que voce perguntou ao Luis mas vou responder assim mesmo.

Dá uma olhada neste módulo, ele tem além de intersecção vários metodos
de comparação de listas:

http://search.cpan.org/author/JKEENAN/List-Compare-0.34/lib/List/Compare.pm

Att,

Em 17/01/08, Rafael Lebrao Martins<rafamv1 em ig.com.br> escreveu:
> Luis, estou querendo saber mais sobre intersecção entre arrays... Não
> consegui encontrar nada que pudesse me ajudasse... Você poderia me passar
> algum link sobre esse assunto?
>
>
> 2008/1/17, Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> > Rafael Lebrao Martins wrote:
> > > Que seja então, Luis!!!!
> >
> > Bom, se um "diretório" é apenas um arquivo, acho que a gente pode
> > aplicar mais ou menos as mesmas técnicas... ;) e agora já dá para
> > aproveitar o programa anterior, resolver isso mais depressa e tomar mais
> > um gole de café.
> >
> > :) 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
> >
>
>
> _______________________________________________
> 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  Mon Jan 21 19:22:07 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Tue, 22 Jan 2008 00:22:07 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Apagar_arquivos_em_diret=F3rios=2E?=
In-Reply-To: <65934b450801211809i42105d10taf0e53cfebba511d@mail.gmail.com>
References: <3e759d2b0801151154k64b85727qe6f58f0cff655703@mail.gmail.com>
	<726229b50801151226y7f992a39qde5c4e82ed9c173c@mail.gmail.com>
	<3e759d2b0801151235g31ac85cckdb10e3661130bc80@mail.gmail.com>
	<478F4FC1.6060504@yahoo.co.uk>
	<3e759d2b0801170458k6d518735uae6f93da73b1b81f@mail.gmail.com>
	<478F523D.3050705@yahoo.co.uk>
	<3e759d2b0801170510v25f869e9i43c1dbdb5975d59b@mail.gmail.com>
	<65934b450801211809i42105d10taf0e53cfebba511d@mail.gmail.com>
Message-ID: <3e759d2b0801211922g786e4b10u9a8b101bcb273c55@mail.gmail.com>

Muito obrigado.. Eu andei pesquisando (e agora estou utilizando) esse
módulo.. Foi muito útil para o que eu queria..
Valeu..


Em 21/01/08, Joenio Costa <joenio em gmail.com> escreveu:
>
> Sei que voce perguntou ao Luis mas vou responder assim mesmo.
>
> Dá uma olhada neste módulo, ele tem além de intersecção vários metodos
> de comparação de listas:
>
>
> http://search.cpan.org/author/JKEENAN/List-Compare-0.34/lib/List/Compare.pm
>
> Att,
>
> Em 17/01/08, Rafael Lebrao Martins<rafamv1 em ig.com.br> escreveu:
> > Luis, estou querendo saber mais sobre intersecção entre arrays... Não
> > consegui encontrar nada que pudesse me ajudasse... Você poderia me
> passar
> > algum link sobre esse assunto?
> >
> >
> > 2008/1/17, Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> > > Rafael Lebrao Martins wrote:
> > > > Que seja então, Luis!!!!
> > >
> > > Bom, se um "diretório" é apenas um arquivo, acho que a gente pode
> > > aplicar mais ou menos as mesmas técnicas... ;) e agora já dá para
> > > aproveitar o programa anterior, resolver isso mais depressa e tomar
> mais
> > > um gole de café.
> > >
> > > :) 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
> > >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> Joenio Costa
> - Salvador Perl Mongers - Grupo de Usuário Perl de Salvador
> - Colibre - Cooperativa de Tecnologias Livres
> - PSL-BA - Projeto Software Livre Bahia
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080122/296cbb1e/attachment.html 

From ricardostock em bol.com.br  Tue Jan 22 02:41:04 2008
From: ricardostock em bol.com.br (Ricardo Stock)
Date: Tue, 22 Jan 2008 08:41:04 -0200
Subject: [Cascavel-pm] client/servidor
Message-ID: <JV1KCH$4655D38C0B572CF2FA67CA3970C3E50E@bol.com.br>

Bom dia a todos da lista....

Gente, estou começando a desenvolver uma aplicação cliente/servidor, a primeira que estou fazendo :-) em plataforma win32, porém estou com uma duvida. O servidor parece estar rodando ok,  pois o executo e o mesmo fica aguardando a conexão. 
Estou iniciando o desenvolvimento de um programa que fara determinadas funções dependendo do comando recebido, mas isto é coisa para o futuro.
O erro s da, ao que parece quando o cliente tenta enviar a mensagem de teste, me da a mensagem que nao foi possivel chamar o metodo send, ai, a duvida, pois, não sei o que fazer....
 segue o código abaixo. Caso alguma sugestão, sera de bom agrado
servidor.pl
=================
#!c:\perl\bin\perl.exe
#SERVER.PL
use IO::Socket::INET;
print "Servidor Sockt TCP em Perl\n";
$server = IO::Socket::INET->new(
        LocalAddr=>"127.0.0.1",
        LocalPort=>7000,
        Proto=>'tcp',
        Listem=>10
        );
$sock_client= $server->accept();
while( 1) {
       $sock_client->recv($data,1024);
       if ($data)
       {
        print "\n Recebido: ", $data, "\n";
       }
   }
cliente.pl
====================
#!c:\perl\bin\perl.exe
#CLIENT EM PERL
use IO::Socket::INET;
print "Cliente Socket TCP em perl";
$client = IO::Socket::INET->new(
        PeerAddr=>"127.0.0.1",
        PeerPort => "7000",
        Timeout => 60);
        while(1)
        {
        $msg = "Mensagem de Teste";
        print "Enviando: ",$msg,"";
        if($client->send($msg))
        {
        print "Enviado com sucesso","n";
        sleep(5);
        }
        }
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080122/6e13fe61/attachment-0001.html 

From nferraz em gmail.com  Tue Jan 22 04:37:28 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 22 Jan 2008 12:37:28 +0000
Subject: [Cascavel-pm] Followup On Java As "Damaging" To Students
Message-ID: <604cec170801220437l527f6687g8a25654ca25c52e7@mail.gmail.com>

Who Killed the Software Engineer? (Hint: It Happened in College)

A conversation with Robert Dewar is enough to make you wonder about
the future of the American software engineer. Dewar, a professor
emeritus of computer science at New York University, believes that
U.S. colleges are turning out programmers who are ? there's no nice
way to say this ? essentially incompetent.

(...)

One of the most ill-considered steps that universities took was to
adopt Java as the most widely used language in introductory
programming courses, Dewar says. Driving this change was a desire to
make CS programs more popular.

He recalls a discussion among the NYU faculty several years ago when
they decided to switch the introductory language from Pascal to Java.
Pascal had never been that successful in industry, yet this lack of
market acceptance didn't matter; learning Pascal tended to promote
solid programming practices.

"They taught Pascal because it seemed to be pedagogically the best
choice," Dewar says.

Yet the switch to Java was made "purely on the basis of perceived
student demand." To be sure, it's a popular code for Web applications
and is relatively easy for novices to navigate. Yet it is exactly this
ease that goes to the core of what's wrong with today's CS
curriculums.

(...)

It takes a person with a very specific set of inclinations and talents
to be a computer programmer, Dewar notes. It's these specific people
who colleges should gear their CS programs for ? not the mass of
semi-interested people who use pre-built libraries to create
uninspired apps.

"Most of us who got into programming really did it because we find it
fun. We find the intellectual challenge fun. We find being faced with
tricky problems, then figuring out interesting algorithmic solutions,
fun. We find clever data structures that solve some interesting
problem fun."

"Maybe it's not fun to a bigger audience, but computer science
education should be more about finding those people who like that kind
of fun, and catering to them, rather than [making it all easy]."

"If people find it boring to compute some interesting value, then run
that program and get a value of 42 when it should be 83, and figure
out why they've gotten 42 instead of 83, if they find that tedious and
boring, they really aren't the kind of people we need."

http://itmanagement.earthweb.com/career/article.php/3722876

From glasswalk3r em yahoo.com.br  Tue Jan 22 06:07:08 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 22 Jan 2008 11:07:08 -0300 (ART)
Subject: [Cascavel-pm] Followup On Java As "Damaging" To Students
In-Reply-To: <604cec170801220437l527f6687g8a25654ca25c52e7@mail.gmail.com>
Message-ID: <104211.45136.qm@web30807.mail.mud.yahoo.com>

Vai aí meus 50 centavos (porque com 2 não dá para
fazer nada)...

O mercado colhe o que planta. A idéia de linguagens
"enterprise" como o Java e o C# é criar uma forma
padrão de programação, da forma mais simples e
produtiva possível. Isso permite que se possa manter
uma equipe de programadores medíocres e se for
necessário necessário trocar de equipe, isso fica
ainda mais fácil.

Não vejo problema nenhum em boas práticas de
programação, mas isso deveria ser conseguido com
disciplina e não com um compilador mala. Sem contar
que alguma vez é uma boa idéia quebrar regras, apesar
de isso não ser para qualquer um.

O problema é querer profissionais capacitados
trabalhando como operários em fábricas com salários
baixos: eles ficam lá repetindo procedimentos, sem ter
de raciocinar muito. Isso é como o "milagre" chinês de
produzir manufaturados a preços muito baixos: isso só
acontece como fruto das péssimas condições de trabalho
dos operários de lá. E é óbvio que qualidade final do
produto é questionável.

[]'s
Alceu

--- Nelson Ferraz <nferraz em gmail.com> escreveu:

> Who Killed the Software Engineer? (Hint: It Happened
> in College)
> 
> A conversation with Robert Dewar is enough to make
> you wonder about
> the future of the American software engineer. Dewar,
> a professor
> emeritus of computer science at New York University,
> believes that
> U.S. colleges are turning out programmers who are –
> there's no nice
> way to say this – essentially incompetent.
> 
> (...)
> 
> One of the most ill-considered steps that
> universities took was to
> adopt Java as the most widely used language in
> introductory
> programming courses, Dewar says. Driving this change
> was a desire to
> make CS programs more popular.
> 
> He recalls a discussion among the NYU faculty
> several years ago when
> they decided to switch the introductory language
> from Pascal to Java.
> Pascal had never been that successful in industry,
> yet this lack of
> market acceptance didn't matter; learning Pascal
> tended to promote
> solid programming practices.
> 
> "They taught Pascal because it seemed to be
> pedagogically the best
> choice," Dewar says.
> 
> Yet the switch to Java was made "purely on the basis
> of perceived
> student demand." To be sure, it's a popular code for
> Web applications
> and is relatively easy for novices to navigate. Yet
> it is exactly this
> ease that goes to the core of what's wrong with
> today's CS
> curriculums.
> 
> (...)
> 
> It takes a person with a very specific set of
> inclinations and talents
> to be a computer programmer, Dewar notes. It's these
> specific people
> who colleges should gear their CS programs for – not
> the mass of
> semi-interested people who use pre-built libraries
> to create
> uninspired apps.
> 
> "Most of us who got into programming really did it
> because we find it
> fun. We find the intellectual challenge fun. We find
> being faced with
> tricky problems, then figuring out interesting
> algorithmic solutions,
> fun. We find clever data structures that solve some
> interesting
> problem fun."
> 
> "Maybe it's not fun to a bigger audience, but
> computer science
> education should be more about finding those people
> who like that kind
> of fun, and catering to them, rather than [making it
> all easy]."
> 
> "If people find it boring to compute some
> interesting value, then run
> that program and get a value of 42 when it should be
> 83, and figure
> out why they've gotten 42 instead of 83, if they
> find that tedious and
> boring, they really aren't the kind of people we
> need."
> 
>
http://itmanagement.earthweb.com/career/article.php/3722876
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 



      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From gabriel.vieira em gmail.com  Tue Jan 22 08:06:53 2008
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 22 Jan 2008 13:06:53 -0300
Subject: [Cascavel-pm] [JOB] VAGA NA IBM
Message-ID: <83d8367f0801220806u411098d9t369119089ab6e50b@mail.gmail.com>

Está no anúncio:

http://olinux.uol.com.br/news/open_news.phl?id=7226

-- 
Gabriel Vieira

From luismottacampos em yahoo.co.uk  Tue Jan 22 10:09:47 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 22 Jan 2008 19:09:47 +0100
Subject: [Cascavel-pm] Res:  Res:  expressao regular
In-Reply-To: <482519.69802.qm@web31309.mail.mud.yahoo.com>
References: <482519.69802.qm@web31309.mail.mud.yahoo.com>
Message-ID: <4796316B.8050000@yahoo.co.uk>

Patty Silva wrote:
> Bom :D
> meu texto:
> Inicio teste teste teste testetestetesteteste
> testetestetesteteste

Patty, larga a mão de ser preguiçosa, escreve o código e para de 
acreditar que com um exemplo incoerente como este eu vou ter motivação 
para te ajudar.

Você nunca nem usou isso para programar, ou teria reparado que está 
faltando o delimitador de final de string, o "Fim" que você cita no 
outro email...

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  Tue Jan 22 10:12:38 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 22 Jan 2008 19:12:38 +0100
Subject: [Cascavel-pm] Res:  Res:  expressao regular
In-Reply-To: <177317.13676.qm@web31305.mail.mud.yahoo.com>
References: <177317.13676.qm@web31305.mail.mud.yahoo.com>
Message-ID: <47963216.5040302@yahoo.co.uk>

Patty Silva wrote:
> Desculpe a msg anterior :D
> nao completei :D
> 
> meu texto:
> Inicio testetestetestetestetesteteste
> testetestetestetestetesteteste
> testetestetestetestetestetesteteste
> testetestetestetestetestetesteteste
> Fim
> Inicio
> teste2teste2teste2teste2teste2teste2teste2
> teste2teste2teste2teste2teste2teste2teste2
> teste2teste2teste2teste2teste2teste2F
> im
> Ini
> cio teste3teste3Fi
> m
> 
> 
> obs: observe que tenho Inicio e fim em linhas diferentes
> pra esse caso serviria o Text::Balanced???

Bom, antes de mais nada, desconsidere a resposta que eu te mandei sobre 
a mensagem anterior. :) Lamento, mas eu vejo uma mensagem de cada vez, e 
procuro responder antes de passar para a próxima, ou eu não volto atrás.

Não, Text::Balanced não serve para você: o teu texto não é "balanced".

Aliás, muito pouca coisa serve neste caso. Acho que a melhor saída é 
comprar um escravo e colocar o dito cujo para arrumar os teus dados de 
uma forma que computadores possam ler.

Agora, se você tiver um exemplo *real* de dados que possa usar... eu 
posso ter uma ou duas sugestões. Ou não.

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  Tue Jan 22 10:44:04 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Tue, 22 Jan 2008 10:44:04 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res:  Res:  expressao regular
Message-ID: <922475.41683.qm@web31302.mail.mud.yahoo.com>

Oi Educado :)
Entao.. eu so nao posto pq eu "programo em perl" a noite :-) e meus arquivos estao em casa
por isso nao posto o exemplo q uso ok?
Nao sou preguicosa :D 


Obrigada :D

----- Mensagem original ----
De: Luis Motta Campos <luismottacampos em yahoo.co.uk>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Terça-feira, 22 de Janeiro de 2008 18:09:47
Assunto: Re: [Cascavel-pm] Res:  Res:  expressao regular

Patty Silva wrote:
> Bom :D
> meu texto:
> Inicio teste teste teste testetestetesteteste
> testetestetesteteste

Patty, larga a mão de ser preguiçosa, escreve o código e para de 
acreditar que com um exemplo incoerente como este eu vou ter
 motivação 
para te ajudar.

Você nunca nem usou isso para programar, ou teria reparado que está 
faltando o delimitador de final de string, o "Fim" que você cita no 
outro email...

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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080122/5c28dbe4/attachment.html 

From luismottacampos em yahoo.co.uk  Tue Jan 22 11:12:39 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 22 Jan 2008 20:12:39 +0100
Subject: [Cascavel-pm] client/servidor
In-Reply-To: <JV1KCH$4655D38C0B572CF2FA67CA3970C3E50E@bol.com.br>
References: <JV1KCH$4655D38C0B572CF2FA67CA3970C3E50E@bol.com.br>
Message-ID: <47964027.7010009@yahoo.co.uk>

Ricardo Stock wrote:
> Bom dia a todos da lista....
> 
> Gente, estou começando a desenvolver uma aplicação cliente/servidor, a 
> primeira que estou fazendo :-) em plataforma win32, porém estou com uma 
> duvida. O servidor parece estar rodando ok,  pois o executo e o mesmo 
> fica aguardando a conexão.

   Lamento, mas acho que você não está prestando atenção. O teu servidor 
"morre" nos primeiros 0.06 segundos de execução (leia detalhes completos 
no anexo).

> Estou iniciando o desenvolvimento de um programa que fara determinadas 
> funções dependendo do comando recebido, mas isto é coisa para o futuro.

Eu sinto cheiro de buraco de segurança grande o bastante para passar a 
torcida do flamengo, paramentada para a final do campeonato, com 
bandeiras e tudo. Recomendo que você não faça isso, ou, se fizer, não 
diga que eu não te avisei. ;)

> O erro s da, ao que parece quando o cliente tenta enviar a mensagem de 
> teste, me da a mensagem que nao foi possivel chamar o metodo send, ai, a 
> duvida, pois, não sei o que fazer....
> 
>  segue o código abaixo. Caso alguma sugestão, sera de bom agrado
> 
[código horrível e sem formatação cortado daqui]
Que vergonha!
Você nem mesmo testou esta coisa!
O teu programa de servidor não funciona.

Os logs em anexo são a minha sessão de debugging sobre o teu código de 
servidor.

Teu problema pode ser dividido em partes:

1. Você não sabe teoria (bom, ninguém nasce sabendo). Leia "Redes de 
Computadores" do Andrew Tanenbaum (ISBN 8535211853), antes de tentar 
escrever programas "cliente-servidor". Eu garanto que você não vai se 
arrepender.

2. Você não sabe usar o CPAN: Procure por Net::Daemon, ele resolve 60% 
dos seus problemas de programação. Depois, você vai precisar escrever um 
cliente, mas isso é mais simples.

3. "use strict" e "use warnings" vão mostrar os erros do seu código mais 
facilmente. Não deixe nunca de usar estes pragmas da linguagem perl no 
início dos seus programas.

4. Não reinvente a roda. Se você não tem um bom motivo para escrever um 
cliente e um servidor você mesmo, não faça isso. "Curiosidade" e 
"oportunidade de aprendizado" ou "projeto pessoal" são boas desculpas, 
contanto que o código (simplista, cagado) que sair das suas primeiras 
100 tentativas não chegue nem perto de um sistema sério (seja comercial 
ou não).

E, se você prometer ignorar o meu pequeno acesso de megalomania, eu 
implementei um servidor HTTP e postei o código no meu blog. Ele pode te 
dar idéias interessantes sobre como transmitir dados simples 
(possivelmente codificados usando o módulo "YAML"?) e que podem ser 
utilizados com os clientes HTTP que o módulo LWP já implementa. A URL é 
esta aqui:

http://spaansefilosoof.blogspot.com/2007/05/eu-sou-o-maior-do-mundo.html

Por último, para você não esquecer: TESTE SEUS PROGRAMAS ANTES DE 
PERGUNTAR. Aqui, apenas se posta código sem testar se você está 
respondendo para alguém (e, neste caso, a responsabilidade é da pessoa 
que lê a resposta). Se você faz perguntas, por favor, teste.

Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : debug.log
Tipo  : text/x-log
Tam   : 1824 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20080122/68997afb/attachment-0001.bin 

From luismottacampos em yahoo.co.uk  Tue Jan 22 11:18:04 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 22 Jan 2008 20:18:04 +0100
Subject: [Cascavel-pm] Res:  Res:  Res:  expressao regular
In-Reply-To: <922475.41683.qm@web31302.mail.mud.yahoo.com>
References: <922475.41683.qm@web31302.mail.mud.yahoo.com>
Message-ID: <4796416C.4060302@yahoo.co.uk>

Patty Silva wrote:
> Oi Educado :)

Oies. :) Bom, eu não tenho fama de "Ogro" sem motivo...

> Entao.. eu so nao posto pq eu "programo em perl" a noite :-) e meus 
> arquivos estao em casa por isso nao posto o exemplo q uso ok?

OK, sem problemas. Eu posso esperar que você chegue em casa.

Mas, por favor, poste o exemplo certo: assim, eu posso tentar encontrar 
uma solução que se adeque mais ao seu problema, e te recomendar 
websites, documentos, e livros onde você pode aprender as técnicas de 
programação relacionadas com a solução do seu problema.

Agora, se você posta apenas "exemplos de mentira" sem se importar muito 
com o que faz, eu não posso ajudar você a aprender mais.

> Nao sou preguicosa :D

Se você trabalha durante o dia e ainda encontra tempo para estudar Perl 
durante a noite, realmente não é preguiçosa. Você ganhou o meu respeito 
com isso. Eu retiro o que eu disse. E olha que eu não digo isso para 
qualquer um.

Aguardo o exemplo e o teu código, para eu dar uma espiada em como você 
está tentando resolver isso.

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

From fernandes em cpan.org  Tue Jan 22 11:38:50 2008
From: fernandes em cpan.org (Rodrigo Panchiniak Fernandes)
Date: Tue, 22 Jan 2008 11:38:50 -0800 (PST)
Subject: [Cascavel-pm] DBI
In-Reply-To: <47950136.9050508@yahoo.co.uk>
Message-ID: <977483.49911.qm@web44813.mail.sp1.yahoo.com>

Grande Luis,

Muito obrigado pela explicação.

Só não entendi:

> Mas você tem de olhar o meu outro email para saber
> como fazer loops e 
> mostrar mais valores usando o DBI - 

Qual outro e-mail? Porque, sim, eu sei que você sabe
que eu sei fazer loops, mas que eu não sei como fazer
isto usando o DBI de forma rápida e eficiente.

E também não entendi perfeitamente o que disseste
abaixo:

> ... você está
> selecionando todos os 
> valores que deseja, mas está mostrando apenas o
> primeiro.

Acho que estou selecionando, usando a tua sugestão,
apenas as maçãs. Ou seja, se tenho,

maçã, vermelha
maçã, verde
morango, azul
laranja, amarela
pera, fucsia
pera, preta

Obtenho, obviamente,

maçã, vermelha
maçã, verde

Mas precisava de 

maçã, vermelha
maçã, verde
pera, fucsia
pera, preta

Queres que eu ponha um loop do tipo fruta.nome = 'x',
onde x varia da primeira fruta.nome à última? É isto
que ensina o teu outro e-mail?

Obrigado novamente e Putamplexos para ti também, o que
quer que isto queira dizer! :)

Rodrigo


--- Luis Motta Campos <luismottacampos em yahoo.co.uk>
wrote:

> Rodrigo Panchiniak Fernandes wrote:
> > Obrigado pela dica, Márcio,
> > 
> > Mas ainda não consegui exatamente o que queria.
> > Gostaria de ver "apenas as linhas nas quais ocorre
> a
> > repetição", porém, todas as linhas nas quais
> ocorre a
> > repetição. GROUP BY coluna1 mostra apenas a última
> > ocorrência do grupo. Ou seja, se tenho:
> > 
> > maçã, verde
> > maçã, vermelha
> > morango, azul
> > 
> > Obtenho
> > 
> > maçã, vermelha.
> > 
> > Mas eu precisava de
> > 
> > maçã, verde
> > maçã, vermelha 
> 
> Agora é fácil.
> 
> SELECT * FROM fruta WHERE fruta.nome = 'maçã' ORDER
> BY fruta.cor;
> 
> Mas você tem de olhar o meu outro email para saber
> como fazer loops e 
> mostrar mais valores usando o DBI - você está
> selecionando todos os 
> valores que deseja, mas está mostrando apenas o
> primeiro.
> 
> 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
> 



      ____________________________________________________________________________________
Be a better friend, newshound, and 
know-it-all with Yahoo! Mobile.  Try it now.  http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ 



From acid06 em gmail.com  Tue Jan 22 11:57:21 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 22 Jan 2008 17:57:21 -0200
Subject: [Cascavel-pm] client/servidor
In-Reply-To: <47964027.7010009@yahoo.co.uk>
References: <JV1KCH$4655D38C0B572CF2FA67CA3970C3E50E@bol.com.br>
	<47964027.7010009@yahoo.co.uk>
Message-ID: <9a08c9b40801221157w306ffeccwec37ab359721403c@mail.gmail.com>

2008/1/22 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
>    Lamento, mas acho que você não está prestando atenção. O teu servidor
> "morre" nos primeiros 0.06 segundos de execução (leia detalhes completos
> no anexo).

Por algum motivo, ele escreveu "Listem" com "m".
Corrigindo isso, o programa pelo menos roda.

-Nilson Santos F. Jr.

From luismottacampos em yahoo.co.uk  Tue Jan 22 12:38:35 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 22 Jan 2008 21:38:35 +0100
Subject: [Cascavel-pm] DBI
In-Reply-To: <977483.49911.qm@web44813.mail.sp1.yahoo.com>
References: <977483.49911.qm@web44813.mail.sp1.yahoo.com>
Message-ID: <4796544B.90609@yahoo.co.uk>

Rodrigo Panchiniak Fernandes wrote:
>> Mas você tem de olhar o meu outro email para saber
>> como fazer loops e 
>> mostrar mais valores usando o DBI - 
> 
> Qual outro e-mail?

Este:

http://mail.pm.org/pipermail/cascavel-pm/2008-January/012654.html

> Porque, sim, eu sei que você sabe
> que eu sei fazer loops, mas que eu não sei como fazer
> isto usando o DBI de forma rápida e eficiente.

"Rápido e eficiente" é meio vago. Se você alocar um /cursor/ na sua base 
de dados (um SELECT já faz isso) e usar um while() aqui para puxar um 
registro de cada vez, não está bom?

Eu uso assim, e para mim, funciona na maior parte dos casos. ;)

> E também não entendi perfeitamente o que disseste
> abaixo:
> 
>> ... você está
>> selecionando todos os 
>> valores que deseja, mas está mostrando apenas o
>> primeiro.
> 
> Acho que estou selecionando, usando a tua sugestão,
> apenas as maçãs. Ou seja, se tenho,
> 
> maçã, vermelha
> maçã, verde
> morango, azul
> laranja, amarela
> pera, fucsia
> pera, preta
> 
> Obtenho, obviamente,
> 
> maçã, vermelha
> maçã, verde
> 
> Mas precisava de 
> 
> maçã, vermelha
> maçã, verde
> pera, fucsia
> pera, preta

Ah! Certo! Desculpe, é a minha compreensão do seu problema que ainda não 
está muito clara. Você quer uma lista de *tudo*, mas ordenada por 
*fruta*, certo?

Assim:

SELECT *
FROM fruta
ORDER BY fruta.nome, fruta.cor

E um loop para exibir os dados:

while( my $row = $sth->fetchrow_arrayref ){
   print @$row; # ou use seu código de output preferido
}

> Queres que eu ponha um loop do tipo fruta.nome = 'x',
> onde x varia da primeira fruta.nome à última? É isto
> que ensina o teu outro e-mail?

Nope. O email anterior tentava resolver o problema errado - isso é o que 
a gente ganha por usar texto para tentar explicar coisas complicadas. ;)

> Obrigado novamente e Putamplexos para ti também, o que
> quer que isto queira dizer! :)

   Argh... ok, eu criei um FAQ para isso:

   http://www.bitbistro.com/~champs/putamplexos.html

   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  Tue Jan 22 12:40:34 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 22 Jan 2008 21:40:34 +0100
Subject: [Cascavel-pm] client/servidor
In-Reply-To: <9a08c9b40801221157w306ffeccwec37ab359721403c@mail.gmail.com>
References: <JV1KCH$4655D38C0B572CF2FA67CA3970C3E50E@bol.com.br>	<47964027.7010009@yahoo.co.uk>
	<9a08c9b40801221157w306ffeccwec37ab359721403c@mail.gmail.com>
Message-ID: <479654C2.2010107@yahoo.co.uk>

Nilson Santos Figueiredo Junior wrote:
> 2008/1/22 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
>>    Lamento, mas acho que você não está prestando atenção. O teu servidor
>> "morre" nos primeiros 0.06 segundos de execução (leia detalhes completos
>> no anexo).
> 
> Por algum motivo, ele escreveu "Listem" com "m".
> Corrigindo isso, o programa pelo menos roda.

Olha... uma coisa que eu não tinha visto!
Obrigado, Nílson!

Putamplexos (agora, com explicação em 
http://www.bitbistro.com/~champs/putamplexos.html)
-- 
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  Tue Jan 22 15:08:02 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 23 Jan 2008 00:08:02 +0100
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <186619.32854.qm@web31302.mail.mud.yahoo.com>
References: <186619.32854.qm@web31302.mail.mud.yahoo.com>
Message-ID: <47967752.5000507@yahoo.co.uk>

Patty Silva wrote:
> Ola Luis :)
> 
> esta ai meu arquivo:
[arquivo da Patty]

> Quero recuperar tudo que esta entre 91700 ate asdf porem os que nao 
> estiverem eu quero recuperar tb colocando em outro array

Bom, o programa em anexo ainda não faz tudo o que você quer: falta
separar os dados encontrados "dentro" e "fora" dos marcadores "91700" e
"asdf" em dois arrays distintos... eu vou deixar esta parte para você
brincar, e, se você quiser alguma idéia, eu aconselho a ler o "perldoc
perlre", o manual de expressões regulares do Perl. :)

> Eu fiz lendo byte a byte pq dai eu consigo recuperar a sequencia...

Opa! Você fez do jeito mais complicado!
Será que você me mostraria o teu código? Eu gostaria de ler - quem sabe
até posso melhorar alguma coisa no meu programa olhando o seu? :)

> essa foi uma forma q fiz.

É essa a idéia: TIMTOWTDI (There Is More Than One Way To Do It) - sempre
tem mais de um jeito de fazer...

> esta quase 100% so falta eu conseguir imprimir aqueles que nao estao
>  entre o 91700 ao asdf quando falo aqueles que nao estao.. quero
> dizer aqueles que tem o 91700 porem nao tem o asdf e aquele que nao
> tem o 91700 e tem o asdf

Eu acho que compreendi.
Veja se a minha solução te dá idéias. :)
Se você tiver dificuldade de entender, por favor não se acanhe, e pergunte.

Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : patty-didatico.pl
Tipo  : application/x-perl
Tam   : 2041 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20080123/d4b24031/attachment.bin 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : patty-elegante.pl
Tipo  : application/x-perl
Tam   : 1142 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20080123/d4b24031/attachment-0001.bin 

From luismottacampos em yahoo.co.uk  Tue Jan 22 15:18:30 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 23 Jan 2008 00:18:30 +0100
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <487551.11724.qm@web31302.mail.mud.yahoo.com>
References: <487551.11724.qm@web31302.mail.mud.yahoo.com>
Message-ID: <479679C6.2070002@yahoo.co.uk>

Patty Silva wrote:
> Luis
> fazendo com expressao regular tb da certo.. so que nao estou conseguindo 
> recuperar o que nao casa com a expressao :)
> pode dar uma ajuda?
> 
> 1-> eu leio o arquivo byte a byte e insiro em uma variavel...

> my $acum;
> while( my $arq = <*.teste> )
> {
>        open(FH, "<$arq") or die("Unable to open file");
>        while((my $byte = getc(FH)) ne "")
>        {
>               $acum=$acum.$byte;
>     }
> }

Argh!!! O trecho do while(), acima, é feio. Alguém pode por favor 
escrever um bom leitor de arquivos inteiros para a Patty?

eu uso:

my $data;
while( my $filename = glob( q{*.teste} ) ){
   open my $file, $filename
     and do { local $/ = undef; $data .= <$file>; }
     and close $file
     or die $!;
}

> my @dados = ($acum =~ /(9\s?1\s?7\s?0\s?0\s?.*?\s?as?s\s?d\s?f)/gis);  
> -> aqui eu recupero os valores entre o 91700 e asdf e coloco no array
> porem eu quero recuperar os que nao " casa"  com a expressao
> como posso fazer isso?

:) eu estava pensando no mesmo problema, agora há pouco...
Você está indo bem, precisa apenas de um empurrãozinho. Leia o meu 
código (acabei de postar), e depois leia

http://perldoc.perl.org/perlre.html#'(?{-code-})'

(sim, eu sei, o finalzinho desta URL é estranho, mas é a funcionalidade 
que você está procurando... )

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

From gabriel.vieira em gmail.com  Tue Jan 22 16:03:23 2008
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Tue, 22 Jan 2008 21:03:23 -0300
Subject: [Cascavel-pm] [Oportunidades][RJ][5 Vagas TI] Analista PLSql(Oracle)
In-Reply-To: <357559.58767.qm@web37315.mail.mud.yahoo.com>
References: <357559.58767.qm@web37315.mail.mud.yahoo.com>
Message-ID: <83d8367f0801221603l5e1ccffayf9786a87b9886ed@mail.gmail.com>

Repassando da lista PerlBR
------------------------------------

Caros,



Estamos com algumas oportunidades de trabalho numa empresa de Telcom
no Rio de Janeiro. Conforme perfil abaixo:



 Cargo: Analista PLSql(Oracle)
 Skill Desejado: Migração, Senioridade em PLSql e Noções de Unix.
 Nível: Pleno e Senior



Todas as Vagas segue ao formato abaixo:
 Contratação:  Pessoa Jurídica.
 Taxa: À Combinar.
 Duração: Indeterminado.



Aos interessados que se enquadrem no perfil, enviem as informações
abaixo para o endereço rh em ecase.com.br :
 - CV Atualizado;
 - Valor Horas Atual;
 - Disponibilidade;
 - Area pretendida.



Abraços,  FlavioSilva.


-- 
Gabriel Vieira

From nferraz em gmail.com  Tue Jan 22 18:07:14 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 23 Jan 2008 02:07:14 +0000
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <479679C6.2070002@yahoo.co.uk>
References: <487551.11724.qm@web31302.mail.mud.yahoo.com>
	<479679C6.2070002@yahoo.co.uk>
Message-ID: <604cec170801221807s3a46df0xe5cbda20e7b2c885@mail.gmail.com>

> Argh!!! O trecho do while(), acima, é feio. Alguém pode por favor
> escrever um bom leitor de arquivos inteiros para a Patty?
>
> eu uso:
>
> my $data;
> while( my $filename = glob( q{*.teste} ) ){
>    open my $file, $filename
>      and do { local $/ = undef; $data .= <$file>; }
>      and close $file
>      or die $!;
> }

open and do and close or die ???

Eu prefiro o tradicional...

open my $file, $filename or die $!;
$data .= do { local $/; <$file>; }
close $file;

From acid06 em gmail.com  Tue Jan 22 19:27:18 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 23 Jan 2008 01:27:18 -0200
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <479679C6.2070002@yahoo.co.uk>
References: <487551.11724.qm@web31302.mail.mud.yahoo.com>
	<479679C6.2070002@yahoo.co.uk>
Message-ID: <9a08c9b40801221927me6d2e94u14987f053f2fb075@mail.gmail.com>

2008/1/22 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> Argh!!! O trecho do while(), acima, é feio. Alguém pode por favor
> escrever um bom leitor de arquivos inteiros para a Patty?
>
> eu uso:
>
> my $data;
> while( my $filename = glob( q{*.teste} ) ){
>    open my $file, $filename
>      and do { local $/ = undef; $data .= <$file>; }
>      and close $file
>      or die $!;
> }

Sinceramente, o seu glob() é muito mais feio que o dela.

Mas enfim, parem de reinventar a roda:

  use File::Slurp qw/slurp/;
  my $data = slurp('filename');

É mais legível *e* ainda ganharia de vocês se fosse uma competição de golf. ;-)

-Nilson Santos F. Jr.

From wendelscardua em gmail.com  Wed Jan 23 02:14:21 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Wed, 23 Jan 2008 08:14:21 -0200
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <9a08c9b40801221927me6d2e94u14987f053f2fb075@mail.gmail.com>
References: <487551.11724.qm@web31302.mail.mud.yahoo.com>
	<479679C6.2070002@yahoo.co.uk>
	<9a08c9b40801221927me6d2e94u14987f053f2fb075@mail.gmail.com>
Message-ID: <726229b50801230214t3b346376mb69a159ecc51e67c@mail.gmail.com>

On Jan 23, 2008 1:27 AM, Nilson Santos Figueiredo Junior <acid06 em gmail.com>
wrote:

> Mas enfim, parem de reinventar a roda:
>
>  use File::Slurp qw/slurp/;
>  my $data = slurp('filename');
>
> É mais legível *e* ainda ganharia de vocês *se fosse uma competição de
> golf*. ;-)
>
>
Exceto que em golf não vale usar módulos ;-)

[]s
Wendel
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080123/4011bf2c/attachment.html 

From luismottacampos em yahoo.co.uk  Wed Jan 23 02:42:14 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 23 Jan 2008 11:42:14 +0100
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <604cec170801221807s3a46df0xe5cbda20e7b2c885@mail.gmail.com>
References: <487551.11724.qm@web31302.mail.mud.yahoo.com>	<479679C6.2070002@yahoo.co.uk>
	<604cec170801221807s3a46df0xe5cbda20e7b2c885@mail.gmail.com>
Message-ID: <47971A06.6000307@yahoo.co.uk>

Nelson Ferraz wrote:
> open and do and close or die ???
> Eu prefiro o tradicional...
> 
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;

Ok, ok, mas que é bonitinho, é... :)

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 Jan 23 07:20:54 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 23 Jan 2008 16:20:54 +0100
Subject: [Cascavel-pm] expressao regular
In-Reply-To: <702879.16493.qm@web31314.mail.mud.yahoo.com>
References: <702879.16493.qm@web31314.mail.mud.yahoo.com>
Message-ID: <47975B56.5050806@yahoo.co.uk>

Patty, por favor mantenha a conversa na lista de discussão, sim? :)

Patty Silva wrote:
> Luis..
> tem como eu armazenar em mais de um array a er??
> 
> my (@dados1, em dados) = ($acum =~
> /(.*?)(9\s?1\s?7\s?0\s?0\s?.*?\s?as?s\s?d\s?f)/gis);  

Claro. Mas o Perl não vai conseguir fazer DWIM, e vai colocar tudo no
primeiro array (@dados1). Como é que você vai dizer para o Perl quando
parar de colocar dados em @dados1 e começar a colocar dados em @dados?

> Essa expressao esta me dando dor de cabeça.. aakakkaa :D

Aspirina e chá ajuda. E olha que esta é simples.

> me explique o $'   --> ele pega o que nao foi encontrado.. porem somente
> o ultimo

Argh! RTFM. Isto está explicado em "perlvar".

Mas você não está seguindo o que eu te recomendei. Use a funcionalidade
documentada em

http://perldoc.perl.org/perlre.html#'(?{-code-})'

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  Thu Jan 24 01:56:12 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 24 Jan 2008 01:56:12 -0800 (PST)
Subject: [Cascavel-pm] Res:  expressao regular
Message-ID: <762786.9315.qm@web31303.mail.mud.yahoo.com>

Qual a diferenca em colocar 

open(FILE,"<$filename).....

de

open my $file,"<",$filename


e quando eu faco:

open my $file, $filename or die $!;
$data .= do { local $/; <$file>; }
close $file;



da erro de sintaxe: 
syntax error at test.pl line 27, near "close"

Obrigada ;)


----- Mensagem original ----
De: Nelson Ferraz <nferraz em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quarta-feira, 23 de Janeiro de 2008 2:07:14
Assunto: Re: [Cascavel-pm] expressao regular

> Argh!!! O trecho do while(), acima, é feio. Alguém pode por favor
> escrever um bom leitor de arquivos inteiros para a Patty?
>
> eu uso:
>
> my $data;
> while( my $filename = glob( q{*.teste} ) ){
>    open my $file, $filename
>      and do { local $/ = undef; $data .= <$file>; }
>      and close $file
>      or die $!;
> }

open and do and close or die ???

Eu prefiro o tradicional...

open my $file, $filename or die $!;
$data .= do { local $/; <$file>; }
close $file;
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/18eeed9f/attachment.html 

From rafamv1 em ig.com.br  Thu Jan 24 02:40:55 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 07:40:55 -0300
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <762786.9315.qm@web31303.mail.mud.yahoo.com>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
Message-ID: <3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>

O
open (FILE, '<', "$filename");

é mais legível.
Significa que você tem de usar
$filehandle, $modo, $arquivo, ao invés de
apenas open (FILE, "<$filename");



Em 24/01/08, Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
>  Qual a diferenca em colocar
>
> open(FILE,"<$filename).....
>
> de
>
> open my $file,"<",$filename
>
>
> e quando eu faco:
>
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;
>
>
>
> da erro de sintaxe:
> syntax error at test.pl line 27, near "close"
>
> Obrigada ;)
>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/9495d056/attachment.html 

From rafamv1 em ig.com.br  Thu Jan 24 02:48:47 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 07:48:47 -0300
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
Message-ID: <3e759d2b0801240248p5fe3bcb5j228f613e49e3f307@mail.gmail.com>

e quando eu faco:

1- open my $file, $filename or die $!;
2- $data .= do { local $/; <$file>; }
3- close $file;

da erro de sintaxe:
syntax error at test.pl line 27, near "close"

Dê uma olhada com mais atenção na linha dois....




2008/1/24, Rafael Lebrao Martins <rafamv1 em ig.com.br>:
>
> O
> open (FILE, '<', "$filename");
>
> é mais legível.
> Significa que você tem de usar
> $filehandle, $modo, $arquivo, ao invés de
> apenas open (FILE, "<$filename");
>
>
>
> Em 24/01/08, Patty Silva <ptfzs em yahoo.com.br> escreveu:
> >
> >  Qual a diferenca em colocar
> >
> > open(FILE,"<$filename).....
> >
> > de
> >
> > open my $file,"<",$filename
> >
> >
> > e quando eu faco:
> >
> > open my $file, $filename or die $!;
> > $data .= do { local $/; <$file>; }
> > close $file;
> >
> >
> >
> > da erro de sintaxe:
> > syntax error at test.pl line 27, near "close"
> >
> > Obrigada ;)
> >
> >
> >
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/8401cabc/attachment.html 

From thomas em tcnet.com.br  Thu Jan 24 03:55:16 2008
From: thomas em tcnet.com.br (Thomas Britis)
Date: Thu, 24 Jan 2008 09:55:16 -0200
Subject: [Cascavel-pm] Res:  expressao regular
In-Reply-To: <762786.9315.qm@web31303.mail.mud.yahoo.com>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
Message-ID: <47987CA4.1010207@tcnet.com.br>

Falta o ;
$data = do { local $/; <$file>; };


Patty Silva wrote:
> Qual a diferenca em colocar
> 
> open(FILE,"<$filename).....
> 
> de
> 
> open my $file,"<",$filename
> 
> 
> e quando eu faco:
> 
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;
> 
> 
> 
> da erro de sintaxe:
> syntax error at test.pl line 27, near "close"
> 
> Obrigada ;)
> 
> 
> ----- Mensagem original ----
> De: Nelson Ferraz <nferraz em gmail.com>
> Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Enviadas: Quarta-feira, 23 de Janeiro de 2008 2:07:14
> Assunto: Re: [Cascavel-pm] expressao regular
> 
>  > Argh!!! O trecho do while(), acima, é feio. Alguém pode por favor
>  > escrever um bom leitor de arquivos inteiros para a Patty?
>  >
>  > eu uso:
>  >
>  > my $data;
>  > while( my $filename = glob( q{*.teste} ) ){
>  >    open my $file, $filename
>  >      and do { local $/ = undef; $data .= <$file>; }
>  >      and close $file
>  >      or die $!;
>  > }
> 
> open and do and close or die ???
> 
> Eu prefiro o tradicional...
> 
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> ------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail 
> <http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>, 
> o único sem limite de espaço para armazenamento!
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> 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 luismottacampos em yahoo.co.uk  Thu Jan 24 04:18:55 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 24 Jan 2008 13:18:55 +0100
Subject: [Cascavel-pm] Res:  expressao regular
In-Reply-To: <762786.9315.qm@web31303.mail.mud.yahoo.com>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
Message-ID: <4798822F.1060804@yahoo.co.uk>

Patty Silva wrote:
> Qual a diferenca em colocar
> 
> open(FILE,"<$filename).....

Isso é erro de sintaxe: você tem de abrir e fechar as aspas. ;)

open( FILE, "<$filename" );

custa uma interpolação inútil e obriga o open() a olhar o nome do
arquivo para saber o que você quer - não é muito conveniente.

Também tem o problema de legibilidade, mas este é menor, eu acho.

> de
> 
> open my $file,"<",$filename

esta é a minha forma predileta. Mas eu quase nunca uso (") quando quero
colocar literais do tipo string no meu código. Eu normalmente uso o
operador q//, quando é uma palavra ou frase, e aspas simples (') quando
é apenas um caracter. Assim, evito a possibilidade de interpolações
acidentais dentro das minhas strings literais. ;)

Note também que FILE (no primeiro exemplo) é uma /bareword/, uma prática
que a gente está recomendando que as pessoas abandonem faz muitos anos.
O equivalente "my $file" é considerado boa prática de programação, além
de ser mais seguro e legível.

Não se esqueça de que você precisa tratar erros, quando abre um arquivo.

> e quando eu faco:
> 
> open my $file, $filename or die $!;
> $data .= do { local $/; <$file>; }
> close $file;
> 
> da erro de sintaxe:
> syntax error at test.pl line 27, near "close"

Sim, ele disse "perto do comando 'close()'": quer dizer que a linha
anterior precisa de um ';' (depois do bloco do "do"):

open my $file, $filename or die $!;
$data .= do { local $/; <$file>; } ;
close $file;

Consegue ver a diferença na linha do meio?

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  Thu Jan 24 04:28:45 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 24 Jan 2008 13:28:45 +0100
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
Message-ID: <4798847D.9040700@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> O
> open (FILE, '<', "$filename");
>  
> é mais legível.
> Significa que você tem de usar
> $filehandle, $modo, $arquivo, ao invés de
> apenas open (FILE, "<$filename");

Ah, tolinho... "ser mais legível" não é desculpa para nada. ;) A gente
normalmente tenta justificar este tipo de coisa dizendo que é melhor ou
pior em termos de práticas de programação.

Legibilidade é apenas uma componente do que a gente chama "boas-praticas
de programação".

Saber o que você está fazendo é mais importante do que fazer "direito".
Perl não foi projetado para gente que não pensa no que faz. Cuidado ao
programar. ;)

Por exemplo, eu gosto da variante

my $data;
open my $file, $filename
  and do { local $/ = undef; $data = <$file>; }
  and close $file
  or die $!
;

Claro, isso não se encaixa nos "idiomas" mais comuns de Perl. O que não
quer dizer que está errado, é apenas outra forma de fazer. Você consegue
me apontar uma vantagem e uma desvantagem na minha variante?

A desvantagem eu vou apontar para você: ela não é "didática". A Patty
tentou cortar e colar o meu código, mas se esqueceu de usar um ';' no
final da linha do "do()", por que ela não entendeu o código antes de usar.

E a vantagem? (eu estou esperando uma resposta)

Em outras palavras, boas práticas são "linhas-guia" que podem ou não
ajudar a gente a escrever código de boa qualidade. Mas sabedoria para
saber quando e conhecimento técnico para quebrar as regras também faz
parte do conjunto de ferramentas de um bom programador Perl.

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


From thomas em tcnet.com.br  Thu Jan 24 04:35:17 2008
From: thomas em tcnet.com.br (Thomas Britis)
Date: Thu, 24 Jan 2008 10:35:17 -0200
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <4798847D.9040700@yahoo.co.uk>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
	<4798847D.9040700@yahoo.co.uk>
Message-ID: <47988605.60900@tcnet.com.br>

Luis Motta Campos wrote:
> E a vantagem? (eu estou esperando uma resposta)
	A praticidade de usar um único die() que vale para todas as execuções 
anteriores até o open()?
-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA

From rafamv1 em ig.com.br  Thu Jan 24 04:55:20 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 09:55:20 -0300
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <47988605.60900@tcnet.com.br>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
	<4798847D.9040700@yahoo.co.uk> <47988605.60900@tcnet.com.br>
Message-ID: <3e759d2b0801240455t329dbeb6y6fd425bf93e93ff0@mail.gmail.com>

Luis Motta Campos wrote:
> E a vantagem? (eu estou esperando uma resposta)

Bom dia, Luis. Eu pesquisei aqui, mas não descobri a vantagem...
Você pode me explicar?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/0c9df218/attachment.html 

From luismottacampos em yahoo.co.uk  Thu Jan 24 05:48:23 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 24 Jan 2008 14:48:23 +0100
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <3e759d2b0801240455t329dbeb6y6fd425bf93e93ff0@mail.gmail.com>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>	<4798847D.9040700@yahoo.co.uk>
	<47988605.60900@tcnet.com.br>
	<3e759d2b0801240455t329dbeb6y6fd425bf93e93ff0@mail.gmail.com>
Message-ID: <47989727.3010400@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> Luis Motta Campos wrote:
>> E a vantagem? (eu estou esperando uma resposta)
>  
> Bom dia, Luis. Eu pesquisei aqui, mas não descobri a vantagem...
> Você pode me explicar?

:) Você não consegue pensar em uma? O Thomas pensou, e apareceu uma
coisa que ele gosta...

Você pode ter alguma coisa que te chama a atenção, e que você goste.
Isso é uma vantagem.

Eu gosto por que torna a leitura mais "fluida", e a execução do código
acontece aproveitando os valores de retorno das funções (o que pode ser
considerado boa prática de programação).

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


From wendelscardua em gmail.com  Thu Jan 24 07:26:52 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Thu, 24 Jan 2008 13:26:52 -0200
Subject: [Cascavel-pm] Res: expressao regular
In-Reply-To: <47989727.3010400@yahoo.co.uk>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
	<4798847D.9040700@yahoo.co.uk> <47988605.60900@tcnet.com.br>
	<3e759d2b0801240455t329dbeb6y6fd425bf93e93ff0@mail.gmail.com>
	<47989727.3010400@yahoo.co.uk>
Message-ID: <726229b50801240726l5a228e31w6d3b354afa301f4b@mail.gmail.com>

Consegui pensar em mais uma "desvantagem": o arquivo não pode estar vazio.

2008/1/24 Luis Motta Campos <luismottacampos em yahoo.co.uk>:

>
> Eu gosto por que torna a leitura mais "fluida", e a execução do código
> acontece aproveitando os valores de retorno das funções (o que pode ser
> considerado boa prática de programação).
>
>
>
[]s
Wendel
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/a07bceaa/attachment.html 

From nferraz em gmail.com  Thu Jan 24 07:59:52 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 24 Jan 2008 15:59:52 +0000
Subject: [Cascavel-pm] OFF: Bill Gates Issues Call For Kinder Capitalism
Message-ID: <604cec170801240759s14b9bc0cy77999b1709fc9a05@mail.gmail.com>

Off topic, mas interessante.

"Free enterprise has been good to Bill Gates. But today, the Microsoft
Corp. chairman will call for a revision of capitalism.

In a speech at the World Economic Forum in Davos, Switzerland, the
software tycoon plans to call for a "creative capitalism" that uses
market forces to address poor-country needs that he feels are being
ignored.

"We have to find a way to make the aspects of capitalism that serve
wealthier people serve poorer people as well," Mr. Gates will tell
world leaders at the forum, according to a copy of the speech seen by
The Wall Street Journal."

http://online.wsj.com/article/SB120113473219511791.html?mod=djemalertTECH

-- 
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 luismottacampos em yahoo.co.uk  Thu Jan 24 08:40:10 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 24 Jan 2008 17:40:10 +0100
Subject: [Cascavel-pm] IDIOMA ERRADO [Was: expressao regular]
In-Reply-To: <4798847D.9040700@yahoo.co.uk>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
	<4798847D.9040700@yahoo.co.uk>
Message-ID: <4798BF6A.9000202@yahoo.co.uk>

Luis Motta Campos wrote:
> my $data;
> open my $file, $filename
>   and do { local $/ = undef; $data = <$file>; }
>   and close $file
>   or die $!
> ;

Bom, quando a gente está errado, tem de admitir. Eu troquei as bolas
aqui, e isso precisa ser reparado.

Este idioma está previsto para funcionar no 5.12, mas AINDA NÃO É PERL
VÁLIDO (até a versão 5.10).

O problema é que as declarações de variáveis feitas com "my()" apenas
são "vistas" pelo interpretador *depois* *que* *o* */statement/*
*termina*. Isso quer dizer que, no idioma acima, $file "não existe" até
ser tarde demais (quando o /statement/ termina, depois dos "and"s e "or
die").

Claro, o perdido aqui deveria parar de ler as especificações de
funcionalidades futuras achando que está lendo documentação. ;)

O melhor approach para isso (segundo o Abigail, do Amsterdam.pm) é

my $data = do {
  open( my $file, $filename ) or die $!;
  local $/;
  my $content = <$file>;
  close $file or die $!;
  return $content;
};

As minhas desculpas pela superposição quântica de funcionalidades.
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  Thu Jan 24 08:40:18 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 24 Jan 2008 08:40:18 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res: expressao regular
Message-ID: <602257.94283.qm@web31314.mail.mud.yahoo.com>

Como vc usa Wendel?? :)



----- Mensagem original ----
De: Wendel Scardua <wendelscardua em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 24 de Janeiro de 2008 15:26:52
Assunto: Re: [Cascavel-pm] Res: expressao regular

Consegui pensar em mais uma "desvantagem": o arquivo não pode estar vazio. 

2008/1/24 Luis Motta Campos <luismottacampos em yahoo.co.uk>:




Eu gosto por que torna a leitura mais "fluida", e a execução do código

acontece aproveitando os valores de retorno das funções (o que pode ser
considerado boa prática de programação).





[]s
Wendel






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/29a6d231/attachment.html 

From acid06 em gmail.com  Thu Jan 24 08:45:39 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 24 Jan 2008 14:45:39 -0200
Subject: [Cascavel-pm] IDIOMA ERRADO [Was: expressao regular]
In-Reply-To: <4798BF6A.9000202@yahoo.co.uk>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
	<4798847D.9040700@yahoo.co.uk> <4798BF6A.9000202@yahoo.co.uk>
Message-ID: <9a08c9b40801240845id1bbc88xa3957cbe90f1393e@mail.gmail.com>

2008/1/24 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> O melhor approach para isso (segundo o Abigail, do Amsterdam.pm) é
>
> my $data = do {
>   open( my $file, $filename ) or die $!;
>   local $/;
>   my $content = <$file>;
>   close $file or die $!;
>   return $content;
> };

Eu ainda continuo achando que utilizar o File::Slurp é bem mais
produtivo, simples e claro. ;-)
Além do fato de você estar usando o open() com 2 argumentos, ao invés
do de 3 argumentos.

-Nilson Santos F. Jr.

From fernandesrp em yahoo.com  Thu Jan 24 09:54:12 2008
From: fernandesrp em yahoo.com (Rodrigo Fernandes)
Date: Thu, 24 Jan 2008 09:54:12 -0800 (PST)
Subject: [Cascavel-pm] DBI
In-Reply-To: <4796544B.90609@yahoo.co.uk>
Message-ID: <825257.1998.qm@web44807.mail.sp1.yahoo.com>

Gente, estou me esforçando, mas ainda não cheguei lá.

O que eu tenho é:

(a)
> > 
> > maçã, vermelha
> > maçã, verde
> > morango, azul
> > laranja, amarela
> > pera, fucsia
> > pera, preta
> > 

Disto, o que eu preciso é:

(b)
> > maçã, vermelha
> > maçã, verde
> > pera, fucsia
> > pera, preta

Ou seja, as linhas devem ser recuperadas se e somente
se fruta.mome estão repetidos. A ordem precisaria ser
BY fruta.nome, para que as linhas com a mesma
fruta.nome aparecessem consecutivamente.


[Leia abaixo apenas se quiseres saber detalhes sobre
meu problema real]

Apenas para satisfazer a curiosidade do povo, não
estou trabalhando no inventário da feira. Estou
manipulando um índice lexical criado com
Text::Statistics a partir do corpus da biblioteca
digital do nupill <www.nupill.org>. Sobre este índice
produzi escores tf-icf (term frequency and inverse
collection frequency). O que estou fazendo, agora, é
somar os escores das formas (word forms) repetidas em
dois textos, ou seja, comuns a 2 textos. É por isso
que as linhas devem ser recuperadas se e somente se
contiverem a mesma fruta.nome (no exemplo hortifruti).
Ou seja, as frutas (word forms) devem ser recuperadas
se ocorrerem em mais de uma linha (mais de um texto,
no problema real).    

Abraço,

Rodrigo


--- Luis Motta Campos <luismottacampos em yahoo.co.uk>
wrote:

> Rodrigo Panchiniak Fernandes wrote:
> >> Mas você tem de olhar o meu outro email para
> saber
> >> como fazer loops e 
> >> mostrar mais valores usando o DBI - 
> > 
> > Qual outro e-mail?
> 
> Este:
> 
>
http://mail.pm.org/pipermail/cascavel-pm/2008-January/012654.html
> 
> > Porque, sim, eu sei que você sabe
> > que eu sei fazer loops, mas que eu não sei como
> fazer
> > isto usando o DBI de forma rápida e eficiente.
> 
> "Rápido e eficiente" é meio vago. Se você alocar um
> /cursor/ na sua base 
> de dados (um SELECT já faz isso) e usar um while()
> aqui para puxar um 
> registro de cada vez, não está bom?
> 
> Eu uso assim, e para mim, funciona na maior parte
> dos casos. ;)
> 
> > E também não entendi perfeitamente o que disseste
> > abaixo:
> > 
> >> ... você está
> >> selecionando todos os 
> >> valores que deseja, mas está mostrando apenas o
> >> primeiro.
> > 
> > Acho que estou selecionando, usando a tua
> sugestão,
> > apenas as maçãs. Ou seja, se tenho,
> > 
> > maçã, vermelha
> > maçã, verde
> > morango, azul
> > laranja, amarela
> > pera, fucsia
> > pera, preta
> > 
> > Obtenho, obviamente,
> > 
> > maçã, vermelha
> > maçã, verde
> > 
> > Mas precisava de 
> > 
> > maçã, vermelha
> > maçã, verde
> > pera, fucsia
> > pera, preta
> 
> Ah! Certo! Desculpe, é a minha compreensão do seu
> problema que ainda não 
> está muito clara. Você quer uma lista de *tudo*, mas
> ordenada por 
> *fruta*, certo?
> 
> Assim:
> 
> SELECT *
> FROM fruta
> ORDER BY fruta.nome, fruta.cor
> 
> E um loop para exibir os dados:
> 
> while( my $row = $sth->fetchrow_arrayref ){
>    print @$row; # ou use seu código de output
> preferido
> }
> 
> > Queres que eu ponha um loop do tipo fruta.nome =
> 'x',
> > onde x varia da primeira fruta.nome à última? É
> isto
> > que ensina o teu outro e-mail?
> 
> Nope. O email anterior tentava resolver o problema
> errado - isso é o que 
> a gente ganha por usar texto para tentar explicar
> coisas complicadas. ;)
> 
> > Obrigado novamente e Putamplexos para ti também, o
> que
> > quer que isto queira dizer! :)
> 
>    Argh... ok, eu criei um FAQ para isso:
> 
>    http://www.bitbistro.com/~champs/putamplexos.html
> 
>    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
> 



      ____________________________________________________________________________________
Looking for last minute shopping deals?  
Find them fast with Yahoo! Search.  http://tools.search.yahoo.com/newsearch/category.php?category=shopping


From scvalmei em graaph.arq.br  Thu Jan 24 10:27:52 2008
From: scvalmei em graaph.arq.br (Silvio Almeida)
Date: Thu, 24 Jan 2008 16:27:52 -0200
Subject: [Cascavel-pm] IDIOMA ERRADO [Was: expressao regular]
In-Reply-To: <4798BF6A.9000202@yahoo.co.uk>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>	<4798847D.9040700@yahoo.co.uk>
	<4798BF6A.9000202@yahoo.co.uk>
Message-ID: <4798D8A8.4040402@graaph.arq.br>

Luis Motta Campos wrote:
>> my $data;
>> open my $file, $filename
>>   and do { local $/ = undef; $data = <$file>; }
>>   and close $file
>>   or die $!
>> ;
>>     
> Este idioma está previsto para funcionar no 5.12, mas AINDA NÃO É PERL
> VÁLIDO (até a versão 5.10).
>
> O problema é que as declarações de variáveis feitas com "my()" apenas
> são "vistas" pelo interpretador *depois* *que* *o* */statement/*
> *termina*. Isso quer dizer que, no idioma acima, $file "não existe" até
> ser tarde demais (quando o /statement/ termina, depois dos "and"s e "or
> die").
>   
Sim, mas viagem no futuro à parte, acho que o Wendel estava falando de 
problema ainda mais óbvio: se o arquivo está vazio então o do { } 
retorna falso. O programa morre quando poderia muito bem continuar com 
$data == ''.

Nilson, não gosto muito chamar módulo para fazer algo que eu faça 
"sozinho" em 2 ou 3 linhas. Na minha opinião, o programa vai ficar até 
mais confuso para quem não tem familiaridade com os módulos utilizados. 
Mas esta é apenas minha opinião para este caso.

use CPAN;

-Silvio


From paulo em odos.com.br  Thu Jan 24 11:44:19 2008
From: paulo em odos.com.br (Paulo)
Date: Thu, 24 Jan 2008 16:44:19 -0300
Subject: [Cascavel-pm] Slurp
Message-ID: <4798EA93.50808@odos.com.br>


Eu conheço pouco perl mas concordo com o Nilson, principalmente se a 
questão for eficiência.
Embora tenha o custo de chamar um módulo para uma coisa que pode ser 
feita em poucas linhas, ler arquivos grandes mas que caibam na memória 
disponível pode ser lento.

O Slurp utiliza sysread com blocos (se você não alterar) de tamanho 
1048576 bytes.
A sysread é difícil de superar, além disso o módulo pode fornecer o 
retorno como uma referência o que evita a atribuição a um scalar.

Apenas como ilustração segue o trecho que define o tamanho default do 
bloco e o while com a chamada da sysread.
Retirado do fonte do módulo Slurp.pm.

...
$blk_size = $args{'blk_size'} || 1024 * 1024 ;
...
while( 1 ) {
    my $read_cnt = sysread( $read_fh, ${$buf_ref}, $size_left, length 
${$buf_ref} ) ;
       if ( defined $read_cnt ) {
           last if $read_cnt == 0 ;
           next if $blk_size ;
           $size_left -= $read_cnt ;
           last if $size_left <= 0 ;
           next ;
       }
       @_ = ( \%args, "read_file '$file_name' - sysread: $!");
       goto &_error ;
}


From rafamv1 em ig.com.br  Thu Jan 24 11:49:58 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 16:49:58 -0300
Subject: [Cascavel-pm] Cliente SMTP
Message-ID: <3e759d2b0801241149r2feaf1e7xbffc27536627054e@mail.gmail.com>

Boa tarde, pessoal. Estou tentando utilizar o módulo Net::SMTP para criar um
cliente de e-mail. Escrevi o código abaixo, no entanto não está
funcionando.. Ele não envia o e-mail, mas não dá erro algum.. O que pode
estar ocorrendo?


#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP;

my $server = 'smtp.meu_dominio.com.br';
my $from = 'Rafael Lebrao';
my $address = 'destinatario em dominio.com.br';
my $to = 'Destiatario';
my $subject = 'Relatorios';
my $message = 'Teste de envio';

my $smtp = new Net::SMTP ("$server", Hello => "$server" ) or die( "cannot
send e-mail: $!");

$smtp->mail("$server");
$smtp->to("$address");
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit();
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/538e916f/attachment.html 

From acid06 em gmail.com  Thu Jan 24 11:51:04 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 24 Jan 2008 17:51:04 -0200
Subject: [Cascavel-pm] IDIOMA ERRADO [Was: expressao regular]
In-Reply-To: <4798D8A8.4040402@graaph.arq.br>
References: <762786.9315.qm@web31303.mail.mud.yahoo.com>
	<3e759d2b0801240240u387f75c8l51c53b0fe30a07cb@mail.gmail.com>
	<4798847D.9040700@yahoo.co.uk> <4798BF6A.9000202@yahoo.co.uk>
	<4798D8A8.4040402@graaph.arq.br>
Message-ID: <9a08c9b40801241151k7a6c522cwea575ff336d965e5@mail.gmail.com>

2008/1/24 Silvio Almeida <scvalmei em graaph.arq.br>:
> Nilson, não gosto muito chamar módulo para fazer algo que eu faça
> "sozinho" em 2 ou 3 linhas. Na minha opinião, o programa vai ficar até
> mais confuso para quem não tem familiaridade com os módulos utilizados.
> Mas esta é apenas minha opinião para este caso.

Qualquer coisa que envolva a variável $/ nunca vai ser mais legível
que praticamente qualquer outra alternativa.
Se é pra usar essa desculpa, faça algo legível de verdade.

Caso contrário, use um wrapper em volta da feiúra.

-Nilson Santos F. Jr.

From acid06 em gmail.com  Thu Jan 24 12:00:31 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 24 Jan 2008 18:00:31 -0200
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <3e759d2b0801241149r2feaf1e7xbffc27536627054e@mail.gmail.com>
References: <3e759d2b0801241149r2feaf1e7xbffc27536627054e@mail.gmail.com>
Message-ID: <9a08c9b40801241200g20401af2yddc7b70bcf072eb1@mail.gmail.com>

2008/1/24 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Boa tarde, pessoal. Estou tentando utilizar o módulo Net::SMTP para criar um
> cliente de e-mail. Escrevi o código abaixo, no entanto não está
> funcionando.. Ele não envia o e-mail, mas não dá erro algum.. O que pode
> estar ocorrendo?

Ele não envia o email ou você não recebe o email?

-Nilson Santos F. Jr.

From rafamv1 em ig.com.br  Thu Jan 24 12:03:08 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 17:03:08 -0300
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <9a08c9b40801241200g20401af2yddc7b70bcf072eb1@mail.gmail.com>
References: <3e759d2b0801241149r2feaf1e7xbffc27536627054e@mail.gmail.com>
	<9a08c9b40801241200g20401af2yddc7b70bcf072eb1@mail.gmail.com>
Message-ID: <3e759d2b0801241203o6c9cd535t868e66fd76e6e00a@mail.gmail.com>

Me desculpe, eu não recebo..



Em 24/01/08, Nilson Santos Figueiredo Junior <acid06 em gmail.com> escreveu:
>
> 2008/1/24 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> > Boa tarde, pessoal. Estou tentando utilizar o módulo Net::SMTP para
> criar um
> > cliente de e-mail. Escrevi o código abaixo, no entanto não está
> > funcionando.. Ele não envia o e-mail, mas não dá erro algum.. O que pode
> > estar ocorrendo?
>
> Ele não envia o email ou você não recebe o email?
>
> -Nilson Santos F. Jr.
> _______________________________________________
> 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/20080124/1bbe885c/attachment.html 

From glasswalk3r em yahoo.com.br  Thu Jan 24 12:59:44 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 24 Jan 2008 17:59:44 -0300 (ART)
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <3e759d2b0801241149r2feaf1e7xbffc27536627054e@mail.gmail.com>
Message-ID: <855283.57379.qm@web30807.mail.mud.yahoo.com>

Os motivos podem ser vários, não necessariamente erro
no seu código. Se você der uma olhada na documentação,
vai ver que é possível ativar debug durante a
instanciação do objeto:

http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm#CONSTRUCTOR

No mais, um sniffer também deve lhe ajudar.
Agora, se do outro lado você não receber a mensagem, é
preciso verificar redirecionares, filtros de SPAM,
etc.

[]'s
Alceu

--- Rafael Lebrao Martins <rafamv1 em ig.com.br>
escreveu:

> Boa tarde, pessoal. Estou tentando utilizar o módulo
> Net::SMTP para criar um
> cliente de e-mail. Escrevi o código abaixo, no
> entanto não está
> funcionando.. Ele não envia o e-mail, mas não dá
> erro algum.. O que pode
> estar ocorrendo?
> 
> 
> #!/usr/bin/perl
> use warnings;
> use strict;
> use Net::SMTP;
> 
> my $server = 'smtp.meu_dominio.com.br';
> my $from = 'Rafael Lebrao';
> my $address = 'destinatario em dominio.com.br';
> my $to = 'Destiatario';
> my $subject = 'Relatorios';
> my $message = 'Teste de envio';
> 
> my $smtp = new Net::SMTP ("$server", Hello =>
> "$server" ) or die( "cannot
> send e-mail: $!");
> 
> $smtp->mail("$server");
> $smtp->to("$address");
> $smtp->data();
> $smtp->datasend("From: $from\n");
> $smtp->datasend("To: $to\n");
> $smtp->datasend("Subject: $subject\n\n");
> $smtp->datasend("$message\n");
> $smtp->dataend();
> $smtp->quit();




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From jaja.gabriel em gmail.com  Thu Jan 24 15:08:06 2008
From: jaja.gabriel em gmail.com (Joao Gabriel C. Laass)
Date: Thu, 24 Jan 2008 21:08:06 -0200
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <855283.57379.qm@web30807.mail.mud.yahoo.com>
References: <3e759d2b0801241149r2feaf1e7xbffc27536627054e@mail.gmail.com>
	<855283.57379.qm@web30807.mail.mud.yahoo.com>
Message-ID: <8ff2963a0801241508n7bf84f0ege518b7bdd4bd53c1@mail.gmail.com>

Recomendo o Net::SMTP_auth...

O Net::SMTP "puro" só envia o e-mail caso o servidor de SMTP não
necesside de login (me corrijam de eu estiver errado).

-- 
Um abraço,
João Gabriel C. Laass



Em 24/01/08, Alceu R. de Freitas Jr.<glasswalk3r em yahoo.com.br> escreveu:
> Os motivos podem ser vários, não necessariamente erro
> no seu código. Se você der uma olhada na documentação,
> vai ver que é possível ativar debug durante a
> instanciação do objeto:
>
> http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm#CONSTRUCTOR
>
> No mais, um sniffer também deve lhe ajudar.
> Agora, se do outro lado você não receber a mensagem, é
> preciso verificar redirecionares, filtros de SPAM,
> etc.
>
> []'s
> Alceu
>
> --- Rafael Lebrao Martins <rafamv1 em ig.com.br>
> escreveu:
>
> > Boa tarde, pessoal. Estou tentando utilizar o módulo
> > Net::SMTP para criar um
> > cliente de e-mail. Escrevi o código abaixo, no
> > entanto não está
> > funcionando.. Ele não envia o e-mail, mas não dá
> > erro algum.. O que pode
> > estar ocorrendo?
> >
> >
> > #!/usr/bin/perl
> > use warnings;
> > use strict;
> > use Net::SMTP;
> >
> > my $server = 'smtp.meu_dominio.com.br';
> > my $from = 'Rafael Lebrao';
> > my $address = 'destinatario em dominio.com.br';
> > my $to = 'Destiatario';
> > my $subject = 'Relatorios';
> > my $message = 'Teste de envio';
> >
> > my $smtp = new Net::SMTP ("$server", Hello =>
> > "$server" ) or die( "cannot
> > send e-mail: $!");
> >
> > $smtp->mail("$server");
> > $smtp->to("$address");
> > $smtp->data();
> > $smtp->datasend("From: $from\n");
> > $smtp->datasend("To: $to\n");
> > $smtp->datasend("Subject: $subject\n\n");
> > $smtp->datasend("$message\n");
> > $smtp->dataend();
> > $smtp->quit();
>
>
>
>
>       Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
> http://br.mail.yahoo.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From ricardostock em bol.com.br  Thu Jan 24 17:53:20 2008
From: ricardostock em bol.com.br (Ricardo Stock)
Date: Thu, 24 Jan 2008 22:53:20 -0300
Subject: [Cascavel-pm] Cliente SMTP
References: <855283.57379.qm@web30807.mail.mud.yahoo.com>
Message-ID: <004401c85ef5$1ca987d0$0200a8c0@ricardo>

Olha, eu fiz um script usando Net::SMTP_auth; ta rodando e sem erro e 
warnings e com strict :-)

O mesmo usa autenticação.

Só um detalhe eu vi em seu script
nessa linha
my $from = 'Rafael Lebrao'; eu colocaria dessa forma, soi assim que eu fiz 
no meu e funciona
my $from = 'Rafael Lebrao em dominio.com.br';

Se te ajuda, veja o meu código abaixo

um abraço

######################################################################

#!c:\perl\bin\perl.exe
use warnings;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $servidor='smtp.dominio.com.br';
my $usuario='nome em dominio.com.br';
my $senha='senha';
my $de=(quemtamandando); #aqui eu coloquei o meu email que autentico no 
servidor
my $para=param('para');
my $mensagem=param('mensagem');
my $titulo='titulo';


use Net::SMTP_auth;
my $smtp = Net::SMTP_auth->new("$servidor", Timeout=>60, Debug=>1) || die 
("erro: $!\n");
$smtp->auth('PLAIN',$usuario,$senha);
$smtp->mail($de);
$smtp->to($para);
$smtp->data();
$smtp->datasend("To: $para\n");
$smtp->datasend("From: $de\n");
$smtp->datasend("Subject: $titulo\n");
$smtp->datasend("Content-type: text/html\n\n");
$smtp->datasend($mensagem);
$smtp->dataend();
$smtp->quit;

print "Content-type: text/html\n\n";
print "E-mail enviado!";

#########################################################################


Ricardo Stock
ricardostock em bol.com.br



----- Original Message ----- 
From: "Alceu R. de Freitas Jr." <glasswalk3r em yahoo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, January 24, 2008 5:59 PM
Subject: Re: [Cascavel-pm] Cliente SMTP


Os motivos podem ser vários, não necessariamente erro
no seu código. Se você der uma olhada na documentação,
vai ver que é possível ativar debug durante a
instanciação do objeto:

http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm#CONSTRUCTOR

No mais, um sniffer também deve lhe ajudar.
Agora, se do outro lado você não receber a mensagem, é
preciso verificar redirecionares, filtros de SPAM,
etc.

[]'s
Alceu

--- Rafael Lebrao Martins <rafamv1 em ig.com.br>
escreveu:

> Boa tarde, pessoal. Estou tentando utilizar o módulo
> Net::SMTP para criar um
> cliente de e-mail. Escrevi o código abaixo, no
> entanto não está
> funcionando.. Ele não envia o e-mail, mas não dá
> erro algum.. O que pode
> estar ocorrendo?
>
>
> #!/usr/bin/perl
> use warnings;
> use strict;
> use Net::SMTP;
>
> my $server = 'smtp.meu_dominio.com.br';
> my $from = 'Rafael Lebrao';
> my $address = 'destinatario em dominio.com.br';
> my $to = 'Destiatario';
> my $subject = 'Relatorios';
> my $message = 'Teste de envio';
>
> my $smtp = new Net::SMTP ("$server", Hello =>
> "$server" ) or die( "cannot
> send e-mail: $!");
>
> $smtp->mail("$server");
> $smtp->to("$address");
> $smtp->data();
> $smtp->datasend("From: $from\n");
> $smtp->datasend("To: $to\n");
> $smtp->datasend("Subject: $subject\n\n");
> $smtp->datasend("$message\n");
> $smtp->dataend();
> $smtp->quit();




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 


From rafamv1 em ig.com.br  Thu Jan 24 17:45:40 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 22:45:40 -0300
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <004401c85ef5$1ca987d0$0200a8c0@ricardo>
References: <855283.57379.qm@web30807.mail.mud.yahoo.com>
	<004401c85ef5$1ca987d0$0200a8c0@ricardo>
Message-ID: <3e759d2b0801241745t776804aei9948630df5947a1d@mail.gmail.com>

"O Net::SMTP "puro" só envia o e-mail caso o servidor de SMTP não
necesside de login (me corrijam de eu estiver errado). "

 Em 24/01/08, Ricardo Stock <ricardostock em bol.com.br> escreveu:
>
> Olha, eu fiz um script usando Net::SMTP_auth; ta rodando e sem erro e
> warnings e com strict :-)
>
>
Você estava certo, Gabriel.. Ativei o Debug e o problema não era no
recebimento, mas sim no envio.. Meu servidor smtp requer autenticação..
Utilizei o Net::SMTP_auth; lendo a valiosa dica do Ricardo e ai funcionou...

Muito obrigado, a todos..
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/57e60dd7/attachment.html 

From rafamv1 em ig.com.br  Thu Jan 24 18:36:36 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Thu, 24 Jan 2008 23:36:36 -0300
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <3e759d2b0801241745t776804aei9948630df5947a1d@mail.gmail.com>
References: <855283.57379.qm@web30807.mail.mud.yahoo.com>
	<004401c85ef5$1ca987d0$0200a8c0@ricardo>
	<3e759d2b0801241745t776804aei9948630df5947a1d@mail.gmail.com>
Message-ID: <3e759d2b0801241836ndbb6e31hbc5851a88b8fac65@mail.gmail.com>

Pesquisei aqui no CPAN, mas não encontrei nenhum método para envio de anexos
no Net::SMTP. Por acaso há algum?

2008/1/24, Rafael Lebrao Martins <rafamv1 em ig.com.br>:
>
> "O Net::SMTP "puro" só envia o e-mail caso o servidor de SMTP não
> necesside de login (me corrijam de eu estiver errado). "
>
>  Em 24/01/08, Ricardo Stock <ricardostock em bol.com.br> escreveu:
> >
> > Olha, eu fiz um script usando Net::SMTP_auth; ta rodando e sem erro e
> > warnings e com strict :-)
> >
> >
> Você estava certo, Gabriel.. Ativei o Debug e o problema não era no
> recebimento, mas sim no envio.. Meu servidor smtp requer autenticação..
> Utilizei o Net::SMTP_auth; lendo a valiosa dica do Ricardo e ai funcionou...
>
> Muito obrigado, a todos..
>
>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/5cb2d13b/attachment-0001.html 

From luismottacampos em yahoo.co.uk  Fri Jan 25 03:56:03 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 12:56:03 +0100
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <3e759d2b0801241836ndbb6e31hbc5851a88b8fac65@mail.gmail.com>
References: <855283.57379.qm@web30807.mail.mud.yahoo.com>	<004401c85ef5$1ca987d0$0200a8c0@ricardo>	<3e759d2b0801241745t776804aei9948630df5947a1d@mail.gmail.com>
	<3e759d2b0801241836ndbb6e31hbc5851a88b8fac65@mail.gmail.com>
Message-ID: <4799CE53.6060204@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> Pesquisei aqui no CPAN, mas não encontrei nenhum método para envio de
> anexos no Net::SMTP. Por acaso há algum?

  MIME::Lite
(http://search.cpan.org/~rjbs/MIME-Lite-3.021/lib/MIME/Lite.pm) é teu
amigo. E seguir as normas de codificação de mensagens multi-parte também
ajuda a não ficar "enroscado" no meu SpamAssassin (que trabalha com
threshold de "3.0", ao invés dos "5.0" default).

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


From rafamv1 em ig.com.br  Fri Jan 25 04:29:31 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 25 Jan 2008 09:29:31 -0300
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <4799CE53.6060204@yahoo.co.uk>
References: <855283.57379.qm@web30807.mail.mud.yahoo.com>
	<004401c85ef5$1ca987d0$0200a8c0@ricardo>
	<3e759d2b0801241745t776804aei9948630df5947a1d@mail.gmail.com>
	<3e759d2b0801241836ndbb6e31hbc5851a88b8fac65@mail.gmail.com>
	<4799CE53.6060204@yahoo.co.uk>
Message-ID: <3e759d2b0801250429w126f3856u1eed93ae5b6d595c@mail.gmail.com>

Bom dia, Luis.. Vou dar uma pesquisada nesse módulo.. Eu estava pesquisando
o MIME::Tools..

Em 25/01/08, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> Rafael Lebrao Martins wrote:
> > Pesquisei aqui no CPAN, mas não encontrei nenhum método para envio de
> > anexos no Net::SMTP. Por acaso há algum?
>
> MIME::Lite
> (http://search.cpan.org/~rjbs/MIME-Lite-3.021/lib/MIME/Lite.pm) é teu
> amigo. E seguir as normas de codificação de mensagens multi-parte também
> ajuda a não ficar "enroscado" no meu SpamAssassin (que trabalha com
> threshold de "3.0", ao invés dos "5.0" default).
>
> Apertando o cerco contra spammers,
> 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080125/775ca1f4/attachment.html 

From rafamv1 em ig.com.br  Fri Jan 25 06:47:03 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Fri, 25 Jan 2008 11:47:03 -0300
Subject: [Cascavel-pm] Cliente SMTP
In-Reply-To: <3e759d2b0801250429w126f3856u1eed93ae5b6d595c@mail.gmail.com>
References: <855283.57379.qm@web30807.mail.mud.yahoo.com>
	<004401c85ef5$1ca987d0$0200a8c0@ricardo>
	<3e759d2b0801241745t776804aei9948630df5947a1d@mail.gmail.com>
	<3e759d2b0801241836ndbb6e31hbc5851a88b8fac65@mail.gmail.com>
	<4799CE53.6060204@yahoo.co.uk>
	<3e759d2b0801250429w126f3856u1eed93ae5b6d595c@mail.gmail.com>
Message-ID: <3e759d2b0801250647t4400e821s3f480f3ec76b380b@mail.gmail.com>

Oi, pessoal. Utilizei o módulo SMTP::Lite.. Eu recebo o e-mail, mas o anexo
não..


#!/usr/bin/perl
use warnings;
use strict;
use CGI qw(:standard);
use Net::SMTP_auth;
use Net::SMTP;
use MIME::Lite;

my $hostsmtp='smtp.dominio.com.br';
my $usuario='rafael em dominio.com.br';
my $senha='senha';
my $from='rafael em dominio.com.br';
my $to='rafael em nexoinfo.com.br';
my $mensagem="Teste de envio.";
my $titulo='Backup do MSN Monitor';

my $smtp = Net::SMTP_auth->new("$hostsmtp", Timeout=>60, Debug=>1) || die
("erro: $!\n");

$smtp->auth('PLAIN',$usuario,$senha);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $titulo\n");
$smtp->datasend("Content-type: text/html\n\n");
$smtp->datasend($mensagem);
$smtp->dataend();
$smtp->quit;

my $anexo = MIME::Lite->new ();

$anexo->attach(
Type =>'TEXT');
my $fileName = 'backup.tar.gz';
my $fileType = 'TEXT';
my $file = '/var/log/[arquivo].tar.gz';
$anexo->attach(Type =>$fileType,
Path =>$fileName,
Filename =>$file,
Disposition =>'attachment'
);
$anexo->send();

print "Content-type: text/html\n\n";
print "E-mail enviado!";
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080125/242a6f84/attachment.html 

From ptfzs em yahoo.com.br  Fri Jan 25 07:52:12 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 25 Jan 2008 07:52:12 -0800 (PST)
Subject: [Cascavel-pm] Chdir X opendir
Message-ID: <789180.44700.qm@web31309.mail.mud.yahoo.com>

Pessoal qual a diferenca entre chdir e opendir??

se eu usar o chdir como faco para fecha-lo??


Obrigada




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080125/a26b0daf/attachment.html 

From acid06 em gmail.com  Fri Jan 25 08:35:33 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 25 Jan 2008 14:35:33 -0200
Subject: [Cascavel-pm] Chdir X opendir
In-Reply-To: <789180.44700.qm@web31309.mail.mud.yahoo.com>
References: <789180.44700.qm@web31309.mail.mud.yahoo.com>
Message-ID: <9a08c9b40801250835n6f624c9esc794d82dc737a791@mail.gmail.com>

2008/1/25 Patty Silva <ptfzs em yahoo.com.br>:
>
> Pessoal qual a diferenca entre chdir e opendir??
>
> se eu usar o chdir como faco para fecha-lo??

perldoc -f opendir
perldoc -f chdir

-Nilson Santos F. Jr.

From nferraz em gmail.com  Fri Jan 25 09:26:15 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 25 Jan 2008 17:26:15 +0000
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
Message-ID: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>

Uma discussão dos prós e dos contras de Perl...

Perl is the granddaddy of the open-source scripting languages, with
the 1.0 release seeing the light of day way back in 1987. By
comparison, PHP wasn't released until 1994, and Python didn't have its
0.9 release until 1991?only the Unix shells themselves have an older
pedigree. The O'Reilly "Camel" book (Programming perl) has been a
ubiquitous presence on cubicle bookshelves for decades.

Like any language, perl has its strengths and weaknesses. With that in
mind, here's some recommended uses and abuses of the elder statesman
of scripting.

http://www.cio.com/article/175450

-- 
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 acid06 em gmail.com  Fri Jan 25 09:40:17 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 25 Jan 2008 15:40:17 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
Message-ID: <9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>

On Jan 25, 2008 3:26 PM, Nelson Ferraz <nferraz em gmail.com> wrote:
> Uma discussão dos prós e dos contras de Perl...
>
> http://www.cio.com/article/175450

Eu escrevi um comentário no artigo ontem.
Particularmente, achei o artigo uma porcaria desinformada.

O próprio título já é carregado de "preconceito".

-Nilson Santos F. Jr.

From nferraz em gmail.com  Fri Jan 25 10:12:48 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Fri, 25 Jan 2008 18:12:48 +0000
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
Message-ID: <604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>

2008/1/25, Nilson Santos Figueiredo Junior <acid06 em gmail.com>:
> On Jan 25, 2008 3:26 PM, Nelson Ferraz <nferraz em gmail.com> wrote:
> > Uma discussão dos prós e dos contras de Perl...
> >
> > http://www.cio.com/article/175450
>
> Eu escrevi um comentário no artigo ontem.
> Particularmente, achei o artigo uma porcaria desinformada.

Precisamos considerar que se trata de um site não especializado. Ele
fala dos prós e dos contras, na experiência do autor. É claro que
podemos discordar, mas não qualificá-lo como uma "porcaria
desinformada".

From acid06 em gmail.com  Fri Jan 25 10:31:14 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 25 Jan 2008 16:31:14 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
Message-ID: <9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>

2008/1/25 Nelson Ferraz <nferraz em gmail.com>:
> Precisamos considerar que se trata de um site não especializado. Ele
> fala dos prós e dos contras, na experiência do autor. É claro que
> podemos discordar, mas não qualificá-lo como uma "porcaria
> desinformada".

Bom, nada impede você de qualificar minha opinião como uma "porcaria
desinformada" também.

Mesmo em um país com liberdade de expressão mais restrita como o
nosso, ainda é permitido dizer que a opinião dos outros é uma
"porcaria desinformada" sem conseqüências legais. Se a pessoa for
agressiva ela pode te ameaçar fisicamente, mas eu não sou assim (até
porque, com meus 1.75 de altura e 60kg, eu provavelmente levaria a
pior).

Mas eu continuo achando que a opinião do autor é uma "porcaria desinformada".

A opinião dele era válida se você avaliar código em Perl escrito em
2000 e comparar com código em outras linguagens escrito hoje. As
pessoas ficaram com essa imagem estática da linguagem porque quase
nenhuma outra linguagem evolui culturalmente como Perl. Como é a mesma
versão, Perl 5, todo mundo assume que é a mesma coisa. E não é.

Eu sei como código em Perl pode ser ruim. Eu sei como código em Perl
pode ser *muito* ruim. Mas eu também sei como pode ser *muito* bom.
Aparentemente, falta esse último aspecto ao autor.

-Nilson Santos F. Jr.

From agnaldo em starweb-software.com.br  Fri Jan 25 11:32:11 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 17:32:11 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com><9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com><604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
Message-ID: <009901c85f88$fbb3e180$6501a8c0@swmobile>


Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?



----- Original Message ----- 
From: "Nilson Santos Figueiredo Junior" <acid06 em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 4:31 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


2008/1/25 Nelson Ferraz <nferraz em gmail.com>:
> Precisamos considerar que se trata de um site não especializado. Ele
> fala dos prós e dos contras, na experiência do autor. É claro que
> podemos discordar, mas não qualificá-lo como uma "porcaria
> desinformada".

Bom, nada impede você de qualificar minha opinião como uma "porcaria
desinformada" também.

Mesmo em um país com liberdade de expressão mais restrita como o
nosso, ainda é permitido dizer que a opinião dos outros é uma
"porcaria desinformada" sem conseqüências legais. Se a pessoa for
agressiva ela pode te ameaçar fisicamente, mas eu não sou assim (até
porque, com meus 1.75 de altura e 60kg, eu provavelmente levaria a
pior).

Mas eu continuo achando que a opinião do autor é uma "porcaria 
desinformada".

A opinião dele era válida se você avaliar código em Perl escrito em
2000 e comparar com código em outras linguagens escrito hoje. As
pessoas ficaram com essa imagem estática da linguagem porque quase
nenhuma outra linguagem evolui culturalmente como Perl. Como é a mesma
versão, Perl 5, todo mundo assume que é a mesma coisa. E não é.

Eu sei como código em Perl pode ser ruim. Eu sei como código em Perl
pode ser *muito* ruim. Mas eu também sei como pode ser *muito* bom.
Aparentemente, falta esse último aspecto ao autor.

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


From edencardim em gmail.com  Fri Jan 25 11:38:44 2008
From: edencardim em gmail.com (eden)
Date: Fri, 25 Jan 2008 16:38:44 -0300
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <009901c85f88$fbb3e180$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
Message-ID: <3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>

2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?

Defina "aplicação comercial"

-- 
edenc.vox.com

From agnaldo em starweb-software.com.br  Fri Jan 25 12:10:34 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 18:10:34 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
Message-ID: <00a201c85f8e$584dfd40$6501a8c0@swmobile>


Vamos resumir como uma aplicação que fazemos para outros usarem e não apenas 
rotinas que fazemos na nossa empresa para uso também nossa empresa apenas.

Ou, vamos simplificar mais ainda.
Pode-se encontrar alguma aplicação de recurso humanos (folha de pagamento, 
etc) em Perl ?
Pode-se encontrar alguma aplicação administrativo/financeira (conta a 
pagar/receber, estoque, contabilidade, etc) em Perl ?
Pode-se encontrar alguma aplicação de contrôle dechão de fábrica (MRP, etc) 
em Perl ?

Ou, resumindo mais ainda.
Alguém poderia dar exemplos das aplicações que, feitas em Perl,são usadas 
por suas respectivas empresas e, também, se possível, qual o percentual de 
sistemas de suas empresas são escritos em Perl?




----- Original Message ----- 
From: "eden" <edencardim em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 5:38 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?

Defina "aplicação comercial"

-- 
edenc.vox.com 


From agnaldo em starweb-software.com.br  Fri Jan 25 12:16:52 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 18:16:52 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
Message-ID: <00ad01c85f8f$3929c560$6501a8c0@swmobile>


Ou, sintetizando.

Do pessoal do Forum, em suas respectivas empresas, qual o percentual de 
aplicações que são escritas em Perl e em outras linguagens, com 
desenvolvimento próprio ou mesmo compradas?




----- Original Message ----- 
From: "eden" <edencardim em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 5:38 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?

Defina "aplicação comercial"

-- 
edenc.vox.com 


From acid06 em gmail.com  Fri Jan 25 12:19:33 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 25 Jan 2008 18:19:33 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <00a201c85f8e$584dfd40$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
Message-ID: <9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>

2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> Pode-se encontrar alguma aplicação de recurso humanos (folha de pagamento,
> etc) em Perl ?
> Pode-se encontrar alguma aplicação administrativo/financeira (conta a
> pagar/receber, estoque, contabilidade, etc) em Perl ?
> Pode-se encontrar alguma aplicação de contrôle dechão de fábrica (MRP, etc)
> em Perl ?

Esse tipo de aplicação geralmente é desktop, não web.
Programação para desktop em Perl deixa um pouco a desejar, apesar de
existirem as ferramentas (Tk, Wx, etc). O forte de Perl são aplicações
web.

-Nilson Santos F. Jr.

From agnaldo em starweb-software.com.br  Fri Jan 25 12:23:47 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 18:23:47 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
Message-ID: <00b601c85f90$313d4f10$6501a8c0@swmobile>


Por favor, cite algumas.

Pois existem ERP´s feitos para web também.




----- Original Message ----- 
From: "Nilson Santos Figueiredo Junior" <acid06 em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 6:19 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> Pode-se encontrar alguma aplicação de recurso humanos (folha de pagamento,
> etc) em Perl ?
> Pode-se encontrar alguma aplicação administrativo/financeira (conta a
> pagar/receber, estoque, contabilidade, etc) em Perl ?
> Pode-se encontrar alguma aplicação de contrôle dechão de fábrica (MRP, 
> etc)
> em Perl ?

Esse tipo de aplicação geralmente é desktop, não web.
Programação para desktop em Perl deixa um pouco a desejar, apesar de
existirem as ferramentas (Tk, Wx, etc). O forte de Perl são aplicações
web.

-Nilson Santos F. Jr. 


From edencardim em gmail.com  Fri Jan 25 12:29:33 2008
From: edencardim em gmail.com (eden)
Date: Fri, 25 Jan 2008 17:29:33 -0300
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <00b601c85f90$313d4f10$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
	<00b601c85f90$313d4f10$6501a8c0@swmobile>
Message-ID: <3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>

2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> Por favor, cite algumas.
>
> Pois existem ERP´s feitos para web também.

Algumas que me lembro agora:

RT - ticketing - usado por http://bestpractical.com/rt/praise.html
Bugzilla - bug tracking - usado por http://www.bugzilla.org/installation-list/

-- 
edenc.vox.com

From agnaldo em starweb-software.com.br  Fri Jan 25 12:42:38 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 18:42:38 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
	<00b601c85f90$313d4f10$6501a8c0@swmobile>
	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
Message-ID: <00c801c85f92$d2d641e0$6501a8c0@swmobile>


Na tua empresa Eden, assim como na do Nilson Santos, ou na do Luis Motta, 
quero crer, então, que pelo menos 50% dos sistemas, sub-sistemas, aplicações 
são, então, escritas em Perl.

Poderiam citar exemplos ?



----- Original Message ----- 
From: "eden" <edencardim em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 6:29 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> Por favor, cite algumas.
>
> Pois existem ERP´s feitos para web também.

Algumas que me lembro agora:

RT - ticketing - usado por http://bestpractical.com/rt/praise.html
Bugzilla - bug tracking - usado por 
http://www.bugzilla.org/installation-list/

-- 
edenc.vox.com 


From reis.wallace em gmail.com  Fri Jan 25 12:46:05 2008
From: reis.wallace em gmail.com (Wallace Reis)
Date: Fri, 25 Jan 2008 20:46:05 +0000
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <009901c85f88$fbb3e180$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com><9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com><604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
Message-ID: <479A4A8D.4040401@gmail.com>

Agnaldo Macedo wrote:
> Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?
>   
Pode ser um gerenciador de hotéis, resort, pousadas, grupos de hotéis, 
consortiums, etc?
A primeira vista parece ser um sistema simples, Eden e eu na epóca da 
facul fizemos um (tsc tsc),
lembra edenc? Mas, é bem complexo, pelo menos este:

http://www.airspace.co.uk

Escrito em *muito* bom Perl (como disse o Nilson), usando Catalyst + 
DBIC, e agora nós da Shadowcat
estamos refatorando, agregando valor e possivelmente portando pra Reaction.

Em geral, conheço apps feitas usando Catalyst:
* http://takkle.com (edenc trabalha neste projeto, ele pode falar melhor)
* alguns projetos e parte do site da BBC (a Shadowcat, na pessoa do Matt 
Trout, já deu consultoria lá).

entre outras,

[]'s,

--
wallace reis/wreis
http://wallace.reis.org.br

From agnaldo em starweb-software.com.br  Fri Jan 25 12:59:10 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 18:59:10 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com><9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com><604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<479A4A8D.4040401@gmail.com>
Message-ID: <00df01c85f95$221645f0$6501a8c0@swmobile>


Legal.

Um gerenciador de hóteis, que controla desde a entrada do hóspede até a 
saida dele, passando por controlar as despesas do mesmo, tal como consumo de 
frigobar, restaurante, lavanderia, etc, até o fechamento dos valores das 
diárias, bem como cuidando da parte de estoque do hotel, integrando com a 
parte de compras do mesmo assim como a parte administrativa e financeira do 
mesmo, bem como com o controle dos funcionários.
É isso Wallace ?





----- Original Message ----- 
From: "Wallace Reis" <reis.wallace em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 6:46 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


> Agnaldo Macedo wrote:
>> Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?
>>
> Pode ser um gerenciador de hotéis, resort, pousadas, grupos de hotéis, 
> consortiums, etc?
> A primeira vista parece ser um sistema simples, Eden e eu na epóca da 
> facul fizemos um (tsc tsc),
> lembra edenc? Mas, é bem complexo, pelo menos este:
>
> http://www.airspace.co.uk
>
> Escrito em *muito* bom Perl (como disse o Nilson), usando Catalyst + DBIC, 
> e agora nós da Shadowcat
> estamos refatorando, agregando valor e possivelmente portando pra 
> Reaction.
>
> Em geral, conheço apps feitas usando Catalyst:
> * http://takkle.com (edenc trabalha neste projeto, ele pode falar melhor)
> * alguns projetos e parte do site da BBC (a Shadowcat, na pessoa do Matt 
> Trout, já deu consultoria lá).
>
> entre outras,
>
> []'s,
>
> --
> wallace reis/wreis
> http://wallace.reis.org.br 


From acid06 em gmail.com  Fri Jan 25 14:00:18 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 25 Jan 2008 20:00:18 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <00b601c85f90$313d4f10$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
	<00b601c85f90$313d4f10$6501a8c0@swmobile>
Message-ID: <9a08c9b40801251400s4061f1f1me132b6cde7207b8d@mail.gmail.com>

2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> Por favor, cite algumas.
>
> Pois existem ERP´s feitos para web também.

Numa empresa que eu já trabalhei anteriormente, a cultura era
predominantemente Microsoft e eu só consegui colocar um pequeno uso de
Perl em algumas ferramentas internas. Em especial, utilizávamos um
processo de build automático para VB6 e integração com o sistema de
controle de versões SourceSafe escrito em Perl (mas ele não funcionava
tão bem assim, porque era difícil interoperar com o VB6, quando dava
um erro de compilação, ele abria uma janela, por exemplo, ao invés de
retornar um código de erro). Além disso, o monitoramento dos
servidores dos clientes era feito por scripts Perl associados à
páginas ASP. Acho que quando eu saí de lá, ninguém mais deve ter usado
muito essas coisas porque ninguém sabia Perl de verdade (só um outro,
que saiu quase junto comigo).

Numa outra empresa que eu já trabalhei anteriormente, todos os sitemas
eram feitos em Perl. Eles vendem sistemas de front-end e back-end para
companhias aéreas e também vendem sistemas para agências de turismo
(organização de eventos, integração com hotéis, etc). O sistema de
gestão de projetos utilizado internamente, feito utilizando Catalyst,
que era muito bom (com recursos de rastreabilidade, gestão de
competências e mais um tanto de buzzwords que o povo de negócios
adora) iria ser comercializado também, ele praticamente atendia todos
os requisitos pra uma certificação CMMI-2 mas acho que como eu saí da
empresa não foi pra frente e ficou só como uso interno. Site:
http://www.mysky.com.br/

Em bioinformática muitos sistemas são em Perl. Eu já trabalhei com
isso aqui no ICB da UFMG. Mas foi por pouco tempo. Tentei encontrar o
site mas o servidor acho que saiu do ar. Não tinha muita coisa por lá,
eram bancos de dados científicos para catálogo de espécies e uma
aplicação que desenhava a árvore filogenética (já até esqueci se o
termo é esse mesmo) estimada de um pedaço de DNA que um pesquisador
colasse numa interface via web. Só era interessante pra pesquisadores
mesmo.

Atualmente trabalho na PictureTrail e boa parte do site principal é
feito em Perl, com algumas partes em PHP. Algumas partes são
utilizando Catalyst e as partes antigas utilizando scripts normais
rodando sob FastCGI (código bem antigo). Existem alguns
desenvolvimentos novos sendo feitos relativo a aplicativos para redes
sociais onde o front-end é em PHP e uma parte do back-end é feito em
Perl. Site: http://www.picturetrail.com

Acho que outras pessoas podem dar outros relatos.

-Nilson Santos F. Jr.

From luismottacampos em yahoo.co.uk  Fri Jan 25 14:05:26 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 23:05:26 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
Message-ID: <479A5D26.5080704@yahoo.co.uk>

Nilson Santos Figueiredo Junior wrote:
> Esse tipo de aplicação geralmente é desktop, não web.
> Programação para desktop em Perl deixa um pouco a desejar, apesar de
> existirem as ferramentas (Tk, Wx, etc). O forte de Perl são aplicações
> web.

Bom isso é a tua experiência. :)

Eu tenho mais aplicações em Perl que rodam fora da web do que na Web.

E o gerenciador de pacotes do Debian, ou o Gerenciador de Pacotes do Red 
Hat, contam como "aplicação comercial"?

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 Jan 25 14:03:24 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 23:03:24 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <009901c85f88$fbb3e180$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com><9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com><604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
Message-ID: <479A5CAC.60901@yahoo.co.uk>

Agnaldo Macedo wrote:
> Alguém poderia citar exemplos de aplicações comerciais escritas em Perl ?

   Eu uso Perl para rodar a Internet.

   A Internet conta como aplicação comercial ? :)

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

(*) Quem me conhece sabe que eu quis dizer isso mesmo, literalmente. ;)

From acid06 em gmail.com  Fri Jan 25 14:14:12 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 25 Jan 2008 20:14:12 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <479A5D26.5080704@yahoo.co.uk>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
	<479A5D26.5080704@yahoo.co.uk>
Message-ID: <9a08c9b40801251414x4fd79fdam71dc2dd700ae0df1@mail.gmail.com>

2008/1/25 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> Eu tenho mais aplicações em Perl que rodam fora da web do que na Web.

Quando eu disse aplicações desktop quis dizer aplicações com uma
interface gráfica.
Outras linguagens são muito melhores para se trabalhar com interfaces
gráficas profissionais, apesar de ser possível de fazer em Perl.

Uma prova do desinteresse nessa área em Perl é que você nem consegue
achar bindings decentes da Qt pra Perl.

-Nilson Santos F. Jr.

From luismottacampos em yahoo.co.uk  Fri Jan 25 14:19:16 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 23:19:16 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <9a08c9b40801251414x4fd79fdam71dc2dd700ae0df1@mail.gmail.com>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<479A5D26.5080704@yahoo.co.uk>
	<9a08c9b40801251414x4fd79fdam71dc2dd700ae0df1@mail.gmail.com>
Message-ID: <479A6064.2000608@yahoo.co.uk>

Nilson Santos Figueiredo Junior wrote:
> 2008/1/25 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
>> Eu tenho mais aplicações em Perl que rodam fora da web do que na Web.
> 
> Quando eu disse aplicações desktop quis dizer aplicações com uma
> interface gráfica.
> Outras linguagens são muito melhores para se trabalhar com interfaces
> gráficas profissionais, apesar de ser possível de fazer em Perl.
> 
> Uma prova do desinteresse nessa área em Perl é que você nem consegue
> achar bindings decentes da Qt pra Perl.

OK, ok, agora ficou claro.
Obrigado pela explicação.
Nada como a gente ser específico ;)

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 Jan 25 14:06:38 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 23:06:38 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>
	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
Message-ID: <479A5D6E.7020009@yahoo.co.uk>

eden wrote:
> 2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>> Por favor, cite algumas.
>>
>> Pois existem ERP´s feitos para web também.
> 
> Algumas que me lembro agora:
> 
> RT - ticketing - usado por http://bestpractical.com/rt/praise.html
> Bugzilla - bug tracking - usado por http://www.bugzilla.org/installation-list/

O SVK (um sistema de controle de versão distribuído, baseado no SVN) 
também é Perl (*).

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

(*) tá, tá, tem um pouco em C, usando a interface XS, mas foi apenas 
onde o calo apertou...

From luismottacampos em yahoo.co.uk  Fri Jan 25 14:14:04 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 23:14:04 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <00c801c85f92$d2d641e0$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
	<00c801c85f92$d2d641e0$6501a8c0@swmobile>
Message-ID: <479A5F2C.6090100@yahoo.co.uk>

Agnaldo Macedo wrote:
> Na tua empresa Eden, assim como na do Nilson Santos, ou na do Luis Motta, 
> quero crer, então, que pelo menos 50% dos sistemas, sub-sistemas, aplicações 
> são, então, escritas em Perl.
> 
> Poderiam citar exemplos ?

Ai, meus deuses.

Esta petulância ainda vai te matar, meu nego.

Eu vou ter de explicar o que eu faço, agora.

Eu sou o DBA do Database Group, uma força tarefa pertencente ao RIPE 
NCC, o RIR da Europa.

A gente usa Perl para rodar e para manter funcionando o Whois Daemon, 
que é "o" serviço essencial para manter a Internet funcionando: ele 
fornece informação de roteamento inter-redes para todas as redes de 
computadores que formam a Internet da Europa, Ásia e Oriente Médio.

Como o RIPE NCC, existem mais 4 entidades realizando o mesmo trabalho 
pelo mundo: O AfriNIC (Africa), o JPNIC (Japão e Ocenania), o ARIN 
(America do Norte e Central) e o APNIC (América do Sul).

Perl é parte importante da infra-estrutura básica que mantém a Internet 
funcionando.

Os meus sistemas são 80% Perl e 20% C. A gente está fazendo um 
esforcinho para fazer com que os sistemas sejam 100% Perl, mas isso 
demora e a gente precisa convencer os membros do RIPE (o grupo que dita 
as normas) de que isso funciona melhor. Temos conseguido bastante apoio, 
e ainda vamos ditar padrões durante muito tempo.

Agora, por favor, chega de me chatear com perguntas do tipo "que 
linguagem implementa o seu sistema de contas-a-pagar?", que eu tenho uma 
Internet para fazer funcionar...

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 Jan 25 14:18:01 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Fri, 25 Jan 2008 23:18:01 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <00c801c85f92$d2d641e0$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
	<00c801c85f92$d2d641e0$6501a8c0@swmobile>
Message-ID: <479A6019.4050408@yahoo.co.uk>

Agnaldo Macedo wrote:
> Na tua empresa Eden, assim como na do Nilson Santos, ou na do Luis Motta, 
> quero crer, então, que pelo menos 50% dos sistemas, sub-sistemas, aplicações 
> são, então, escritas em Perl.
> 
> Poderiam citar exemplos ?

A Orbital (você tem cartão MasterCard no Brazil? A Orbital faz as suas 
contas) usava (até a última vez que eu soube, em 2004-5) um sistema de 
Controle de Versão e compilação automático de código escrito em Perl 
(porco, mas Perl).

Todos os sistemas que eles entregavam para a produção passavam pelas 
"mãos" deste sistema em Perl, e eles ainda devem ter muitas coisas 
compiladas e em produção que dependem deste sistema.

Acho que contabilidade de cartão de crédito conta como "comercial", não?

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 Jan 25 15:16:40 2008
From: edencardim em gmail.com (eden)
Date: Fri, 25 Jan 2008 20:16:40 -0300
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <479A5F2C.6090100@yahoo.co.uk>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
	<00b601c85f90$313d4f10$6501a8c0@swmobile>
	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
	<00c801c85f92$d2d641e0$6501a8c0@swmobile>
	<479A5F2C.6090100@yahoo.co.uk>
Message-ID: <3de55ead0801251516h7ccd4c6du80f52f317691d9e5@mail.gmail.com>

2008/1/25 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> Ai, meus deuses.
>
> Esta petulância ainda vai te matar, meu nego.

"meu nego"?!?!?!?!?!?! Você tem que pagar royalties pra falar isso
estando em solo holandês! :P

Putamplexos compensatórios ;)

-- 
edenc.vox.com

From agnaldo em starweb-software.com.br  Fri Jan 25 15:34:41 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 21:34:41 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com><00c801c85f92$d2d641e0$6501a8c0@swmobile>
	<479A5F2C.6090100@yahoo.co.uk>
Message-ID: <002f01c85faa$eebd6dd0$6501a8c0@swmobile>


Legal Luiz Motta.

Então, que bom, todos os teus sistemas são em Perl.

Apenas mais dois comentários, se me permite (senão permitir, também, tô 
pouco me lichando).

"Os meus sistemas são 80% Perl e 20% C. A gente está fazendo um
esforcinho para fazer com que os sistemas sejam 100% Perl, ......."

1)  Significa então que a folha de pagamento,que paga os funcionários da 
empresa é feito em Perl. Que o sistema contabil/financeiro da empresa, 
também é Perl. (e assim vai).
Ou significa que ESSA parte de software, que cuida da infra-estrutura, é á 
única coisa feita em Perl.


"Agora, por favor, chega de me chatear com perguntas do tipo "que
linguagem implementa o seu sistema de contas-a-pagar?", que eu tenho uma
Internet para fazer funcionar..."

2)  Esse tipo de resposta é tipico de gente que não sabe o que dizer e quer 
se livrar rápido pra não se comprometer (ou pior, falar mais merda).




----- Original Message ----- 
From: "Luis Motta Campos" <luismottacampos em yahoo.co.uk>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Friday, January 25, 2008 8:14 PM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


Agnaldo Macedo wrote:
> Na tua empresa Eden, assim como na do Nilson Santos, ou na do Luis Motta,
> quero crer, então, que pelo menos 50% dos sistemas, sub-sistemas, 
> aplicações
> são, então, escritas em Perl.
>
> Poderiam citar exemplos ?

Ai, meus deuses.

Esta petulância ainda vai te matar, meu nego.

Eu vou ter de explicar o que eu faço, agora.

Eu sou o DBA do Database Group, uma força tarefa pertencente ao RIPE
NCC, o RIR da Europa.

A gente usa Perl para rodar e para manter funcionando o Whois Daemon,
que é "o" serviço essencial para manter a Internet funcionando: ele
fornece informação de roteamento inter-redes para todas as redes de
computadores que formam a Internet da Europa, Ásia e Oriente Médio.

Como o RIPE NCC, existem mais 4 entidades realizando o mesmo trabalho
pelo mundo: O AfriNIC (Africa), o JPNIC (Japão e Ocenania), o ARIN
(America do Norte e Central) e o APNIC (América do Sul).

Perl é parte importante da infra-estrutura básica que mantém a Internet
funcionando.

Os meus sistemas são 80% Perl e 20% C. A gente está fazendo um
esforcinho para fazer com que os sistemas sejam 100% Perl, mas isso
demora e a gente precisa convencer os membros do RIPE (o grupo que dita
as normas) de que isso funciona melhor. Temos conseguido bastante apoio,
e ainda vamos ditar padrões durante muito tempo.

Agora, por favor, chega de me chatear com perguntas do tipo "que
linguagem implementa o seu sistema de contas-a-pagar?", que eu tenho uma
Internet para fazer funcionar...

Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 


From agnaldo em starweb-software.com.br  Fri Jan 25 16:20:21 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Fri, 25 Jan 2008 22:20:21 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com><00c801c85f92$d2d641e0$6501a8c0@swmobile>
	<479A5F2C.6090100@yahoo.co.uk>
Message-ID: <005801c85fb1$3cfddf60$6501a8c0@swmobile>

Embora esse tópico ainda não tenha se esgostado, pois apenas meia duzia de 
pessoas fizeram comentários, notem, as aplicações citadas foram bem 
reduzidas e normalmente bem especializadas.

Pessoas educadas e profissionais merecem comentários.
Deixo aqui um particular respeito ao email que o Nilson Santos postou 
falando de seus trabalhos anteriores.







From acid06 em gmail.com  Fri Jan 25 18:44:45 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Sat, 26 Jan 2008 00:44:45 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <005801c85fb1$3cfddf60$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile>
	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>
	<00a201c85f8e$584dfd40$6501a8c0@swmobile>
	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>
	<00b601c85f90$313d4f10$6501a8c0@swmobile>
	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com>
	<00c801c85f92$d2d641e0$6501a8c0@swmobile>
	<479A5F2C.6090100@yahoo.co.uk>
	<005801c85fb1$3cfddf60$6501a8c0@swmobile>
Message-ID: <9a08c9b40801251844m16e1930fk3ba197154bb3d5bd@mail.gmail.com>

2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> Embora esse tópico ainda não tenha se esgostado, pois apenas meia duzia de
> pessoas fizeram comentários, notem, as aplicações citadas foram bem
> reduzidas e normalmente bem especializadas.

Se você quer aplicações grandes, olhe para as aplicações web.

Um sistema web rodando em um cluster de quase uma centena de
servidores não é exatamente reduzido. Atualmente servimos "apenas" por
volta de 1 milhão e 800 mil usuários diferentes mensalmente. E isso
não é *realmente* grande, isso é só onde eu trabalho.

Se você quer exemplos maiores, dê uma olhada nos serviços da SixApart.
Por exemplo, o livejournal.com, que é um serviço feito em Perl, recebe
mensalmente mais de 2 milhões 400 mil usuários só dos Estados Unidos
(estimando um total de 5 milhões e 400 mil usuários globais, assumindo
a mesma proporção de usuários americanos / usuários globais que a de
onde eu trabalho). Além disso, eles também possuem o Vox com quase 2
milhões de usuários globais por mês. E o MovableType é feito em Perl
(se você conhece um pouco sobre blogs já ouviu falar nisso).

A presença relevante de Perl está na internet. É mais difícil
encontrar Perl em empresas tradicionais de outros ramos. Em geral,
aquelas aplicações internas de empresas bem grandes são desenvolvidas
em Java ou .NET.

Quem já trabalhou em ambos os ramos sabe o que é mais interessante de
se fazer e o que dá mais dinheiro como desenvolvedor.

Basicamente, se seu objetivo de vida é parar de desenvolver e cuidar
da parte de negócios de uma empresa e esse é seu objetivo de ascensão
profissional, eu posso dizer que Perl é uma má escolha, não vai servir
pra você. Se você almeja fazer coisas interessantes, poder estar
sempre na vanguarda do desenvolvimento de software e possivelmente
conseguir transformar seu talento como desenvolvedor em muito
dinheiro. Uma linguagem moderna como Perl é mais adequada.

Perl, PHP, Python e Ruby são as linguagens que movem a web nos dias de
hoje. Se esse é o seu ramo de interesse, escolha uma delas. Eu sugiro
Perl, mas com qualquer uma das outras (bem, talvez PHP não) você
estará bem servido (ou pelo menos melhor servido do que com Java ou
.NET).

Poderia ficar escrevendo até amanhã mas vou parar por aqui. ;-)

-Nilson Santos F. Jr.

From edencardim em gmail.com  Fri Jan 25 23:49:18 2008
From: edencardim em gmail.com (eden)
Date: Sat, 26 Jan 2008 04:49:18 -0300
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <00df01c85f95$221645f0$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>
	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>
	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>
	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>
	<009901c85f88$fbb3e180$6501a8c0@swmobile> <479A4A8D.4040401@gmail.com>
	<00df01c85f95$221645f0$6501a8c0@swmobile>
Message-ID: <3de55ead0801252349k19e7601cmae767279a633a6c@mail.gmail.com>

2008/1/25 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> Legal.
>
> Um gerenciador de hóteis, que controla desde a entrada do hóspede até a
> saida dele, passando por controlar as despesas do mesmo, tal como consumo de
> frigobar, restaurante, lavanderia, etc, até o fechamento dos valores das
> diárias, bem como cuidando da parte de estoque do hotel, integrando com a
> parte de compras do mesmo assim como a parte administrativa e financeira do
> mesmo, bem como com o controle dos funcionários.
> É isso Wallace ?

Sim é isso.

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Sat Jan 26 02:47:25 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Sat, 26 Jan 2008 11:47:25 +0100
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
In-Reply-To: <002f01c85faa$eebd6dd0$6501a8c0@swmobile>
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com><00c801c85f92$d2d641e0$6501a8c0@swmobile>	<479A5F2C.6090100@yahoo.co.uk>
	<002f01c85faa$eebd6dd0$6501a8c0@swmobile>
Message-ID: <479B0FBD.5000200@yahoo.co.uk>

Agnaldo Macedo wrote:
> Legal Luiz Motta.

"Luis", me faça o favor.

> Então, que bom, todos os teus sistemas são em Perl.
> 
> Apenas mais dois comentários, se me permite (senão permitir, também,
> tô pouco me lichando).

A Internet é um espaço anárquico, você é livre para falar o que quiser. 
E eu gosto de gente que fala. :)

> "Os meus sistemas são 80% Perl e 20% C. A gente está fazendo um 
> esforcinho para fazer com que os sistemas sejam 100% Perl, ......."
> 
> 1)  Significa então que a folha de pagamento,que paga os funcionários
> da empresa é feito em Perl. Que o sistema contabil/financeiro da
> empresa, também é Perl. (e assim vai). Ou significa que ESSA parte de
> software, que cuida da infra-estrutura, é á única coisa feita em
> Perl.

Por favor não tire as minhas frases do contexto. Eu afirmei que o 
Database Group tem 80% dos sistemas em Perl, não que a gente faz a folha 
de pagamento.

> "Agora, por favor, chega de me chatear com perguntas do tipo "que 
> linguagem implementa o seu sistema de contas-a-pagar?", que eu tenho
> uma Internet para fazer funcionar..."
> 
> 2)  Esse tipo de resposta é tipico de gente que não sabe o que dizer
> e quer se livrar rápido pra não se comprometer (ou pior, falar mais
> merda).

Se eu falei merda, me aponte.
Se eu não falei merda, por que a provocação barata?

Você está frustrado por trabalhar construindo um framework barato para 
colocar Progress na web e veio aqui me chatear por causa disso?

Eu recomendo a você mudar de ramo: vender cachorro quente nas praias de 
Curitiba dá mais dinheiro e menos dor-de-cabeça que Progress...

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

From agnaldo em starweb-software.com.br  Sat Jan 26 03:36:04 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Sat, 26 Jan 2008 09:36:04 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com><00c801c85f92$d2d641e0$6501a8c0@swmobile>	<479A5F2C.6090100@yahoo.co.uk><002f01c85faa$eebd6dd0$6501a8c0@swmobile>
	<479B0FBD.5000200@yahoo.co.uk>
Message-ID: <000c01c8600f$a2a22390$6501a8c0@swmobile>


Olha Luis, graças ao bom Deus uma coisa que nunca fiz foi criticar as 
ferramentas que os outros profissionais usam.
Isso é coisa de gente fustrada.
É igual aquele povinho que, não sabendo a resposta para como resolver um 
problema, usa frases tais como:
"Use um browser decente" ou
"Troque de sistema operacional" ou
"Use um leitor de email de verdade".

Não vou nem me dar ao trabalho de falar de prós e contras de Progress, isso 
já é feito em Forum´s de Progress.
Novamente, a tua colocação foi mais do tipo "deixa eu desviar a conversa 
pois não sei mais o que falar".

Você disse que tua empresa pssui 80% dos sistemas em Perl.
Eu não disse que você FAZ folha de pagamento.
Eu perguntei SE o sistema de RH da tua empresa é escrito em Perl (salvo é 
claro se a empresa não pagar os funcionários). De A ou B maneira tua empresa 
deve pagar e receber. A menos que tua empresa trabalhe na informalidade,o 
que acho muito pouco provável, voce devem precisar manter dados contabeis, 
financeiros, etc.
Como você disse que 80% (caminhando para 100%) são escritos em Perl, minha 
pergunta foi se os sistemas da parte administrativa e financeira da empresa 
são em Perl.

O Eden a pouco comentou, sobre as coisas dele:
"Sim, do bug tracking à administração de sistemas, é perl."
Bug tracking, adminstração de sistemas,etc, são ferramentas da equipe de TI.
E o "resto" da empresa, é mantido em que?

Usei a palavra "resto" aqui porque, pra mim Luis Motta, é assim você vê os 
demais setores.








----- Original Message ----- 
From: "Luis Motta Campos" <luismottacampos em yahoo.co.uk>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Saturday, January 26, 2008 8:47 AM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


Agnaldo Macedo wrote:
> Legal Luiz Motta.

"Luis", me faça o favor.

> Então, que bom, todos os teus sistemas são em Perl.
>
> Apenas mais dois comentários, se me permite (senão permitir, também,
> tô pouco me lichando).

A Internet é um espaço anárquico, você é livre para falar o que quiser.
E eu gosto de gente que fala. :)

> "Os meus sistemas são 80% Perl e 20% C. A gente está fazendo um
> esforcinho para fazer com que os sistemas sejam 100% Perl, ......."
>
> 1)  Significa então que a folha de pagamento,que paga os funcionários
> da empresa é feito em Perl. Que o sistema contabil/financeiro da
> empresa, também é Perl. (e assim vai). Ou significa que ESSA parte de
> software, que cuida da infra-estrutura, é á única coisa feita em
> Perl.

Por favor não tire as minhas frases do contexto. Eu afirmei que o
Database Group tem 80% dos sistemas em Perl, não que a gente faz a folha
de pagamento.

> "Agora, por favor, chega de me chatear com perguntas do tipo "que
> linguagem implementa o seu sistema de contas-a-pagar?", que eu tenho
> uma Internet para fazer funcionar..."
>
> 2)  Esse tipo de resposta é tipico de gente que não sabe o que dizer
> e quer se livrar rápido pra não se comprometer (ou pior, falar mais
> merda).

Se eu falei merda, me aponte.
Se eu não falei merda, por que a provocação barata?

Você está frustrado por trabalhar construindo um framework barato para
colocar Progress na web e veio aqui me chatear por causa disso?

Eu recomendo a você mudar de ramo: vender cachorro quente nas praias de
Curitiba dá mais dinheiro e menos dor-de-cabeça que Progress...

Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 


From agnaldo em starweb-software.com.br  Sat Jan 26 03:44:50 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Sat, 26 Jan 2008 09:44:50 -0200
Subject: [Cascavel-pm] You Used Perl to Write WHAT?!
References: <604cec170801250926n50960c41k35d4b8877d985081@mail.gmail.com>	<9a08c9b40801250940yd83c9fk5b5cde50bf42f25@mail.gmail.com>	<604cec170801251012o48349f5bw84a386870bbe171c@mail.gmail.com>	<9a08c9b40801251031u263dc0c9j6ecaccdd0ff0959d@mail.gmail.com>	<009901c85f88$fbb3e180$6501a8c0@swmobile>	<3de55ead0801251138x95e35efoa792acc666b4043e@mail.gmail.com>	<00a201c85f8e$584dfd40$6501a8c0@swmobile>	<9a08c9b40801251219j10d8ee40u79012cf3cfa9f919@mail.gmail.com>	<00b601c85f90$313d4f10$6501a8c0@swmobile>	<3de55ead0801251229r6838e337i531bd8b316008317@mail.gmail.com><00c801c85f92$d2d641e0$6501a8c0@swmobile>	<479A5F2C.6090100@yahoo.co.uk><002f01c85faa$eebd6dd0$6501a8c0@swmobile>
	<479B0FBD.5000200@yahoo.co.uk>
Message-ID: <001101c86010$de3afc50$6501a8c0@swmobile>


Opss.

Luis Motta (e demais).

Acho que a foi falha de leitura minha.

Luis disse:
 "Os meus sistemas são 80% Perl e 20% C. ......"

Desculpe Luis, eu não estava questionando sobre os TEUS sistemas.
Eu sempre estava questionando sobre os sistemas da EMPRESA onde trabalham.










----- Original Message ----- 
From: "Luis Motta Campos" <luismottacampos em yahoo.co.uk>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Saturday, January 26, 2008 8:47 AM
Subject: Re: [Cascavel-pm] You Used Perl to Write WHAT?!


Agnaldo Macedo wrote:
> Legal Luiz Motta.

"Luis", me faça o favor.

> Então, que bom, todos os teus sistemas são em Perl.
>
> Apenas mais dois comentários, se me permite (senão permitir, também,
> tô pouco me lichando).

A Internet é um espaço anárquico, você é livre para falar o que quiser.
E eu gosto de gente que fala. :)

> "Os meus sistemas são 80% Perl e 20% C. A gente está fazendo um
> esforcinho para fazer com que os sistemas sejam 100% Perl, ......."
>
> 1)  Significa então que a folha de pagamento,que paga os funcionários
> da empresa é feito em Perl. Que o sistema contabil/financeiro da
> empresa, também é Perl. (e assim vai). Ou significa que ESSA parte de
> software, que cuida da infra-estrutura, é á única coisa feita em
> Perl.

Por favor não tire as minhas frases do contexto. Eu afirmei que o
Database Group tem 80% dos sistemas em Perl, não que a gente faz a folha
de pagamento.

> "Agora, por favor, chega de me chatear com perguntas do tipo "que
> linguagem implementa o seu sistema de contas-a-pagar?", que eu tenho
> uma Internet para fazer funcionar..."
>
> 2)  Esse tipo de resposta é tipico de gente que não sabe o que dizer
> e quer se livrar rápido pra não se comprometer (ou pior, falar mais
> merda).

Se eu falei merda, me aponte.
Se eu não falei merda, por que a provocação barata?

Você está frustrado por trabalhar construindo um framework barato para
colocar Progress na web e veio aqui me chatear por causa disso?

Eu recomendo a você mudar de ramo: vender cachorro quente nas praias de
Curitiba dá mais dinheiro e menos dor-de-cabeça que Progress...

Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 


From ptfzs em yahoo.com.br  Sun Jan 27 08:59:45 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Sun, 27 Jan 2008 08:59:45 -0800 (PST)
Subject: [Cascavel-pm] Ler partes do arquivo
Message-ID: <936684.12420.qm@web31313.mail.mud.yahoo.com>

Pessoal.. tenho um arquivo com aproximadamente 90 Mb..
Fiz um programa que le os dados desse arquivo e busca certos blocos ..
So que o arquivo eh muito grande... tem como eu ler parte por parte do arquivo e processar minha logica??
Ex: ler 10 Mb por vez.. e continuar lendo de 10 em 10

estava pesquisando e percebi que se eu definir a variavel $/  eu consigo.. 
como irei fazer um loop sobre ela??


Obrigada..




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080127/a2419f00/attachment.html 

From luismottacampos em yahoo.co.uk  Sun Jan 27 09:50:40 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Sun, 27 Jan 2008 18:50:40 +0100
Subject: [Cascavel-pm] Ler partes do arquivo
In-Reply-To: <936684.12420.qm@web31313.mail.mud.yahoo.com>
References: <936684.12420.qm@web31313.mail.mud.yahoo.com>
Message-ID: <479CC470.2040305@yahoo.co.uk>

Patty Silva wrote:
> Pessoal.. tenho um arquivo com aproximadamente 90 Mb..
> Fiz um programa que le os dados desse arquivo e busca certos blocos ..
> So que o arquivo eh muito grande... tem como eu ler parte por parte do 
> arquivo e processar minha logica??
> Ex: ler 10 Mb por vez.. e continuar lendo de 10 em 10
> 
> estava pesquisando e percebi que se eu definir a variavel $/  eu consigo..
> como irei fazer um loop sobre ela??

   Patty, o que você precisa é sysread(). Esquece a estratégia de setar 
$INPUT_RECORD_SEPARATOR (popularmente conhecido como $/), ele não serve 
para isso.

   perldoc -f sysread() e boa leitura!

   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  Sun Jan 27 15:16:59 2008
From: nferraz em gmail.com (Nelson Ferraz)
Date: Sun, 27 Jan 2008 23:16:59 +0000
Subject: [Cascavel-pm] Ler partes do arquivo
In-Reply-To: <479CC470.2040305@yahoo.co.uk>
References: <936684.12420.qm@web31313.mail.mud.yahoo.com>
	<479CC470.2040305@yahoo.co.uk>
Message-ID: <604cec170801271516v415a0679j98d1cc9f754b338e@mail.gmail.com>

> Pessoal.. tenho um arquivo com aproximadamente 90 Mb..
> Fiz um programa que le os dados desse arquivo e busca certos blocos ..
> So que o arquivo eh muito grande... tem como eu ler parte por parte do
> arquivo e processar minha logica??
> Ex: ler 10 Mb por vez.. e continuar lendo de 10 em 10
>
> estava pesquisando e percebi que se eu definir a variavel $/  eu consigo..
> como irei fazer um loop sobre ela??

    local $/ = \$size;

    while (<$fh>) {
        # ...
    }

O loop acima lê o arquivo em blocos de um tamanho especificado.

Se precisar de mais ajuda,

    perldoc perlvar e boa leitura!

From paulo em odos.com.br  Sun Jan 27 16:38:44 2008
From: paulo em odos.com.br (Paulo)
Date: Sun, 27 Jan 2008 21:38:44 -0300
Subject: [Cascavel-pm] Ler partes do arquivo
In-Reply-To: <936684.12420.qm@web31313.mail.mud.yahoo.com>
References: <936684.12420.qm@web31313.mail.mud.yahoo.com>
Message-ID: <479D2414.6080401@odos.com.br>

Patty Silva escreveu:
> Pessoal.. tenho um arquivo com aproximadamente 90 Mb..
> Fiz um programa que le os dados desse arquivo e busca certos blocos ..
> So que o arquivo eh muito grande... tem como eu ler parte por parte do 
> arquivo e processar minha logica??
> Ex: ler 10 Mb por vez.. e continuar lendo de 10 em 10
>
> estava pesquisando e percebi que se eu definir a variavel $/  eu 
> consigo..
> como irei fazer um loop sobre ela??
>
>
> Obrigada..
>


Sra. Patty, pelo que entendi você tem um arquivo grande (90MB) e quer 
quebra-lo em arquivos de (10MB) para poder processa-los. Se este 
processamento envolve delimitadores marcando INICIO e FIM de bloco, você 
terá que quebra-lo respeitando os blocos caso contrário a estrutura 
ficará corrompida. Já que terá que fazer isso porque não processa-lo 
linha a linha, simplificaria bastante.

Embora as informações fornecidas sejam escassas, por exemplo?

Precisa ser eficiente?

O arquivo é texto (quebrado em linhas)?

Os delimitadores de bloco são consistentes? ou seja, todo bloco é 
marcado por estes delimitadores e estes delimitadores são utilizados 
apenas para marcar os blocos.

O espaço em disco é limitado?

Vamos supor que os delimitadores de bloco sejam INICIO e FIM, e que 
estão espalhados pelas linhas. Suponhamos ainda que um bloco pode ou não 
estar em uma mesma linha e que você não tem problemas com espaço em 
disco e nem com eficiência.

Assim sendo:
A partir do arquivo de entrada podemos gerar um segundo arquivo, digamos 
pré-processado, que nos garanta que os delimitadore de início e fim de 
bloco estejam isolados em uma linha.

por exemplo assim:
#############################################################################
use strict;
use warnings;

open($fh_in,'<','Exemplo.txt') or die "$!";
open($fh_out,'>','Formatado.txt') or die "$!";
while my $line (<$fh_in>){
    $line =~ s/(INICIO|FIM)/\n$1\n/g;
    print $fh_out $line;
};
close($fh_in) or die "$!";
close($fh_out) or die "$!";
#############################################################################





Uma vez feito isso podemos tratar os blocos assim
#############################################################################
open($fh,'<','Formatado.txt') or die "$!";
my $bloco = '';
while my $line (<$fh>){
    next if(/^INICIO$/);
    if(/^FIM$/){
        processa_bloco(\$bloco);
        $bloco = '';
        next;
    };   
    $bloco .= $line;
};


sub processa_bloco{
    my $ref = shift;
    my $bloco = $$ref;
   
    ##########
    # Trate seus blocos aqui
    # ...
    ##########

};
#############################################################################

Não é eficiênte, está escrito de uma maneira criticável mas talvez
se encaixe melhor no seu problema.


OBSERVAÇÃO IMPORTANTE: Eu não testei este código, é quase certo que tem 
erro !!!  


Desejo-lhe sucesso,

Paulo



From luismottacampos em yahoo.co.uk  Mon Jan 28 00:58:52 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Mon, 28 Jan 2008 09:58:52 +0100
Subject: [Cascavel-pm] Ler partes do arquivo
In-Reply-To: <604cec170801271516v415a0679j98d1cc9f754b338e@mail.gmail.com>
References: <936684.12420.qm@web31313.mail.mud.yahoo.com>	<479CC470.2040305@yahoo.co.uk>
	<604cec170801271516v415a0679j98d1cc9f754b338e@mail.gmail.com>
Message-ID: <479D994C.9090106@yahoo.co.uk>

Nelson Ferraz wrote:
>     local $/ = \$size;
> 
>     while (<$fh>) {
>         # ...
>     }
> 
> O loop acima lê o arquivo em blocos de um tamanho especificado.

Upa! Olha, já não me lembrava disso... :D
Boa dica, Nélson!
Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}


From ptfzs em yahoo.com.br  Mon Jan 28 02:21:57 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 28 Jan 2008 02:21:57 -0800 (PST)
Subject: [Cascavel-pm] Res:  Ler partes do arquivo
Message-ID: <284102.17676.qm@web31308.mail.mud.yahoo.com>

yes :)
eu estava usando esse so que nao resolveu meu problema.. ele continua demorado :D
meu arquivo eh grande e eu pego XMb e coloco em uma variavel e vou comparando se existe um bloco
se existir ok.. grava em um array 
mas msm assim estava demorando :D


----- Mensagem original ----
De: Luis Motta Campos <luismottacampos em yahoo.co.uk>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Segunda-feira, 28 de Janeiro de 2008 8:58:52
Assunto: Re: [Cascavel-pm] Ler partes do arquivo

Nelson 
Ferraz 
wrote:
>  
  
 
local 
$/ 
= 
\$size;
> 
>  
  
 
while 
(<$fh>) 
{
>  
  
  
  
 
# 
...
>  
  
 
}
> 
> 
O 
loop 
acima 
lê 
o 
arquivo 
em 
blocos 
de 
um 
tamanho 
especificado.

Upa! 
Olha, 
já 
não 
me 
lembrava 
disso... 
:D
Boa 
dica, 
Nélson!
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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080128/620c058c/attachment.html 

From ptfzs em yahoo.com.br  Mon Jan 28 14:01:17 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 28 Jan 2008 14:01:17 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res: expressao regular
Message-ID: <918247.32711.qm@web31305.mail.mud.yahoo.com>

Pessoal..estou fazendo alguns testes:


my $string = "fora1 Begin dentro1 end Begin dentro2 end
Begin dentro3
end Begin dentro4 en
d fora2";

#while($s =~ m/\string?\n?(.*?)\s?(B\s?e\s?\s?g\s?i\s.*?\s?e\s?n\s?d\s?)\s?(.*?)/gis)

minha expressao pega tudo q esta dntro de Begin e End porem ele nao pega o fora2.. 
isso pq nao achou o Begin e end.. mas como eu faria para recupera-lo?

Obrigada




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080128/ea71a84d/attachment.html 

From luismottacampos em yahoo.co.uk  Tue Jan 29 00:40:29 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Tue, 29 Jan 2008 09:40:29 +0100
Subject: [Cascavel-pm] Res:  Res: expressao regular
In-Reply-To: <918247.32711.qm@web31305.mail.mud.yahoo.com>
References: <918247.32711.qm@web31305.mail.mud.yahoo.com>
Message-ID: <479EE67D.2000107@yahoo.co.uk>

Patty Silva wrote:
> Pessoal..estou fazendo alguns testes:
> 
> my $string = "fora1 Begin dentro1 end Begin dentro2 end Begin dentro3
>  end Begin dentro4 en d fora2";
> 
> #while($s =~ 
> m/\string?\n?(.*?)\s?(B\s?e\s?\s?g\s?i\s.*?\s?e\s?n\s?d\s?)\s?(.*?)/gis)
> 
> minha expressao pega tudo q esta dntro de Begin e End porem ele nao
> pega o fora2.. isso pq nao achou o Begin e end.. mas como eu faria
> para recupera-lo?

Patty, esta expressão regular mal consegue bater com "Begin" e "End":
repare que falta um "n" no final de "Begin", antes do ".*?" no centro da
expressão.

Eu também duvido que isto bata com alguma coisa, já que "\string?" (no
início da expressão) não consegue bater com nada nos seus dados.

Eu recomendo a você reescrever isso usando a opção "/x", que permite
introduzir espaços e comentários dentro da expressão regular.

Eu fiz isso:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $string = "fora1 Begin dentro1 end Begin dentro2 end Begin dentro3
end Begin dentro4 en d fora2";

my $spc        = qr{ \s* }x;
my $begin      = qr{ $spc [Bb] $spc [Ee] $spc [Gg] $spc [Ii] $spc [Nn]
$spc }x;
my $end        = qr{ $spc [Ee] $spc [Nn] $spc [Dd] $spc }x;
my $expression = qr{ ^ (.*?) (:? $begin (.*?) $end )+ (.*?) $spc $ }x;

print STDERR qq{Usando \n\n$expression\n\n para buscar dados\n};

my @data = $string =~ m{ $expression }gis;

print Dumper( \@data ), $/;
__END__

E a expressão regular que eu construo dinamicamente (para facilitar a
leitura) é:

(?x-ism: ^ (.*?) (:? (?x-ism: (?x-ism: \s* ) [Bb] (?x-ism: \s* ) [Ee]
(?x-ism: \s* ) [Gg] (?x-ism: \s* ) [Ii] (?x-ism: \s* ) [Nn] (?x-ism: \s*
) ) (.*?) (?x-ism: (?x-ism: \s* ) [Ee] (?x-ism: \s* ) [Nn] (?x-ism: \s*
) [Dd] (?x-ism: \s* ) ) )+ (.*?) (?x-ism: \s* ) $ )

Mas isso ainda não resolve o teu problema: a minha expressão regular
também não funciona.

Eu não tenho tempo para demonstrar isso agora, mas acho que a linguagem
que você está usando não é regular. Você poderia transformar isso numa
linguagem regular, acrescentando "begin" no início (se não houver) e
"end" no final (se não houver), antes de começar.

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  Tue Jan 29 08:18:50 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Tue, 29 Jan 2008 08:18:50 -0800 (PST)
Subject: [Cascavel-pm] Modulo Tie::Handle::CSV
Message-ID: <893737.33300.qm@web31311.mail.mud.yahoo.com>

Pessoal..
quem ja usou esse modulo e pode me dar uma ajuda??

N\A ,REF.name,REF.address,REF.phone,REF.phone2,REF.....................


28/01/2007 12:00:00,200JOHN,USA,989384839,938483,...............
28/01/2007 12:00:00,JOHN2,USA,999384839,918483,...............
28/01/2007 12:00:00,JOHN1,USA,959384839,928483,...............
28/01/2007 12:00:00,JOHN2,USA,929384839,998483,...............

28/01/2007 12:00:00,JOHN3,USA,939384839,978483,...............
...............
...............
...............

Tenho o CSV porem  a 1 coluna as vezes vem vazia.. porem os dados sao recebido..

No modulo Tie::Handle::CSV tem como eu acrescentar um nome na coluna??
pq quando eu fizer a referencia teria q vim o 1 campo no caso data...

Obrigada








      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080129/58f00587/attachment.html 

From rafamv1 em ig.com.br  Wed Jan 30 05:03:13 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Wed, 30 Jan 2008 10:03:13 -0300
Subject: [Cascavel-pm] "Carregar" session id.
Message-ID: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>

Bom dia, pessoal. Criei um código para gerar um session id, mas agora não
sei
como "carregar" esse id em todos os códigos do programa, permitindo o acesso
apenas
se o id estiver contido na url.

Esse código gera o ID:

#!/usr/bin/perl

use warnings;
use strict;
use CGI qw ( :standard);
use CGI::Session qw/-ip-match/;

my $file = '/var/www/cgi-bin/imm/sid.txt';
open( SID, '>', "$file" );

my $path_sessoes = '/tmp';
my $login;
my $session =
  new CGI::Session( "driver:File", undef, { 'Directory' => "$path_sessoes" }
);
$session->param( 'teste_tmg', "$login" );
$session->param( '_IDLE_EXPIRY' => time + 1800 );
$session->expire('+1d');
my $sid = $session->id();

print( SID "$sid" );
close(SID);
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080130/8a789295/attachment.html 

From otaviof em gmail.com  Wed Jan 30 05:33:18 2008
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Wed, 30 Jan 2008 11:33:18 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
Message-ID: <8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>

Rafael, bom dia,

Nao vejo erros na utilizacao do session ID. Durante a execucao do seu
codigo apenas corrigi um  erro:

otavio em nexus6:/tmp$ perl lembrao.pl
Use of uninitialized value in string at lembrao.pl line 16.
print() on closed filehandle SID at lembrao.pl line 21.

Depois de corrigir, o seu codigo ficou assim:

#!/usr/bin/env perl

use warnings;
use strict;

use CGI qw ( :standard );
use CGI::Session qw/-ip-match/;
use Data::Dumper;

my $file = '/tmp/teste_sid.txt';
open( my $SID, '>', "$file" );

my $path_sessoes = '/tmp';
my $login;

my $session = new CGI::Session( "driver:File", undef,
    { 'Directory' => $path_sessoes } );

$session->param( 'teste_tmg', $login );
$session->param( '_IDLE_EXPIRY' => time + 1800 );
$session->expire('+1d');

print Dumper $session;

my $sid = $session->id();

print $SID $sid, "\n";

close($SID);

__END__

E o conteudo do arquivo é:

otavio em nexus6:~/Sources/Perl/Examples$ cat /tmp/teste_sid.txt
e5e2d2806ca44635980d24ef2dd94a13

Portanto, acredito que voce soh tem que revisar o codigo com um pouco
mais de atencao e verificar os erros que o interpretador te retorna.
Eh uma boa oportunidade de melhorar a sua identacao e utilizar o
Perltidy (com as opcoes -pbp e -ce) e o Perl Critic.

Atenciosamente,

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

From luismottacampos em yahoo.co.uk  Wed Jan 30 05:40:35 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 30 Jan 2008 14:40:35 +0100
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>
Message-ID: <47A07E53.1020500@yahoo.co.uk>

Otávio Fernandes wrote:
> Portanto, acredito que voce soh tem que revisar o codigo com um pouco
> mais de atencao e verificar os erros que o interpretador te retorna.
> Eh uma boa oportunidade de melhorar a sua identacao e utilizar o
> Perltidy (com as opcoes -pbp e -ce) e o Perl Critic.

Eu posso assegurar que ele não vai conseguir usar o Perl Critic. Por
quê? Simples: se você me comparar com o Elliot Shank e o Damian Conway
juntos, eu sou o sujeito mais polido, educado e diplomático do mundo!

HuahUahuAhuaHuahUahuA!!!

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 Jan 30 05:43:04 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 30 Jan 2008 14:43:04 +0100
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
Message-ID: <47A07EE8.40202@yahoo.co.uk>

Rafael Lebrao Martins wrote:
> Bom dia, pessoal. Criei um código para gerar um session id, mas agora
> não sei como "carregar" esse id em todos os códigos do programa, permitindo o
> acesso apenas se o id estiver contido na url.

[código relativamente aceitável e que funciona, segundo o Otávio]

Rafael, RTFM.

E, adicionalmente: você *tem* *certeza* de que precisa usar CGI? Isso é
velho, cheio de bugs, ineficiente, confuso, difícil de manter e chato de
ler...

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


From rafamv1 em ig.com.br  Wed Jan 30 05:43:18 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Wed, 30 Jan 2008 10:43:18 -0300
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>
Message-ID: <3e759d2b0801300543wbbbab52qd76f852ac9558a9b@mail.gmail.com>

Bom dia, Otávio.. Vou prestar atenção nisso.. Mas o que não estou
conseguindo fazer é "carregar" o session id gerado por esse código, para
todos os outros códigos do programa. Da forma como está hoje, se o usuário
souber o endereço da página de configuração, por exemplo, é só digitar no
browser e acessar, não sendo necessária a autenticação.



2008/1/30, Otávio Fernandes <otaviof em gmail.com>:
>
> Rafael, bom dia,
>
> Nao vejo erros na utilizacao do session ID. Durante a execucao do seu
> codigo apenas corrigi um  erro:
>
> otavio em nexus6:/tmp$ perl lembrao.pl
> Use of uninitialized value in string at lembrao.pl line 16.
> print() on closed filehandle SID at lembrao.pl line 21.
>
> Depois de corrigir, o seu codigo ficou assim:
>
> #!/usr/bin/env perl
>
> use warnings;
> use strict;
>
> use CGI qw ( :standard );
> use CGI::Session qw/-ip-match/;
> use Data::Dumper;
>
> my $file = '/tmp/teste_sid.txt';
> open( my $SID, '>', "$file" );
>
> my $path_sessoes = '/tmp';
> my $login;
>
> my $session = new CGI::Session( "driver:File", undef,
>    { 'Directory' => $path_sessoes } );
>
> $session->param( 'teste_tmg', $login );
> $session->param( '_IDLE_EXPIRY' => time + 1800 );
> $session->expire('+1d');
>
> print Dumper $session;
>
> my $sid = $session->id();
>
> print $SID $sid, "\n";
>
> close($SID);
>
> __END__
>
> E o conteudo do arquivo é:
>
> otavio em nexus6:~/Sources/Perl/Examples$ cat /tmp/teste_sid.txt
> e5e2d2806ca44635980d24ef2dd94a13
>
> Portanto, acredito que voce soh tem que revisar o codigo com um pouco
> mais de atencao e verificar os erros que o interpretador te retorna.
> Eh uma boa oportunidade de melhorar a sua identacao e utilizar o
> Perltidy (com as opcoes -pbp e -ce) e o Perl Critic.
>
> Atenciosamente,
>
> --
> | --
> | Otávio Fernandes < otaviof | gmail | com >
> | FreeBSD 7.0-PRERELEASE && GNU/Linux User: 283.396
> | (( Especial Programação )) http://geekbr.podcastbrasil.com/ -- 0.15
> | --
> _______________________________________________
> 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/20080130/68878177/attachment.html 

From otaviof em gmail.com  Wed Jan 30 05:46:44 2008
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Wed, 30 Jan 2008 11:46:44 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <3e759d2b0801300543wbbbab52qd76f852ac9558a9b@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>
	<3e759d2b0801300543wbbbab52qd76f852ac9558a9b@mail.gmail.com>
Message-ID: <8e3843570801300546s543d92fbm5d2ef6b3e25513ae@mail.gmail.com>

Rafael,

Se vc executar o codigo como eu te mandei, vai conseguir ;-).

um abraco,

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

From otaviof em gmail.com  Wed Jan 30 05:50:35 2008
From: otaviof em gmail.com (=?ISO-8859-1?Q?Ot=E1vio_Fernandes?=)
Date: Wed, 30 Jan 2008 11:50:35 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <47A07E53.1020500@yahoo.co.uk>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<8e3843570801300533t435f3355tbaaf82011b6942f1@mail.gmail.com>
	<47A07E53.1020500@yahoo.co.uk>
Message-ID: <8e3843570801300550h267cb25dje7494779f42c8500@mail.gmail.com>

hehehehehe :-) ogro++;

Realmente compensa dar uma olhada nestes dois, os quais vao fazer o
seu codigo ter uma melhor qualidade e consistencia. Recomendo que vc
use a opcao -pbp (Perl Best Pratices) no Perltidy, e que tenha o livro
ao seu alcance, pois quando ele te avisa de uma mudanca, ele dah todo
o embasamento a partir do livro.

um abraco,

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

From rafamv1 em ig.com.br  Wed Jan 30 06:06:03 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Wed, 30 Jan 2008 11:06:03 -0300
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <47A07EE8.40202@yahoo.co.uk>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
Message-ID: <3e759d2b0801300606k77fab18bi289b292ac0e84ad8@mail.gmail.com>

Em 30/01/08, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> Rafael Lebrao Martins wrote:
>
> E, adicionalmente: você *tem* *certeza* de que precisa usar CGI? Isso é
> velho, cheio de bugs, ineficiente, confuso, difícil de manter e chato de
> ler...


Você sugere que eu use o quê?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080130/e2b53321/attachment.html 

From edencardim em gmail.com  Wed Jan 30 07:31:36 2008
From: edencardim em gmail.com (eden)
Date: Wed, 30 Jan 2008 12:31:36 -0300
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <3e759d2b0801300606k77fab18bi289b292ac0e84ad8@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<3e759d2b0801300606k77fab18bi289b292ac0e84ad8@mail.gmail.com>
Message-ID: <3de55ead0801300731o40e594f7x4881aac7a1fc2c7d@mail.gmail.com>

2008/1/30 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> Você sugere que eu use o quê?

Qualquer um dos inúmeros frameworks de webdevelopment que existem por
aí: Mason, Jifty, Catalyst...
Eu pessoalmente recomendo o Catalyst, mas qualquer um desses que você
usar já é um grande passo. Raios! até Ruby on Rails é melhor que
CGI.pm

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Wed Jan 30 07:49:50 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 30 Jan 2008 16:49:50 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?O_que_usar_ao_inv=E9s_de_CGI=2E=2E?=
 =?iso-8859-1?q?=2E_=5BWas=3A_=22Carregar=22_session_id=5D?=
In-Reply-To: <3de55ead0801300731o40e594f7x4881aac7a1fc2c7d@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>	<47A07EE8.40202@yahoo.co.uk>	<3e759d2b0801300606k77fab18bi289b292ac0e84ad8@mail.gmail.com>
	<3de55ead0801300731o40e594f7x4881aac7a1fc2c7d@mail.gmail.com>
Message-ID: <47A09C9E.2070203@yahoo.co.uk>

eden wrote:
> 2008/1/30 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
>> Você sugere que eu use o quê?
> 
> Qualquer um dos inúmeros frameworks de webdevelopment que existem por
> aí: Mason, Jifty, Catalyst...
> Eu pessoalmente recomendo o Catalyst, mas qualquer um desses que você
> usar já é um grande passo. Raios! até Ruby on Rails é melhor que
> CGI.pm

Eu endosso até a recomendação do Ruby... ;) e olha que é Ruby...

Mas você pode melhorar a tua vida simplesmente partindo para o
CGI::Application. A pesar de continuar usando o CGI por baixo dos panos,
ele vai te dar outra visão sobre o assunto. O que, neste momento, é o
que mais importa.

Eu escrevi um artiguinho sobre isso, e até dei algumas palestras sobre a
combinação, em Sampa...

http://sao-paulo.pm.org/papers/champs/cgi-app-paper/index.html

Isso é velho, mas já é uma melhoria. Vai te mostrar como as coisas podem
funcionar. Depois, você volta com mais perguntas, mostra que você fez
tua lição-de-casa, e a gente continua te mostrando o caminho das
pedras... ;)

Ah! O CGI::Application está aqui:
http://search.cpan.org/~markstos/CGI-Application-4.06/lib/CGI/Application.pm

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


From acid06 em gmail.com  Wed Jan 30 08:47:04 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 30 Jan 2008 14:47:04 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <47A07EE8.40202@yahoo.co.uk>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
Message-ID: <9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>

2008/1/30 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> E, adicionalmente: você *tem* *certeza* de que precisa usar CGI? Isso é
> velho, cheio de bugs, ineficiente, confuso, difícil de manter e chato de
> ler...

Gostaria de saber quais bugs existem em CGI.
Não estou dizendo pra ninguém usar e nem discordando dos outros
argumentos. Mas... "cheio de bugs"?

-Nilson Santos F. Jr.

From glasswalk3r em yahoo.com.br  Wed Jan 30 09:16:03 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 30 Jan 2008 14:16:03 -0300 (ART)
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
Message-ID: <640661.58190.qm@web30806.mail.mud.yahoo.com>


--- Nilson Santos Figueiredo Junior <acid06 em gmail.com>
escreveu:

> Gostaria de saber quais bugs existem em CGI.
> Não estou dizendo pra ninguém usar e nem discordando
> dos outros
> argumentos. Mas... "cheio de bugs"?

Eu reportei um bug nele... mas já faz algum tempo e a
última vez que olhei ele não tinha sido corrigido. Mas
isso não faz ele cheio de bugs.

Para os projetos GPL que eu publiquei que usam CGI, eu
usei o CGI.pm mesmo, até porque as coisas
implementadas eram simples. Mas para os paradigmas
atuais, eles parecem um Fiat 147.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From rafamv1 em ig.com.br  Wed Jan 30 09:25:33 2008
From: rafamv1 em ig.com.br (Rafael Lebrao Martins)
Date: Wed, 30 Jan 2008 14:25:33 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?O_que_usar_ao_inv=E9s_de_CGI=2E=2E?=
	=?iso-8859-1?q?=2E_=5BWas=3A_=22Carregar=22_session_id=5D?=
In-Reply-To: <47A09C9E.2070203@yahoo.co.uk>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<3e759d2b0801300606k77fab18bi289b292ac0e84ad8@mail.gmail.com>
	<3de55ead0801300731o40e594f7x4881aac7a1fc2c7d@mail.gmail.com>
	<47A09C9E.2070203@yahoo.co.uk>
Message-ID: <3e759d2b0801300925y38827908x583c4a38e89c2a40@mail.gmail.com>

Beleza.. Obrigado... :)

Em 30/01/08, Luis Motta Campos <luismottacampos em yahoo.co.uk> escreveu:
>
> eden wrote:
> > 2008/1/30 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> >> Você sugere que eu use o quê?
> >
> > Qualquer um dos inúmeros frameworks de webdevelopment que existem por
> > aí: Mason, Jifty, Catalyst...
> > Eu pessoalmente recomendo o Catalyst, mas qualquer um desses que você
> > usar já é um grande passo. Raios! até Ruby on Rails é melhor que
> > CGI.pm
>
> Eu endosso até a recomendação do Ruby... ;) e olha que é Ruby...
>
> Mas você pode melhorar a tua vida simplesmente partindo para o
> CGI::Application. A pesar de continuar usando o CGI por baixo dos panos,
> ele vai te dar outra visão sobre o assunto. O que, neste momento, é o
> que mais importa.
>
> Eu escrevi um artiguinho sobre isso, e até dei algumas palestras sobre a
> combinação, em Sampa...
>
> http://sao-paulo.pm.org/papers/champs/cgi-app-paper/index.html
>
> Isso é velho, mas já é uma melhoria. Vai te mostrar como as coisas podem
> funcionar. Depois, você volta com mais perguntas, mostra que você fez
> tua lição-de-casa, e a gente continua te mostrando o caminho das
> pedras... ;)
>
> Ah! O CGI::Application está aqui:
>
> http://search.cpan.org/~markstos/CGI-Application-4.06/lib/CGI/Application.pm
>
> Divirta-se!
> 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080130/0e00bd07/attachment.html 

From luismottacampos em yahoo.co.uk  Wed Jan 30 14:36:07 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Wed, 30 Jan 2008 23:36:07 +0100
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
Message-ID: <47A0FBD7.2060308@yahoo.co.uk>

Nilson Santos Figueiredo Junior wrote:
> 2008/1/30 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
>> E, adicionalmente: você *tem* *certeza* de que precisa usar CGI? Isso é
>> velho, cheio de bugs, ineficiente, confuso, difícil de manter e chato de
>> ler...
> 
> Gostaria de saber quais bugs existem em CGI.
> Não estou dizendo pra ninguém usar e nem discordando dos outros
> argumentos. Mas... "cheio de bugs"?

Sim, *cheio* de bugs.

http://rt.cpan.org/Public/Dist/Display.html?Name=CGI.pm

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

From acid06 em gmail.com  Wed Jan 30 17:42:17 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 30 Jan 2008 23:42:17 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <47A0FBD7.2060308@yahoo.co.uk>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
Message-ID: <9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>

On Jan 30, 2008 8:36 PM, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> Sim, *cheio* de bugs.
>
> http://rt.cpan.org/Public/Dist/Display.html?Name=CGI.pm

Se é assim, é melhor parar de desenvolver em Perl então...

  http://rt.perl.org/rt3/Public/

Eduque *corretamente* as pessoas. O único problema de scripts CGI é a
falta de peformance pois exige que um processo seja iniciado e
terminado para servir um request. Desconsiderando isso, bem, você pode
rodar Catalyst como um script CGI, se você quiser.

-Nilson Santos F. Jr.

From agnaldo em starweb-software.com.br  Wed Jan 30 18:10:56 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Thu, 31 Jan 2008 00:10:56 -0200
Subject: [Cascavel-pm] "Carregar" session id.
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com><47A07EE8.40202@yahoo.co.uk><9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com><47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
Message-ID: <003101c863ae$83eb3bb0$6501a8c0@swmobile>


Se teu interesse for fazer aplicação, usando interface web, e não apenas 
alguns scripts para um site, avalie o uso do Flex, da Adobe, na camada de 
interface.


From edencardim em gmail.com  Wed Jan 30 20:54:52 2008
From: edencardim em gmail.com (eden)
Date: Thu, 31 Jan 2008 01:54:52 -0300
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <003101c863ae$83eb3bb0$6501a8c0@swmobile>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
Message-ID: <3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>

On Jan 30, 2008 11:10 PM, Agnaldo Macedo
<agnaldo em starweb-software.com.br> wrote:
>
> Se teu interesse for fazer aplicação, usando interface web, e não apenas
> alguns scripts para um site, avalie o uso do Flex, da Adobe, na camada de
> interface.

Acho que ganha-se muito mais usando software open source.

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Thu Jan 31 00:01:49 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 31 Jan 2008 09:01:49 +0100
Subject: [Cascavel-pm] CGI.pm & Bugs [Was: "Carregar" session id.]
In-Reply-To: <9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>	<47A07EE8.40202@yahoo.co.uk>	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
Message-ID: <47A1806D.2020204@yahoo.co.uk>

Nilson Santos Figueiredo Junior wrote:
> On Jan 30, 2008 8:36 PM, Luis Motta Campos
> <luismottacampos em yahoo.co.uk> wrote:
>> Sim, *cheio* de bugs.
>> 
>> http://rt.cpan.org/Public/Dist/Display.html?Name=CGI.pm
> 
> Se é assim, é melhor parar de desenvolver em Perl então...
> 
> http://rt.perl.org/rt3/Public/
> 
> Eduque *corretamente* as pessoas.

Desculpe, mas você pode por favor me dizer o que foi que eu fiz de errado?

Você me fez uma pergunta simples, e eu te dei uma resposta simples, e
precisa. Se eu errei, eu me desculpo. Mas por favor me aponte o que está 
errado, sim?

> O único problema de scripts CGI é a falta de peformance pois exige
> que um processo seja iniciado e terminado para servir um request.
> Desconsiderando isso, bem, você pode rodar Catalyst como um script
> CGI, se você quiser.

Você concordou (veja o outro email) que o CGI.pm também é "confuso" e 
"difícil de manter". Seja coerente, sim?

Para o que o CGI.pm é, e pelo tempo que está no CORE:: do Perl, já não
deveria ter tantos problemas.

Você já disse que concorda com os outros argumentos, e este está
provado. Ou será que a minha "prova" não é boa?

Eu me pergunto onde está a lista de bugs do Java, ou do VB... será que
alguém consegue encontrar uma?

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  Thu Jan 31 02:03:54 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 31 Jan 2008 11:03:54 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
Message-ID: <47A19D0A.1000708@yahoo.co.uk>

Gente, eu estou construindo uma gramática LALR(1) em Bison para
implementar a RFC2622, e estou com um problema de implementação que
talvez alguém aqui saiba como resolver.

O que a RFC2822 chama de objeto é uma lista de pares nome-valor, mais ou
menos assim:

person: <nome-pessoa>
address: <endereco>
address: <endereco>
address: <endereco>
phone: <telefone>
phone: <telefone>
nic-hdl: <nic-handle>

O "objeto" é delimitado por uma linha em branco. Quando encontrar uma
linha em branco, começa um novo objeto.

Existem atributos (nomes) obrigatórios e opcionais. Por exemplo:
"person:", "address:", "phone:" e "nic-hdl:" são todos atributos
obrigatórios. "fax-no:" é opcional.

A ordem dos atributos (exceto o primeiro, "person:") não é garantida, e
qualquer ordem (contanto que "person:" seja o primeiro) é válida.

O meu problema está exatamente nisso: eu não tenho idéia de como
implementar uma lista de pares nome-valor sem enforçar a ordem dos
atributos, usando uma LALR(1).

Alguém pode me dar uma sugestão?

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  Thu Jan 31 03:20:46 2008
From: fglock em gmail.com (Flavio S. Glock)
Date: Thu, 31 Jan 2008 11:20:46 +0000
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
In-Reply-To: <47A19D0A.1000708@yahoo.co.uk>
References: <47A19D0A.1000708@yahoo.co.uk>
Message-ID: <aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>

Luis:

Isso pode ser resolvido dividindo o problema em duas etapas: construa
uma "lista" de "item".
Depois, defina "item" como sendo: "person" | "address" | ...

(baseado na minha experiencia com o Parse::Yapp, que pode funcionar
diferente do bison)

-Flavio S. Glock

Em 31/01/08, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> Gente, eu estou construindo uma gramática LALR(1) em Bison para
> implementar a RFC2622, e estou com um problema de implementação que
> talvez alguém aqui saiba como resolver.
>
> O que a RFC2822 chama de objeto é uma lista de pares nome-valor, mais ou
> menos assim:
>
> person: <nome-pessoa>
> address: <endereco>
> address: <endereco>
> address: <endereco>
> phone: <telefone>
> phone: <telefone>
> nic-hdl: <nic-handle>
>
> O "objeto" é delimitado por uma linha em branco. Quando encontrar uma
> linha em branco, começa um novo objeto.
>
> Existem atributos (nomes) obrigatórios e opcionais. Por exemplo:
> "person:", "address:", "phone:" e "nic-hdl:" são todos atributos
> obrigatórios. "fax-no:" é opcional.
>
> A ordem dos atributos (exceto o primeiro, "person:") não é garantida, e
> qualquer ordem (contanto que "person:" seja o primeiro) é válida.
>
> O meu problema está exatamente nisso: eu não tenho idéia de como
> implementar uma lista de pares nome-valor sem enforçar a ordem dos
> atributos, usando uma LALR(1).
>
> Alguém pode me dar uma sugestão?
>
> Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From luismottacampos em yahoo.co.uk  Thu Jan 31 04:32:44 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 31 Jan 2008 13:32:44 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
In-Reply-To: <aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>
References: <47A19D0A.1000708@yahoo.co.uk>
	<aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>
Message-ID: <47A1BFEC.8090103@yahoo.co.uk>

Flavio S. Glock wrote:
> Luis:
> 
> Isso pode ser resolvido dividindo o problema em duas etapas: construa
> uma "lista" de "item".
> Depois, defina "item" como sendo: "person" | "address" | ...
> 
> (baseado na minha experiencia com o Parse::Yapp, que pode funcionar
> diferente do bison)

OK, ok, eu quase cheguei lá, eu acho.

/** BEGIN GRAMMAR **/
%token IDENTIFIER
%token STRING

%%

/***** TERMINALS FOR person: *****/
/* "person:" single-valued, mandatory. */
person: "person:" STRING
    ;

/* "address:" multi-valued, mandatory */
address: "address:" STRING
    ;
address_lst: address
    | address address_lst
    ;

/* "phone:" multi-valued, mandatory */
phone: "phone:" DIGITS
    ;

phone_lst: phone
    | phone phone_lst
    ;

/* "fax-no:" multi-valued, optional */
fax_no: "fax-no:" DIGITS
    ;
fax_no_lst: /* EMPTY */
    | fax_no fax_no_lst
    | fax_no
    ;

/* "nic-hdl:" single-valued, indexed, mandatory */
nic_hdl: "nic-hdl:" IDENTIFIER
    ;

/* "e-mail:" multi-valued, mandatory */
email: "e-mail:" STRING
    ;
email_lst: email
    | email email_lst
    ;
/****** END TERMINALS FOR person: *****/

/* All RPSL code is a list of RPSL objects */
object_list: /* EMPTY */
    | object object_list
    | object
    ;

/* All objects in RPSL (for now) are "person" objects */
object: person_obj
    ;

/* Person objects are a list of person attributes */
person_object: person person_attr_lst
    ;

person_attr_lst: person_attr
    | person_attr person_attr_lst
    ;

/* A person_attr_list is a list of person-related attributes */
person_attr: address_lst
    | phone_lst
    | fax_no_lst
    | nic_hdl
    | email_lst
    ;
/** END GRAMMAR **/

Bom, como você reparou,

person: xxxxx
address: yyyy

é um person object válido, e não é bem isso que eu quero.

Você tem alguma idéia de como enforçar a presença de atributos mandatórios?

Obrigado pelas dicas!
Putamplexos!
-- 
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  Thu Jan 31 04:48:03 2008
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 31 Jan 2008 10:48:03 -0200
Subject: [Cascavel-pm] "Carregar" session id.
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
Message-ID: <00eb01c86407$84c34ec0$0901a8c0@servidorliz>

Minha dica é a seguinte:

Utilize a função de espalhamento, conhecida como MD5 (do módulo "Digest")

faça uma função pegando: "time" e "$pid", se possível também pegue o nome do usuário.

Com essa três informações pode-se criar um sessionID com o "md5_hex" do Digest:MD5

usando a função md5_hex a possibilidade de criar um mesmo sessionID é de 2**128 (dois na cento e vinte e oito)

[]s,
Fernando

  ----- Original Message ----- 
  From: Rafael Lebrao Martins 
  To: cascavel-pm em pm.org 
  Sent: Wednesday, January 30, 2008 11:03 AM
  Subject: [Cascavel-pm] "Carregar" session id.


  Bom dia, pessoal. Criei um código para gerar um session id, mas agora não sei 
  como "carregar" esse id em todos os códigos do programa, permitindo o acesso apenas
  se o id estiver contido na url. 

  Esse código gera o ID:

  #!/usr/bin/perl

  use warnings;
  use strict;
  use CGI qw ( :standard);
  use CGI::Session qw/-ip-match/;

  my $file = '/var/www/cgi-bin/imm/sid.txt';
  open( SID, '>', "$file" );

  my $path_sessoes = '/tmp';
  my $login;
  my $session =
    new CGI::Session( "driver:File", undef, { 'Directory' => "$path_sessoes" } );
  $session->param( 'teste_tmg', "$login" );
  $session->param( '_IDLE_EXPIRY' => time + 1800 );
  $session->expire('+1d');
  my $sid = $session->id();

  print( SID "$sid" );
  close(SID);




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


  _______________________________________________
  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/20080131/114e2e8a/attachment.html 

From fglock em gmail.com  Thu Jan 31 04:57:23 2008
From: fglock em gmail.com (Flavio S. Glock)
Date: Thu, 31 Jan 2008 12:57:23 +0000
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
In-Reply-To: <47A1BFEC.8090103@yahoo.co.uk>
References: <47A19D0A.1000708@yahoo.co.uk>
	<aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>
	<47A1BFEC.8090103@yahoo.co.uk>
Message-ID: <aa47605d0801310457o18d0e047xc494dc9515cc96e@mail.gmail.com>

Em 31/01/08, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> Bom, como você reparou,
>
> person: xxxxx
> address: yyyy
>
> é um person object válido, e não é bem isso que eu quero.
>
> Você tem alguma idéia de como enforçar a presença de atributos mandatórios?
>

Você precisa usar "actions", que são pequenos pedaços de código dentro
da gramática.
Você provavelmente precisará de actions em 3 lugares:

Ao reconhecer o início de uma lista - zere os flags que representam os
atributos obrigatórios;
Ao reconhecer cada atributo - marque o flag correspondente como "presente";
No final da lista - verifique se todos os atributos foram
apresentados. Este é o lugar em que você deve inserir uma mensagem de
erro.

- Flavio S. Glock

From wendelscardua em gmail.com  Thu Jan 31 05:01:40 2008
From: wendelscardua em gmail.com (Wendel Scardua)
Date: Thu, 31 Jan 2008 11:01:40 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <00eb01c86407$84c34ec0$0901a8c0@servidorliz>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<00eb01c86407$84c34ec0$0901a8c0@servidorliz>
Message-ID: <726229b50801310501k4eedb23ai886fdf00c656be59@mail.gmail.com>

2008/1/31  <fernandolouis em terra.com.br>:
>
> usando a função md5_hex a possibilidade de criar um mesmo sessionID é de
> 2**128 (dois na cento e vinte e oito)
>

Espero que você queira dizer "é de uma em 2**128" :-)

[]s
Wendel, lembrando que 2**128 parece medida de "improbabilidade"
(Douglas Adams TM)

From luismottacampos em yahoo.co.uk  Thu Jan 31 05:16:01 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 31 Jan 2008 14:16:01 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
In-Reply-To: <aa47605d0801310457o18d0e047xc494dc9515cc96e@mail.gmail.com>
References: <47A19D0A.1000708@yahoo.co.uk>	<aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>	<47A1BFEC.8090103@yahoo.co.uk>
	<aa47605d0801310457o18d0e047xc494dc9515cc96e@mail.gmail.com>
Message-ID: <47A1CA11.8020507@yahoo.co.uk>

Flavio S. Glock wrote:
> Você precisa usar "actions", que são pequenos pedaços de código
> dentro da gramática. Você provavelmente precisará de actions em 3
> lugares:
> 
> Ao reconhecer o início de uma lista - zere os flags que representam
> os atributos obrigatórios; Ao reconhecer cada atributo - marque o
> flag correspondente como "presente"; No final da lista - verifique se
> todos os atributos foram apresentados. Este é o lugar em que você
> deve inserir uma mensagem de erro.

OK, não se preocupe com os "actions" agora, Flávio... eu estou apenas
querendo estabelecer que a ausência de um dos atributos "mandatórios" é
considerado "erro de sintaxe" pelo Grammar, sem precisar de regras de
negócio para isso... você pode por favor me indicar se existe uma
técnica que eu deveria usar para dizer a especificação abaixo?

Uma lista não-ordenada de atributos, contendo pelo menos:
  1. Um 'person:', sempre o primeiro da lista;
  2. Exatamente um 'nic-hdl:' (em qualquer posição da lista)
  3. Pelo menos uma instância dos atributos
('address:','phone:','e-mail:'), (em qualquer posição da lista);
  4. Talvez um ou mais atributos 'fax-no:' (em qualquer posição da lista);


Eu consegui resolver (1) (tenho um 'person:', está sempre na "cabeça" da
lista); parte de (3) (eu tenho a lista de atributos em qualquer ordem,
mas não garanto que eles aparecem pelo menos uma vez cada; parte de (4)
eu reconheço zero ou mais listas de 'fax-no:', mas não consigo dizer se
ele apareceu ou não até agora.

Pelo que eu estou entendendo da tua resposta, tudo o que está faltando
agora deve ser implementado como "actions" dentro da gramática.

Isso não é um pouco demais? Talvez exista uma forma de garantir que
determinados elementos aparecem pelo menos uma vez?

Eu poderia tentar gerar regras para todas as combinações possíveis, mas
acho que isso é regra demais, a coisa vai ficar bagunçada. Deve existir
uma forma mais simples de fazer.

Qualquer sugestão é bem-vinda.

Eu vou continuar mexendo com isso hoje à noite.
Obrigado pelas dicas!
Putamplexos!
-- 
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  Thu Jan 31 05:33:26 2008
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 31 Jan 2008 11:33:26 -0200
Subject: [Cascavel-pm] "Carregar" session id.
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com><00eb01c86407$84c34ec0$0901a8c0@servidorliz>
	<726229b50801310501k4eedb23ai886fdf00c656be59@mail.gmail.com>
Message-ID: <007601c8640d$dc328530$0901a8c0@servidorliz>

exatamente!

Ahh, esqueci de dizer que após ter gerado o digest, é impossível fazer o 
reverso,
ou seja, não dá para saber o "nome-original" através de um digest gerado.

[]s,
Fernando

----- Original Message ----- 
From: "Wendel Scardua" <wendelscardua em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, January 31, 2008 11:01 AM
Subject: Re: [Cascavel-pm] "Carregar" session id.


2008/1/31  <fernandolouis em terra.com.br>:
>
> usando a função md5_hex a possibilidade de criar um mesmo sessionID é de
> 2**128 (dois na cento e vinte e oito)
>

Espero que você queira dizer "é de uma em 2**128" :-)

[]s
Wendel, lembrando que 2**128 parece medida de "improbabilidade"
(Douglas Adams TM)
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From fglock em gmail.com  Thu Jan 31 05:34:36 2008
From: fglock em gmail.com (Flavio S. Glock)
Date: Thu, 31 Jan 2008 13:34:36 +0000
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
In-Reply-To: <47A1CA11.8020507@yahoo.co.uk>
References: <47A19D0A.1000708@yahoo.co.uk>
	<aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>
	<47A1BFEC.8090103@yahoo.co.uk>
	<aa47605d0801310457o18d0e047xc494dc9515cc96e@mail.gmail.com>
	<47A1CA11.8020507@yahoo.co.uk>
Message-ID: <aa47605d0801310534u27614161m30a8bd5d556cee50@mail.gmail.com>

Em 31/01/08, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> Isso não é um pouco demais? Talvez exista uma forma de garantir que
> determinados elementos aparecem pelo menos uma vez?
>

Esta é justamente a limitação de uma "gramática livre de contexto"
(até onde eu entendo), que o bison usa.

Por isso, você precisa usar extensões (actions, por exemplo) para
implementar isso.
Talvez o bison tenha outras extensões úteis?

- Flavio S. Glock

From luismottacampos em yahoo.co.uk  Thu Jan 31 05:44:47 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 31 Jan 2008 14:44:47 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BOT=5D_Bison=2C_algu=E9m=3F?=
In-Reply-To: <aa47605d0801310534u27614161m30a8bd5d556cee50@mail.gmail.com>
References: <47A19D0A.1000708@yahoo.co.uk>	<aa47605d0801310320n49812b95t4da7b5c15e5f0cd1@mail.gmail.com>	<47A1BFEC.8090103@yahoo.co.uk>	<aa47605d0801310457o18d0e047xc494dc9515cc96e@mail.gmail.com>	<47A1CA11.8020507@yahoo.co.uk>
	<aa47605d0801310534u27614161m30a8bd5d556cee50@mail.gmail.com>
Message-ID: <47A1D0CF.1060706@yahoo.co.uk>

Flavio S. Glock wrote:
> Em 31/01/08, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
>> Isso não é um pouco demais? Talvez exista uma forma de garantir que
>>  determinados elementos aparecem pelo menos uma vez?
> 
> Esta é justamente a limitação de uma "gramática livre de contexto" 
> (até onde eu entendo), que o bison usa.
> 
> Por isso, você precisa usar extensões (actions, por exemplo) para 
> implementar isso. Talvez o bison tenha outras extensões úteis?

Argh. Era o que eu temia... Bom, de volta para a prancheta... talvez o
Bison tenha sim alguma extensão para isso.

Vou pesquisar e depois posto o que eu descobrir, se você (ou alguém
mais) estiver interessado.

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


From agnaldo em starweb-software.com.br  Thu Jan 31 06:00:43 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Thu, 31 Jan 2008 12:00:43 -0200
Subject: [Cascavel-pm] "Carregar" session id.
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
Message-ID: <005701c86411$ab9269a0$6501a8c0@swmobile>


O SDK (compilador) do Flex é Open Source.

É uma situação semelhante à do pessoal que usa Java.
O SDK é free.
Se precisar de uma IDE, aí sim, procura uma que seja do mundo Open ou banca
a do fornecedor.

Situação semelhante também à que ActiveState faz.
Tu podes baixar adistribuição Perl dela.
Mas a IDE dela (Komodo) é licenciada.


----- Original Message ----- 
From: "eden" <edencardim em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Thursday, January 31, 2008 2:54 AM
Subject: Re: [Cascavel-pm] "Carregar" session id.


On Jan 30, 2008 11:10 PM, Agnaldo Macedo
<agnaldo em starweb-software.com.br> wrote:
>
> Se teu interesse for fazer aplicação, usando interface web, e não apenas
> alguns scripts para um site, avalie o uso do Flex, da Adobe, na camada de
> interface.

Acho que ganha-se muito mais usando software open source.

-- 
edenc.vox.com 


From edencardim em gmail.com  Thu Jan 31 06:24:43 2008
From: edencardim em gmail.com (eden)
Date: Thu, 31 Jan 2008 11:24:43 -0300
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <005701c86411$ab9269a0$6501a8c0@swmobile>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
	<005701c86411$ab9269a0$6501a8c0@swmobile>
Message-ID: <3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>

2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>
> O SDK (compilador) do Flex é Open Source.
>
> É uma situação semelhante à do pessoal que usa Java.
> O SDK é free.
> Se precisar de uma IDE, aí sim, procura uma que seja do mundo Open ou banca
> a do fornecedor.

Não é similar ao Java porque o runtime do flex é proprietário e a JRE
do Java é open source.

> Situação semelhante também à que ActiveState faz.
> Tu podes baixar adistribuição Perl dela.
> Mas a IDE dela (Komodo) é licenciada.

É bem diferente, o compilador/runtime que a active state distribui é
um fork do fonte do perl, é completamente independente da IDE e é open
source. O komodo é só um editor bonitinho com algumas ferramentas
integradas. Ou seja, você pode desenvolver e implantar uma aplicação
em ambiente de produção sem ter que pagar 1 centavo à active state. Eu
ainda prefiro vanilla/strawberry perl porque li em algum lugar na
lincesa da distribuição da active state que ela não pode ser
empacotada e distribuída junto com o seu software, posso estar
enganado. No meu ponto de vista como desenvolvedor isso só me atrasa
porque a distribuição fica menos conveniente pro cliente.

Fora isso tenho uma tendência a não gostar de shockwave flash,
principalmente porque as aplicações flash não são stateless, ou seja,
eu não posso criar um link prum determinado estado da aplicação e
colar neste email, ou criar um bookmark, ou incluir aquele estado em
outra aplicação, eu preciso falar "abre este link depois clica aqui,
aqui e aqui".

-- 
edenc.vox.com

From luismottacampos em yahoo.co.uk  Thu Jan 31 06:56:22 2008
From: luismottacampos em yahoo.co.uk (Luis Motta Campos)
Date: Thu, 31 Jan 2008 15:56:22 +0100
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>	<47A07EE8.40202@yahoo.co.uk>	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>	<47A0FBD7.2060308@yahoo.co.uk>	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>	<003101c863ae$83eb3bb0$6501a8c0@swmobile>	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>	<005701c86411$ab9269a0$6501a8c0@swmobile>
	<3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
Message-ID: <47A1E196.1010709@yahoo.co.uk>

eden wrote:
> 2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
>> Situação semelhante também à que ActiveState faz. Tu podes baixar
>> adistribuição Perl dela. Mas a IDE dela (Komodo) é licenciada.
> 
> É bem diferente, o compilador/runtime que a active state distribui é 
> um fork do fonte do perl, é completamente independente da IDE e é
> open source. O komodo é só um editor bonitinho com algumas
> ferramentas integradas. Ou seja, você pode desenvolver e implantar
> uma aplicação em ambiente de produção sem ter que pagar 1 centavo à
> active state. Eu ainda prefiro vanilla/strawberry perl porque li em
> algum lugar na lincesa da distribuição da active state que ela não
> pode ser empacotada e distribuída junto com o seu software, posso
> estar enganado. No meu ponto de vista como desenvolvedor isso só me
> atrasa porque a distribuição fica menos conveniente pro cliente.

Você está certo sobre esta parte. A distro da Active State não é muito
conveniente para ambientes de produção.

> Fora isso tenho uma tendência a não gostar de shockwave flash, 
> principalmente porque as aplicações flash não são stateless, ou seja,
>  eu não posso criar um link prum determinado estado da aplicação e 
> colar neste email, ou criar um bookmark, ou incluir aquele estado em 
> outra aplicação, eu preciso falar "abre este link depois clica aqui, 
> aqui e aqui".

Bom, devagar com o andor, agora... :)

Ser ou não ser "stateless" não fede nem cheira, para mim.
O que você está pedindo é ainda um outro feature, a possibilidade de
criar uma "URL" (que pode sim conter o estado da aplicação, por que
não?) e colar ela de volta.

Eu acho que você pode conseguir isso, mas tem de implementar seu flash
para suportar isso. Claro, a facilidade de desenvolvimento de "interface
gráfica" faz o flash ser (para mim) o "VB da Internet": tem um monte de
moleques que acham que sabem programar por que escrevem umas linhas de
macro-instruções no flash que faz "mágica" e mexe uns desenhinhos na
página...

O que, obviamente, está muito longe de ser engenharia de software.

Mas o principal é que eu penso que você pode encontrar aplicações
state-full em flash, sim, Eden. O problema é que elas são - assim como
as boas aplicações escritas em VB - raridade.

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  Thu Jan 31 08:06:11 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 31 Jan 2008 08:06:11 -0800 (PST)
Subject: [Cascavel-pm] Curso de Perl
Message-ID: <601787.30039.qm@web31308.mail.mud.yahoo.com>

Pessoal.. alguem sabe onde encontro cursos de PERL??


Obrigada




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080131/b6823f2d/attachment.html 

From oberdan.luiz em gmail.com  Thu Jan 31 08:13:18 2008
From: oberdan.luiz em gmail.com (Oberdan Luiz May)
Date: Thu, 31 Jan 2008 13:13:18 -0300
Subject: [Cascavel-pm] Curso de Perl
In-Reply-To: <601787.30039.qm@web31308.mail.mud.yahoo.com>
References: <601787.30039.qm@web31308.mail.mud.yahoo.com>
Message-ID: <ac3a9ba80801310813y650a239duc1d8033648a609d9@mail.gmail.com>

   Olá,

   Podia tentar isso aqui :
http://www.google.com.br/search?hl=pt-BR&q=curso+de+Perl&btnG=Pesquisa+Google&meta=


2008/1/31 Patty Silva <ptfzs em yahoo.com.br>:

> Pessoal.. alguem sabe onde encontro cursos de PERL??
>
>
> Obrigada
>
> ------------------------------
> Abra sua conta no Yahoo! Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>,
> o único sem limite de espaço para armazenamento!
>
> _______________________________________________
> 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/20080131/0e58344b/attachment.html 

From glasswalk3r em yahoo.com.br  Thu Jan 31 09:08:59 2008
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 31 Jan 2008 14:08:59 -0300 (ART)
Subject: [Cascavel-pm] Curso de Perl
In-Reply-To: <ac3a9ba80801310813y650a239duc1d8033648a609d9@mail.gmail.com>
Message-ID: <519484.33844.qm@web30806.mail.mud.yahoo.com>

Modo ogro ativo e operante!

Cursos em Perl, que eu saiba, só fora do país. Claro,
estou falando isso sem considerar cursos rápidos,
workshops e palestras em eventos.

Das linguagens de programação interpretadas e
opensource, somente encontrei cursos regulares sobre
Ruby.

[]'s
Alceu

--- Oberdan Luiz May <oberdan.luiz em gmail.com>
escreveu:

>    Olá,
> 
>    Podia tentar isso aqui :
>
http://www.google.com.br/search?hl=pt-BR&q=curso+de+Perl&btnG=Pesquisa+Google&meta=
> 
> 
> 2008/1/31 Patty Silva <ptfzs em yahoo.com.br>:
> 
> > Pessoal.. alguem sabe onde encontro cursos de
> PERL??
> >
> >
> > Obrigada
> >
> > ------------------------------
> > Abra sua conta no Yahoo!
>
Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/>,
> > o único sem limite de espaço para armazenamento!
> >
> > _______________________________________________
> > 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



      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

From gabriel.vieira em gmail.com  Thu Jan 31 09:26:36 2008
From: gabriel.vieira em gmail.com (Gabriel Vieira)
Date: Thu, 31 Jan 2008 14:26:36 -0300
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
	<005701c86411$ab9269a0$6501a8c0@swmobile>
	<3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
Message-ID: <83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>

Na verdade o Flash pode trabalhar com o query string, creio apenas que
o povo não sabe usar :)

2008/1/31 eden <edencardim em gmail.com>:
> 2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> >
> > O SDK (compilador) do Flex é Open Source.
> >
> > É uma situação semelhante à do pessoal que usa Java.
> > O SDK é free.
> > Se precisar de uma IDE, aí sim, procura uma que seja do mundo Open ou banca
> > a do fornecedor.
>
> Não é similar ao Java porque o runtime do flex é proprietário e a JRE
> do Java é open source.
>
> > Situação semelhante também à que ActiveState faz.
> > Tu podes baixar adistribuição Perl dela.
> > Mas a IDE dela (Komodo) é licenciada.
>
> É bem diferente, o compilador/runtime que a active state distribui é
> um fork do fonte do perl, é completamente independente da IDE e é open
> source. O komodo é só um editor bonitinho com algumas ferramentas
> integradas. Ou seja, você pode desenvolver e implantar uma aplicação
> em ambiente de produção sem ter que pagar 1 centavo à active state. Eu
> ainda prefiro vanilla/strawberry perl porque li em algum lugar na
> lincesa da distribuição da active state que ela não pode ser
> empacotada e distribuída junto com o seu software, posso estar
> enganado. No meu ponto de vista como desenvolvedor isso só me atrasa
> porque a distribuição fica menos conveniente pro cliente.
>
> Fora isso tenho uma tendência a não gostar de shockwave flash,
> principalmente porque as aplicações flash não são stateless, ou seja,
> eu não posso criar um link prum determinado estado da aplicação e
> colar neste email, ou criar um bookmark, ou incluir aquele estado em
> outra aplicação, eu preciso falar "abre este link depois clica aqui,
> aqui e aqui".
>
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Gabriel Vieira

From agnaldo em starweb-software.com.br  Thu Jan 31 09:40:36 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Thu, 31 Jan 2008 15:40:36 -0200
Subject: [Cascavel-pm] "Carregar" session id.
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com><47A07EE8.40202@yahoo.co.uk><9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com><47A0FBD7.2060308@yahoo.co.uk><9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com><003101c863ae$83eb3bb0$6501a8c0@swmobile><3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com><005701c86411$ab9269a0$6501a8c0@swmobile><3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
	<83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>
Message-ID: <003001c86430$63fea620$6501a8c0@swmobile>


Detalhe pessoal.
Flash é ferramenta de designers.
Eu falei sobre Flex.
Embora o produto final da compilação de ambos seja um arquivo .swf 
(flash),ambos possuem funções distintas.

Flex é orientado para programação de aplicações, usando como IDE o ambiente 
do Eclipse.
Outra coisa, Flex é orientado para a camada de interface de tela (só).
Sendo assim, em aplicações (não páginas de sites institucionais) onde seria 
usado DHTML+JavaScript, usamos Flex+ActionScript.

A retaguarda fica a cargo da linguagem que cada um usa (Perl, PHP,Java, 
Ruby, Progress, .....).



----- Original Message ----- 
From: "Gabriel Vieira" <gabriel.vieira em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, January 31, 2008 3:26 PM
Subject: Re: [Cascavel-pm] "Carregar" session id.


Na verdade o Flash pode trabalhar com o query string, creio apenas que
o povo não sabe usar :)

2008/1/31 eden <edencardim em gmail.com>:
> 2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> >
> > O SDK (compilador) do Flex é Open Source.
> >
> > É uma situação semelhante à do pessoal que usa Java.
> > O SDK é free.
> > Se precisar de uma IDE, aí sim, procura uma que seja do mundo Open ou 
> > banca
> > a do fornecedor.
>
> Não é similar ao Java porque o runtime do flex é proprietário e a JRE
> do Java é open source.
>
> > Situação semelhante também à que ActiveState faz.
> > Tu podes baixar adistribuição Perl dela.
> > Mas a IDE dela (Komodo) é licenciada.
>
> É bem diferente, o compilador/runtime que a active state distribui é
> um fork do fonte do perl, é completamente independente da IDE e é open
> source. O komodo é só um editor bonitinho com algumas ferramentas
> integradas. Ou seja, você pode desenvolver e implantar uma aplicação
> em ambiente de produção sem ter que pagar 1 centavo à active state. Eu
> ainda prefiro vanilla/strawberry perl porque li em algum lugar na
> lincesa da distribuição da active state que ela não pode ser
> empacotada e distribuída junto com o seu software, posso estar
> enganado. No meu ponto de vista como desenvolvedor isso só me atrasa
> porque a distribuição fica menos conveniente pro cliente.
>
> Fora isso tenho uma tendência a não gostar de shockwave flash,
> principalmente porque as aplicações flash não são stateless, ou seja,
> eu não posso criar um link prum determinado estado da aplicação e
> colar neste email, ou criar um bookmark, ou incluir aquele estado em
> outra aplicação, eu preciso falar "abre este link depois clica aqui,
> aqui e aqui".
>
>
> --
> edenc.vox.com
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



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


From acid06 em gmail.com  Thu Jan 31 09:46:44 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 31 Jan 2008 15:46:44 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<47A07EE8.40202@yahoo.co.uk>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
	<005701c86411$ab9269a0$6501a8c0@swmobile>
	<3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
	<83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>
Message-ID: <9a08c9b40801310946g1cf85290rb90d83ceefb73e4e@mail.gmail.com>

2008/1/31 Gabriel Vieira <gabriel.vieira em gmail.com>:
> Na verdade o Flash pode trabalhar com o query string, creio apenas que
> o povo não sabe usar :)

Ou tem preguiça de usar.
A maioria das aplicações "web 2.0" também não possuem uma URL que você
possa usar para chegar em um ponto exato.

Isso é trabalhoso de se fazer e só beneficia uma pequena parcela dos
usuários (se muito, uns 10% dos usuários que não utilizam IE vão se
preocupar com isso, ou seja, algo como, *no máximo*, 0.5% a 2% dos
usuários).

Claro, a maioria de nós desenvolvedores iremos querer algo assim, mas
por uma visão de negócios é um recurso de baixo retorno e por isso
você não vê isso por aí.

Eu já fiz isso em um aplicativo que trabalhei anteriormente em algumas
telas em que era imprescindível esse tipo de coisa pois os itens eram
carregados dinâmicamente e era relativamente comum um usuário normal
mandar uma URL pra outro. Então seria interessante já abrir
diretamente no item desejado ao invés de ter que clicar em algo. A URL
então ficava algo como:

  http://servidor/aplicativo/pagina#I123

O que fazia com que a página carregasse o item I123, por exemplo. Com
isso, as funções "Back" e "Forward" do browser também funcionam como
esperado sem necessidade de trabalho adicional.

Mas é um recurso que pra algo mais complexo seria bem trabalhoso de
fazer pois todo o estado dinâmico da página deveria ser serializável
na URL. Eu pessoalmente considero isso como um "estágio 2" do
state-less, pois é tudo client-side.

-Nilson Santos F. Jr.

From oberdan.luiz em gmail.com  Thu Jan 31 09:40:19 2008
From: oberdan.luiz em gmail.com (Oberdan Luiz May)
Date: Thu, 31 Jan 2008 14:40:19 -0300
Subject: [Cascavel-pm] Curso de Perl
In-Reply-To: <519484.33844.qm@web30806.mail.mud.yahoo.com>
References: <ac3a9ba80801310813y650a239duc1d8033648a609d9@mail.gmail.com>
	<519484.33844.qm@web30806.mail.mud.yahoo.com>
Message-ID: <ac3a9ba80801310940h283bdec5n3d2dc083efddb4eb@mail.gmail.com>

set ogre-mode off

   Falando sério agora, por aquela pesquisa que eu passei, dá pra ver que
tem a Dextra, de Campinas que oferece curso. Aqui em São Paulo tem a 4Linux
que de ver em quando também oferece (infelizmente não tem nada no momento).
Mas realmente curso de Perl não é algo muito comum.

[]'s

set ogre-mode on

2008/1/31 Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br>:

> Modo ogro ativo e operante!
>
> Cursos em Perl, que eu saiba, só fora do país. Claro,
> estou falando isso sem considerar cursos rápidos,
> workshops e palestras em eventos.
>
> Das linguagens de programação interpretadas e
> opensource, somente encontrei cursos regulares sobre
> Ruby.
>
> []'s
> Alceu
>
> --- Oberdan Luiz May <oberdan.luiz em gmail.com>
> escreveu:
>
> >    Olá,
> >
> >    Podia tentar isso aqui :
> >
>
> http://www.google.com.br/search?hl=pt-BR&q=curso+de+Perl&btnG=Pesquisa+Google&meta=
> >
> >
> > 2008/1/31 Patty Silva <ptfzs em yahoo.com.br>:
> >
> > > Pessoal.. alguem sabe onde encontro cursos de
> > PERL??
> > >
> > >
> > > Obrigada
> > >
> > > ------------------------------
> > > Abra sua conta no Yahoo!
> >
> Mail<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/
> >,
> > > o único sem limite de espaço para armazenamento!
> > >
> > > _______________________________________________
> > > 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
>
>
>
>      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> http://br.mail.yahoo.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/20080131/11832ef7/attachment.html 

From acid06 em gmail.com  Thu Jan 31 09:52:09 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 31 Jan 2008 15:52:09 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <003001c86430$63fea620$6501a8c0@swmobile>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
	<005701c86411$ab9269a0$6501a8c0@swmobile>
	<3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
	<83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>
	<003001c86430$63fea620$6501a8c0@swmobile>
Message-ID: <9a08c9b40801310952r663789d5r54723f010044494a@mail.gmail.com>

2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> Outra coisa, Flex é orientado para a camada de interface de tela (só).
> Sendo assim, em aplicações (não páginas de sites institucionais) onde seria
> usado DHTML+JavaScript, usamos Flex+ActionScript.

O Flex tem problemas de usabilidade:
- perca seus olhos e tente utilizar o site com o screen-reader pra você ver;
- não é possível aumentar a fonte arbitrariamente;
- não é possível navegação padrão com o teclado.

Exige um run-time proprietário. É pesado.
Não é capaz de ser executado em plataformas não-x86 (estou com um iMac
PowerPC aqui do meu lado).

E, por fim, pessoalmente, eu acho interfaces Flash-like completamente
irritantes de se utilizar.

A única utilidade do Flex é pra fazer aplicações que realmente só
fazem sentido no Desktop via web. Por exemplo, ele será a base para o
Photoshop Online da Adobe.

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Thu Jan 31 09:52:56 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 31 Jan 2008 09:52:56 -0800 (PST)
Subject: [Cascavel-pm] Ajuda com Jash - retornar chave
Message-ID: <382330.698.qm@web31309.mail.mud.yahoo.com>

Pessoal..
tenho um hash :

my %hash= (
    maca  => 34,
    banana => 23,
    uva => 23,
    melao=>10,
    maracuja=>12,
    abacaxi =>19
	 
);

para eu contar quantas frutas > 20 eu fiz:

my $cont=scalar grep{$_>20} values %var;  

Mas eu quero retornar as frutas tb... como faco isso??

Obrigada :)





      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080131/198cb3e4/attachment.html 

From ptfzs em yahoo.com.br  Thu Jan 31 09:58:10 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 31 Jan 2008 09:58:10 -0800 (PST)
Subject: [Cascavel-pm] Res:  Ajuda com Jash - retornar chave
Message-ID: <885567.85549.qm@web31305.mail.mud.yahoo.com>

opS :)
Errei Assunto :)
e errei comando :)

my %hash= (
    maca  => 34,
    banana => 23,
    uva => 23,
    melao=>10,
    maracuja=>12,
    abacaxi =>19
	 
);

para eu contar quantas frutas > 20 eu fiz:

my $cont=scalar grep{$_>20} values %hash;  


sorry :)
----- Mensagem original ----
De: Patty Silva <ptfzs em yahoo.com.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 31 de Janeiro de 2008 17:52:56
Assunto: [Cascavel-pm] Ajuda com Jash - retornar chave

Pessoal..
tenho um hash :

my %hash= (
    maca  => 34,
    banana => 23,
    uva => 23,
    melao=>10,
    maracuja=>12,
    abacaxi =>19
	 
);

para eu contar quantas frutas > 20 eu fiz:

my $cont=scalar grep{$_>20} values %var;  

Mas eu quero retornar as frutas tb... como faco isso??

Obrigada :)







      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 


-----Anexo incorporado-----

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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080131/79325062/attachment-0001.html 

From edencardim em gmail.com  Thu Jan 31 10:06:07 2008
From: edencardim em gmail.com (eden)
Date: Thu, 31 Jan 2008 15:06:07 -0300
Subject: [Cascavel-pm] Res: Ajuda com Jash - retornar chave
In-Reply-To: <885567.85549.qm@web31305.mail.mud.yahoo.com>
References: <885567.85549.qm@web31305.mail.mud.yahoo.com>
Message-ID: <3de55ead0801311006m3d1f7492vaf34e5519c8ea997@mail.gmail.com>

2008/1/31 Patty Silva <ptfzs em yahoo.com.br>:
>
> opS :)
> Errei Assunto :)
> e errei comando :)
>
> my %hash= (
>  maca => 34,
>  banana => 23,
>  uva => 23,
>  melao=>10,
>  maracuja=>12,
>  abacaxi =>19
>
> );
>
> para eu contar quantas frutas > 20 eu fiz:
>
> my $cont=scalar grep{$_>20} values %hash;

my $cont = my @frutas = grep { $hash{$_} > 20 } keys %hash;

-- 
edenc.vox.com

From ptfzs em yahoo.com.br  Thu Jan 31 10:16:23 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 31 Jan 2008 10:16:23 -0800 (PST)
Subject: [Cascavel-pm] Res:  Res: Ajuda com Jash - retornar chave
Message-ID: <115014.19565.qm@web31302.mail.mud.yahoo.com>

Yess :)
Obrigada.. era isso msm 


----- Mensagem original ----
De: eden <edencardim em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 31 de Janeiro de 2008 18:06:07
Assunto: Re: [Cascavel-pm] Res: Ajuda com Jash - retornar chave

2008/1/31 
Patty 
Silva 
<ptfzs em yahoo.com.br>:
>
> 
opS 
:)
> 
Errei 
Assunto 
:)
> 
e 
errei 
comando 
:)
>
> 
my 
%hash= 
(
>  
maca 
=> 
34,
>  
banana 
=> 
23,
>  
uva 
=> 
23,
>  
melao=>10,
>  
maracuja=>12,
>  
abacaxi 
=>19
>
> 
);
>
> 
para 
eu 
contar 
quantas 
frutas 
> 
20 
eu 
fiz:
>
> 
my 
$cont=scalar 
grep{$_>20} 
values 
%hash;

my 
$cont 
= 
my 
@frutas 
= 
grep 
{ 
$hash{$_} 
> 
20 
} 
keys 
%hash;

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






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080131/137fc7aa/attachment.html 

From agnaldo em starweb-software.com.br  Thu Jan 31 10:16:32 2008
From: agnaldo em starweb-software.com.br (Agnaldo Macedo)
Date: Thu, 31 Jan 2008 16:16:32 -0200
Subject: [Cascavel-pm] "Carregar" session id.
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<9a08c9b40801300847v36afd6fbo635be9fad1360edc@mail.gmail.com>
	<47A0FBD7.2060308@yahoo.co.uk>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
	<005701c86411$ab9269a0$6501a8c0@swmobile>
	<3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
	<83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>
	<003001c86430$63fea620$6501a8c0@swmobile>
	<9a08c9b40801310952r663789d5r54723f010044494a@mail.gmail.com>
Message-ID: <005401c86435$68c849e0$6501a8c0@swmobile>


Coisas boas e coisas ruins todos tem, um pouco de cada.

É mais uma opção.

SAP esta migrando/migrou parte do seu ERP para usar Flexna camada de 
interface.

A Datasul esta migrando (já esta em beta) o seu ERP (EMS).
Não só os módulos que usavam interface HTML, mas também os usam interface 
gráfica em cliente/servidor.

A Oracle, por exemplo, foi outra que escolheu o Flex como camada de 
interface. A mais nova versão do Oracle CRM usa interface em Flex.




----- Original Message ----- 
From: "Nilson Santos Figueiredo Junior" <acid06 em gmail.com>
To: "Agnaldo Macedo" <agnaldo em starweb-software.com.br>; "Cascavel Perl 
Mongers" <cascavel-pm em pm.org>
Sent: Thursday, January 31, 2008 3:52 PM
Subject: Re: [Cascavel-pm] "Carregar" session id.


2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> Outra coisa, Flex é orientado para a camada de interface de tela (só).
> Sendo assim, em aplicações (não páginas de sites institucionais) onde 
> seria
> usado DHTML+JavaScript, usamos Flex+ActionScript.

O Flex tem problemas de usabilidade:
- perca seus olhos e tente utilizar o site com o screen-reader pra você ver;
- não é possível aumentar a fonte arbitrariamente;
- não é possível navegação padrão com o teclado.

Exige um run-time proprietário. É pesado.
Não é capaz de ser executado em plataformas não-x86 (estou com um iMac
PowerPC aqui do meu lado).

E, por fim, pessoalmente, eu acho interfaces Flash-like completamente
irritantes de se utilizar.

A única utilidade do Flex é pra fazer aplicações que realmente só
fazem sentido no Desktop via web. Por exemplo, ele será a base para o
Photoshop Online da Adobe.

-Nilson Santos F. Jr. 


From ptfzs em yahoo.com.br  Thu Jan 31 10:31:27 2008
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 31 Jan 2008 10:31:27 -0800 (PST)
Subject: [Cascavel-pm] Percorrer array
Message-ID: <67116.25064.qm@web31314.mail.mud.yahoo.com>

Pessoal.. qual a melhor forma de percorrer um array?

for(@array)
{
print $_;
}
ou
foreach(@array)
{
print $_;
}

Como verificar se um array contem dados


Obrigada






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080131/ebd892c4/attachment.html 

From acid06 em gmail.com  Thu Jan 31 11:06:17 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 31 Jan 2008 17:06:17 -0200
Subject: [Cascavel-pm] "Carregar" session id.
In-Reply-To: <005401c86435$68c849e0$6501a8c0@swmobile>
References: <3e759d2b0801300503h37096158wc307a0ab60fb0f7e@mail.gmail.com>
	<9a08c9b40801301742h79d0ef28l2f14fecf5d60418a@mail.gmail.com>
	<003101c863ae$83eb3bb0$6501a8c0@swmobile>
	<3de55ead0801302054o5c7d2423j7ec3abd3f8d631e7@mail.gmail.com>
	<005701c86411$ab9269a0$6501a8c0@swmobile>
	<3de55ead0801310624o585b86bbu853dff0fa6f62d80@mail.gmail.com>
	<83d8367f0801310926x739e7fa0q6a25df6241f3e8c@mail.gmail.com>
	<003001c86430$63fea620$6501a8c0@swmobile>
	<9a08c9b40801310952r663789d5r54723f010044494a@mail.gmail.com>
	<005401c86435$68c849e0$6501a8c0@swmobile>
Message-ID: <9a08c9b40801311106w3187da32qb4709faa1f3cd5f5@mail.gmail.com>

2008/1/31 Agnaldo Macedo <agnaldo em starweb-software.com.br>:
> SAP esta migrando/migrou parte do seu ERP para usar Flexna camada de
> interface.
>
> A Datasul esta migrando (já esta em beta) o seu ERP (EMS).
> Não só os módulos que usavam interface HTML, mas também os usam interface
> gráfica em cliente/servidor.
>
> A Oracle, por exemplo, foi outra que escolheu o Flex como camada de
> interface. A mais nova versão do Oracle CRM usa interface em Flex.

Você acabou de citar 3 ótimos motivos para eu ficar mais longe ainda
do Flex do que eu queria anteriormente.

O SAP é uma porcaria tremenda que só quem já usou sabe. Tem APIs
infernais e usabilidade que é um lixo (os usuários só conseguem
utilizar com eficiência porque são treinados para decorar códigos de
operação). É o tipo da coisa que só é implantada em uma empresa porque
a alta diretoria (às vezes em outro país) mandou. Custa caro e piora a
vida de quem realmente trabalha com o sistema.

Não sei sobre os ERPs mais modernos, mas já trabalhei com um ERP
antigo da Datasul chamado SAIB que era outra porcaria tremenda. Mas
ele tinha cara de ter sido escrito pelo menos 20 anos atrás, então eu
dou um desconto. Mas pelo que eu conheço da empresa, ela não é do tipo
que se orgulha do seu primor tecnológico mas, sim, da sua capacidade
de negócios.

Por fim, as ferramentas de desenvolvimento da Oracle sempre foram as
piores do mundo (feitas, obviamente, em Java). Nem o instalador do
Oracle funcionava direito na última vez que eu trabalhei com isso
(Oracle 8i). As ferramentas era tenebrosas de ruins. E eram lentas e
pesadas porque eram feitas em Java. Eles trocaram um mal pelo outro.

Se você quer saber o que é uma boa tecnologia de verdade basta você
ver o que esse tipo de empresas *não* está usando.

Agora, se você quer ganhar dinheiro vendendo produtos que promovem a
sinergia e agregam valor aos processo corporativos das empresas
modernas, maximizando o retorno sobre investimento reduzindo o
time-to-market de seus produtos. Bem, talvez deva se interessar mais
por isso mesmo. ;-)

Eu particularmente prefiro desafios técnicos. Não que eu os tenha
tanto assim hoje em dia. Mas é muito mais do que quando eu trabalhava
com esse tipo de coisa.

-Nilson Santos F. Jr.

From acid06 em gmail.com  Thu Jan 31 11:07:37 2008
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 31 Jan 2008 17:07:37 -0200
Subject: [Cascavel-pm] Percorrer array
In-Reply-To: <67116.25064.qm@web31314.mail.mud.yahoo.com>
References: <67116.25064.qm@web31314.mail.mud.yahoo.com>
Message-ID: <9a08c9b40801311107h563fe5f9we7ac445fbe148458@mail.gmail.com>

2008/1/31 Patty Silva <ptfzs em yahoo.com.br>:
> Pessoal.. qual a melhor forma de percorrer um array?

As duas formas são equivalentes. Mas você realmente deveria estar
usando uma variável com nome, assim:

for my $x (@array) {
  # faça o que quiser com $x
}

-Nilson Santos F. Jr.

From jaja.gabriel em gmail.com  Thu Jan 31 12:23:06 2008
From: jaja.gabriel em gmail.com (Joao Gabriel C. Laass)
Date: Thu, 31 Jan 2008 18:23:06 -0200
Subject: [Cascavel-pm] Perl no carnaval...
Message-ID: <8ff2963a0801311223i12c883aeh292fb0723beacb99@mail.gmail.com>

<code>
#!/usr/bin/perl/carnaval

use and_abuse;

use Camisinha;
require "Skol";

print "Feliz carnaval a todos!!";
</code>

-- 
Um abraço,
João Gabriel C. Laass