Ja pensou em comecar $a = 1 ? hehehe
--
Abracos, Luiz Otavio
----------------------
On Fri, 3 Dec 1999, Francisco Lopes wrote:
> Pq o perl n�o l� a primeira linha do arquivo? =(
> Fiz este teste simples e continua n�o dando certo.
>
> C:\>perl script.pl
> a linha 2 do arquivo � 'bli bli'.
>
> #!/usr/bin/perl
> #script.pl
> $b = 2; #linha desejada do arquivo
> open(ARQ, "<arq.txt"); #abrir arquivo
> @arq = <ARQ>; #pegar conteudo do arquivo
> $a = "0"; #contador
> foreach $linha (@arq) { #para cada linha do arquivo
> chop($linha); #tira o 'enter'
> if ($b == $a) { #se a linha desejada for igual ao contador
> print "a linha $b do arquivo �: '$linha'.\n"; #imprimir a linha
> }
> $a++; #incrementar contador
> }
> close(ARQ); #fechar arquivo
>
> #arq.txt
> bla bla
> ble ble
> bli bli
> blo blo
> blu blu
>
> Agrade�o a qualquer ajuda,
>
> _______________________
> Francisco Lopes
> UIN: 17364815
> Email: [EMAIL PROTECTED]
>
>
>
>
> http://www.mrweb.com.br/perl/
> =======================================
> >>No site da lista, voce tera tudo sobre PERL,
> >>LINUX, PHP, ASP e informacoes, cadastramento
> >>e descadastramento da Lista.
> =======================================
>
http://www.mrweb.com.br/perl/
�������������
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
�������������
