Olá pessoal. Uso o IO::Socket para abrir páginas pelo metodo get,
porém gostaria de saber como eu faço pra abrir uma página pelo metodo
post através de um script cgi?

Um forte abraço,
João Gabriel

existe alguma funcao para soma de horas ?


Obrigado
gar0t0

----- Original Message -----

From: GaRoTo

To: perlbr@...

Sent: Monday, May 03, 2004 1:31 PM

Subject: [perlbr] Contando hora

existe alguma funcao para soma de horas ?


Obrigado
gar0t0



 
Links do Yahoo! Grupos
Para visitar o site do seu grupo, acesse:
 http://br.groups.yahoo.com/group/perlbr/

Para sair deste grupo, envie um e-mail para:
 perlbr-unsubscribe@...

O uso que você faz do Yahoo! Grupos está sujeito aos:
 http://br.yahoo.com/info/utos.html

Obrigado =)

vou dar uma olhadinha!

Existem módulos específicos para controle de datas/horas, mas em geral
isto é feito com os funções padrão:

localtime (Extrai horario atual) e timelocal (requer clausula use
Time::Local em seu script).

Eu utilizo o segundo para calcular quanto já tenho a data/hora formatadas.

Maiores informações e exemplos:

perldoc Time::Local;

Sds,
Marco Antonio


GaRoTo wrote:

> existe alguma funcao para soma de horas ?
>
>
> Obrigado
> gar0t0
>
>
> *Yahoo! Groups Sponsor*
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=0/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
> 
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=1/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
>
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=2/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
> 
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=3/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
>
>   *Mais...*  *Claudia
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=4/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>  *Info
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=5/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>  *
>  *Veja
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=6/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>  *
>  *Você S/A
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=7/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>  *Nova
>
<http://br.rd.yahoo.com/SIG=12a2kb82p/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083688434/A=2107656/R=8/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
>     * Para visitar o site do seu grupo, acesse:
>       http://br.groups.yahoo.com/group/perlbr/
>
>     * Para sair deste grupo, envie um e-mail para:
>       perlbr-unsubscribe@...
>       <mailto:perlbr-unsubscribe@...?subject=Unsubscribe>
>
>     * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>       Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>

Olá, estou começando a trabalhar com perl agora, e estou com uma
dúvida meio complicada. Preciso fazer a validação de um arquivo xml
através de uma dtd, e caso não esteja em conformidade, parar o
programa. O problema é que aparentemente quando uso parsefile, ele
captura apenas o último erro. Quando o erro é crítico, funciona, pois
pára a analise, como erros de procura do documento, etc. Quando tenho
erros mais simples, ele dá um print no erro, mas não pára a análise,
e o resultado é um xml válido (erro!). O código para análise segue:
_____________________________________________________
$xml_file = 'filename.xml';

my $xp = new XML::Checker::Parser ( Handlers => { } );

eval {
   $xp->parsefile($xml_file);
};
if ($@) {
   # ... your error handling code here ...
   print "$xml_file failed validation!\n";
   die "$@";
}
print "$xml_file passed validation\n";
______________________________________________________

Um exemplo de saída gerada quando existe problema, como a utilizacao
de um elemento que não está descrito na dtd (<newtag>):
______________________________________________________
XML::Checker ERROR-157: unexpected Element [newtag]
         Context: ChildElementIndex 8, line 32, column 1, byte 882
XML::Checker ERROR-101: undefined ELEMENT [newtag]
         Context: line 32, column 1, byte 882
filename.xml passed validation
______________________________________________________

Como percebem, ele imprime um erro, e no fim valida, como se este
erro nao existisse.
Eu gostaria de saber como capturar todos os erros que são impressos,
e não apenas o último, pois se existir algum, eu terei um resultado
válido. Pensei em editar o módulo para jogar os erros em alguma
estrutura, mas não consegui fazer. Talvez exista uma forma mais
simples e eficiente de fazer essa validação, mas não conheço muito da
linguagem, os módulos mais adequados. Agradeço muito qualquer ajuda
ou sugestão. Valeu

Abdsandryk

Olá,

Sua dúvida não é nada trivial, creio que sua melhor opção será verificar
no Google como isto é resolvido normalmente.

Eu julgava que o melhor caminho seria usar XML::DOM ou XML::Parser, mas
ambos são utilizados no módulo em questão, demonstrando que foi bem
experimentado.

Através de uma rápida olhada na documentação do módulo utilizado
verifiquei um exemplo comum no modelo de parsers:

http://search.cpan.org/~tjmather/XML-Checker-0.13/lib/XML/Checker/Parser.pm



  use XML::Checker::Parser;

  my %expat_options = (KeepCDATA => 1,
                       Handlers => [ Unparsed => \&my_Unparsed_handler ]);
  my $parser = new XML::Checker::Parser (%expat_options);

  eval {
      local $XML::Checker::FAIL = \&my_fail;
      $parser->parsefile ("fail.xml");
  };
  if ($@) {
      # Either XML::Parser (expat) threw an exception or my_fail() died.
      ... your error handling code here ...
  }

  # Throws an exception (with die) when an error is encountered, this
  # will stop the parsing process.
  # Don't die if a warning or info message is encountered, just print a message.
  sub my_fail {
      my $code = shift;
      die XML::Checker::error_string ($code, @_) if $code < 200;
      XML::Checker::print_error ($code, @_);
  }


Observe a rotina my_fail, ela recebe como parametros as falhas
ocorridas, e através dela vc deverá ter controle dos erros individualmente.


Sds,
Marco Antonio

Abdsandryk wrote:

