Alguém me ajuda?<br><br><code><br>#!/usr/bin/perl -w<br><br>use strict; <br>use WWW::Mechanize;<br>use IO::Uncompress::Gunzip;<span class="q"><br><br>my $m = WWW::Mechanize->new;<br></span>my $onde = shift || "rio";
<br>my %hash;<br>$m->get(" <a href="http://mail.pm.org/pipermail/$onde-pm/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/pipermail/$onde-pm/</a>");<br>my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt#, );
<br>for (@links) {
<br> print $_->url_abs, $/;<br> $m->get($_->url_abs);<br> my $content = $m->content;<br> my $buffer;<br> if ($_->url_abs =~ /\.gz$/) {<br> my $z = new IO::Uncompress::Gunzip \$content;
<br>
$z->read($buffer);<br> }<br> else {<br> $buffer = $content;<br> }<br> $buffer =~ s#<code>.*?</code>##gsm;<br> my $from;<br> for $a ( split m#$/#, $buffer ) {<br> $from = $1 if $a =~ m#^\s*From: (.+)$#;
<br> if($a =~ /^\s*\(?([\w]+)\)?((:?\+|-){2})\s*(#.*)?$/) {<br> eval "\$hash{" . lc $1 . "}$2";<br> print "From: $from$/$a$/$/";<span class="q"><br> } <br>
} <br>}
<br>print "$_ => $hash{$_}$/" for keys %hash;<br></code></span><br><br><br><div><span class="gmail_quote">Em 25/05/07, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com">
fernandocorrea@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;">por falar nisso, vcs querem saber qtos ++ vcs já receberam?
<br><br>perl -MWWW::Mechanize -e '<br><br>use strict;<br>use warnings;<br>my $m = WWW::Mechanize->new; my %hash;<br>$m->get(" <a href="http://mail.pm.org/pipermail/rio-pm/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/pipermail/rio-pm/</a>");<br>my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt(?!\.gz)#, );<br>for my $link (@links) {<br> for my $a ( split m#$/#, $m->get( $link->url_abs )->content ) {
<br> eval "\$hash{" . lc $1 . "}$2"<br> if $a =~ /^\s*\(?([\w-]+)\)?((:?\+|-){2})\s*(#.*)?$/;<br> }<br>}<br>print "$_ => $hash{$_}$/" for keys %hash;<div><span class="e" id="q_112c35fef2f7b171_1">
<br><br>'<br><br>
<br><div><span class="gmail_quote">Em 25/05/07, <b class="gmail_sendername">Fernando Oliveira</b> <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@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;">
Blabos++<div><span><br><br><div><span class="gmail_quote">Em 25/05/07, <b class="gmail_sendername">Blabos de Blebe</b> <<a href="mailto:blabos@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
blabos@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;">
Rio+SP+ES<br><br>Em 25/05/07, Fernando Oliveira<<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com</a>> escreveu:<br>> Wesley, vc tb está aqui?! Eu nem sabia disso!!!
<br>><br>> Em 25/05/07, Blabos de Blebe <
<a href="mailto:blabos@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">blabos@gmail.com</a>> escreveu:<br>> ><br>> > Se até o Darth Vader abandonou o Lado Negro, vc também pode.
<br>> ><br>> > "... o medo leva à raiva, a raiva leva ao ódio e o ódio leva ao lado
<br>> negro..."<br>> ><br>> Mestre Yoda<br>> ><br>> > Coragem jovem padawan.<br>> ><br>> > Em 25/05/07, Fabio Rocha<<a href="mailto:fabio@fabiofarias.com.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
fabio@fabiofarias.com.br
</a>> escreveu:<br>> > > Valeu brothers, meu amigo fernando está me convertendo a PerlBrother eu<br>> sou<br>> > > Programador PHP , Js mas achei muito interessante o perl .<br>> > ><br>> > > Abraços a todos e no que precisarem e eu puder eu ajudarei.
<br>> > ><br>> > > []s<br>> > ><br>> > > Em 25/05/07, Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
fernandocorrea@gmail.com</a>> escreveu:<br>> > > > Vou robar o trabalho do Breno e dar as boas vindas ao Fabio Rocha!!!
<br>> > > ><br>> > > > Seja bem vindo!!!<br>> > > ><br>> > > > --<br>> > > > []'s Fernando<br>> > > > _______________________________________________
<br>> > > > Rio-pm mailing list<br>> > > > <a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br>> > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm
</a><br>> > > ><br>> > ><br>> > ><br>> > > _______________________________________________<br>> > > Rio-pm mailing list<br>> > > <a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
Rio-pm@pm.org
</a><br>> > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>> > ><br>> > _______________________________________________
<br>> > Rio-pm mailing list
<br>> > <a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Rio-pm@pm.org</a><br>> > <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br>> ><br>><br>><br>><br>> --
<br>> []'s Fernando<br>> _______________________________________________<br>> Rio-pm mailing list<br>> <a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
Rio-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br>><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br></span></div><span>-- <br>[]'s Fernando
</span></blockquote></div><br><br clear="all"><br></span></div><span class="sg">-- <br>[]'s Fernando
</span></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando