trouble reading line by line

[wmconlon]

Really perplexed about reading a file line by line in a cgi script.

With one cgi parameter a subroutine does:

sub view {
my $file = $_[0];
open(TEXT, "<$file") or die "Can't open $file for preview";
while (defined ($text = <TEXT>)) {
....

This processes line-by-line.

Another cgi parameter invokes a different subroutine call which does:

sub add {
my $template_path=$_[0];
my $directory_path=$_[1];
my $name=$_[2];
open(TEXT, "<$template_path") or die "Can't open $template_path for
reading"; # open the template file
while( defined ($text = <TEXT>)) {
....
and reads the entire file into a single line, even though it is reading
the same file.

I guess it has something to do with scalar context, isn't
$template_path a scalar? I've battled this for a day, so it must be
something obvious.

 

[Gunnar Hjalmarsson]

Really perplexed about reading a file line by line in a cgi script.

With one cgi parameter a subroutine does:

sub view {
my $file = $_[0];
open(TEXT, "<$file") or die "Can't open $file for preview";
while (defined ($text = <TEXT>)) {
...

This processes line-by-line.

Another cgi parameter invokes a different subroutine call which does:

sub add {
my $template_path=$_[0];
my $directory_path=$_[1];
my $name=$_[2];
open(TEXT, "<$template_path") or die "Can't open $template_path for
reading"; # open the template file
while( defined ($text = <TEXT>)) {
...
and reads the entire file into a single line, even though it is reading
the same file.

Please post a short but *complete* program that demonstrates the
behaviour you mention.

 

[teodell]

That should work fine. The only thing is the $template_path an actually
file then? The section with $template_path, $directory_path and $name
sounds like template_path is a directory. IF it is a directory it will
slurp it up in one line since directories need opendir, readdir, etc.

todd

 

[teodell]

That should work fine. The only thing is the $template_path an actually
file then? The section with $template_path, $directory_path and $name
sounds like template_path is a directory. IF it is a directory it will
slurp it up in one line since directories need opendir, readdir, etc.

todd

 

[teodell]

That should work fine. The only thing is the $template_path an actually
file then? The section with $template_path, $directory_path and $name
sounds like template_path is a directory. IF it is a directory it will
slurp it up in one line since directories need opendir, readdir, etc.

todd

 

[peter pilsl]

sub view {
my $file = $_[0];
open(TEXT, "<$file") or die "Can't open $file for preview";
while (defined ($text = <TEXT>)) {
...


sub add {
my $template_path=$_[0];
open(TEXT, "<$template_path") or die "Can't open $template_path for
reading"; # open the template file
while( defined ($text = <TEXT>)) {
...

For what you showed us, the two subs does exactely the same. Looks like
the read files are different or $/ is changed between the calls.

best,
peter

 

[wmconlon]

$template_path contains an absolute file path. So it is a file, and
I've printed it to be sure. And I can print the contents of $text to
see it as a single line in one case, and the entire file in another.

 

[wmconlon]

Bingo!

Thx.

 

[Tad McClellan]

isn't
$template_path a scalar?

Everything that starts with a dollar sign is a scalar.