Ol� Francisco,
Sim ele l�, mas vc iniciou o contador com valor 0 ($a = "0") portanto na primeira
linha $a vale zero e o seu teste de condi��o retorna falso, na segunda $a vale 1 e o
seu teste de condi��o retorna falso, na terceira linha $a vale 2 !!! ent�o o seu teste
de condi��o retorna verdadeiro e o script imprime a terceira linha ao inv�s da segunda
como vc queria.
[]s,
Br�ulio Gergull
>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
>
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.
�������������
