<br><br><div class="gmail_quote">2009/5/29 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><br><div class="gmail_quote">2009/5/28 Alexei Znamensky <span dir="ltr"><<a href="mailto:russoz@gmail.com" target="_blank">russoz@gmail.com</a>></span><div><div></div><div class="h5"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><br><div class="gmail_quote">2009/5/28 Andre Carneiro <span dir="ltr"><<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>></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><br><div class="gmail_quote"><div></div></div><br> </div></blockquote></div></blockquote><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div class="gmail_quote"><div><br>Só implemente essa linha acima, se o seu arquivo for realmente muito pequeno. Caso contrário vocę pode fazer:<br>
<br><code><br><br>#$fh é o filehandle que eu sugeri mais acima...<br>
my $line = '';<br>
my $lnumber = 0;#contador de linhas.<br>while(<$fh>) {<br> $line = $_; $_ <br> if($line =~ m{$keyword}){<br> print "\nACHEI! - $lnumber";<br> }<br> $lnumber++;<br>}<br><br></code><br>
<br>Esse while pode ficar mais legível assim:<br><br><code><br>.<br>.<br>.<br>$lnumber = 0;<br>while($line = readline($fh)){<br> if($line =~ m{$keyword}){<br> print "\nACHEI! - $lnumber";<br> }<br>
$lnumber++;<br>}<br>.<br>.<br>.<br></code></div></div></div></blockquote><div><br>Ou menos legível assim ;-)<br><br><code><br><br>while(<$fh>) {<br> print "\nACHEI! - $." if /$keyword/;<br>
}<br>
<br></code></div></div></blockquote></div></div><div><br>Ou menos legível ainda assim :P<br><br><code><br><br>perl -E 'map{say if $a == 10;++$a }<>' a<br><br></code></div></div></blockquote>
<div><br>Assim fica melhor ainda!<br><br><code><br><br>perl -E'map{say if$a++==10}<>' a<br> <br></code><br><br><br><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="im">
<br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz" target="_blank">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>
<br></div><div class="im">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></div></blockquote></div><br><br clear="all"><br>-- <br><div class="im"><a href="http://mantovanihouse.blogspot.com/" target="_blank">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
</div>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br" target="_blank">http://www.perl.org.br</a>"))'<br>
</blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>