my $FileName = '/Users/greg/Desktop/test.txt';
open (MyFile, $FileName) or die "Cannot open $FileName: $!\n";

my @FileText = <MyFile>;

foreach (@FileText) {
print $_;
}

============================

Okay, that $_ variable is neat. I was Googling to find out how to set a variable to the contents of the current line, and...it seems Perl just uses the default $_ to point to the current line of the looped array. No other work necessary.

Cool.

Instead of slurping up the file into an array in memory, you can read in the file line by line with:


while (<MyFile> ) {
print $_;
}





Edited 2 time(s). Last edit at 05/15/2006 10:58AM by TheTominator.

TheTominator Wrote:
-------------------------------------------------------
> while (<MyFile> ) {
> print $_;
> }

Thanks!

Interesting that "while (<MyFile>)" seems to be making an intuitive leap, as there's no formal EOF flag.

You can also use your own variable instead of the default $_.

foreach $line (@FileText){
print $line;
}

Perl: There's more than one way to do it.™

---

I am not Ryan Seacrest, and I do not approve this message.

remember. . .

knit 1, perl 2. . .knit 1, perl 2. . .

---

_____________________________________

I reject your reality and substitute my own!

"The three principal virtues of a programmer are Laziness, Impatience, and Hubris."