spragueg — Wed, 24 Jan 2001 19:45:13 +0000

Ok, that's how I am doing it. I just wanted to make sure I was going about it correctly.

Thanks All

Rob Pengelly — Wed, 24 Jan 2001 14:25:26 +0000

Here is my go at the simple task. It only prints once.

{
	     local $/;
	     open(IN,"<$file") or die "Cannot Open $file: $!";
	     print <IN>;
	     close(IN);
}

[Edited by Rob Pengelly on Jan. 24, 2001 at 04:26 PM]

Matt@Ikonboard — Tue, 23 Jan 2001 01:59:06 +0000

Quote: Originally posted by Mark Hensler
why do things twice (or more...)
while looping thro- the flat file, just print it to the browser

Excellent advice, there are too many scripts that use something like this:

open (FILE, $file);
@filedata = ;
close FILE;

foreach (@filedata) {
$ToPrint .= $_;
}

print $ToPrint;

..which is fairly ludicrous, much better written as Mark suggested.

open FILE, $file or die $!;
flock FILE, 1; #if you like....
while () {
# dosomething with $_ if you need too
print $_
}
close FILE;

Mark Hensler — Mon, 22 Jan 2001 06:52:19 +0000

why do things twice (or more...)
while looping thro- the flat file, just print it to the browser