I'm using something like this in a script and its is giving me a strang error why?
the error is,
CGI Error
The specified CGI application misbehaved by not returning a complete s
+et of HTTP headers. The headers it did return are:
Bareword "ONF" not allowed while "strict subs" in use at C:\webdev\www
+root\cgi-bin\index.pl line 37.
Execution of C:\webdev\wwwroot\cgi-bin\index.pl aborted due to compila
+tion errors.
The code is like this.
use CGI;
use strict;
my ($q) = new CGI;
my ($MyFile, $i, $t, $key, $NewRec);
my (@Mfile, @Settings);
$MyFile = "./data/data.txt";
open(INF, "< $MyFile") or dienice("Cant open file! Name of file: $MyFi
+le");
seek(INF,0,0); @Settings = <INF>; close (INF);
$i = @Settings[0];
$i =~ m/(\d+)/;
$NewRec = "./data/scriptdata/R$1.txt";
sub somesub {
open(ONF, ">$NewRec") or dienice("Cant open $NewRec");
$q->save(ONF);
close (ONF);
}
if I comment out the save(ONF); it works fine?
------
The Price of Freedom is Eternal Vigilance
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.