[Cascavel-pm] Res: Leiitura de arquivos

[Wallace Reis]

On 19/04/2010, at 00:50, Otávio Fernandes wrote:
> Leonardo,
> 
> Se você quer imprimir a décima quinta linha de um arquivo, sem tê-lo carregado
> em um array, existem _basicamente_ duas formas:
> 
> 1) Você faz um contador para encontrar a linha desejada;
> 2) Você usa o método seek: http://perldoc.perl.org/functions/seek.html;
> 
> A primeira opção me parece o mais indicado. Vou dar um exemplo:
> 
> #!/usr/bin/env perl
> 
> use strict;
> use warnings;
> 
> my $counter = 0;
> 
> open( my $FH, '<', '/etc/passwd' )
>    or die $!;
> 
> while ( my $line = <$FH> ) {
>    $counter++;
>    next if ( $counter < 15 );
>    print $line;
>    last;
> }
> 
> close($FH);
> 
> __END__
> 
> Agora, como em Perl sempre tem mais de uma maneira de fazer, segue:


Outra maneira é usar o contador auto do filehandle com a var "$." ou
"HANDLE->input_line_number(EXPR)".

--
   wallace reis/wreis  http://www.linkedin.com/in/wallacereis