At 19:59 03/12/99 -0200, 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.
�������������
