> I am trying to do a join across to csv files but have been unsuccessful
> up to this point.
>
> I have two tables:
> tab1.csv
> TAB_ONE_ID,NAME,TAB_TWO_ID
> 1,row1,100
> 2,row2,200
>
> tab2.csv
> TAB_TWO_ID,CATEGORY
> 100,cat1
> 200,cat2
>
> I am running the following query:
> select TAB_ONE.NAME,TAB_TWO.CATEGORY
> from TAB_ONE, TAB_TWO
> where TAB_ONE.TAB_TWO_ID = TAB_TWO.TAB_TWO_ID
>
> I expect the following:
> row1, cat1
> row2, cat2
>
> I get the following:
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 553, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 553, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 553, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 554, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 554, <GEN1> line 1.
> Use of uninitialized value in string eq at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 556, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 560, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 560, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 560, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 562, <GEN1> line 1.
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 562, <GEN1> line 1.
> Use of uninitialized value in array element at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 891, <GEN0> line 3.
> Use of uninitialized value in array element at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 891, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> Use of uninitialized value in array slice at
> /usr/local/share/perl/5.8.4/SQL/Statement.pm line 898, <GEN0> line 3.
> 1, 1
> 1, 1
> 2, 2
> 2, 2
>
> platform:
> OS: Linux 2.6.8-1-686 #1 Thu Nov 25 04:34:30 UTC 2004 GNU/Linux
> Perl: This is perl, v5.8.4 built for i386-linux-thread-mult
> DBD::CSV: 0.21
> SQL::Statement: 1.09
>
> here is the script
> --- snip ---
> #! /usr/bin/perl -w
>
> use DBI;
>
> $dbh = DBI->connect("DBI:CSV:f_dir='.'",
> {'select' => {'join' => 1}})
> or die "Cannot connect: " . $DBI::errstr;
>
> $dbh->{'csv_tables'}->{'TAB_ONE'} = { 'file' => 'tab1.csv'};
> $dbh->{'csv_tables'}->{'TAB_TWO'} = { 'file' => 'tab2.csv'};
> $dbh->{'csv_eol'} = "\n";
>
> my $sth = $dbh->prepare("select TAB_ONE.NAME,TAB_TWO.CATEGORY
> from TAB_ONE, TAB_TWO
> where TAB_ONE.TAB_TWO_ID =
> TAB_TWO.TAB_TWO_ID");
> $sth->execute();
> while ( @row = $sth->fetchrow_array ) {
> $row[length @row] = '' if(! defined $row[length @row]);
> print join(', ', @row), "\n";
> }
> $sth->finish();
> $dbh->disconnect();
>
> --- snip ---
>
> Can anyone help me.
