[Cascavel-pm] Como abrir um arquivo e imprimir uma linha de cada vez deste arquivo?

[Otávio Fernandes]

On 4/26/07, R.e.n.ê R.e.s.i.d.e <rene.reside em gmail.com> wrote:
> Boa tarde.
>
> Tenho um que fazer um programa em Perl que abra um arquivo e imprima uma
> linha de cada vez deste arquivo.
> É um trabalho para faculdade, como não sei nada de Perl, estou precisando de
> saber qual é os comandos para isso.
>
> Obrigado.
> Renê.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

caro Renê, segue um simples exemplo:

#!/usr/bin/perl -w

use strict;
use warnings;

open (FILE, "< teste.txt") or die $!;

while (<FILE>) {
        chomp;
        print "Debug -> ", $_, "\n";
}

close FILE;