Re: Matching arrays/hashes (swish-e and SQL)

[Bill Moseley]

On Sun, Nov 06, 2005 at 10:30:48AM -0500, Walter Lewis wrote:
> I'm breaking a bit with my preferred style and including the whole 
> thread in the posting because it's been nearly a month since I started 
> the thread.  October seems to be meeting and conference month ... and so 
> here I am on a Sunday morning ...
> 
> Mike Rylander put me on the track of mapping the hashes into an ordered 
> list. 
> 
> The code evolved to:
> 
> if (@ordered_sql_rows) {
>    for (my $i = 0; $i <= $#ordered_sql_rows; $i++) {
>        foreach my $key (keys %{$ordered_sql_rows[$i]}) {
>        print ($key. ": " .$ordered_sql_rows[$i]{$key}. "<br />\n"); }
>    }
> }

Perhaps write it another way:

    my $results = $swish->Execute( $query );
    [...]


    my @swish_results;

    while ( (my $result = $results->NextResult) && $page_size-- ) {
        push @swish_results, $result;
    }

    my @ids = map { $_->Property( 'id' ) } @swish_results;

    my %where = ( id => [EMAIL PROTECTED] );


    my $sql = SQL::Abstract->new;
    my ($stmt, @bind) = $sql->select($table,[EMAIL PROTECTED], \%where);

    my $sth = $dbh->prepare( $stmt );
    $sth->execute( @bind );
    # check errors...


then:

    my $recs = $sth->fetchall_hashref('id');
    my @results = map { $recs->{$_} } @ids;

then pass @results to your view/template for output.

    use Data::Dumper;
    print Dumper [EMAIL PROTECTED];



Maybe better, if you don't trust swish and the db to be in sync:

    my @results = map { $recs->{$_} } grep { exists $recs->{$_} } @ids;

Or whatever should happen when an item is not found.


-- 
Bill Moseley
[EMAIL PROTECTED]