> Olá, estou começando a trabalhar com perl agora, e estou com uma
> dúvida meio complicada. Preciso fazer a validação de um arquivo xml
> através de uma dtd, e caso não esteja em conformidade, parar o
> programa. O problema é que aparentemente quando uso parsefile, ele
> captura apenas o último erro. Quando o erro é crítico, funciona, pois
> pára a analise, como erros de procura do documento, etc. Quando tenho
> erros mais simples, ele dá um print no erro, mas não pára a análise,
> e o resultado é um xml válido (erro!). O código para análise segue:
> _____________________________________________________
> $xml_file = 'filename.xml';
>
> my $xp = new XML::Checker::Parser ( Handlers => { } );
>
> eval {
>   $xp->parsefile($xml_file);
> };
> if ($@) {
>   # ... your error handling code here ...
>   print "$xml_file failed validation!\n";
>   die "$@";
> }
> print "$xml_file passed validation\n";
> ______________________________________________________
>
> Um exemplo de saída gerada quando existe problema, como a utilizacao
> de um elemento que não está descrito na dtd (<newtag>):
> ______________________________________________________
> XML::Checker ERROR-157: unexpected Element [newtag]
>         Context: ChildElementIndex 8, line 32, column 1, byte 882
> XML::Checker ERROR-101: undefined ELEMENT [newtag]
>         Context: line 32, column 1, byte 882
> filename.xml passed validation
> ______________________________________________________
>
> Como percebem, ele imprime um erro, e no fim valida, como se este
> erro nao existisse.
> Eu gostaria de saber como capturar todos os erros que são impressos,
> e não apenas o último, pois se existir algum, eu terei um resultado
> válido. Pensei em editar o módulo para jogar os erros em alguma
> estrutura, mas não consegui fazer. Talvez exista uma forma mais
> simples e eficiente de fazer essa validação, mas não conheço muito da
> linguagem, os módulos mais adequados. Agradeço muito qualquer ajuda
> ou sugestão. Valeu
>
> Abdsandryk
>
>
>
>
>
>

Olá,

  Marco, primeiramente eu gostaria de agradecer sua sugestão, me
ajudou muito. Eu tentei implementar o codigo sugerido, mas ele dava o
seguinte erro:

Can't coerce array into hash at C:/Perl/site/lib/XML/Parser.pm line
89.

  Apesar de nao saber do que se trata, consegui contornar isso,
trocando os [] por {} nas opções do construtor.
  Depois modifiquei um pouco o programa para escrever "ok" se ele
validasse e o(s) problema(s) caso contrario. Ficou assim:
__________________________________
  use XML::Checker::Parser;

  my %expat_options = (KeepCDATA => 1,
                       Handlers => { Unparsed =>
\&my_Unparsed_handler });

  my $parser = new XML::Checker::Parser (%expat_options);
  my $passed = 1;
  my $xml_file = "filename.xml";

  eval {
      local $XML::Checker::FAIL = \&my_fail;
      $parser->parsefile ($xml_file);
  };

  if ($passed) {
      print "The document $xml_file is valid.\n";
  } else {
      print "XML validation failed to $xml_file\n";
  }

  # Throws an exception when an error is encountered,
  # but don't stop the parsing process, just print a message.
  sub my_fail {
      my $code = shift;
      XML::Checker::print_error ($code, @_);
      print "\n";
      $passed = 0;
  }
__________________________________

O resultado disso é
__________________________________
D:\>perl errortest.pl
The document file1.xml is valid.

D:\>perl errortest.pl
XML::Checker ERROR-157: unexpected Element [outputdir1]
         Context: ChildElementIndex 8, line 32, column 1, byte 882

XML::Checker ERROR-101: undefined ELEMENT [outputdir1]
         Context: line 32, column 1, byte 882

XML validation failed to file2.xml
__________________________________

Mais uma vez muito obrigado!

Abdsandryk

--- Em perlbr@..., Marco A P D´Andrade <mda@e...>
escreveu
> Olá,
>
> Sua dúvida não é nada trivial, creio que sua melhor opção será
verificar
> no Google como isto é resolvido normalmente.
>
> Eu julgava que o melhor caminho seria usar XML::DOM ou XML::Parser,
mas
> ambos são utilizados no módulo em questão, demonstrando que foi bem
> experimentado.
>
> Através de uma rápida olhada na documentação do módulo utilizado
> verifiquei um exemplo comum no modelo de parsers:
>
> http://search.cpan.org/~tjmather/XML-Checker-
0.13/lib/XML/Checker/Parser.pm
>
>
>
>  use XML::Checker::Parser;
>
>  my %expat_options = (KeepCDATA => 1,
>                       Handlers => [ Unparsed =>
\&my_Unparsed_handler ]);
>  my $parser = new XML::Checker::Parser (%expat_options);
>
>  eval {
>      local $XML::Checker::FAIL = \&my_fail;
>      $parser->parsefile ("fail.xml");
>  };
>  if ($@) {
>      # Either XML::Parser (expat) threw an exception or my_fail()
died.
>      ... your error handling code here ...
>  }
>
>  # Throws an exception (with die) when an error is encountered, this
>  # will stop the parsing process.
>  # Don't die if a warning or info message is encountered, just
print a message.
>  sub my_fail {
>      my $code = shift;
>      die XML::Checker::error_string ($code, @_) if $code < 200;
>      XML::Checker::print_error ($code, @_);
>  }
>
>
> Observe a rotina my_fail, ela recebe como parametros as falhas
> ocorridas, e através dela vc deverá ter controle dos erros
individualmente.
>
>
> Sds,
> Marco Antonio
>
> Abdsandryk wrote:
>
> > Olá, estou começando a trabalhar com perl agora, e estou com uma
> > dúvida meio complicada. Preciso fazer a validação de um arquivo
xml
> > através de uma dtd, e caso não esteja em conformidade, parar o
> > programa. O problema é que aparentemente quando uso parsefile, ele
> > captura apenas o último erro. Quando o erro é crítico, funciona,
pois
> > pára a analise, como erros de procura do documento, etc. Quando
tenho
> > erros mais simples, ele dá um print no erro, mas não pára a
análise,
> > e o resultado é um xml válido (erro!). O código para análise
segue:
> > _____________________________________________________
> > $xml_file = 'filename.xml';
> >
> > my $xp = new XML::Checker::Parser ( Handlers => { } );
> >
> > eval {
> >   $xp->parsefile($xml_file);
> > };
> > if ($@) {
> >   # ... your error handling code here ...
> >   print "$xml_file failed validation!\n";
> >   die "$@";
> > }
> > print "$xml_file passed validation\n";
> > ______________________________________________________
> >
> > Um exemplo de saída gerada quando existe problema, como a
utilizacao
> > de um elemento que não está descrito na dtd (<newtag>):
> > ______________________________________________________
> > XML::Checker ERROR-157: unexpected Element [newtag]
> >         Context: ChildElementIndex 8, line 32, column 1, byte 882
> > XML::Checker ERROR-101: undefined ELEMENT [newtag]
> >         Context: line 32, column 1, byte 882
> > filename.xml passed validation
> > ______________________________________________________
> >
> > Como percebem, ele imprime um erro, e no fim valida, como se este
> > erro nao existisse.
> > Eu gostaria de saber como capturar todos os erros que são
impressos,
> > e não apenas o último, pois se existir algum, eu terei um
resultado
> > válido. Pensei em editar o módulo para jogar os erros em alguma
> > estrutura, mas não consegui fazer. Talvez exista uma forma mais
> > simples e eficiente de fazer essa validação, mas não conheço
muito da
> > linguagem, os módulos mais adequados. Agradeço muito qualquer
ajuda
> > ou sugestão. Valeu
> >
> > Abdsandryk
> >
> >
> >
> >
> >
> >

Abdsandryk,

A mensagem que vc recebeu é justamente pelo uso array x hash. Sempre que
se deparar com um falha destas vc pude acrescentar o módulo
"diagnostics" do perl, que a mensagem de erro é mais descritiva:

perl -Mdiagnostics <script> [parametros]

Outra opção é incluir em seu código a cláusula "use diagnostics" e
executar normalmente.

Fico satisfeito de minha dica ter tido efeito positivo!

Sds,
Marco Antonio

Abdsandryk wrote:

