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 (
)
{
($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 () {
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 () {
> 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 () {
> > 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"
To: "Cascavel Perl Mongers"
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:
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" 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"
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