[SP-pm] Eval-group not allowed at runtime, use re 'eval' in regex ...

Frederico Recsky frederico em gmail.com
Sexta Junho 20 08:43:16 PDT 2008


Olá,

On Fri, Jun 20, 2008 at 12:35 AM, Daniel de Oliveira Mantovani
<daniel.oliveira.mantovani em gmail.com> wrote:
>
> Olá, dúvida é a seguinte:
> print "digite o valor";
> chomp  ($codigo = <STDIN>);
> -----------------------------------
> Quero por o número que a pessoa digitou aonde está escrito "AQUI":
> $print =~ s/['"]|href=".*AQUI(.+?)['"](?{print
> "http:\/\/208.98.47.7\/downloads\/$codigo". $^N."\n"})//gi;
>
> O que eu tentei foi $print =~ s/['"]|href=".*$codigo(.+?)['"](?{print
> "http:\/\/208.98.47.7\/downloads\/$codigo". $^N."\n"})//gi;

mmm, sua regex parece muito complicada para fazer algo simples. Mesmo
porque voce ta usando s///  quando acho que só um m// resolveria já
que voce imprime a saida de dentro da regex. De qualquer jeito eu não
acho legal usar eval em regex tambem ( e nem sei se funciona legal
atualmente).

Se você adaptar a sugestão do Blabos no email anterior é uma boa :).

-- 
____________________________
Frederico Recsky
Linux User: #253572
http://www.fred.eti.br
http://www.perl.org.br


Mais detalhes sobre a lista de discussão SaoPaulo-pm