�, eu j� vi meu erro.
Outro colega da linha j� tinha me alertado sobre isso.
De qualquer forma, obrigado!
Obs: agora est� funcionando bonitinho.
_______________________
Francisco Lopes
UIN: 17364815
Email: [EMAIL PROTECTED]
-----Mensagem Original-----
De: Braulio Weimann Gergull <[EMAIL PROTECTED]>
Para: <[EMAIL PROTECTED]>
Enviada em: S�bado, 4 de Dezembro de 1999 02:57
Assunto: Re: [perl] Linha 1 existe???
> 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.
>
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.
=======================================
