From vivan em dim.fm.usp.br  Mon Nov  3 16:30:54 2003
From: vivan em dim.fm.usp.br (Adriano Vivan Borro)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Voltando...
Message-ID: <3FA6D71E.69DB984A@dim.fm.usp.br>

Ae povo...

Voltei de viagem, finalmente. E agora voltei tb a tal da minha tabela q
tah me complicando a vida...

Apos algumas modificacoes e sugestoes da galera, fiz a seguinte tabela,
cujas colunas significam, respectivamente, TAG    CLUSTER
No_elem_cluster:

AaCT    S10    3
CaCc    S5    8
aCgg    S15    2
cAcc    S22    4

E assim por diante...

O que eu queria eh ter uma saida (em forma de listagem) com as tags em
ordem alfabetica (sendo maiuscula igual minuscula), os clusters em q ela
aparece e seus respectivos numero de elementos. Ou seja (utilizando o
exemplo acima):

AACT
S10    3

ACGG
S15    2

CACC
S5    8
S22    4

Bem... Eu tenho, na minha tabela original, que o cluster e o
no_el_cluster sao vinculados (quer dizer... O cluster S5 sempre tem 8
elementos). Eu tentei, usando o exemplo do Flavio, usando um hash pra
fazer isso, mas o cluster e o no_el_cluster acabam separando-se tb....

open (TABLE,"resultados2.txt");
open (SAI,">saidateste.txt");
while (<TABLE>)
  {
      ($tag,$cluster) = chomp && split;
      $h{$tag}{$cluster}++;
  }

  for $tag ( sort {uc} keys %h ) {
      print SAI "Tag = $tag\n",
      "Ocorrencias: \n",join(',', keys %{$h{$tag}}, value
%{$h{$tag}}),"\n\n";
  }

Tentei usar value, em meu hash, pq achei q o split dividiria meu array
em (tag) (cluster no_el_cluster). Mas parece q nao eh bem isso....

Nao sei c me expressei muito bem.....

Mas, c alguem entendeu, por favor, me deem uma luz.

Tks,
Adriano.


From nferraz em phperl.com  Mon Nov  3 17:56:11 2003
From: nferraz em phperl.com (Nelson Ferraz)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Voltando...
In-Reply-To: <3FA6D71E.69DB984A@dim.fm.usp.br>
References: <3FA6D71E.69DB984A@dim.fm.usp.br>
Message-ID: <3FA6EB1B.9010804@phperl.com>

Adriano Vivan Borro wrote:
> Ae povo...
> 
> Voltei de viagem, finalmente. E agora voltei tb a tal da minha tabela q
> tah me complicando a vida...

Seja bem vindo!

> Apos algumas modificacoes e sugestoes da galera, fiz a seguinte tabela,
> cujas colunas significam, respectivamente, TAG    CLUSTER
> No_elem_cluster:
> 
> AaCT    S10    3
> CaCc    S5    8
> aCgg    S15    2
> cAcc    S22    4
> 
> E assim por diante...
> 
> O que eu queria eh ter uma saida (em forma de listagem) com as tags em
> ordem alfabetica (sendo maiuscula igual minuscula), os clusters em q ela
> aparece e seus respectivos numero de elementos. Ou seja (utilizando o
> exemplo acima):
> 
> AACT
> S10    3
> 
> ACGG
> S15    2
> 
> CACC
> S5    8
> S22    4

Supondo que a primeira tabela está em um arquivo texto, que tal comecar 
com algo bem simples:

while (<>) {
   push @array, uc($_);
}

foreach (sort @array) {
   print $_;
}

O resultado deste script será:

AACT    S10    3
ACGG    S15    2
CACC    S22    4
CACC    S5    8

Agora precisamos separar as tags em conjuntos, o que normalmente pode 
ser feito com um hash. Algo assim:

while (<>) {
   push @array, uc($_);
}

foreach (sort @array) {
   ($tag,$cluster,$num) = split(/\s+/,$_);
   $count->{$tag}->{$cluster} = $num
}

foreach $tag (keys %{$count}) {
   print "$tag\n";
   foreach $cluster (keys %{$count->{$tag}}) {
     print "  $cluster : ", $count->{$tag}->{$cluster}, "\n";
   }
}

O resultado deverá ser:

CACC
   S5 : 8
   S22 : 4
ACGG
   S15 : 2
AACT
   S10 : 3

É isto.

Para entender melhor a estrutura de hashes, você pode incluir o seguinte 
no final do programa:

use Data::Dumper;
print Dumper $count;

-- 
Nelson Ferraz

GNU BIS: http://www.gnubis.com.br


From nferraz em phperl.com  Mon Nov  3 18:05:07 2003
From: nferraz em phperl.com (Nelson Ferraz)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Voltando...
In-Reply-To: <3FA6EB1B.9010804@phperl.com>
References: <3FA6D71E.69DB984A@dim.fm.usp.br> <3FA6EB1B.9010804@phperl.com>
Message-ID: <3FA6ED33.7050208@phperl.com>

> O resultado deverá ser:
> 
> CACC
>   S5 : 8
>   S22 : 4
> ACGG
>   S15 : 2
> AACT
>   S10 : 3

Hmmm... só depois de enviar a mensagem percebi que os resultados não 
estavam ordenados. Isto é fácil de resolver. Aqui vai uma nova versão 
(desta vez estou lendo as linhas diretamente do final do arquivo):

!/usr/bin/perl

while (<DATA>) {
   next if /^$/;
   ($tag,$cluster,$num) = split(/\s+/,uc($_));
   $count->{$tag}->{$cluster} = $num
}

foreach $tag (sort keys %{$count}) {
   print "$tag\n";
   foreach $cluster (sort keys %{$count->{$tag}}) {
     $num = $count->{$tag}->{$cluster};
     print "- $cluster\t$num\n";
   }
}

__DATA__
AaCT    S10    3
CaCc    S5    8
aCgg    S15    2
cAcc    S22    4

-- 
Nelson Ferraz

GNU BIS: http://www.gnubis.com.br


From vivan em dim.fm.usp.br  Tue Nov  4 12:53:57 2003
From: vivan em dim.fm.usp.br (Adriano Vivan Borro)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Voltando...
References: <3FA6D71E.69DB984A@dim.fm.usp.br> <3FA6EB1B.9010804@phperl.com>
	<3FA6ED33.7050208@phperl.com>
Message-ID: <3FA7F5C5.3921CBC4@dim.fm.usp.br>

Tks Nelson,

Soh tenho 2 duvidas, ateh q nao eh muito.... :-D

1o. Vc usou " next if /^$/; ". Entendo perfeitamente isto. Porem, acho
estranho q o Perl possibilita trocar o comando com o argumento. C eu
usar " if /^$/ next ; " dah no mesmo. Nao eh o primeiro caso de troca de
posicao entre comando e argumento que vejo. Isso me deixa meio confuso
as vezes, e nunca sei como eh melhor escrever. Ou... tanto faz ?

