Postagens
Não informado
Olá, sou novato em Perl! Estou desenvolvendo um script para fazer substituições em arquivos html acontece que tenho o seguinte trecho:
if($line=~/(<h3>(.*?)<\/h3>)/){
$palavra=$2;
}
até ai tudo bem. o problema é na linha seguinte:
$line=~s/<title>(.*?)<\/title>/<title>$palavra<\/title>/g;
o fato é que entre as tags <title></title> não imprime o conteudo da variavel $palavra.
Só que se eu fizer um print dela antes desta linha e fora do if... o conteudo é impresso.
alguém sabe o porque?
Valeu!
Márcio
