Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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.


Comment on Re: Oracle mass update script request.
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (16)
As of 2014-10-20 17:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (85 votes), past polls