Olá pessoal,<br><br>Estou tentando montar um crawller, mas estou empacado.<br><br>No meu maior problema está sendo em como fazer para pegar o conteúdo que aparece ao lado de Heading e colocá-lo em uma varíavel.<br><pre class="prettyprint">

<span class="pln">  </span><span class="kwd">use</span><span class="pln"> </span><span class="typ">Mojo</span><span class="pun">::</span><span class="typ">UserAgent</span><span class="pun">;</span><span class="pln">

  </span><span class="com"># Fetch web site</span><span class="pln">
  </span><span class="kwd">my</span><span class="pln"> $ua </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Mojo</span><span class="pun">::</span><span class="typ">UserAgent</span><span class="pun">-></span><span class="kwd">new</span><span class="pun">;</span><span class="pln">
  </span><span class="kwd">my</span><span class="pln"> $tx </span><span class="pun">=</span><span class="pln"> $ua</span><span class="pun">-></span><span class="kwd">get</span><span class="pun">(</span><span class="str">'<a href="http://mojolicio.us/perldoc">mojolicio.us/perldoc</a>'</span><span class="pun">);</span><span class="pln">

  </span><span class="com"># Extract title</span><span class="pln">
  say </span><span class="str">'Title: '</span><span class="pun">,</span><span class="pln"> $tx</span><span class="pun">-></span><span class="pln">res</span><span class="pun">-></span><span class="pln">dom</span><span class="pun">-></span><span class="pln">at</span><span class="pun">(</span><span class="str">'head > title'</span><span class="pun">)-></span><span class="pln">text</span><span class="pun">;</span><span class="pln">

  </span><span class="com"># Extract headings</span><span class="pln">
  $tx</span><span class="pun">-></span><span class="pln">res</span><span class="pun">-></span><span class="pln">dom</span><span class="pun">(</span><span class="str">'h1, h2, h3'</span><span class="pun">)-></span><span class="pln">each</span><span class="pun">(</span><span class="kwd">sub</span><span class="pln"> </span><span class="pun">{</span><span class="pln">
    say </span><span class="str">'Heading: '</span><span class="pun">,</span><span class="pln"> shift</span><span class="pun">-></span><span class="pln">all_text</span><span class="pun">;</span><span class="pln">
  </span><span class="pun">});<br><br><br></span></pre>Executando esse código (ele está na página do Mojolicious) teremos:<br><br>Title: Mojolicious::Guides - Mojolicious guide to the galaxy<br>Heading: TABLE OF CONTENTS<br>

Heading: NAME<br>Heading: DON'T PANIC!<br>Heading: LEARNING PERL<br>Heading: TUTORIAL<br>Heading: GUIDES<br>Heading: HIGHLIGHTS<br>Heading: MORE<br><br>O que não estou conseguindo fazer é colocar, por exemplo, o "TABLE OF CONTENTS" dentro de uma variável. Ou seja, não estou entendo o funcionamento do shift...<br>

<br><br><br>Abraços,<br>-- <br>--<br>Manoel Domingues Junior<br>"Coletar dados é o primeiro passo para a sabedoria, mas compartilhar dados é o primeiro passo para a comunidade."<br>IBM - Prodigy Linux<br><br>