Help for this page

Select Code to Download


  1. or download this
    my $sth = $dbh->prepare( qq|SELECT requests.id, requests.name, request
    +s.requestor, 
            requestors.name, requestors.email FROM requests LEFT JOIN 
            requestors ON requests.requestor = requestor.id| );
    my $list = $sth->fetchall_arrayref({});
    
  2. or download this
    my $sth = $dbh->prepare( 
            qq|SELECT request.id, request.daterequested, request.requestor
    +, request.producer,
    ...
            @mapto{@mapping} = @$_;
            \%mapto;
            } @$arrayref;