2o. Qdo vc usa -> , o q isto quer dizer? Eh algum tipo de referencia, ou
apontador?

Acho q vou ter que deixar os bares um pouco de lado e me dedicar mais ao
estudo. :-P

[]'s

Nelson Ferraz wrote:

> > O resultado deverá ser:
> >
> > CACC
> >   S5 : 8
> >   S22 : 4
> > ACGG
> >   S15 : 2
> > AACT
> >   S10 : 3
>
> Hmmm... só depois de enviar a mensagem percebi que os resultados não
> estavam ordenados. Isto é fácil de resolver. Aqui vai uma nova versão
> (desta vez estou lendo as linhas diretamente do final do arquivo):
>
> !/usr/bin/perl
>
> while (<DATA>) {
>    next if /^$/;
>    ($tag,$cluster,$num) = split(/\s+/,uc($_));
>    $count->{$tag}->{$cluster} = $num
> }
>
> foreach $tag (sort keys %{$count}) {
>    print "$tag\n";
>    foreach $cluster (sort keys %{$count->{$tag}}) {
>      $num = $count->{$tag}->{$cluster};
>      print "- $cluster\t$num\n";
>    }
> }
>
> __DATA__
> AaCT    S10    3
> CaCc    S5    8
> aCgg    S15    2
> cAcc    S22    4
>
> --
> Nelson Ferraz
>
> GNU BIS: http://www.gnubis.com.br
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
> --------------------------
> Esta mensagem foi verificada
> pelo sistema de antivírus DIM e
> acredita-se estar livre de Virus.
> Virus data file v4301 created Oct 31 2003


From daniel em ruoso.com  Tue Nov  4 11:47:43 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Voltando...
In-Reply-To: <3FA7F5C5.3921CBC4@dim.fm.usp.br>
References: <3FA6D71E.69DB984A@dim.fm.usp.br> <3FA6EB1B.9010804@phperl.com>
	<3FA6ED33.7050208@phperl.com>  <3FA7F5C5.3921CBC4@dim.fm.usp.br>
Message-ID: <1067968063.795.35.camel@cedro>

>1o. Vc usou " next if /^$/; ". Entendo perfeitamente isto. Porem, acho
> estranho q o Perl possibilita trocar o comando com o argumento. C eu
> usar " if /^$/ next ; " dah no mesmo. Nao eh o primeiro caso de troca de
> posicao entre comando e argumento que vejo. Isso me deixa meio confuso
> as vezes, e nunca sei como eh melhor escrever. Ou... tanto faz ?

Há sempre mais de um jeito de fazer... :)
next unless /^.+$/;
next if /^$;
if ($_ =~ /^$) { next };

> 2o. Qdo vc usa -> , o q isto quer dizer? Eh algum tipo de referencia, ou
> apontador?

o operador -> indica a de-referenciação de uma variável. Ou seja...

Se eu colocar uma referência para um array em um scalar:
my $lalala = [qw(a b c d e f)];

para acessar o elemento 0 do array eu tenho primeiro que de-referenciar
o scalar..
my $item = $lalala->[0];

Obs.:

Para navegar em mais de uma referência (arrays de arrays) a seta não é
mais necessária:

my $lalala = [[1,2,3],[4,5,6],[7,8,9]];
print $lalala->[0]->[0]; # imprime 1
print $lalala->[0][0];   # exatamente a mesma coisa de antes.

Um livro que explica isso muito bem é o Programming Perl, publicado pela
O'Reilly (Leitura obrigatória:).

> Acho q vou ter que deixar os bares um pouco de lado e me de
> dicar mais ao
> estudo. :-P
> 
> []'s
> 
> Nelson Ferraz wrote:
> 
> > > O resultado deverá ser:
> > >
> > > CACC
> > >   S5 : 8
> > >   S22 : 4
> > > ACGG
> > >   S15 : 2
> > > AACT
> > >   S10 : 3
> >
> > Hmmm... só depois de enviar a mensagem percebi que os resultados não
> > estavam ordenados. Isto é fácil de resolver. Aqui vai uma nova versão
> > (desta vez estou lendo as linhas diretamente do final do arquivo):
> >
> > !/usr/bin/perl
> >
> > while (<DATA>) {
> >    next if /^$/;
> >    ($tag,$cluster,$num) = split(/\s+/,uc($_));
> >    $count->{$tag}->{$cluster} = $num
> > }
> >
> > foreach $tag (sort keys %{$count}) {
> >    print "$tag\n";
> >    foreach $cluster (sort keys %{$count->{$tag}}) {
> >      $num = $count->{$tag}->{$cluster};
> >      print "- $cluster\t$num\n";
> >    }
> > }
> >
> > __DATA__
> > AaCT    S10    3
> > CaCc    S5    8
> > aCgg    S15    2
> > cAcc    S22    4
> >
> > --
> > Nelson Ferraz
> >
> > GNU BIS: http://www.gnubis.com.br
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm@mail.pm.org
> > http://cascavel.pm.org/mailman/listinfo/cascavel-pm
> >
> > --------------------------
> > Esta mensagem foi verificada
> > pelo sistema de antivírus DIM e
> > acredita-se estar livre de Virus.
> > Virus data file v4301 created Oct 31 2003
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From lechamps em terra.com.br  Tue Nov  4 11:51:15 2003
From: lechamps em terra.com.br (Luis Campos de Carvalho)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Voltando...
References: <3FA6D71E.69DB984A@dim.fm.usp.br>
	<3FA6EB1B.9010804@phperl.com>	<3FA6ED33.7050208@phperl.com>
	<3FA7F5C5.3921CBC4@dim.fm.usp.br>
Message-ID: <3FA7E713.7050109@terra.com.br>

Adriano Vivan Borro wrote:
> Soh tenho 2 duvidas, ateh q nao eh muito.... :-D

   =-] Infelizmente, eu acho...

> 1o. Vc usou " next if /^$/; ". Entendo perfeitamente isto. Porem, acho
> estranho q o Perl possibilita trocar o comando com o argumento. C eu
> usar " if /^$/ next ; " dah no mesmo. Nao eh o primeiro caso de troca de
> posicao entre comando e argumento que vejo. Isso me deixa meio confuso
> as vezes, e nunca sei como eh melhor escrever. Ou... tanto faz ?

   Eu acho que quanto mais perto da linguagem natural, melhor.
   Nunca digo "Se isso é verdade, então faça aquilo...". É mais natural 
