<br clear="all">Olá, dúvida é a seguinte:<br>print "digite o valor";<br>chomp ($codigo = <STDIN>);<br>-----------------------------------<br>Quero por o número que a pessoa digitou aonde está escrito "AQUI":<br>
$print =~ s/['"]|href=".*AQUI(.+?)['"](?{print "http:\/\/<a href="http://208.98.47.7">208.98.47.7</a>\/downloads\/$codigo". $^N."\n"})//gi;<br><br>O que eu tentei foi $print =~ s/['"]|href=".*$codigo(.+?)['"](?{print "http:\/\/<a href="http://208.98.47.7">208.98.47.7</a>\/downloads\/$codigo". $^N."\n"})//gi;<br>
<br>mas da erro.<br>Eval-group not allowed at runtime, use re 'eval' in regex m/['"]|href=".*2139(.+?)['"](?{print "<a href="http://208.98.47.7/downloads/$codigo">http://208.98.47.7/downloads/$codigo</a>". $^N."\n"})/ at apostilando.pl line 12, <STDIN> line 1.<br>
-- <br>Danie de Oliveira Mantovani<br>"A sede pelo aprendizado é insaciável"<br>------------------------------------------------------------