> Olá,
>
> Marco, primeiramente eu gostaria de agradecer sua sugestão, me
> ajudou muito. Eu tentei implementar o codigo sugerido, mas ele dava o
> seguinte erro:
>
> Can't coerce array into hash at C:/Perl/site/lib/XML/Parser.pm line
> 89.
>
> Apesar de nao saber do que se trata, consegui contornar isso,
> trocando os [] por {} nas opções do construtor.
> Depois modifiquei um pouco o programa para escrever "ok" se ele
> validasse e o(s) problema(s) caso contrario. Ficou assim:
> __________________________________
> use XML::Checker::Parser;
>
> my %expat_options = (KeepCDATA => 1,
>                       Handlers => { Unparsed =>
> \&my_Unparsed_handler });
>
> my $parser = new XML::Checker::Parser (%expat_options);
> my $passed = 1;
> my $xml_file = "filename.xml";
>
> eval {
>      local $XML::Checker::FAIL = \&my_fail;
>      $parser->parsefile ($xml_file);
> };
>
> if ($passed) {
>      print "The document $xml_file is valid.\n";
> } else {
>      print "XML validation failed to $xml_file\n";
> }
>
> # Throws an exception when an error is encountered,
> # but don't stop the parsing process, just print a message.
> sub my_fail {
>      my $code = shift;
>      XML::Checker::print_error ($code, @_);
>      print "\n";
>      $passed = 0;
> }
> __________________________________
>
> O resultado disso é
> __________________________________
> D:\>perl errortest.pl
> The document file1.xml is valid.
>
> D:\>perl errortest.pl
> XML::Checker ERROR-157: unexpected Element [outputdir1]
>         Context: ChildElementIndex 8, line 32, column 1, byte 882
>
> XML::Checker ERROR-101: undefined ELEMENT [outputdir1]
>         Context: line 32, column 1, byte 882
>
> XML validation failed to file2.xml
> __________________________________
>
> Mais uma vez muito obrigado!
>
> Abdsandryk
>
> --- Em perlbr@..., Marco A P D´Andrade <mda@e...>
> escreveu
> > Olá,
> >
> > Sua dúvida não é nada trivial, creio que sua melhor opção será
> verificar
> > no Google como isto é resolvido normalmente.
> >
> > Eu julgava que o melhor caminho seria usar XML::DOM ou XML::Parser,
> mas
> > ambos são utilizados no módulo em questão, demonstrando que foi bem
> > experimentado.
> >
> > Através de uma rápida olhada na documentação do módulo utilizado
> > verifiquei um exemplo comum no modelo de parsers:
> >
> > http://search.cpan.org/~tjmather/XML-Checker-
> <http://search.cpan.org/%7Etjmather/XML-Checker->
> 0.13/lib/XML/Checker/Parser.pm
> >
> >
> >
> >  use XML::Checker::Parser;
> >
> >  my %expat_options = (KeepCDATA => 1,
> >                       Handlers => [ Unparsed =>
> \&my_Unparsed_handler ]);
> >  my $parser = new XML::Checker::Parser (%expat_options);
> >
> >  eval {
> >      local $XML::Checker::FAIL = \&my_fail;
> >      $parser->parsefile ("fail.xml");
> >  };
> >  if ($@) {
> >      # Either XML::Parser (expat) threw an exception or my_fail()
> died.
> >      ... your error handling code here ...
> >  }
> >
> >  # Throws an exception (with die) when an error is encountered, this
> >  # will stop the parsing process.
> >  # Don't die if a warning or info message is encountered, just
> print a message.
> >  sub my_fail {
> >      my $code = shift;
> >      die XML::Checker::error_string ($code, @_) if $code < 200;
> >      XML::Checker::print_error ($code, @_);
> >  }
> >
> >
> > Observe a rotina my_fail, ela recebe como parametros as falhas
> > ocorridas, e através dela vc deverá ter controle dos erros
> individualmente.
> >
> >
> > Sds,
> > Marco Antonio
> >
> > Abdsandryk wrote:
> >
> > > Olá, estou começando a trabalhar com perl agora, e estou com uma
> > > dúvida meio complicada. Preciso fazer a validação de um arquivo
> xml
> > > através de uma dtd, e caso não esteja em conformidade, parar o
> > > programa. O problema é que aparentemente quando uso parsefile, ele
> > > captura apenas o último erro. Quando o erro é crítico, funciona,
> pois
> > > pára a analise, como erros de procura do documento, etc. Quando
> tenho
> > > erros mais simples, ele dá um print no erro, mas não pára a
> análise,
> > > e o resultado é um xml válido (erro!). O código para análise
> segue:
> > > _____________________________________________________
> > > $xml_file = 'filename.xml';
> > >
> > > my $xp = new XML::Checker::Parser ( Handlers => { } );
> > >
> > > eval {
> > >   $xp->parsefile($xml_file);
> > > };
> > > if ($@) {
> > >   # ... your error handling code here ...
> > >   print "$xml_file failed validation!\n";
> > >   die "$@";
> > > }
> > > print "$xml_file passed validation\n";
> > > ______________________________________________________
> > >
> > > Um exemplo de saída gerada quando existe problema, como a
> utilizacao
> > > de um elemento que não está descrito na dtd (<newtag>):
> > > ______________________________________________________
> > > XML::Checker ERROR-157: unexpected Element [newtag]
> > >         Context: ChildElementIndex 8, line 32, column 1, byte 882
> > > XML::Checker ERROR-101: undefined ELEMENT [newtag]
> > >         Context: line 32, column 1, byte 882
> > > filename.xml passed validation
> > > ______________________________________________________
> > >
> > > Como percebem, ele imprime um erro, e no fim valida, como se este
> > > erro nao existisse.
> > > Eu gostaria de saber como capturar todos os erros que são
> impressos,
> > > e não apenas o último, pois se existir algum, eu terei um
> resultado
> > > válido. Pensei em editar o módulo para jogar os erros em alguma
> > > estrutura, mas não consegui fazer. Talvez exista uma forma mais
> > > simples e eficiente de fazer essa validação, mas não conheço
> muito da
> > > linguagem, os módulos mais adequados. Agradeço muito qualquer
> ajuda
> > > ou sugestão. Valeu
> > >
> > > Abdsandryk
> > >
> > >
> > >
> > >
> > >
> > >
>
>
> *Yahoo! Groups Sponsor*
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=0/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
> 
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=1/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
>
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=2/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
> 
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=3/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
>
>   *Mais...*  *Claudia
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=4/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>  *Info
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=5/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>  *
>  *Veja
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=6/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>  *
>  *Você S/A
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=7/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>  *Nova
>
<http://br.rd.yahoo.com/SIG=12a6826bg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083940849/A=2107656/R=8/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
>     * Para visitar o site do seu grupo, acesse:
>       http://br.groups.yahoo.com/group/perlbr/
>
>     * Para sair deste grupo, envie um e-mail para:
>       perlbr-unsubscribe@...
>       <mailto:perlbr-unsubscribe@...?subject=Unsubscribe>
>
>     * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>       Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>

Caros colegas

Meu nome é Juscelino Vasconcelos e sou novo aqui no grupo.

Estou fazendo um trabalho acadêmico, que a proposta é criar uma
aplicação para gerenciamento de regras do firewall iptables em
estações numa rede local.
A proposta é que se use Perl com MySQL, qual seria a melhor forma
para se fazer isso?
Eu já consultei o site do CPAN e vi alguns módulos.

Grato

Juscelino

Juscelino,

Já existem alguns módulos especializados na criação de regras no cpan,
recomendo verificar se eles lhe atendem antes de criar algo. Caso haja
algum similar, uma boa prática é avaliar o formato utilizado e
eventualmente adaptar às suas necessidades.

Utilizem a alguns anos atrás um módulo criado para gerar as regras do
IPFW no FreeBSD, se não me engano pego no cpan.

Quando ao acesso ao MySQL, ou qualquer outro banco de dados, recomendo
que vc utilize DBI + DBD::<banco>, neste caso mysql. Deixará fácil
adaptação para outros bancos alem de já ser bastante utilizado.

Nos módulos existem exemplos de sua utilização.

Sds,
Marco Antonio

juscelino_2001 wrote:

> Caros colegas
>
> Meu nome é Juscelino Vasconcelos e sou novo aqui no grupo.
>
> Estou fazendo um trabalho acadêmico, que a proposta é criar uma
> aplicação para gerenciamento de regras do firewall iptables em
> estações numa rede local.
> A proposta é que se use Perl com MySQL, qual seria a melhor forma
> para se fazer isso?
> Eu já consultei o site do CPAN e vi alguns módulos.
>
> Grato
>
> Juscelino
>
>
> *Yahoo! Groups Sponsor*
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=0/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
> 
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=1/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
>
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=2/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
> 
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=3/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>
>
>   *Mais...*  *Claudia
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=4/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>  *Info
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=5/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>  *
>  *Veja
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=6/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>  *
>  *Você S/A
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=7/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>  *Nova
>
<http://br.rd.yahoo.com/SIG=12aqtv5rg/M=264105.3931087.5164847.1588051/D=brclubs\
/S=2137114674:HM/EXP=1083979415/A=2107656/R=8/SIG=11d1a28j5/*http://abril.assine\
abril.com/yahooespecial3>*
>
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
>     * Para visitar o site do seu grupo, acesse:
>       http://br.groups.yahoo.com/group/perlbr/
>
>     * Para sair deste grupo, envie um e-mail para:
>       perlbr-unsubscribe@...
>       <mailto:perlbr-unsubscribe@...?subject=Unsubscribe>
>
>     * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>       Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>

Salve Monges !

Falta menos de 24 horas para o Primeiro Encontro dos Monges Perl
Cariocas.

Segue alguns Monges que já confirmaram presença:

Marco Lima - O Mago
Ricardo Filipo
André Goés
Ramoni
Marco A P D´Andrade
Ylem Arnaldo

Outros devem passar por lá.

Pessoal de Sampa (Luis, Alceu, Solli, Nelson ...) cadê vocês ???

Está concedido o perdão para Monges como o Flávio que teriam que
encarar algumas horas de peregrinação para chegar no evento.

Encontro vocês amanhã.

======================================================
     Primeiro Encontro dos Monges Perl Cariocas

Os monges cariocas têm a honra de convidá-lo para o primeiro encontro
social, que se realizará no sábado, dia 8 de maio de 2004, a partir das
14:00, no "Arab - Lagoa".

Informações:

Endereço
Avenida Borges de Medeiros, s/n - Quiosques 7 e 9 - Parque dos Patins -
Lagoa
Telefone
(21) 2540-0747
Cartões de Crédito
Visa
Tipo De Cozinha
Árabe
Especialidades
Quibes, Pastas, Esfiha
Horário Funcionamento
Segunda à Domingo das 10h ao último cliente
Preço Por Pessoa
De R$15 até R$30

Se você preferir ir de carro, no local existe um estacionamento da
público no local, a entrada é na altura do posto de gasolina do
canteiro central.

Caso você não conheça o local, pegando a pista da lagoa no sentido de
quem sai do Clube do Flamengo e vai para Botafogo depois da academia de
ginástica, se eu não me engano é onde ficava o Tivoli Park.

Caso tenha alguma dúvida sugiro o site www.apontador.com.br.

Para localizar a mesa é só procurar pelo Dromedário.

======================================================
Se você tiver algum tipo de problema para chegar, pode me telefonar no
(21) 8123-0667.

Conto com a sua presença.

[   ]´ção;

Marco Lima - O Mago
marco.lima@...
+55 21 81230667

Olá pessoal! Gostaria de saber como faço pra redimencionar imagens
usando o modulo GD? Dei uma olhada rápida na ducomentação do modulo e
não vi o que eu quero (vi criação de gráficos, inclusão de texto em
imagens...), mas redimencionamento de imagens nada...

Alguém pode me ajudar?

Abraços,
João Gabriel

icq: 130469116
msn: jgcl@...
sites: www.cgiclube.net - www.showdebola.tk

mas esse modulo vem com o perl?

[]s
João Gabriel

--- Em perlbr@..., Diogo Agra <diogoabs@y...> escreveu
> O modulo GD no perl, perde muito a qualidade da fotografia quando
editada, eu recomendo usar o modulo Image::Magick
>
> use image::magick;
>
> $p1 = new Image::Magick;
> $p1->Read("fotografia.jpg");  # abre a fotografia
> $p1->Scale(width=>110, height=>88);  # diminui o tamanho x,y
> $p1->Write(filename=>"thumb_fotografia.jpg", quality=>"100"); #
salva a fotografia original em outra, com qualidade 100
>
>
>
> ---------------------------------
> Yahoo! Messenger - Fale com seus amigos online. Instale agora!

Com a ajuda do DiogoAgra do canal #cgi da rede BRASnet.org (e daqui
da lista) consegui o código que usa o GD pra redimencionar uma imagem:

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use GD;
$image = newFromJpeg GD::Image("imagem.jpg");
($width,$height) = $image->getBounds();
$novoW = "50";
$novoH = "50";
my $im = new GD::Image($novoW,$novoH);
$im->copyResized($image,0,0,0,0,$novoW,$novoH,$width,$height);
print "Content-type: image/png\n\n";
binmode STDOUT;
print $im->png;
exit;

[]'s
João Gabriel

--- Em perlbr@..., João Gabriel <redejgcl@b...>
escreveu
> mas esse modulo vem com o perl?
>
> []s
> João Gabriel
>
> --- Em perlbr@..., Diogo Agra <diogoabs@y...>
escreveu
> > O modulo GD no perl, perde muito a qualidade da fotografia quando
> editada, eu recomendo usar o modulo Image::Magick
> >
> > use image::magick;
> >
> > $p1 = new Image::Magick;
> > $p1->Read("fotografia.jpg");  # abre a fotografia
> > $p1->Scale(width=>110, height=>88);  # diminui o tamanho x,y
> > $p1->Write(filename=>"thumb_fotografia.jpg", quality=>"100"); #
> salva a fotografia original em outra, com qualidade 100
> >
> >
> >
> > ---------------------------------
> > Yahoo! Messenger - Fale com seus amigos online. Instale agora!

Pessoal,

Estou meio que desesperado. Alguem tem um tutorial de
Openwebmail sem utilizar o perl-suid?
Tambem nao entendi direito a variação de poder se
utilizar o speedcgi. Alguem pode me explicar?
Agradeco desde ja.

Ps: Estou tentando instalar ele a uma semana e ja li
milhoes de vezes o FAQ do site mas nada funciona.

______________________________________________________________________

Yahoo! Messenger - Fale com seus amigos online. Instale agora!
http://br.download.yahoo.com/messenger/

Qual SO que você esta tentando instalar.


> Pessoal,
>
> Estou meio que desesperado. Alguem tem um tutorial de
> Openwebmail sem utilizar o perl-suid?
> Tambem nao entendi direito a variação de poder se
> utilizar o speedcgi. Alguem pode me explicar?
> Agradeco desde ja.
>
> Ps: Estou tentando instalar ele a uma semana e ja li
> milhoes de vezes o FAQ do site mas nada funciona.
>
> ______________________________________________________________________
>
> Yahoo! Messenger - Fale com seus amigos online. Instale agora!
> http://br.download.yahoo.com/messenger/

Ei pessoal alguém pode me dizer o móudlo CPAN que eu uso para fazer
uma comunicação cliente/servidor?

Debian Woody. Se tiver como ajudar eu agradeço.

Qual SO que você esta tentando instalar.


> Pessoal,
>
> Estou meio que desesperado. Alguem tem um tutorial
de
> Openwebmail sem utilizar o perl-suid?
> Tambem nao entendi direito a variação de poder se
> utilizar o speedcgi. Alguem pode me explicar?
> Agradeco desde ja.
>
> Ps: Estou tentando instalar ele a uma semana e ja li
> milhoes de vezes o FAQ do site mas nada funciona.

______________________________________________________________________

Yahoo! Messenger - Fale com seus amigos online. Instale agora!
http://br.download.yahoo.com/messenger/

Olá pessoal. Estou fazendo um script e esse abre um arquivo que tem o
seguinte conteudo:

[title]Teste[/title]

Teste teste teste teste teste

Dai eu tentei usar isto para trocar o código [title] por uma palavra
ou conteudo:

#!/usr/bin/perl

open (ARQ, "teste.txt");
@arq = <ARQ>;
close (ARQ);

foreach $linha (@arq) {
$linha =~ s/[title]/&codtitle/ig;
}

print "@arq";

sub codtitle {
return qq~
Titulo
~;
}

Porem o script da erro... diz que tem erro na linha que faz a troca,
e se eu tirar o [ e ] do "title" ele não troca por titulo e sim
por "&codtitle".

O que eu faço?

[]'s
João Gabriel

Nessa linha s/[title]/&codtitle/ig o [ e ] tem que estar escapados, pois
se não poderão ser confundidos com a lista das ERs.

s/\[title\]/ ...

A subrotina que você inseriu também não será interessante, pois a Perl
tratará aquilo como uma string e não como um retorno da subrotina.

[ ]'s
Eudes


Em Dom, 2004-05-16 às 08:37, João Gabriel escreveu:
> Olá pessoal. Estou fazendo um script e esse abre um arquivo que tem o
> seguinte conteudo:
>
> [title]Teste[/title]
>
> Teste teste teste teste teste
>
> Dai eu tentei usar isto para trocar o código [title] por uma palavra
> ou conteudo:
>
> #!/usr/bin/perl
>
> open (ARQ, "teste.txt");
> @arq = <ARQ>;
> close (ARQ);
>
> foreach $linha (@arq) {
> $linha =~ s/[title]/&codtitle/ig;
> }
>
> print "@arq";
>
> sub codtitle {
> return qq~
> Titulo
> ~;
> }
>
> Porem o script da erro... diz que tem erro na linha que faz a troca,
> e se eu tirar o [ e ] do "title" ele não troca por titulo e sim
> por "&codtitle".
>
> O que eu faço?
>
> []'s
> João Gabriel
>
>
>
>
> Links do Yahoo! Grupos
> Para visitar o site do seu grupo, acesse:
>  http://br.groups.yahoo.com/group/perlbr/
>
> Para sair deste grupo, envie um e-mail para:
>  perlbr-unsubscribe@...
>
> O uso que você faz do Yahoo! Grupos está sujeito aos:
>  http://br.yahoo.com/info/utos.html
>

E aí amigo, pra instalar o mod_perl em windows faça o seguinte:

Primeiro atualize o seu Perl para o 5.8.2 após isso adicione os
seguintes repositories:

Para fazer isso abra o prompt de Comando e digite apenas ppm
Daí digite assim:

rep add http://theoryx5.uwinnipeg.ca/ppms

rep add http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?
urn:/PPMServer58

rep add http://www.activestate.com/ppmpackages/5.8-windows/

Após instalados os repoitories, digite:
search mod_perl
ele irá encontrar o mod_perl.ppd daí pra instalar digite
install mod_perl (ele encontrará a melhor versão pra vc)

Pra procurar qualquer outra coisa é só digitar search (Nome do que
procurar)

continuando....
No final da instalaçao do mod_perl, siga as orientações pra adicionar
2 linhas no httpd.conf. é teta demais.... qualquer coisa estamos a
diposição...



--- Em perlbr@..., Marco A P D´Andrade <mda@e...>
escreveu
> Joao Gabriel,
>
> Como citei anteriormente, não há como repassar informações de
maneira
> eficiente (sem uma grande perda de tempo) em um ambiente diferente.
>
> Verifique os pré-requisitos da versão. Existe inclusive uma opção
de
> baixar já em binário, dependendo de seu SO.
>
> Existe uma curva razoavel de aprendizado, pois se está acostumado à
> gerar scripts CGI deverá também habituar a usar packages.
>
> Sds,
> Marco Antonio
>
> João Gabriel wrote:
>
> > Então... verifiquei a versão do meu perl: é o perl 5.6.1. Entrei
na
> > página do mod_perl e não entendi nada... o meu apache é o apache
> > 2.0.48...
> >
> > Teria como vc me dar mais alguns help's?
> >
> > Um abraço,
> > João Gabriel
> >
> > --- Em perlbr@y..., Marco A P D´Andrade <mda@e...>
> > escreveu
> > > João Gabiel,
> > >
> > > A instalação de mod_perl é um tanto trabalhosa, e requer ações
> > > dependentes das mensagens, ficara bem difícil alguem lhe ajudar
> > através
> > > da troca de mensagens.
> > >
> > > Recomendo verificar as informações de instalação. Uma ressalva é
> > que em
> > > alguns casos mesmo com falha no "make test" é possivel ter um
> > ambiente
> > > sem problemas, quando instalei na última vez (apache 1.3.x,
> > mod_perl
> > > 1.x, perl 5.6.1) atribui isto à falha na montagem dos testes, e
não
> > tive
> > > problemas na execução.
> > >
> > > Quanto às versões, caso sua versão seja 5.6.0 vc deve atualizar
no
> > > mínimo para 5.6.1, mas recomendo mesmo é uma 5.8.3, caso seu
> > sistema
> > > seja compatível.
> > >
> > > Para Apache 2.x vc deve instalar mod_perl 2.x.
> > >
> > > Tomados estes cuidados já é meio caminho para uma instalação com
> > sucesso.
> > >
> > > Sds,
> > > Marco Antonio
> >

Juscelino,

Sua questão é muito aberta, e podem ser indicadas dúzias de módulos com
este objetivo... A começar por IO::Socket (vide perldoc perlipc),
seguindo minha linha de webservices SOAP::Lite, etc, etc, etc


Exclareça sua necessidade que tentaremos ajudar.

Sds,
Marco Antonio

juscelino_2001 wrote:

> Ei pessoal alguém pode me dizer o móudlo CPAN que eu uso para fazer
> uma comunicação cliente/servidor?
>
>
> *Yahoo! Groups Sponsor*
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
>     * Para visitar o site do seu grupo, acesse:
>       http://br.groups.yahoo.com/group/perlbr/
>
>     * Para sair deste grupo, envie um e-mail para:
>       perlbr-unsubscribe@...
>       <mailto:perlbr-unsubscribe@...?subject=Unsubscribe>
>
>     * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>       Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>

Galera,

Desculpa perguntar aqui mas não estou conseguindo informações na WEB.
Tem um cliente meu que quer montar uma rádio Virtual, igual uma rádio comum,
com programação, locução etc.

Alguém sabe onde encontro informações??????? Programas para usar ????

Eu sei que consigo montar uma rádio na minha máquina, mas quero um lance
mais profissional.



Alessandro.

Olá pessoal. Estou fazendo um script e esse abre um arquivo que tem o seguinte conteudo:
[title]Teste[/title]
Teste teste teste teste teste
Dai eu tentei usar isto para trocar o código [title] por uma palavra ou conteudo:
#!/usr/bin/perl
open (ARQ, "teste.txt");
@arq = <ARQ>;
close (ARQ);
foreach $linha (@arq) { $linha =~ s/[title]/&codtitle/ig; }
print "@arq";
sub codtitle {
return qq~
Titulo
~;
}
Porem o script da erro... diz que tem erro na linha que faz a troca, e se eu tirar o [ e ] do "title" ele não troca por titulo e sim por "&codtitle".
O que eu faço?
[]'s
João Gabriel
Links do Yahoo! Grupos
Para visitar o site do seu grupo, acesse:
http://br.groups.yahoo.com/group/perlbr/

Para sair deste grupo, envie um e-mail para:
perlbr-unsubscribe@...
O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

A NullSoft(Winamp) desenvolveu um programa para isso.
www.shoutcast.com dê uma olhada, com ele você escuta via winamp ou media
player (acho que por outros programas tb é possível).
http://www.iradio.com.br/ um exemplo de rádio que utiliza esse sistema.
O servidor onde trabalho oferece esse serviço (caso você não queira rodar em
servidor próprio), www.dsgx.org.

Abraços,

Gabriel Vieira
----- Original Message -----
From: "Alessandro Magno de Paula" <alessandro@...>
To: "Alessandro Magno de Paula" <Alessandro@...>
Sent: Monday, May 17, 2004 11:27 AM
Subject: [perlbr] OFF TOPIC - Rádio Virtual


> Galera,
>
> Desculpa perguntar aqui mas não estou conseguindo informações na WEB.
> Tem um cliente meu que quer montar uma rádio Virtual, igual uma rádio
comum,
> com programação, locução etc.
>
> Alguém sabe onde encontro informações??????? Programas para usar ????
>
> Eu sei que consigo montar uma rádio na minha máquina, mas quero um lance
> mais profissional.
>
>
>
> Alessandro.
>
>
>
> Links do Yahoo! Grupos
> Para visitar o site do seu grupo, acesse:
>  http://br.groups.yahoo.com/group/perlbr/
>
> Para sair deste grupo, envie um e-mail para:
>  perlbr-unsubscribe@...
>
> O uso que você faz do Yahoo! Grupos está sujeito aos:
>  http://br.yahoo.com/info/utos.html
>
>

Prometo ser o unico off topic q eu vou fazer. Ateh pq nao eh taaao off
assim. :)

E ae pessoas.

É com muito pesar que eu resolvo me despedir do meu fiel TT e do meu
NetMD. :(
Mas emergencias acontecem, e dinheiro nao ta facil, e por ai vai. Entrem
em contato via PVT para alguma informação mais específica.


Tungsten T + Pelicula Brando + Capa da Palmcases
-------------------------------------------------

Comprado em Dezembro, sempre esteve com película e capa, pouca
utilização (até hoje, só alarmes e algumas olhadas no DocsToGo).
A pelicula nem arranhou, inclusive.
Com nota, comprado na Nacional Info de Belo Horizonte. A capa é uma
versão com clip de metal que o pessoal da PalmCases gentilmente fez para
mim :) Não sei se fizeram mais dela.

PRECO: R$ 800,00

SD Card - 128MB
---------------

Comprado em Janeiro, marca Dane Elec (mas o palm acha como Panasonic,
acho que é porque a Dane Elec faz os cartões pra Panasonic, deve). Ficou
no Palm desde que chegou, teve no máximo 20M ocupados por documentos do
DocsToGo.

PRECO: R$ 150,00

Sony NetMD NE410
----------------

Comprado em fevereiro, usado apenas 1 vez durante 50 horas (com 1 só
pilha alcalina). Armazena ateh 5 CD's usando a compressão máxima em um
MiniDisc de 80 min.
Acompanha 1 MiniDisc extra além do que vem com ele. É o modelo mais
barato da linha NetMD mas tem um ótimo som.

Link para info:
http://store.ad-free.net/html/store.ad-free.net/shop/producteb05.html

PRECO: R$ 400,00

[]s
Junior


--
José de Paula Eufrásio Júnior
Analista de Sistema | CPD
ProInternet do Brasil

Ai valeu pelo código! Deu certinho o que eu queria:

open (ARQ, "teste.txt");
@arq = <ARQ>;
close (ARQ);

foreach $linha (@arq) {
$linha =~ s/\[title\]/&codtitle/ige;
}

print "@arq";

sub codtitle {
return qq~
Hahahahah
~;
}

[]'s
João Gabriel
--- Em perlbr@..., Omar Alves Ferreira <omar@e...>
escreveu
> Olá João,
>
> desse jeito não vai funcionar. Para que isso aconteça precisa fazer
o
> seguinte:
>
> 1. para que a função &codtitle seja de fato executada, e o seu
valor de
> retorno seja usado pelo operador "s", vc deve usar o
modificador "e";
> 2. "[" e "]" precisam ser transformados em literais, usando "\";
>
> dessa forma a operação deve ficar mais ou menos assim:
>
> $linha =~ s/\[title\]/&codtitle/ige;
>
> Omar
>
>
> Em Dom, 2004-05-16 às 08:37, João Gabriel escreveu:
>
> > Olá pessoal. Estou fazendo um script e esse abre um arquivo que
tem o
> > seguinte conteudo:
> >
> > [title]Teste[/title]
> >
> > Teste teste teste teste teste
> >
> > Dai eu tentei usar isto para trocar o código [title] por uma
palavra
> > ou conteudo:
> >
> > #!/usr/bin/perl
> >
> > open (ARQ, "teste.txt");
> > @arq = <ARQ>;
> > close (ARQ);
> >
> > foreach $linha (@arq) {
> > $linha =~ s/[title]/&codtitle/ig;
> > }
> >
> > print "@arq";
> >
> > sub codtitle {
> > return qq~
> > Titulo
> > ~;
> > }
> >
> > Porem o script da erro... diz que tem erro na linha que faz a
troca,
> > e se eu tirar o [ e ] do "title" ele não troca por titulo e sim
> > por "&codtitle".
> >
> > O que eu faço?
> >
> > []'s
> > João Gabriel
> >
> >
> >
> >
> > Links do Yahoo! Grupos
> > Para visitar o site do seu grupo, acesse:
> >  http://br.groups.yahoo.com/group/perlbr/
> >
> > Para sair deste grupo, envie um e-mail para:
> >  perlbr-unsubscribe@...
> >
> > O uso que você faz do Yahoo! Grupos está sujeito aos:
> >  http://br.yahoo.com/info/utos.html
> >

Fala pessoal,
Seguinte, eu percebi que toda vez que abro algum script CGI em que eu
uso um select pra mostrar o conteúdo do banco o Windows inicia mais
um processo perl.exe (Banco de Dados = ORACLE)
(No meu caso Windows XP, clicando em CTRL+SHIFT+ESC (GUIA PROCESSOS)
aparece a tela de processos ativos)
Quando  abro um script que nao possui nenhuma conexão com o Banco ele
nao abre nenhum outro outro processo, e quando abre, assim que o
script carregou ele fecha.



Dúvida 1: não deveria ser um único processo(PERL.EXE) para a
aplicação toda?
Dúvida 2: Mesmo que ele abra um processo pra cada script assim que
carregasse o script ele teria que fechar o processo certo? Ele nao
fecha todos, alguns sim, e alguns não? PQ?
Dúvida 3: Um script fica muito tempo carregando (barrinha do
explorer), mas eu já estou visualizando a página corretamente, pq
isso ocorre?