dizer "Faça isso se aquilo for verdade". Note que nem mesmo precisamos 
de vírgula para separar as partes da segunda frase. A primeira frase 
("Se isso...") está claramente invertida, sob o ponto de vista linguístico.

   Eu compartilho a opinião do Larry Wall: quanto mais perto do natural, 
melhor... mas você deve escrever como se sentir melhor para entender. 
Por isso o lema TIMTOWTDI.

> 2o. Qdo vc usa -> , o q isto quer dizer? Eh algum tipo de referencia, ou
> apontador?

   # emacs, this is -*- perl -*-
   my %hash = ( um => "HASH" );
   my $ref = \%hash; # referencia para um hash
   print $ref->{um}, "\n"; # diz "HASH".
   __END__

   '->' é uma forma do operador de-referência, para recuperar dados 
armazenados em estruturas de dados apontadas por referências.

> Acho q vou ter que deixar os bares um pouco de lado e me dedicar mais ao
> estudo. :-P
> 

   Acho que você poderia freqüêntar os bares da FFLCH, onde as meninas e 
os linguistas andam soltos, e se aproveitar da beleza daquelas e do 
conhecimento destes...

   "Evite a ressaca, mantenha-se bêbado."
   []'z!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is Computer Scientist,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


From lscosta em uninet.com.br  Wed Nov  5 13:00:24 2003
From: lscosta em uninet.com.br (Leandro Costa)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Perl & CGI
Message-ID: <001401c3a3cf$11d252a0$c801010a@0207p>

Bom dia senhores...

eu gostaria de rodar um programa simples escrito em PERL que eu fiz com a ajuda de vcs, mas eu queria startar esse programa com um comando via NAVEGADOR. Isto eh, clicando num simples botao, ele rodaria pra mim sem problemas.


O problema eh q nao consigo fazer esse milagre.

Os santos ae podem me ajudar????


Fico no aguardo...
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20031105/39d3791e/attachment.htm
From daniel em ruoso.com  Wed Nov  5 14:57:05 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Perl & CGI
In-Reply-To: <001401c3a3cf$11d252a0$c801010a@0207p>
References: <001401c3a3cf$11d252a0$c801010a@0207p>
Message-ID: <1068065824.802.2.camel@cedro>

basta o programa estar em um diretório CGI do servidor web com permissão
de execução. se você usa apache, deve usar a configuração

ScriptAlias /cgi-bin /lugar/aonde/esta/o/cgi
AddHandler cgi-script .cgi

Em Qua, 2003-11-05 às 16:00, Leandro Costa escreveu:
> Bom dia senhores...
> 
> eu gostaria de rodar um programa simples escrito em PERL que eu fiz
> com a ajuda de vcs, mas eu queria startar esse programa com um comando
> via NAVEGADOR. Isto eh, clicando num simples botao, ele rodaria pra
> mim sem problemas.
> 
> O problema eh q nao consigo fazer esse milagre.
> 
> Os santos ae podem me ajudar????
> 
> Fico no aguardo...
> 
> 
> 
> ______________________________________________________________________
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From vivan em dim.fm.usp.br  Thu Nov  6 14:17:07 2003
From: vivan em dim.fm.usp.br (Adriano Vivan Borro)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] ER em variaveis especiais
Message-ID: <3FAAAC43.529477A3@dim.fm.usp.br>

Olah,

Eh possivel utilizar uma Expressao Regular em uma variavel especial? Por
exemplo... ao utilizar a variavel $/ para alterar o termino padrao de
uma leitura, posso utilizar uma ER para esse termino?

[]'s


From lechamps em terra.com.br  Thu Nov  6 10:31:06 2003
From: lechamps em terra.com.br (Luis Campos de Carvalho)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] ER em variaveis especiais
References: <3FAAAC43.529477A3@dim.fm.usp.br>
Message-ID: <3FAA774A.8050709@terra.com.br>

Adriano Vivan Borro wrote:
> Olah,
> 
> Eh possivel utilizar uma Expressao Regular em uma variavel especial? Por
> exemplo... ao utilizar a variavel $/ para alterar o termino padrao de
> uma leitura, posso utilizar uma ER para esse termino?
> 

   Oi, Adriano.

   Não, carinha, você não pode ter uma expressão regular em '$/'.
   Mas você pode ter sequências de caracteres bem-definidas, quaisquer 
que elas sejam. Por exemplo:

   local $/ = "\n.\n"; # Termino de envio de um email, padrão sendmail.

   []'z!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is Computer Scientist,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


From daniel em ruoso.com  Thu Nov  6 10:37:25 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] ER em variaveis especiais
In-Reply-To: <3FAAAC43.529477A3@dim.fm.usp.br>
References: <3FAAAC43.529477A3@dim.fm.usp.br>
Message-ID: <1068136645.780.3.camel@cedro>

Hmmm se eu entendi o que você quer fazer, não.
a variável $/ é um scalar e é utilizada em um contexto de string, então
se você colocar a regexp ele vai utilizar o conteúdo da regexp como
separador de linha. O mesmo acontece se você fizer dela uma referência
para alguma coisa, ele vai usar no contexto de string, que não vai
dereferenciar a variável.

Talvez você queira ler o arquivo inteiro e fazer split, ou ler caractere
a caractere e fazer um lexer para checar.


Em Qui, 2003-11-06 às 17:17, Adriano Vivan Borro escreveu:
> Olah,
> 
> Eh possivel utilizar uma Expressao Regular em uma variavel especial? Por
> exemplo... ao utilizar a variavel $/ para alterar o termino padrao de
> uma leitura, posso utilizar uma ER para esse termino?
> 
> []'s
> 
> 
> ______________________________________________________________________
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From nferraz em phperl.com  Thu Nov  6 14:50:26 2003
From: nferraz em phperl.com (Nelson Ferraz)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Nova =?iso-8859-1?q?vers=E3o_do_Sistema_de_CRM?=
Message-ID: <3FAAB412.8030607@phperl.com>

Pessoal,

Acabei de lançar no Sourceforge a última versão do sistema de CRM; se 
alguém quiser dar uma olhada, tem uma demonstração online aqui:

http://www.gnubis.com.br/cgi-local/gnubis/bin/view/Main/WebHome

A propósito, se alguém aqui tiver experiência com CGI, Template Toolkit, 
DBI, Cookies, e quiser ajudar, por favor, eu preciso de ajuda! :)

O CRM está disponível sob a licença GNU GPL e é 100% Pure Perl.

-- 
Nelson Ferraz

GNU BIS: http://www.gnubis.com.br


From daniel em ruoso.com  Fri Nov  7 08:50:30 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:49 2004
Subject: [Cascavel-pm] Nova =?ISO-8859-1?Q?vers=E3o?= do Sistema de CRM
In-Reply-To: <3FAAB412.8030607@phperl.com>
References: <3FAAB412.8030607@phperl.com>
Message-ID: <1068216630.876.3.camel@cedro>

