Building off of jZed's reply (and your follow-up) to your node Joining two files on common field, you can keep using DBD::CSV and just make this a SQL task:
#!/usr/bin/perl -w
use DBI;
use strict;
my $dbh = DBI->connect("DBI:CSV:f_dir=/home/turn2sp/tmp")
or die "Cannot connect: " . $DBI::errstr;
$dbh->{'csv_tables'}->{'file1'} = { 'file' => 'IM.csv'};
$dbh->{'csv_tables'}->{'file2'} = { 'file' => 'Attributes-EP2005Sep2
+3-1907.txt'};
my $sql =<<EOS;
UPDATE file2
SET v_attribute_values_price_2_1 = 0 -- is that
+ the right col??
FROM file1 f1
WHERE file2.v_products_model = f1.model -- are the
+se two lines the proper
AND file2.v_attribute_values_price_2_1_1 = f1.size -- FK re
+lationship ??
AND f1.qty > 0
EOS
$dbh->do($sql);
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|