<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>Ué... o VIM 7 + o plugin para Perl não detectou isso... sinistro...<BR><BR>Seria isso um bug? Me parece que sim. Nem a checagem de sintaxe (atalho \rs) nem a formatação do perltidy (\ry) mostraram isso. Alguém aí já viu isso?<BR>
<BR>
[]'s<BR>
Alceu<BR><BR>
Date: Thu, 24 May 2007 17:56:42 -0300<BR>From: fernandocorrea@gmail.com<BR>To: cascavel-pm@pm.org<BR>Subject: Re: [Cascavel-pm] PrincipaisContribuidoresCascavelPM<BR><BR>só faltou declarar %hash...<BR><BR><code><BR>use strict;<BR>use warnings;<BR>use WWW::Mechanize;<BR>my $m = WWW::Mechanize->new;<BR>my %hash;<BR>$m->get(" <A href="http://mail.pm.org/pipermail/cascavel-pm/" target=_blank>http://mail.pm.org/pipermail/cascavel-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;<BR></code><BR><BR>:wq! <BR><br /><hr />Discover the new Windows Vista <a href='http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE' target='_new'>Learn more!</a></body>
</html>