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
Escopo De Variaveis Usando S///
Started By marcio paulo, 22/07/2005, 15:01
1 reply to this topic
#2
Whitesnake
Whitesnake
-
- Visitantes
Posted 25/07/2005, 14:12
Hmm? Nao entendi sua dúvida.
O script está correto. Eu testei assim:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
$line="<title>Titulo Provisório</title>";
$palavra="Título Permanente";
$line=~s/<title>(.*?)<\/title>/<title>$palavra<\/title>/g;
print $line;
Nao era isso o que queria?
Até
O script está correto. Eu testei assim:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
$line="<title>Titulo Provisório</title>";
$palavra="Título Permanente";
$line=~s/<title>(.*?)<\/title>/<title>$palavra<\/title>/g;
print $line;
Nao era isso o que queria?
Até
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
