I tried both, and they typically do work for me, but right now they just
aren't...
QQQ line1....
line2
line3
...
lineX QQQ
any ideas?
Ryan
On 10/19/06, Helliwell, Kim <[EMAIL PROTECTED]> wrote:
Another way:
foreach $line (<IN>)
{
...
}
if you don't want to slurp all the lines into an array (to save memory).
Kim Helliwell
LSI Logic Corporation
Work: 408 433 8475
Cell: 408 832 5365
[EMAIL PROTECTED]
Please Note: My email address will change to [EMAIL PROTECTED] on
Oct 14. The old 'lsil.com' email address will stop working after Jan 15,
2007. Please update your address book and distribution lists
accordingly. Thank you.
-----Original Message-----
From: Gerald Host [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 19, 2006 3:35 PM
To: Perl List
Subject: reading a file
I'm trying to read a text file line-by-line.
open IN, shift;
my @lines=split("\n",<IN>);
foreach my $line (@lines) {
print OUT "QQQ $line QQQ\n";
}
The problem is that it always gives me the entire file, not line by
line.
What did I do wrong? Other things I've tried:
open IN, shift;
while (my $line =<IN>) {
print OUT "QQQ $line QQQ\n";
}
Ryan
