Lauri Nikkinen wrote:
Hi Lauri.
The critical part of your program is this.
> my $outfile = '>temp.txt';
> open(OUTFILE, $outfile) or die "Unable to open $outfile: $!";
I think you're using a Windows platform where a filename like that is invalid.
(If you are on Unix and have called a file'>temp.txt' then just don't do that!)
It is far better to keep the file name separate from the open mode and, while
we're at it, use a lexical file handle. Like this
my $outfile = 'temp.txt';
open my $outfh, '>', $outfile or die "Unable to open $outfile: $!";
> while (<OUTFILE>) {
...but now you are trying to read from a file that you opened for output. The
while loop will not execute at all because there is never any input, so
processing continues...
> chomp;
> my ($var1, $var2) = split /,/;
> $sth->execute($var1, $var2);
> print $outfile;
> }
...here. All you have done is open an output file and close it.
> close OUTFILE;
>
> $sth->finish();
> $dbh->disconnect();
> ############################
>
> This produces the error message: Filehandle OUTFILE opened only for
> output at myscript.pl line 28.
That is a clue!
Do you have a file that defines what fields to read from the database? You
should open that file for input (using an open mode of '<') as well as the
output file you want to write the fields to. Read the field names from the input
file, extract the data from the database, and print the data to the output file.
I hope this helps,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
