CGI opening files on NT4

[Loon]

Folks,
long time no speak.. hurray for project work slowing down for a bit...

My problem is that I am 'porting' a perl script from a Unix box to an NT box. My problems are that when I try and open a file (for reading) with:

open (INF, "example.txt") or print "Couldn't open example.txt ($!)"

This works on the Unix box (looking in the local directory for the file) but not on the NT 4 box where it comes back with "File not Found".

Other than file permissions (which are read-global) has anyone had problems on NT4 before? The rest of my script is working just not the opens.

Cheers
Loon [sig][/sig]

 

[vcherubini]

Loon:

Hmm. I have never experienced a problem like that.

Perhaps it is in the die part of the open function.

The way that I have seen most file openings is like this:

[tt]
open(FILE, "file.txt&quot || die ("Can't open file: $!"
# do stuff with the file
close(FILE);
[/tt]

I have never seen it like you have done it up there. I could be wrong, but that is just what I have seen for the way files are opened in Perl.

Hope this helps.

-Vic [sig]<p>vic cherubini<br><a href=mailto:malice365@hotmail.com>malice365@hotmail.com</a><br><a href=

http://www.epicsoftware.com>epic

software</a><br>====<br>
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash, Director<br>
Wants to Know: Java, Cold Fusion, Tcl/TK<br>
====[/sig]

 

[Loon]

Vic,
don't think it's the opens themselves, it's actually turned out to be a directory problem. The script is residing on an ISP.

The file not found error was just too obvious to be anything other than Perl not finding the file. So I decided to check out where Perl would create a file. I added a file creation to my script:

open (OUTF, ">test.tst");
print OUTF "TESTING TESTING 1 2 3";
close(OUTF);

Low and behold it created the file in the top level directory of my ISP account, even though the page calling the script was in a sub-directory and the Perl script in a cgi-bin directory.

Is there anyway of setting which directory my scripts will write files to? Or is it just a case of setting a local path in the commands themselves, e.g.:

open (INF, "./sub-dir/filetoopen.htm");
etc...

Any thoughts appreciated.
Cheers
Loon

[sig][/sig]

 

[vcherubini]

Well, I guess that you could define a variable such as:

[tt]
$dataLocation = &quot;location/of/the/file&quot;;
$fileName = &quot;file.txt&quot;;

open (FILE, &quot;$dataLocation/$fileName&quot || die(&quot;Can't open file: $!&quot;
# do stuff with file
close(FILE);

[/tt]

That is the only way that I know to change the directory in which a file is located it.

If you want to move files around, you could use the chdir command to change the directory and then move the file to that directory.

Hope this helps.

-Vic [sig]<p>vic cherubini<br><a href=mailto:malice365@hotmail.com>malice365@hotmail.com</a><br><a href=

http://www.epicsoftware.com>epic

software</a><br>====<br>
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash, Director<br>
Wants to Know: Java, Cold Fusion, Tcl/TK<br>
====[/sig]