Re^3: Passing an Array of Attributes to SQL

Are you saying fetchrow_arrayref returns:

[
 [',max(CASE WHEN week_end_date = '26-SEP-09' THEN rank END) AS DATE_A
+S_OF_09_26_2009'],
 [',max(CASE WHEN week_end_date = '19-SEP-09' THEN rank END) AS DATE_A
+S_OF_09_19_2009']
]
[download]

or show us what use Data::Dumper;print Dumper($case); outputs.

Comment on Re^3: Passing an Array of Attributes to SQL Select or Download Code

Replies are listed 'Best First'.
Re^4: Passing an Array of Attributes to SQL by cocl04 (Sexton) on Oct 07, 2009 at 14:34 UTC
Yes. The array reference returns the two case statements. I did `use Data::Dumper;print Dumper($case);` and it returns the two case statements. I also printed it and it returns the same thing. I am passing a case statement as an attribute / object and when I passed one to the sql statement perl sends it to sqlplus as a normal part of the query. And it works. I just want to be able to send all of them as one string to the query.	[reply] [d/l]
Re^5: Passing an Array of Attributes to SQL by mje (Curate) on Oct 07, 2009 at 14:49 UTC
Assuming fetchrow_arrayref is returning multiple rows but each row has one column which is your case SQL beginning with a comma already then why can't you just do: `my $case = $case_query1->fetchall_arrayref(); my $casestr = join(q{}, @{$case}); . . . my $case_stmt3 = "create table case_st_data1 as (S +ELECT rd, store_number $casestr FROM test_ptw_bottom_10 where week_end_date in ('19-SEP-09','26-sep-09') group by rd, store_number)";` [download]	[reply] [d/l]
Re^6: Passing an Array of Attributes to SQL by cocl04 (Sexton) on Oct 07, 2009 at 15:13 UTC
I appreciate your help. I was able to get it to work! Thanks!	[reply]