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!