Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re^2: inserting into file

by grashoper (Monk)
on Mar 24, 2009 at 16:27 UTC ( #752915=note: print w/replies, xml ) Need Help??

in reply to Re: inserting into file
in thread inserting into file

That is what I wanted thanks,I prime the while with a print \ndate now I just have to figure out how to get my hash values into my db and I should be in good shape, one thing thats really throwing me for a loop is that the date is a string, and I am having trouble figuring out how to make it a sql small date time. someone sent me a link to sql standards the other day so much stuff not sure where to look first. I agree which is why I was trying to figure out how to add it to a %hash previously as a key, this is a one time issue, I will be recording values differently in the future so that hash is well formed so should not be an issue again. however my data.txt file did not contain a date label so my hash was not initialized properly I wanted columname->value, and date is columname now I need to fix my input files, then I should be able to use variables to loop through and get my records into the db.
use Win32::ODBC; use DBI; $DSN="Ptest"; $db = new Win32::ODBC("DSN=Ptest;UID=ptalerter;PWD=Ha55le12;"); if(!($db)){ print "Error connecting"; exit; } else { print "Hey you are connected \n"; } $SqlStatement = "insert into AllResults (Date,Login,Searchload,Search +Count,SearchResults,SearchSave,SearchDelete,SearchDetails,TaxLoad,Tax +Results,TaxDetails,ClientAdd,CMALoad,CMASave,CMADelete,ClientDelete,L +ogout) Values ('getdate()', '1','2','3','4','5','6','7','8','9','10', +'11','12','13','14','15','16')"; if ($db->Sql($SqlStatement)){ print "SQL failed.\n"; print "Error: " . $db->Error() . "\n"; $db->Close(); exit; } while($db->FetchRow()){ undef %Data; %Data = $db->DataHash(); print $db; } db->Close(); close file;

Replies are listed 'Best First'.
Re^3: inserting into file
by AnomalousMonk (Bishop) on Mar 24, 2009 at 17:05 UTC
    ... I prime the while with a print \ndate ...
    Given the example data, there seems to be no reason to treat the first record differently from the succeeding ones. You should realize that to do so is to point a loaded gun at the foot of the maintainer of this code – which may be you!

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2022-01-25 13:44 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (66 votes). Check out past polls.