Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: writing a file

by jreades (Friar)
on Oct 03, 2000 at 17:40 UTC ( [id://35092]=note: print w/replies, xml ) Need Help??


in reply to writing a file

btw, we also encountered an error with the die statement after opening the file. thanks again!

I have to second Falstofe's request for the error messages because there's nothing obviously wrong with what you're doing -- there might be a few ways to clean things up and make them more readily readable but nothing leaps out...

I think the key here is the quote I highlighted above -- you shouldn't be having problems with die unless you're having problems writing to the file... what kind of message was die throwing your way?

And, as an aside, here's one way to clean things up code-wise (of course, it's always a matter of preference in style)...

use Sybase::DBlib; use FileHandle; my $dbh = new Sybase::DBlib 'lthomas', 'lthomas', 'HKT_ERCC'; ###################### # I'm not familiar with Sybase, but can you prepare the dbh query? # That would clean up the following section ###################### $dbh->dbuse('er_cc'); $dbh->dbcmd("exec sp_client_csv \"$month1\",\"$FORM{'cboDay1'}\",\"$FO +RM{'cboYear1'}\",\"$month2\",\"$FORM{'cboDay2'}\",\"$FORM{'cboYear2'} +\""); $dbh->dbsqlexec; $dbh->dbresults; open (FILE, ">client.csv") or die ("Couldn't open output file to write +: $!"); ##################### # FYI your original post has a semi-colon after the while statement an +d before the '{'. # Is that in your real code? ##################### while (@xgdat = $dbh->dbnextrow(1)) { print FILE join (',', @xgdat), "\n"; } close FILE or die ("Couldn't close output file: $!");

Replies are listed 'Best First'.
RE: Re: writing a file
by jreades (Friar) on Oct 03, 2000 at 17:42 UTC

    And, of course, add some error-checking to the database query itself...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://35092]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (1)
As of 2024-04-25 00:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found