Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Oracle mass update script request.

by TedPride (Priest)
on Jul 28, 2008 at 04:06 UTC ( #700450=note: print w/replies, xml ) Need Help??


in reply to Oracle mass update script request.

Assuming your update statement is correct, given your database structure and Oracle (I'm more familiar with mySQL):
use DBI; use strict; my $user = 'user'; my $pass = 'pass'; my $db = 'database'; my $filename = 'filename.txt'; my $query = qq* update ( select t1.field1, 999 deact_status from schema.table1 t1 inner join schema.table2 t2 on t1.id = t2.id where t2.field2 = ? ) set field1 = deact_status *; my ($dbh, $sth, $handle); $dbh = DBI->connect("dbi:Oracle:$db", $user, $pass) || die "Couldn't connect to database: " . DBI->errstr; open ($handle, $filename) || die "Couldn't open $filename for read.\n"; while (<$handle>) { chomp; $sth = $dbh->prepare_cached($query, {}, 1); $sth->execute($_); } $dbh->disconnect();
This is untested, but ought to work in theory.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://700450]
help
Chatterbox?
[choroba]: Progress! Nowadays, you can write a Perl script to generate such an anagram!
[GotToBTru]: i like to order my chemicals a-la-carte ambrus ;)
[thepkd]: Hi, in trying to create an Array of Hash of Array of Hash. You read it right. Is it possible to dereference it without using temps?

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (9)
As of 2016-12-06 13:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (104 votes). Check out past polls.