Estou começando a brincar com perl aqui, preciso usar um scriptzinho na cron, para me ler uma string HTML e retornar um determinado HTML dentro de uma div.
No PHP faço isso "mole molé", mas não achei nada que me ajudasse a fazer isso via perl.
No php seria isso:
$html = 'string HTML';
$doc = new DOMDocument();
@$doc->loadHTML($html);
$temp_doc = new DOMDocument();
$temp_doc->appendChild($temp_doc->importNode($doc->getElementById(div_'meio')->getElementsByTagName('h2')->item(1), true));
$titulo = strip_tags($temp_doc->saveHTML());
$temp_doc = new DOMDocument();
$temp_doc->appendChild($temp_doc->importNode($doc->getElementById('div_meio')->getElementsByTagName('p')->item(1), true));
$conteudo = $temp_doc->saveHTML();
echo $titulo . " - " . $conteudo;Queria saber como fazer algo parecido com o perl ._.
Eu só posso usar libs padrão do sistema, nada de lib feita por usuário. Isso que é um dos problemas.
Tem como fazer isso usando o HTML::Parser?
[]'s!


 
			

 Postagens
    Postagens Male
 Male
		
	
		
	
		
 over_law@hotmail.com
 
		
										over_law@hotmail.com
									
	 
												 
												





