Trouble with Tie::File - Assistance Needed

dlsoderberg

I have a Perl script that is a CGI on the server and is being called via callServer thru FormAPI. I'm trying to use the Tie::File module, but every time I try to tie an array, my script is croaking. Here is the error in the /local/logs/iwui/error.log file:

0 at /opt/Interwoven/TeamSite/httpd/iw-bin/ama/getDCRName.cgi line 56.
[Fri Jun 06 15:39:28 2008] [error] [client 10.3.0.171] Premature end of script headers: getDCRName.cgi

The code I am using to try and call the tie command is:

tie my @array, 'Tie::File', $configfilepath or die $?;

If I comment out my tie and untie lines, the script runs fine, so I know it doesn't like something with the tie line, but can't put my finger on it. I've reviewed the iwperldoc for Tie::File and I think my command is ok.

The file I'm opening is a simple 1 line file that the script will read, make a change to the line and write the line back to the file. The reading and changing is done and working, but trying to write it back with Tie::File has been challenging. Any help would be much appreciated.

This is on TS 6.7.1 SP1 on Linux.

Adam Stoller

At the beginning of your script, after the 'use ...' lines but before you do anything else - put this:

print "Content-type: text/html\n\n";

you might also want to include:

use CGI::Carp qw(fatalsToBrowser);

- the tie is most likely failing and the die statement is sending output before the window has been initialized - though it is strange to get this error on a script that doesn't, in fact, open a window ... but the above may help to get further into debugging the actual issue.