Só um toque... Acredito que para o sistema de CRM já seja tarde demais,
mas para outros sistemas que vocês forem fazer, dá uma olhada no Perl
Oak (http://perl-oak.sourceforge.net), é um conjunto de componentes para
facilitar a implementação de aplicações (não só para, mas hoje,
principalmente) para a Web.

Lá tem implementação de componentes para acesso ao banco baseados na
DBI, componentes de Autenticação, componentes para Aplicações CGI, e uma
alternativa (que é de vanguarda em relação ao template) para a costrução
das interfaces.

[]'s

daniel

Em Qui, 2003-11-06 às 17:50, Nelson Ferraz escreveu:
> Pessoal,
> 
> Acabei de lançar no Sourceforge a última versão do sistema de CRM; se 
> alguém quiser dar uma olhada, tem uma demonstração online aqui:
> 
> http://www.gnubis.com.br/cgi-local/gnubis/bin/view/Main/WebHome
> 
> A propósito, se alguém aqui tiver experiência com CGI, Template Toolkit, 
> DBI, Cookies, e quiser ajudar, por favor, eu preciso de ajuda! :)
> 
> O CRM está disponível sob a licença GNU GPL e é 100% Pure Perl.


From gabriel em webclube.com  Fri Nov  7 14:45:11 2003
From: gabriel em webclube.com (Gabriel Vieira)
Date: Mon Aug  2 21:26:50 2004
Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Nova_vers=E3o_do_Sistema_de_CRM?=
References: <3FAAB412.8030607@phperl.com>
Message-ID: <004101c3a572$56387060$ad57a8c0@fortalnet.com.br>

Olá lista =P

Pouco escrevo aqui mas sempre estou acompanhando...
Respondendo... :P
Experiência eu tenha... mas o que necessita exatamente?!

Abraços,

Gabriel Vieira

Diretor Geral
http://www.webclube.net
----- Original Message ----- 
From: "Nelson Ferraz" <nferraz@phperl.com>
To: "Cascavel Perl Mongers" <cascavel-pm@mail.pm.org>
Sent: Thursday, November 06, 2003 6:50 PM
Subject: [Cascavel-pm] Nova versão do Sistema de CRM


> Pessoal,
>
> Acabei de lançar no Sourceforge a última versão do sistema de CRM; se
> alguém quiser dar uma olhada, tem uma demonstração online aqui:
>
> http://www.gnubis.com.br/cgi-local/gnubis/bin/view/Main/WebHome
>
> A propósito, se alguém aqui tiver experiência com CGI, Template Toolkit,
> DBI, Cookies, e quiser ajudar, por favor, eu preciso de ajuda! :)
>
> O CRM está disponível sob a licença GNU GPL e é 100% Pure Perl.
>
> -- 
> Nelson Ferraz
>
> GNU BIS: http://www.gnubis.com.br
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>


From shonorio em terra.com.br  Sat Nov  8 05:33:17 2003
From: shonorio em terra.com.br (Solli Moreria Honorio)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] =?iso-8859-1?q?D=FAvidas_sobre_o_Win32=3A=3APerfLi?=
	=?iso-8859-1?q?b?=
In-Reply-To: <OF9820B6EB.A31395B1-ON83256D51.005588CA-83256D51.0056E69F@groupoffice.com.br>
Message-ID: <000101c3a5ec$1af318f0$32cbcfc8@eraser>

Ola pessoal, 
Cá estou novamente com minhas dúvidas, mas antes de mais nada... Alceu
obrigado pela indicação do guia de consulta rápida sobre expressões
regulares, comprei o cara e realmente está ajudando muito.
Agora vamos a minha dúvida...
Não sei se vocês tem trabalhado com Windows e com a lib PerfLib, onde é
possível retirar informações de performance do Windows. Lendo a
documentação eu vi que existe alguns ‘counters’ do tipo % Processor
Time, é o resultado da diferença entre dois ‘sample’ capturado.
Bom, o perflib tem um script exemplo mostrando como isto funciona (onde
existe um delay de 5 segundos entre os dois ‘samples’), não estou tento
nenhum problema quanto a isto, a minha dúvida é com relação a este
delay. Por exemplo, se eu tiver que capturar a CPU de um servidor a cada
5 minutos o quê é melhor, rodar o script exemplo a cada 5 minutos ou
alterar o delay do script para 5 minutos, ao invéz dos 5 segundos.
Se alguém tiver alguma experiência em relação a isto, eu agradeço !
Obrigado,
Solli

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.536 / Virus Database: 331 - Release Date: 3/11/2003
 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20031108/2ba68d82/attachment.htm
From nferraz em phperl.com  Sun Nov  9 11:50:19 2003
From: nferraz em phperl.com (Nelson Ferraz)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Nova =?ISO-8859-1?Q?vers=E3o_do_Sistema_?=
	=?ISO-8859-1?Q?de_CRM?=
In-Reply-To: <1068216630.876.3.camel@cedro>
References: <3FAAB412.8030607@phperl.com> <1068216630.876.3.camel@cedro>
Message-ID: <3FAE7E5B.9040502@phperl.com>

Daniel Ruoso wrote:

