[Cascavel-pm] fim de arquivo

[Solli Moreira Honorio]

Alceu, você não claro se o arquivo é ASCII ou binário, no caso se ASCII
você pode fazer a seguinte forma:

open ( FH, "<C:/Temp/Texto.txt" );

while (my $Line =  < FH > )
{
	... entre com o código ...
}

close (FH);

... ou senão, vc também pode carregar todo o conteúdo do arquivo num
array, claro que tem que tomara cuidado com o tamanho do arquivo, da
seguinte forma...

open ( FH, "<C:/Temp/Texto.txt" );

my @Conteudo = <FH>;

... no caso de vc acessar um arquivo binário, aí vc precisará do binmode
e do seek para navegar pelo arquivo.

[]´s

Solli

> -----Original Message-----
> From: cascavel-pm-admin em mail.pm.org
[mailto:cascavel-pm-admin em mail.pm.org]
> On Behalf Of Alceu R. de Freitas Jr.
> Sent: Tuesday, June 24, 2003 3:39 PM
> To: cascavel-pm em mail.pm.org
> Subject: [Cascavel-pm] fim de arquivo
> 
> Olá lista,
> 
> Esta deve ser fácil, mas não acho informações sobre.
> Como verifico com o Perl se o arquivo que estou lendo
> já chegou no fim (por exemplo, estou dentro de um loop
> foreach e já estou na última linha do arquivo)?
> 
> []´s
> 
> 
> =====
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em yahoo.com.br
> http://www.imortais.cjb.net
>
-----------------------------------------------------------------------
> "You have enemies? Good. That means you've stood up for something,
> sometime in your life." - Sir Winston Churchill
> 
>
_______________________________________________________________________
> Yahoo! Mail
> Mais espaço, mais segurança e gratuito: caixa postal de 6MB,
antivírus,
> proteção contra spam.
> http://br.mail.yahoo.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
> 
> ---
> Incoming mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.491 / Virus Database: 290 - Release Date: 6/18/2003
> 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.491 / Virus Database: 290 - Release Date: 6/18/2003