[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