From payback at oi.com.br Mon Jul 7 13:31:03 2008 From: payback at oi.com.br (kleber) Date: Mon, 7 Jul 2008 17:31:03 -0300 Subject: [Bh-pm] Controle de processo Message-ID: <100FEEEE8F3A415E97284BE2C757A928@intranet.local> Ol? Pessoal , Estou executando uma fun??o em perl de forma n?o concorrente ou seja ela s? pode ser reexecutada ap?s encerrar a primeira inst?ncia ou processo. Atualmente estou fazendo assim : use warnings; use strict; use CGI qw( :standard ); use Fcntl qw( :flock :DEFAULT ); # ######## Permite executar um script p?r vez # denovo: if ( -e "c:\\payback\\cgiaindx.nul" ) { goto denovo; } sysopen( TASK, "c:\\payback\\cgiaindx.nul", O_WRONLY|O_EXCL|O_CREAT ) or warn ( goto denovo ); flock( TASK, LOCK_EX ) or warn ( goto denovo ); # ######### instru??es em perl de uma fun??o qualquer # flock( TASK, LOCK_UN ); close( TASK ); unlink( "c:\\payback\\cgiaindx.nul" ); exit; # Tenho conci?ncia da vulnerablidade deste controle pois se , por algum motivo , o script quebrar , todas as solicita??es em aberto ficam dependuradas. Gostaria de saber se ? poss?vel atingir este mesmo objetivo de forma mais adequada : A) Alocando um n?mero de processo a vari?vel que controla o pid ( PROCESSO_ID ) e testando sua disponibilidade ?????????????????????? B) Talvez at? mesmo utilizando uma vari?vel de ambiente e testando seu status ????????? C) Utilizando a fun??o waitpid( ) caso seja aplic?vel ???????????????? D) Introduzindo um timeout no controle atual ????????????? E) Outro m?todo de controle mais eficaz ??????????????????? Nota - Meu conhecimento de perl ? limitado. Agrade?o a aten??o dispensada , kleber From acid06 at gmail.com Tue Jul 8 10:58:29 2008 From: acid06 at gmail.com (Nilson Santos Figueiredo Junior) Date: Tue, 8 Jul 2008 14:58:29 -0300 Subject: [Bh-pm] Controle de processo In-Reply-To: <100FEEEE8F3A415E97284BE2C757A928@intranet.local> References: <100FEEEE8F3A415E97284BE2C757A928@intranet.local> Message-ID: <9a08c9b40807081058y1a873907s1cd4598c20ee867a@mail.gmail.com> D? uma olhada no m?dulo Proc::Pidfile na CPAN, acredito que ele resolva seus problemas: http://search.cpan.org/~awrigley/Proc-Pidfile-1.005/Pidfile.pm -Nilson Santos F. Jr. 2008/7/7 kleber : > Ol? Pessoal , > > Estou executando uma fun??o em perl de forma n?o concorrente ou seja > ela s? pode ser reexecutada ap?s encerrar a primeira inst?ncia ou processo. > > Atualmente estou fazendo assim : > > use warnings; > use strict; > use CGI qw( :standard ); > use Fcntl qw( :flock :DEFAULT ); > # > ######## Permite executar um script p?r vez > # > denovo: > if ( -e "c:\\payback\\cgiaindx.nul" ) { goto denovo; } > sysopen( TASK, "c:\\payback\\cgiaindx.nul", O_WRONLY|O_EXCL|O_CREAT ) or > warn ( goto denovo ); > flock( TASK, LOCK_EX ) or warn ( goto denovo ); > # > ######### instru??es em perl de uma fun??o qualquer > # > flock( TASK, LOCK_UN ); > close( TASK ); > unlink( "c:\\payback\\cgiaindx.nul" ); > exit; > # > > Tenho conci?ncia da vulnerablidade deste controle pois se , por algum motivo > , > o script quebrar , todas as solicita??es em aberto ficam dependuradas. > > Gostaria de saber se ? poss?vel atingir este mesmo objetivo de forma mais > adequada : > > A) Alocando um n?mero de processo a vari?vel que controla o pid ( > PROCESSO_ID ) > e testando sua disponibilidade ?????????????????????? > B) Talvez at? mesmo utilizando uma vari?vel de ambiente e testando seu > status ????????? > C) Utilizando a fun??o waitpid( ) caso seja aplic?vel ???????????????? > D) Introduzindo um timeout no controle atual ????????????? > E) Outro m?todo de controle mais eficaz ??????????????????? > > Nota - Meu conhecimento de perl ? limitado. > > Agrade?o a aten??o dispensada , > > kleber > > _______________________________________________ > Bh-pm mailing list > Bh-pm at pm.org > http://mail.pm.org/mailman/listinfo/bh-pm > From payback at oi.com.br Wed Jul 9 07:30:57 2008 From: payback at oi.com.br (kleber) Date: Wed, 9 Jul 2008 11:30:57 -0300 Subject: [Bh-pm] Controle de processo References: <100FEEEE8F3A415E97284BE2C757A928@intranet.local> <9a08c9b40807081058y1a873907s1cd4598c20ee867a@mail.gmail.com> Message-ID: <0FF4A48DF186440FA6AEC8B50A6D0009@intranet.local> Ol? Nilson , Agrade?o sua aten??o. Pelo que eu entendi seria passando o par?metro "silent" para o construtor. Como disse na correspond?ncia original , conhe?o muito pouco perl. Caso queria me ajudar a implementar esta alternativa estaria disposto a remuner?-lo. Um abra?o , kleber ----- Original Message ----- From: "Nilson Santos Figueiredo Junior" To: Sent: Tuesday, July 08, 2008 2:58 PM Subject: Re: [Bh-pm] Controle de processo D? uma olhada no m?dulo Proc::Pidfile na CPAN, acredito que ele resolva seus problemas: http://search.cpan.org/~awrigley/Proc-Pidfile-1.005/Pidfile.pm -Nilson Santos F. Jr. 2008/7/7 kleber : > Ol? Pessoal , > > Estou executando uma fun??o em perl de forma n?o concorrente ou seja > ela s? pode ser reexecutada ap?s encerrar a primeira inst?ncia ou > processo. > > Atualmente estou fazendo assim : > > use warnings; > use strict; > use CGI qw( :standard ); > use Fcntl qw( :flock :DEFAULT ); > # > ######## Permite executar um script p?r vez > # > denovo: > if ( -e "c:\\payback\\cgiaindx.nul" ) { goto denovo; } > sysopen( TASK, "c:\\payback\\cgiaindx.nul", O_WRONLY|O_EXCL|O_CREAT ) or > warn ( goto denovo ); > flock( TASK, LOCK_EX ) or warn ( goto denovo ); > # > ######### instru??es em perl de uma fun??o qualquer > # > flock( TASK, LOCK_UN ); > close( TASK ); > unlink( "c:\\payback\\cgiaindx.nul" ); > exit; > # > > Tenho conci?ncia da vulnerablidade deste controle pois se , por algum > motivo > , > o script quebrar , todas as solicita??es em aberto ficam dependuradas. > > Gostaria de saber se ? poss?vel atingir este mesmo objetivo de forma mais > adequada : > > A) Alocando um n?mero de processo a vari?vel que controla o pid ( > PROCESSO_ID ) > e testando sua disponibilidade ?????????????????????? > B) Talvez at? mesmo utilizando uma vari?vel de ambiente e testando seu > status ????????? > C) Utilizando a fun??o waitpid( ) caso seja aplic?vel ???????????????? > D) Introduzindo um timeout no controle atual ????????????? > E) Outro m?todo de controle mais eficaz ??????????????????? > > Nota - Meu conhecimento de perl ? limitado. > > Agrade?o a aten??o dispensada , > > kleber > > _______________________________________________ > Bh-pm mailing list > Bh-pm em pm.org > http://mail.pm.org/mailman/listinfo/bh-pm > _______________________________________________ Bh-pm mailing list Bh-pm em pm.org http://mail.pm.org/mailman/listinfo/bh-pm From acid06 at gmail.com Thu Jul 10 23:31:04 2008 From: acid06 at gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 11 Jul 2008 03:31:04 -0300 Subject: [Bh-pm] Controle de processo In-Reply-To: <0FF4A48DF186440FA6AEC8B50A6D0009@intranet.local> References: <100FEEEE8F3A415E97284BE2C757A928@intranet.local> <9a08c9b40807081058y1a873907s1cd4598c20ee867a@mail.gmail.com> <0FF4A48DF186440FA6AEC8B50A6D0009@intranet.local> Message-ID: <9a08c9b40807102331u4710b45gd16411a3b8bda18a@mail.gmail.com> 2008/7/9 kleber : > Pelo que eu entendi seria passando o par?metro "silent" para o construtor. > Como disse na correspond?ncia original , conhe?o muito pouco perl. Sim, ? s? isso mesmo. O m?dulo cuida do resto pra voc?, n?o ? necess?rio fazer mais nada. Ao tentar criar o arquivo de pid, caso ele j? exista, o m?dulo vai finalizar o processo sem fazer nada. -Nilson Santos F. Jr. From neilsonlima at gmail.com Thu Jul 17 13:37:40 2008 From: neilsonlima at gmail.com (Neilson P. Lima) Date: Thu, 17 Jul 2008 17:37:40 -0300 Subject: [Bh-pm] Site: bh-pm.org Message-ID: <43a6b0ba0807171337k3eb330f3x157e2e6a39d5e8a7@mail.gmail.com> M, O que aconteceu com o site: bh-pm.org? Neilson P. Lima -------------- Pr?xima Parte ---------- Um anexo em HTML foi limpo... URL: From neilsonlima at gmail.com Thu Jul 17 13:37:40 2008 From: neilsonlima at gmail.com (Neilson P. Lima) Date: Thu, 17 Jul 2008 17:37:40 -0300 Subject: [Bh-pm] Site: bh-pm.org Message-ID: <43a6b0ba0807171337k3eb330f3x157e2e6a39d5e8a7@mail.gmail.com> M, O que aconteceu com o site: bh-pm.org? Neilson P. Lima -------------- Pr?xima Parte ---------- Um anexo em HTML foi limpo... URL: From neilsonlima at gmail.com Thu Jul 17 13:37:40 2008 From: neilsonlima at gmail.com (Neilson P. Lima) Date: Thu, 17 Jul 2008 17:37:40 -0300 Subject: [Bh-pm] Site: bh-pm.org Message-ID: <43a6b0ba0807171337k3eb330f3x157e2e6a39d5e8a7@mail.gmail.com> M, O que aconteceu com o site: bh-pm.org? Neilson P. Lima -------------- Pr?xima Parte ---------- Um anexo em HTML foi limpo... URL: