Re: open(FILE, " ") question

It's probably because the of the file path.  Try specifying the whole path
to see if it works.

Regards,
Agustin Rivera
Webmaster, Pollstar.com
http://www.pollstar.com



----- Original Message -----
From: "Eric Preece" <eric.preece@infospace.com>
To: <beginners@perl.org>
Sent: Wednesday, March 20, 2002 1:52 PM
Subject: open(FILE, " ") question


Hi,

I am very new to perl. I am writing a script that is supposed to open an
html file and do some various tasks then later on it should print out the
html file. I am having problems with one portion of it. I distilled it down
to this code snippet

==========================================
# test
use strict;

my $file;
my $HTML;

sub testOpen {
local (*FILE); # filehandle
$file = $_[0] || die ("No file specified\n");
open(FILE, "$file") || die("File could not be opened - $file\n");
while (<FILE>) {
$HTML .= $_;
}
close(FILE);
$HTML =~ s/\$(\w+)/${$1}/g;
return $HTML;
}

print "Content-type: text/html\n\n";
print &testOpen("test.htm"); # Prints the contents of this file

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

My problem is this works great from the command prompt. But will not open
the file if hit the script from a browser. I am not sure why it behaves
differently in a browser - I suspect permissions but I have the directory
set to write, execute.

I am using a win2k IIS box with the lastest version of ActivePerl.

Thanks in advance,

Eric

• open(FILE, " ") question by Eric Preece
• Re: open(FILE, " ") question by Jenda Krynicky
• Re: open(FILE, " ") question by Agustin Rivera