writing parameters to a file

[CherieMc4]

Dear everyone:
On page 120 of the book "Official guide to Programming with CGI.pm" (1998) the
author shows how to store parameters in a file for later retrieval, but I
can't make the scheme work. Somebody told me they heard this version of the
book was out of date and maybe the information on p120 is wrong. Here's my
script:
#!/usr/bin/perl -wT
use CGI::Carp qw(fatalsToBrowser);
use CGI ':standard';
use strict;
my $co = new CGI;
open OUT,">cherie.txt" || die;
if (param()) {
save_parameters(OUT);
}
close OUT;
foreach my $name ( param() ) {
my @values = param($name);
print "<p><b>Name:</b> $name
<b>Value(s);</b> @values";
}
exit;

When When I do a perl -cT on this script, it says " Bareword 'OUT' not allowed
on line 8. I Don't understand why it gives me this message on an opened
filehandle. Is there another way to write the parameters to a file to retrieve
later? Thanks to everyone for the help.

Cherie

[Martin Honnen]

CherieMc4 wrote:

On page 120 of the book "Official guide to Programming with CGI.pm" (1998) the
author shows how to store parameters in a file for later retrieval, but I
can't make the scheme work. Somebody told me they heard this version of the
book was out of date and maybe the information on p120 is wrong. Here's my
script:
#!/usr/bin/perl -wT

Try a Perl group for questions about CGI scripting for Perl, this group
is about HTML. Perl FAQ is here:
<http://faq.perl.org/>

--

Martin Honnen
http://JavaScript.FAQTs.com/

[Jim Moe]

CherieMc4 wrote:

When When I do a perl -cT on this script, it says " Bareword 'OUT' not allowed
on line 8. I Don't understand why it gives me this message on an opened
filehandle. Is there another way to write the parameters to a file to retrieve
later? Thanks to everyone for the help.

Replace OUT with, for instance, $fout. Perl dose not recognize OUT as a
valid variable or keyword.

--
jmm dash list (at) sohnen-moe (dot) com
(Remove .AXSPAMGN for email)

[CherieMc4]

Jim: Thank you. I wonder why, though, the filehandle needs to be a scalar
variable, eg $out. The filehandle XXX won't work in my script! This is true
only for the function save_param, I guess.
Also, on page 148 of "Learning Perl" 3rd edition there's a list filehandles
that may not be used, and OUT is not on the list! So I guess I learned two
things from one message! Thanks again!
Cherie