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.
=======================================
