<br><br><div class="gmail_quote">2009/5/28 Andre Carneiro <span dir="ltr"><<a href="mailto:andregarciacarneiro@gmail.com">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;">
[...]<br><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></blockquote><div><br>Ou menos legível assim ;-)<br><br><code><br><br>while(<$fh>) {<br> print "\nACHEI! - $." if /$keyword/;<br>}<br>
<br></code><br><br></div></div><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>