> Só um toque... Acredito que para o sistema de CRM já seja tarde demais,
> mas para outros sistemas que vocês forem fazer, dá uma olhada no Perl
> Oak (http://perl-oak.sourceforge.net), é um conjunto de componentes para
> facilitar a implementação de aplicações (não só para, mas hoje,
> principalmente) para a Web.
> 
> Lá tem implementação de componentes para acesso ao banco baseados na
> DBI, componentes de Autenticação, componentes para Aplicações CGI, e uma
> alternativa (que é de vanguarda em relação ao template) para a costrução
> das interfaces.

Nunca é tarde demais para boas mudanças!

Neste exato momento estou implementando a independência de base de dados 
com o módulo Class::DBI.

O objetivo, para a próxima versão do CRM, é utilizar um framework de 
aplicações web, e o Perl OAK parece uma boa alternativa. (Obrigado pela 
dica!)

-- 
[]s

Nelson

________________________________________________________________
Nelson Ferraz

GNU BIS: http://www.gnubis.com.br
PhPerl:  http://www.phperl.com



From nferraz em phperl.com  Sun Nov  9 12:10:44 2003
From: nferraz em phperl.com (Nelson Ferraz)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Nova =?ISO-8859-1?Q?vers=E3o_do_Sistema_?=
	=?ISO-8859-1?Q?de_CRM?=
In-Reply-To: <004101c3a572$56387060$ad57a8c0@fortalnet.com.br>
References: <3FAAB412.8030607@phperl.com>
	<004101c3a572$56387060$ad57a8c0@fortalnet.com.br>
Message-ID: <3FAE8324.7080808@phperl.com>

Gabriel Vieira wrote:

> Pouco escrevo aqui mas sempre estou acompanhando...
> Respondendo... :P
> Experiência eu tenha... mas o que necessita exatamente?!

Uma das áreas das quais eu já estou cuidando, é a independência de base 
de dados, através do módulo Class:DBI.

Outras características que eu gostaria de implementar:

  - sistema de autenticação baseado em papéis (RBAC)
  - facilitar a localização e internacionalização dos projetos
  - melhorias de layout (CSS/HTML)

Enfim, existem muitas áreas que podem melhorar...

-- 
[]s

Nelson

________________________________________________________________
Nelson Ferraz

GNU BIS: http://www.gnubis.com.br
PhPerl:  http://www.phperl.com



From daniel em ruoso.com  Mon Nov 10 10:38:07 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Nova =?ISO-8859-1?Q?vers=E3o?= do Sistema de CRM
In-Reply-To: <3FAE7E5B.9040502@phperl.com>
References: <3FAAB412.8030607@phperl.com> <1068216630.876.3.camel@cedro>
	<3FAE7E5B.9040502@phperl.com>
Message-ID: <1068482287.822.5.camel@cedro>

A propósito, caso queira(m) ajudar no projeto, é só criar um usuário no
sourceforge e me dizer que eu insiro (preciso de colaboradores :)

Em Dom, 2003-11-09 às 14:50, Nelson Ferraz escreveu:
> Daniel Ruoso wrote:
> 
> > Só um toque... Acredito que para o sistema de CRM já seja tarde demais,
> > mas para outros sistemas que vocês forem fazer, dá uma olhada no Perl
> > Oak (http://perl-oak.sourceforge.net), é um conjunto de componentes para
> > facilitar a implementação de aplicações (não só para, mas hoje,
> > principalmente) para a Web.
> > 
> > Lá tem implementação de componentes para acesso ao banco baseados na
> > DBI, componentes de Autenticação, componentes para Aplicações CGI, e uma
> > alternativa (que é de vanguarda em relação ao template) para a costrução
> > das interfaces.
> 
> Nunca é tarde demais para boas mudanças!
> 
> Neste exato momento estou implementando a independência de base de dados 
> com o módulo Class::DBI.
> 
> O objetivo, para a próxima versão do CRM, é utilizar um framework de 
> aplicações web, e o Perl OAK parece uma boa alternativa. (Obrigado pela 
> dica!)


From daniel em ruoso.com  Mon Nov 10 10:49:59 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] =?iso-8859-1?q?Compara=E7=E3o?= de Strings
Message-ID: <1068482999.824.15.camel@cedro>

Olá...

Mandei recentemente pra CPAN (Sábado) o módulo String::Compare, que
serve para testar quanto duas strings são parecidas (preciso disso para
fazer uma importação de dois bancos de dados diferentes que, por um
acaso, são inconsistentes).

Por exemplo, preciso saber que:
a string "R T Comunicacoes"
se refere a "R. T. Comunicações"
e não a "R T Comunidade" (as strings são só de exemplo)

O módulo funciona aplicando uma série de testes que vão dizer quanto
duas strings se parecem. a questão é que para estes casos, o módulo
ainda está retornando o valor errado:

my $str1 = "R T Comunicacoes"; 
my $str2 = "R. T. Comunicações";
my $str3 = "R T Comunidade";
use String::Compare;
print "Entre '$str1' e '$str2': ".compare($str1,$str2)."\n";
print "Entre '$str1' e '$str3': ".compare($str1,$str3)."\n";

retorna:

Entre 'R T Comunicacoes' e 'R. T. Comunicações': 0.598412698412698
Entre 'R T Comunicacoes' e 'R T Comunidade': 0.65297619047619

Enfim, 

gostaria que, se vocês puderem, dêem uma olhada nos testes que eu já
faço para dar idéias de outros testes para tentar fazer retornar o
resultado certo... valeu?

http://search.cpan.org/~druoso/
^___ URL para o módulo... :)



From fglock em pucrs.br  Mon Nov 10 12:01:05 2003
From: fglock em pucrs.br (Flavio S. Glock)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Comparação de Strings
References: <1068482999.824.15.camel@cedro>
Message-ID: <3FAFD261.5C27@pucrs.br>

Daniel Ruoso wrote:
> 
> Olá...
> 
> Mandei recentemente pra CPAN (Sábado) o módulo String::Compare, que
> serve para testar quanto duas strings são parecidas (preciso disso para
> fazer uma importação de dois bancos de dados diferentes que, por um
> acaso, são inconsistentes).
> 
> Por exemplo, preciso saber que:
> a string "R T Comunicacoes"
> se refere a "R. T. Comunicações"
> e não a "R T Comunidade" (as strings são só de exemplo)
> 
> O módulo funciona aplicando uma série de testes que vão dizer quanto
> duas strings se parecem. a questão é que para estes casos, o módulo
> ainda está retornando o valor errado:
> 
> my $str1 = "R T Comunicacoes";
> my $str2 = "R. T. Comunicações";
> my $str3 = "R T Comunidade";
> use String::Compare;
> print "Entre '$str1' e '$str2': ".compare($str1,$str2)."\n";
> print "Entre '$str1' e '$str3': ".compare($str1,$str3)."\n";
> 
> retorna:
> 
> Entre 'R T Comunicacoes' e 'R. T. Comunicações': 0.598412698412698
> Entre 'R T Comunicacoes' e 'R T Comunidade': 0.65297619047619
> 
> Enfim,
> 
> gostaria que, se vocês puderem, dêem uma olhada nos testes que eu já
> faço para dar idéias de outros testes para tentar fazer retornar o
> resultado certo... valeu?

Daniel:

Você já experimentou o módulo Text::PhraseDistance? Eu acho que este
módulo, junto com uma subrotina para retirar pontuação e acentos
pode ser suficiente.

- Flavio S. Glock

From glasswalk3r em yahoo.com.br  Tue Nov 11 05:50:14 2003
From: glasswalk3r em yahoo.com.br (=?iso-8859-1?q?Alceu=20R.=20de=20Freitas=20Jr.?=)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Perl 6
Message-ID: <20031111115014.62879.qmail@web20207.mail.yahoo.com>

Olá gente,

Eu não sei se vocês andam acompanhando o
desenvolvimento de Perl 6, mas eu estive dando uma
olhada e comecei a me perguntar: essa versão vai ser
MUITO diferente da versão 5? Por exemplo, eu terei que
aprender tudo de novo?

[]´s


=====
Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r@yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
"You have enemies? Good. That means you've stood up for something, sometime in your life." - Sir Winston Churchill

______________________________________________________________________

Yahoo! Mail: 6MB, anti-spam e antivírus gratuito! Crie sua conta agora:
http://mail.yahoo.com.br

From fglock em pucrs.br  Tue Nov 11 08:00:59 2003
From: fglock em pucrs.br (Flavio S. Glock)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Perl 6
References: <20031111115014.62879.qmail@web20207.mail.yahoo.com>
Message-ID: <3FB0EB9B.459@pucrs.br>

Alceu R. de Freitas Jr. wrote:
> 
> Olá gente,
> 
> Eu não sei se vocês andam acompanhando o
> desenvolvimento de Perl 6, mas eu estive dando uma
> olhada e comecei a me perguntar: essa versão vai ser
> MUITO diferente da versão 5? Por exemplo, eu terei que
> aprender tudo de novo?

Alceu:

O manual vai ter algumas páginas a mais, mas o resto 
fica quase como está. As novidades são quase todas 
"opcionais".

Quem vai ter mais trabalho são os programadores que 
tentarem transformar programas em Perl6 de volta para Perl5:
Da mesma forma que hoje é muito difícil transformar alguns
programa de Perl5 para Perl4, os programas em Perl6 vão 
ter partes complicadas demais para reescrever em Perl5.

- Flavio S. Glock

From daniel em ruoso.com  Tue Nov 11 11:18:04 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Perl 6
In-Reply-To: <3FB0EB9B.459@pucrs.br>
References: <20031111115014.62879.qmail@web20207.mail.yahoo.com>
	<3FB0EB9B.459@pucrs.br>
Message-ID: <1068571083.945.4.camel@cedro>

O que eu percebi é que na verdade vai mudar muita coisa, ao ponto de ser
necessária a criação de uma diferenciação de arquivos perl5 para
arquivos perl6... Muitas coisas vão mudar, como operadores (para ter uma
idéia, eu me lembro de ter visto coisas como mudar o operador de
atribuição... Na página do perl 6 tem muita coisa, mas acredito que os
documentos mais importantes são os Apocalipses...

Em Ter, 2003-11-11 às 11:00, Flavio S. Glock escreveu:
> Alceu R. de Freitas Jr. wrote:
> > 
> > Olá gente,
> > 
> > Eu não sei se vocês andam acompanhando o
> > desenvolvimento de Perl 6, mas eu estive dando uma
> > olhada e comecei a me perguntar: essa versão vai ser
> > MUITO diferente da versão 5? Por exemplo, eu terei que
> > aprender tudo de novo?
> 
> Alceu:
> 
> O manual vai ter algumas páginas a mais, mas o resto 
> fica quase como está. As novidades são quase todas 
> "opcionais".
> 
> Quem vai ter mais trabalho são os programadores que 
> tentarem transformar programas em Perl6 de volta para Perl5:
> Da mesma forma que hoje é muito difícil transformar alguns
> programa de Perl5 para Perl4, os programas em Perl6 vão 
> ter partes complicadas demais para reescrever em Perl5.
> 
> - Flavio S. Glock
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From mhenke em inf.ufrgs.br  Fri Nov 14 11:40:32 2003
From: mhenke em inf.ufrgs.br (Marcia Henke)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Script para time out 
Message-ID: <3FB51390.9070102@inf.ufrgs.br>

Olá pessoal !!!

Será que alguém já fez algum script, para dar um time out em um processo 
em um determinado tempo, para depois chamar outro???
No caso eu quero levantar um servidor JBoss, e após 3 minutos levantar o 
servidor Resin.
Estou usando Linux Suse8.2, perl 5.8.

Agradeço atenção
Márcia


From daniel em ruoso.com  Sat Nov 15 10:47:44 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Script para time out
In-Reply-To: <3FB51390.9070102@inf.ufrgs.br>
References: <3FB51390.9070102@inf.ufrgs.br>
Message-ID: <1068914864.798.1.camel@cedro>


não precisa nem ser em perl... pode ser em shell..

# startar o jboss
...
# esperar três minutos
sleep 180;
# startar o resin
....

Em Sex, 2003-11-14 às 14:40, Marcia Henke escreveu:
> Olá pessoal !!!
> 
> Será que alguém já fez algum script, para dar um time out em um processo 
> em um determinado tempo, para depois chamar outro???
> No caso eu quero levantar um servidor JBoss, e após 3 minutos levantar o 
> servidor Resin.
> Estou usando Linux Suse8.2, perl 5.8.
> 
> Agradeço atenção
> Márcia
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From lechamps em terra.com.br  Mon Nov 17 06:20:00 2003
From: lechamps em terra.com.br (Luis Campos de Carvalho)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Script para time out
References: <3FB51390.9070102@inf.ufrgs.br>
Message-ID: <3FB8BCF0.6080208@terra.com.br>

Marcia Henke wrote:
> Olá pessoal !!!
> 
> Será que alguém já fez algum script, para dar um time out em um processo 
> em um determinado tempo, para depois chamar outro???
> No caso eu quero levantar um servidor JBoss, e após 3 minutos levantar o 
> servidor Resin.
> Estou usando Linux Suse8.2, perl 5.8.
> 

   Oi, Márcia.
   Desculpe a demora em responder, mas eu estive desplugado este final 
de semana. =-]

   Para fazer com que o sistema responda assicronamente a eventos, você 
pode se aproveitar da funcao alarm(), que arranja para que seu programa 
receba um sinal padrão IPC do tipo SIGALRM dentro de um determinado 
numero de segundos (passado como argumento para alarm(), veja mais em 
`perldoc -f alarm`).

   Você poderia tratar seu problema assim:

   our $SIG{ALRM} = sub {
     print "Tempo! Vamos iniciar o Resin!";
     &StartResinService();
   };

   &StartJBossService();
   alarm( 180 );
   __END__

   Outra forma de fazer a mesma coisa, e mais simples, é como o Daniel 
Ruoso mencionou (mas desta vez, em perl, para variar...) :

   &StartJBossService();
   sleep 180;
   &StartResinService();
   __END__


   Espero que isso resolva seu problema.
   []'z!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is BSc in Comp Science,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


From vivan em dim.fm.usp.br  Tue Nov 18 16:13:20 2003
From: vivan em dim.fm.usp.br (Adriano Vivan Borro)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Saida de dados em tabela
Message-ID: <3FBA9980.74EA57F5@dim.fm.usp.br>

Gente,

Eu preciso fazer uma tabela, como saida de dados. Eu experimentei usar
$a\t$b\t$c, mas, como as strings sempre sao de tamanhos distintos (sao
varias leituras), em alguns casos acontece de minha tabela ficar
desalinhada. Uma saida para esse problema, seria utilizando if
juntamente com lenght para verificar o tamanho de minha string, ou seja:

if (lenght($b) < 8)
{
    print $a\t$b\t\t$c;
}
else
{
    print $a\t$b\t$c;
}

Fica feinho isso, neh? Pergunto entao a vcs... Como poderia fazer essa
minha saida? C eh q deu pra me entender....

Ps: Eu sei que $a sempre terah o mesmo tamanho.

[]'s


From daniel em ruoso.com  Tue Nov 18 12:30:07 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Saida de dados em tabela
In-Reply-To: <3FBA9980.74EA57F5@dim.fm.usp.br>
References: <3FBA9980.74EA57F5@dim.fm.usp.br>
Message-ID: <1069180207.1051.29.camel@cedro>

perldoc -f format

format STDOUT =
@<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
$a,$b,$c
.
while($i++ < 100) {
        $a = rand($i);
        $b = rand($i);
        $c = rand($i);
        write;
}



Em Ter, 2003-11-18 às 19:13, Adriano Vivan Borro escreveu:
> Gente,
> 
> Eu preciso fazer uma tabela, como saida de dados. Eu experimentei usar
> $a\t$b\t$c, mas, como as strings sempre sao de tamanhos distintos (sao
> varias leituras), em alguns casos acontece de minha tabela ficar
> desalinhada. Uma saida para esse problema, seria utilizando if
> juntamente com lenght para verificar o tamanho de minha string, ou seja:
> 
> if (lenght($b) < 8)
> {
>     print $a\t$b\t\t$c;
> }
> else
> {
>     print $a\t$b\t$c;
> }
> 
> Fica feinho isso, neh? Pergunto entao a vcs... Como poderia fazer essa
> minha saida? C eh q deu pra me entender....
> 
> Ps: Eu sei que $a sempre terah o mesmo tamanho.
> 
> []'s
> 
> 
> ______________________________________________________________________
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From vivan em dim.fm.usp.br  Tue Nov 18 18:05:31 2003
From: vivan em dim.fm.usp.br (Adriano Vivan Borro)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Saida de dados em tabela
References: <3FBA9980.74EA57F5@dim.fm.usp.br> <1069180207.1051.29.camel@cedro>
Message-ID: <3FBAB3CB.52D3E3EC@dim.fm.usp.br>

Opa,

Achei bem interessante o format. Mas lendo nos manuais, vi que o perl, assim
como no C, tb usa printf. Acho q isso facilita ainda mais. ;-)

[]s

Daniel Ruoso wrote:

> perldoc -f format
>
> format STDOUT =
> @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
> $a,$b,$c
> .
> while($i++ < 100) {
>         $a = rand($i);
>         $b = rand($i);
>         $c = rand($i);
>         write;
> }
>
> Em Ter, 2003-11-18 às 19:13, Adriano Vivan Borro escreveu:
> > Gente,
> >
> > Eu preciso fazer uma tabela, como saida de dados. Eu experimentei usar
> > $a\t$b\t$c, mas, como as strings sempre sao de tamanhos distintos (sao
> > varias leituras), em alguns casos acontece de minha tabela ficar
> > desalinhada. Uma saida para esse problema, seria utilizando if
> > juntamente com lenght para verificar o tamanho de minha string, ou seja:
> >
> > if (lenght($b) < 8)
> > {
> >     print $a\t$b\t\t$c;
> > }
> > else
> > {
> >     print $a\t$b\t$c;
> > }
> >
> > Fica feinho isso, neh? Pergunto entao a vcs... Como poderia fazer essa
> > minha saida? C eh q deu pra me entender....
> >
> > Ps: Eu sei que $a sempre terah o mesmo tamanho.
> >
> > []'s
> >
> >
> > ______________________________________________________________________
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm@mail.pm.org
> > http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
> --------------------------
> Esta mensagem foi verificada
> pelo sistema de antivírus DIM e
> acredita-se estar livre de Virus.
> Virus data file v4304 created Nov 14 2003


From daniel em ruoso.com  Tue Nov 18 15:47:47 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Saida de dados em tabela
In-Reply-To: <3FBAB3CB.52D3E3EC@dim.fm.usp.br>
References: <3FBA9980.74EA57F5@dim.fm.usp.br>
	<1069180207.1051.29.camel@cedro>  <3FBAB3CB.52D3E3EC@dim.fm.usp.br>
Message-ID: <1069192067.1054.33.camel@cedro>

apesar que o format tem opção para formatar cabeçalho e rodapé também...
vai depender da sua necessidade.

Em Ter, 2003-11-18 às 21:05, Adriano Vivan Borro escreveu:
> Opa,
> 
> Achei bem interessante o format. Mas lendo nos manuais, vi que o perl, assim
> como no C, tb usa printf. Acho q isso facilita ainda mais. ;-)
> 
> []s
> 
> Daniel Ruoso wrote:
> 
> > perldoc -f format
> >
> > format STDOUT =
> > @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
> > $a,$b,$c
> > .
> > while($i++ < 100) {
> >         $a = rand($i);
> >         $b = rand($i);
> >         $c = rand($i);
> >         write;
> > }
> >
> > Em Ter, 2003-11-18 às 19:13, Adriano Vivan Borro escreveu:
> > > Gente,
> > >
> > > Eu preciso fazer uma tabela, como saida de dados. Eu experimentei usar
> > > $a\t$b\t$c, mas, como as strings sempre sao de tamanhos distintos (sao
> > > varias leituras), em alguns casos acontece de minha tabela ficar
> > > desalinhada. Uma saida para esse problema, seria utilizando if
> > > juntamente com lenght para verificar o tamanho de minha string, ou seja:
> > >
> > > if (lenght($b) < 8)
> > > {
> > >     print $a\t$b\t\t$c;
> > > }
> > > else
> > > {
> > >     print $a\t$b\t$c;
> > > }
> > >
> > > Fica feinho isso, neh? Pergunto entao a vcs... Como poderia fazer essa
> > > minha saida? C eh q deu pra me entender....
> > >
> > > Ps: Eu sei que $a sempre terah o mesmo tamanho.
> > >
> > > []'s
> > >
> > >
> > > ______________________________________________________________________
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm@mail.pm.org
> > > http://cascavel.pm.org/mailman/listinfo/cascavel-pm
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm@mail.pm.org
> > http://cascavel.pm.org/mailman/listinfo/cascavel-pm
> >
> > --------------------------
> > Esta mensagem foi verificada
> > pelo sistema de antivírus DIM e
> > acredita-se estar livre de Virus.
> > Virus data file v4304 created Nov 14 2003
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From gabriel em webclube.com  Wed Nov 19 20:16:45 2003
From: gabriel em webclube.com (Gabriel Vieira)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] =?iso-8859-1?q?D=FAvida_chata_=3E/?=
Message-ID: <003201c3af0c$5d5f4960$ad57a8c0@fortalnet.com.br>

Olá lista,

tô com uma dúvida muito chata =P
É o seguinte:

