Eu resolví brincar um pouco com o negocio do ++<br><br>alguém quer me ajudar?<br><br><code><br>perl -MWWW::Mechanize -e '$m=WWW::Mechanize->new; $m->get("<a href="http://mail.pm.org/pipermail/cascavel-pm/">
http://mail.pm.org/pipermail/cascavel-pm/</a>"); @links = $m->find_all_links(url_regex => qr#\d{4}-\w+.txt(?!\.gz)#,); for$link(@links){for$a(split m#$/#, $m->get($link->url_abs)->content){eval "\$hash{" . lc $1 . "}$2" if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/}} print "$_ => $hash{$_}$/" for keys %hash'
<br></code><br><br><div><span class="gmail_quote">Em 24/05/07, <b class="gmail_sendername">Iberê O. Kuntz de Souza</b> <<a href="mailto:kuntzzz@gmail.com">kuntzzz@gmail.com</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<span class="q"><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">Hm... alguém tem paciência para escrever um script que compare estas<br>listas, mostrando quem subiu, quem desceu, e quem apareceu pela
<br>primeira vez?</blockquote></span><div><br>Eu me ofereço ;-) </div>
<br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando