<div dir="ltr">Você pode fazer regexes com m/ regexp aqui / .<br><br>Também pode com m{ .... } , m@ ..... @ ,&nbsp; m( .... ) , etc..<br><br>Mas se você tá usando m/ ..... / , o que acontece quando tem mais um &quot;/&quot; no meio da regex ? O perl vai achar que a regexp acabou ali. Então, ou usa-se outros delimitadores, ou se escapa a &quot;/&quot;, com uma &quot;\&quot;, pra ele não achar que a &quot;/&quot; terminou a regexp:<br>
<br>m/&lt;a href=&quot;http:\/\/(.+?)&quot;/sig<br><br>ou<br><br>
m{&lt;a href=&quot;http://(.+?)&quot;}sig<br><br>ou até mesmo <br><br>m;&lt;a href=&quot;http://(.+?)&quot;;sig # se você tá participando de um concurso de código ofuscado :-)<br><br>[]s<br>Wendel<br><br><div class="gmail_quote">
2008/9/19 Daniel de Oliveira Mantovani <span dir="ltr">&lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div dir="ltr"><div class="Ih2E3d">while($string =~ m/&lt; a href=&quot;http://(.+?)&quot;/sig){<br>
 &nbsp; &nbsp; print &quot;\n&quot;.$1; #Agora vou pegar todos!<br>
}<br><br></div><br></div></blockquote></div><br></div>