Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Feedback Appreciated on text-parsing, SQL querying subroutine

by davidrw (Prior)
on May 31, 2006 at 12:28 UTC ( [id://552766]=note: print w/replies, xml ) Need Help??


in reply to Feedback Appreciated on text-parsing, SQL querying subroutine

You are basically just manually doing a SQL JOIN in the code -- you can simplify this by letting the database (in this case i see it's postgres) do the work:
... # open file; connect to $dbh my $sth = $dbh->prepare(qq{ SELECT d1.d_id as did1, d2.d_id as did2, d1.c_id as cid1, d2.c_id as cid2 FROM d as d1, d as d2 WHERE d1.d_id = ? AND d2.d_id = ? AND d1.c_id != d2.c_id }); while(<INPUT>){ my( $did1, $did2, $score1, $score2 ) = split "\t", $_; next unless $score1 >=70 && $score2 >=60; $sth->execute($did1,$did2); while( my $row = $sth->fetchrow_arrayref ){ print join(', ', @$row), "\n"; } } close INPUT;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2024-03-28 13:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found