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

[Blabos de Blebe]

Bom dia,

Se eu entendi direito, vc quer ler um número e substitui-lo dentro de
uma string?


<code>
my $string = "bla(AQUI)bla";
my $entry = <>;

chomp($entry);

$string =~ s/AQUI/$entry/;

print $string, $/;
</code>

Por favor, esclareça um pouco mais, se não for isso.

Abraços


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;
>
> mas da erro.
> Eval-group not allowed at runtime, use re 'eval' in regex
> m/['"]|href=".*2139(.+?)['"](?{print "http://208.98.47.7/downloads/$codigo".
> $^N."\n"})/ at apostilando.pl line 12, <STDIN> line 1.
> --
> Danie de Oliveira Mantovani
> "A sede pelo aprendizado é insaciável"
> ------------------------------------------------------------
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>