[Cascavel-pm] Res: Leiitura de arquivos
Wallace Reis
wallace em reis.org.br
Segunda Abril 19 02:55:49 PDT 2010
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
Mais detalhes sobre a lista de discussão Cascavel-pm