$a = 1;
if($a == (1|2){print $a;}

Como eu faria o código acima correto?
Essa comparação não existe certo? Como seria uma maneira correta?

A única que encontrei foi
if($a =~ /^(1|2)$/){print $a;}

Talvez seja a única saída... estou querendo saber se existe alguma outra forma mais semelhante à proposta no início deste e-mail.

Agradeço a todos,

Gabriel Vieira

Diretor Geral
http://www.webclube.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20031120/fcaf54f7/attachment.htm
From daniel em ruoso.com  Thu Nov 20 09:23:43 2003
From: daniel em ruoso.com (Daniel Ruoso)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida?= chata >/
In-Reply-To: <003201c3af0c$5d5f4960$ad57a8c0@fortalnet.com.br>
References: <003201c3af0c$5d5f4960$ad57a8c0@fortalnet.com.br>
Message-ID: <1069341823.946.20.camel@cedro>

Acho que a regexp é o jeito mais curto de fazer, não consigo pensar
em nenhum outro. Mas é óbvio que fazer if(($a==1)||($a==2)){print $a}
funciona e talvez seja até mais interessante.

Em Qua, 2003-11-19 às 23:16, Gabriel Vieira escreveu:
> Olá lista,
>  
> tô com uma dúvida muito chata =P
> É o seguinte:
>  
> $a = 1;
> if($a == (1|2){print $a;}
>  
> Como eu faria o código acima correto?
> Essa comparação não existe certo? Como seria uma maneira correta?
>  
> A única que encontrei foi
> if($a =~ /^(1|2)$/){print $a;}
>  
> Talvez seja a única saída... estou querendo saber se existe alguma
> outra forma mais semelhante à proposta no início deste e-mail.
>  
> Agradeço a todos,
>  
> Gabriel Vieira
>  
> Diretor Geral
> http://www.webclube.com
> 
> ______________________________________________________________________
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm


From glasswalk3r em yahoo.com.br  Thu Nov 20 13:12:41 2003
From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida?= chata >/
In-Reply-To: <003201c3af0c$5d5f4960$ad57a8c0@fortalnet.com.br>
References: <003201c3af0c$5d5f4960$ad57a8c0@fortalnet.com.br>
Message-ID: <20031120171241.763cb6f7.glasswalk3r@yahoo.com.br>

$a = 1;

if (($a == 1) or ($a ==2)) {print $a;}

Você não pode usar expressões regulares num símbolo de igual (aritmético). Nem no símbolo de igual para caracteres "eq".

[]'s


-- 
Alceu Rodrigues de Freitas Junior
--
glasswalk3r@yahoo.com.br
PGP public key at http://www.imortais.cjb.net/addgb.html
---------------------------------------------------------------
"The 7 Deadly Sins are:/ Wealth without work/ Pleasure without
conscience/ Knowledge without character/ Business without
morality/ Science without humanity/ Worship without sacrifice/
Politics without principle" - Mahatma Ghandi


On Thu, 20 Nov 2003 00:16:45 -0200
"Gabriel Vieira" <gabriel@webclube.com> wrote:

> Olá lista,
> 
> tô com uma dúvida muito chata =P
> É o seguinte:
> 
> $a = 1;
> if($a == (1|2){print $a;}
> 
> Como eu faria o código acima correto?
> Essa comparação não existe certo? Como seria uma maneira correta?
> 
> A única que encontrei foi
> if($a =~ /^(1|2)$/){print $a;}
> 
> Talvez seja a única saída... estou querendo saber se existe alguma outra forma mais semelhante à proposta no início deste e-mail.
> 
> Agradeço a todos,
> 
> Gabriel Vieira
> 
> Diretor Geral
> http://www.webclube.com

From vivan em dim.fm.usp.br  Thu Nov 20 14:05:19 2003
From: vivan em dim.fm.usp.br (Adriano Vivan Borro)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Dúvida chata >/
References: <003201c3af0c$5d5f4960$ad57a8c0@fortalnet.com.br>
Message-ID: <3FBD1E7F.E34CE015@dim.fm.usp.br>

Opa,

Para trabalharmos com RE (Regular Expressions) temos basicamente, dois
operadores basicos. Match ( " =~ " ) e Mismatch (" !~ " ), que funciona
como um tipo de " pertence ou nao-pertence".

O correto entao, serah:

$a = 1;
if ($a=~/1|2/) {print $a;}

A Tekneeq Issue 01, publicada no site ( http://cascavel.pm.org ) fala
sobre o assunto, e eh uma otima introducao.

[]'s,
Adriano.


Gabriel Vieira wrote:

> Olá lista, tô com uma dúvida muito chata =PÉ o seguinte: $a = 1;if($a
> == (1|2){print $a;} Como eu faria o código acima correto?Essa
> comparação não existe certo? Como seria uma maneira correta? A única
> que encontrei foiif($a =~ /^(1|2)$/){print $a;} Talvez seja a única
> saída... estou querendo saber se existe alguma outra forma mais
> semelhante à proposta no início deste e-mail. Agradeço a todos,
> Gabriel Vieira Diretor Geral
> http://www.webclube.com
>
>
> --------------------------------
> Esta mensagem foi verificada
> pelo sistema de antivírus DIM e
> acredita-se estar livre de Virus.
> Virus data file v4305 created Nov 19 2003
>
>    ----------------------------------------------------------------
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm@mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>


From edinilson em comilonibus.com.br  Tue Nov 25 07:20:41 2003
From: edinilson em comilonibus.com.br (Edinilson Lipke)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] Programador PERL
Message-ID: <20031125131646.M770@comilonibus.com.br>

Oi, tenho uma ferramenta(PERL) com uma finalidade especifica e preciso melhorá-lo, acrescentar duas novas funcionalidades e no momento não tenho tempo. Para isto procuro alguém que entenda bastante de PERL e Formatos MIME - QT e Base64.

Se alguém se interessar em desenvolver esta nova funcionalidade faça contato que eu pago.

T+

Edinilson Lipke


-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20031125/3c6052d1/attachment.htm
From fglock em pucrs.br  Thu Nov 27 13:29:17 2003
From: fglock em pucrs.br (Flavio S. Glock)
Date: Mon Aug  2 21:26:50 2004
Subject: [Cascavel-pm] [Fwd: [perlbr] Oportunidade de Emprego! Perl - Linux]
Message-ID: <3FC6508C.5C87@pucrs.br>

Uma mensagem embutida foi limpa...
De: "skysoftware2004" <skysoftware2004@yahoo.com.br>
Assunto: [perlbr] Oportunidade de Emprego! Perl - Linux
Data: Thu, 27 Nov 2003 16:31:56 -0000
Tam: 2798
Url: http://mail.pm.org/pipermail/cascavel-pm/attachments/20031127/16b35e9a/attachment.eml