[Cascavel-pm] Digest Cascavel-pm, volume 195, assunto 9
Veronica Soraia
veronica.soara em gmail.com
Quinta Maio 3 11:02:29 PDT 2007
olá Luiz G. P. de Almeida , é sim o mesmo problema, na vdd a gente
trabalha juntos , estamos começando com perl agora com o pessoal aqui
. Então ele me perguntou isso mas não souber responder rsrsr . Mas
mesmo assim obrigada pela ajuda !
abraços
verônica
Em 02/05/07, cascavel-pm-request em pm.org<cascavel-pm-request em pm.org> escreveu:
> Enviar submissões para a lista de discussão Cascavel-pm para
> cascavel-pm em pm.org
>
> Para se cadastrar ou descadastrar via WWW, visite o endereço
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
> corpo da mensagem para
> cascavel-pm-request em pm.org
>
> Você poderá entrar em contato com a pessoa que gerencia a lista pelo
> endereço
> cascavel-pm-owner em pm.org
>
> Quando responder, por favor edite sua linha Assunto assim ela será
> mais específica que "Re: Contents of Cascavel-pm digest..."
>
>
> Tópicos de Hoje:
>
> 1. keypress em perl (Marcelo)
> 2. Re: keypress em perl (Fernando Oliveira)
> 3. Re: keypress em perl (Luiz Gonzaga)
> 4. Re: keypress em perl (Luiz Gonzaga)
> 5. Re: keypress em perl (Eden Cardim)
> 6. keypress evento em perl (Marcelo)
> 7. keypress evento em perl "MELHORADO!" (Marcelo)
> 8. Re: keypress evento em perl "MELHORADO!" (Eden Cardim)
> 9. Re: keypress evento em perl "MELHORADO!" (Eden Cardim)
> 10. Re: keypress evento em perl "MELHORADO!" (Luiz Gonzaga)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 2 May 2007 09:21:54 -0300
> From: Marcelo <mclpaltrin em gmail.com>
> Subject: [Cascavel-pm] keypress em perl
> To: cascavel-pm em pm.org
> Message-ID:
> <2baf10d90705020521g146877eake52ea25575a1db2d em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> bom dia !
>
> - Alguem já fez um script usando keypress uma função alguma coisa
> parecida com isso: ex.
>
> tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> msg senao exibe resultado do script . Alguem sabe como fazer issu?
> pode me passar um exemplo para meu problema.
>
> grato pela ajuda.
>
>
>
> --
> Marcelo
>
>
> ------------------------------
>
> Message: 2
> Date: Wed, 2 May 2007 09:25:36 -0300
> From: "Fernando Oliveira" <fernandocorrea em gmail.com>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> <f40026c0705020525j13e778b8ub25838858d4b4218 em mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Term::ReadKey
>
> Em 02/05/07, Marcelo <mclpaltrin em gmail.com> escreveu:
> >
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script . Alguem sabe como fazer issu?
> > pode me passar um exemplo para meu problema.
> >
> > grato pela ajuda.
> >
> >
> >
> > --
> > Marcelo
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> []'s Fernando
> -------------- Próxima Parte ----------
> Um anexo em HTML foi limpo...
> URL:
> http://mail.pm.org/pipermail/cascavel-pm/attachments/20070502/e52f9b43/attachment-0001.html
>
> ------------------------------
>
> Message: 3
> Date: Wed, 2 May 2007 09:32:19 -0300
> From: Luiz Gonzaga <lgonzaga em lncc.br>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Message-ID: <200705020932.19317.lgonzaga em lncc.br>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Marcelo, acabei esquecendo de escrever na mensagem anterior, coloque na
> mensagem o codigo do script que voce fez.
>
> Luiz.
>
> Em Quarta 02 Maio 2007 09:21, Marcelo escreveu:
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script . Alguem sabe como fazer issu?
> > pode me passar um exemplo para meu problema.
> >
> > grato pela ajuda.
>
> --
> Luiz G. P. de Almeida
> Analista de Sistemas
> Laboratório Nacional de Computação Científica / MCT
>
>
> ------------------------------
>
> Message: 4
> Date: Wed, 2 May 2007 09:31:09 -0300
> From: Luiz Gonzaga <lgonzaga em lncc.br>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Message-ID: <200705020931.09325.lgonzaga em lncc.br>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Bom dia Marcelo,
>
> Nao entendi nada do que voce escreveu. Voce pode tentar reformular a
> pergunta.
>
> Abracos, Luiz.
>
> Em Quarta 02 Maio 2007 09:21, Marcelo escreveu:
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script . Alguem sabe como fazer issu?
> > pode me passar um exemplo para meu problema.
> >
> > grato pela ajuda.
>
> --
> Luiz G. P. de Almeida
> Analista de Sistemas
> Laboratório Nacional de Computação Científica / MCT
>
>
> ------------------------------
>
> Message: 5
> Date: Wed, 2 May 2007 09:34:16 -0300
> From: "Eden Cardim" <edencardim em gmail.com>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> <3de55ead0705020534s74a7fe0l9a928e0ed3fde767 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 5/2/07, Marcelo <mclpaltrin em gmail.com> wrote:
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script .
>
> Keypress? Isso pode significar várias coisas. Não entendi... 'digitar
> um <> 1' significa o que? Que o 'usuário' vai digitar literalmente a
> string '<> 1'? Que ele vai digitar qualquer caracter que não seja o
> caracter '1'? Que ele vai passar 1 pro operador diamante?
> Esclareça o problema, de preferncia com algum código ou pseudocódigo,
> quem sabe não conseguimos achar uma solução pro teu problema.
>
> --
> Eden Cardim
> Instituto Baiano de Biotecnologia
> Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
> Laboratório de Bioinformática
>
>
> ------------------------------
>
> Message: 6
> Date: Wed, 2 May 2007 09:44:16 -0300
> From: Marcelo <mclpaltrin em gmail.com>
> Subject: [Cascavel-pm] keypress evento em perl
> To: cascavel-pm em pm.org
> Message-ID:
> <2baf10d90705020544o8a8e756v7d06797ae3dcdae9 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Turma !
>
> EXEMPLO:
>
> while(1)
> {
>
> if(not $socket = (IO::Socket::INET->new(PeerAddr => 'PeerAddr',
> PeerPort => 'PeerPort', Proto => "tcp")))
> {
> $a++;
> }
>
> if(not $scket2 = (IO::Socket::INET->new(PeerAddr =>'PeerAddr',
> PeerPort => 'PeerPort', Proto => "tcp")))
> {
> $b++;
> }
> #TOTAL DE CONEXOES
> $cont++;
>
> if(usuario digitar != 1)
> {
> print "\n";
> print "PARA EXIBIR O RESULTADO DIGITE O NUM. 1\n\n";
> print "\n";
> next;
> }
> elsif(usario digitou == 1)
> {
> print "\n";
> print "----- RESULTADO -----\n\n";
> print "- ERROS EM:".$a."\n";
> print "- ERROS EM :".$b."\n";
> print "- TOTAL DE CONEXOES :".$cont."\n";
> print "\n";
> }
> sleep(60);
> }
>
>
>
> --
> Marcelo
>
>
> ------------------------------
>
> Message: 7
> Date: Wed, 2 May 2007 09:50:39 -0300
> From: Marcelo <mclpaltrin em gmail.com>
> Subject: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: cascavel-pm em pm.org
> Message-ID:
> <2baf10d90705020550u40537dbfl5d92b5710cdeddde em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Turma !
>
> " USUARIO VAI IMFORMAR O VALOR DEPOIS QUE O SCRIPT ESTIVAR RODANDO"
>
>
> EXEMPLO:
> while(1)
> {
>
> if(not $socket = (IO::Socket::INET->new(PeerAddr => 'PeerAddr',
> PeerPort => 'PeerPort', Proto => "tcp")))
> {
> $a++;
> }
>
> if(not $scket2 = (IO::Socket::INET->new(PeerAddr =>'PeerAddr',
> PeerPort => 'PeerPort', Proto => "tcp")))
> {
> $b++;
> }
> #TOTAL DE CONEXOES
> $cont++;
>
> if(usuario digitar != 1)
> {
> print "\n";
> print "PARA EXIBIR O RESULTADO DIGITE O NUM. 1\n\n";
> print "\n";
> next;
> }
> elsif(usario digitou == 1)
> {
> print "\n";
> print "----- RESULTADO -----\n\n";
> print "- ERROS EM:".$a."\n";
> print "- ERROS EM :".$b."\n";
> print "- TOTAL DE CONEXOES :".$cont."\n";
> print "\n";
> }
> sleep(60);
> }
>
>
>
> --
> Marcelo
>
>
>
> --
> Marcelo
>
>
> ------------------------------
>
> Message: 8
> Date: Wed, 2 May 2007 10:25:25 -0300
> From: "Eden Cardim" <edencardim em gmail.com>
> Subject: Re: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> <3de55ead0705020625y2db690dje1516c35093fbb6b em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 5/2/07, Marcelo <mclpaltrin em gmail.com> wrote:
> < snip... programa exemplo aqui >
>
> tem um exemplo de como fazer o que você pediu e algumas recomendações
> de módulos na documentação da função getc(): perldoc -f getc
>
> Se você vai implementar um programa baseado em eventos, dê uma olhada
> no POE, ele é extremamente recomendável para fazer esse tipo de coisa.
>
> --
> Eden Cardim
> Instituto Baiano de Biotecnologia
> Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
> Laboratório de Bioinformática
>
>
> ------------------------------
>
> Message: 9
> Date: Wed, 2 May 2007 10:25:25 -0300
> From: "Eden Cardim" <edencardim em gmail.com>
> Subject: Re: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> <3de55ead0705020625y2db690dje1516c35093fbb6b em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 5/2/07, Marcelo <mclpaltrin em gmail.com> wrote:
> < snip... programa exemplo aqui >
>
> tem um exemplo de como fazer o que você pediu e algumas recomendações
> de módulos na documentação da função getc(): perldoc -f getc
>
> Se você vai implementar um programa baseado em eventos, dê uma olhada
> no POE, ele é extremamente recomendável para fazer esse tipo de coisa.
>
> --
> Eden Cardim
> Instituto Baiano de Biotecnologia
> Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
> Laboratório de Bioinformática
>
>
> ------------------------------
>
> Message: 10
> Date: Wed, 2 May 2007 10:37:39 -0300
> From: Luiz Gonzaga <lgonzaga em lncc.br>
> Subject: Re: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Message-ID: <200705021037.39667.lgonzaga em lncc.br>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Marcelo,
>
> Me parece, por favor me corrija se eu estiver errado, que este problema é
> bem
> semelhante ao problema, para o qual a Veronica Soraia mandou na
> segunda-feira, um email pedindo ajuda.
>
> É o mesmo problema ?
>
> Luiz.
>
> Em Quarta 02 Maio 2007 09:50, Marcelo escreveu:
> > Turma !
> >
> > " USUARIO VAI IMFORMAR O VALOR DEPOIS QUE O SCRIPT ESTIVAR RODANDO"
> >
> >
> > EXEMPLO:
> > while(1)
> > {
> >
> > if(not $socket = (IO::Socket::INET->new(PeerAddr => 'PeerAddr',
> > PeerPort => 'PeerPort', Proto => "tcp")))
> > {
> > $a++;
> > }
> >
> > if(not $scket2 = (IO::Socket::INET->new(PeerAddr =>'PeerAddr',
> > PeerPort => 'PeerPort', Proto => "tcp")))
> > {
> > $b++;
> > }
> > #TOTAL DE CONEXOES
> > $cont++;
> >
> > if(usuario digitar != 1)
> > {
> > print "\n";
> > print "PARA EXIBIR O RESULTADO DIGITE O NUM. 1\n\n";
> > print "\n";
> > next;
> > }
> > elsif(usario digitou == 1)
> > {
> > print "\n";
> > print "----- RESULTADO -----\n\n";
> > print "- ERROS EM:".$a."\n";
> > print "- ERROS EM :".$b."\n";
> > print "- TOTAL DE CONEXOES :".$cont."\n";
> > print "\n";
> > }
> > sleep(60);
> > }
> >
> >
> >
> > --
> > Marcelo
>
> --
> Luiz G. P. de Almeida
> Analista de Sistemas
> Laboratório Nacional de Computação Científica / MCT
>
>
> ------------------------------
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> Fim da Digest Cascavel-pm, volume 195, assunto 9
> ************************************************
>
Mais detalhes sobre a lista de discussão Cascavel-pm