Distributing an array of hash refs across a table?

[Zaphod]

I have a cgi script that polls a SQL database and prints out reports.
some of the reports have more columns then others.

I assume (yes I know about assuming) that the Distributive nature of
CGI.pm's Tr(0 & td() functions are what I need to write a short
subroutine which will table these results

I have tried many permutations of the following subroutine, and can
not figure out how to make this work....

Thanks for any help anyone might offer...

&create_db_connection;
while($Load=&read_load_data_by_number($LoadNumber+ +)){
$aref={};
$Info=&read_info_data_by_id($Load->{'regular'});
$Customer=&read_customer_data_by_id($Load->{'customer'});
$Carrier=&read_carrier_data_by_id($Load->{'carrier'});
$Driver=&read_driver_data_by_id($Load->{'driver'});
$aref->{'pudate'}=$Info->{'pudate'};
$aref->{'number'}=$Load->{'number'};
$aref->{'custname'}=$Customer->{'name'};
$aref->{'carrier'}=$Carrier->{'name'};
$aref->{'gross'}=$Info->{'gross'};
$aref->{'totruck'}=$Info->{'totruck'};
push @LoadList, $aref;
}
&print_list(@LoadList);
&disconnect;

sub print_list{if($DeBug){print 'in print_list, ',$Search,br();}
my @List = @_;
print table({-width=>'100%',-border=>1,-cellspacing=>0,-cellpadding=>6},
Tr({-valign=>'center'},[@List],
td({-align=>'center',-valign=>'top'},{'pudate','number','customer'}),
)
)
}

[Brian McCauley]

[email]zaphod@earthling.net[/email] (Zaphod) writes:

> I have a cgi script that polls a SQL database and prints out reports.
> some of the reports have more columns then others.
>
> I assume (yes I know about assuming) that the Distributive nature of
> CGI.pm's Tr(0 & td() functions are what I need to write a short
> subroutine which will table these results
>
> I have tried many permutations of the following subroutine, and can
> not figure out how to make this work....

Thowing random solutions at a problem is not a good approach. If you
can't solve your problem consider breaking it into simpler ones.

First, get some good habits.

Always declare all variables in the smallest applicable lexical scope
unless there is a reson to do otherwise. Using "strict" will help you
find variables you've not declared so always work with strict on.

Always enable warnings unless you've decided there's a particular
reason you want to disable a particular warning. If so then disable
the particular warning only and for the smallest appropiate scope.

There is at least one silly typo in your code that would have been
picked up by enabling warnings.

Don't use the & syntax to call subroutines unless you know what it
does and that's really what you want to do.

Indent your code consitantly and readably.

Use slices where appropiate.

Don't make copies of arrays unless you have a reason to do so.

As a general rule, pass array arguments into subroutines as a
reference rather than as a list. (This is a special case of the above).

All these habits will make programming in Perl easier.

> Thanks for any help anyone might offer...

If you are interested in distribuiting stuff over lists then
learn about the map function.

> &create_db_connection;
> while($Load=&read_load_data_by_number($LoadNumber+ +)){
> $aref={};
> $Info=&read_info_data_by_id($Load->{'regular'});
> $Customer=&read_customer_data_by_id($Load->{'customer'});
> $Carrier=&read_carrier_data_by_id($Load->{'carrier'});
> $Driver=&read_driver_data_by_id($Load->{'driver'});
> $aref->{'pudate'}=$Info->{'pudate'};
> $aref->{'number'}=$Load->{'number'};
> $aref->{'custname'}=$Customer->{'name'};
> $aref->{'carrier'}=$Carrier->{'name'};
> $aref->{'gross'}=$Info->{'gross'};
> $aref->{'totruck'}=$Info->{'totruck'};
> push @LoadList, $aref;
> }
> &print_list(@LoadList);
> &disconnect;
>
> sub print_list{if($DeBug){print 'in print_list, ',$Search,br();}
> my @List = @_;
> print table({-width=>'100%',-border=>1,-cellspacing=>0,-cellpadding=>6},
> Tr({-valign=>'center'},[@List],
> td({-align=>'center',-valign=>'top'},{'pudate','number','customer'}),
> )
> )
> }

I suspect you meant somthing like:

print table({-width=>'100%',-border=>1,-cellspacing=>0,-cellpadding=>6},
Tr({-valign=>'center'},
[ map scalar td(
{-align=>'center',-valign=>'top'},
[@$_{'pudate','number','customer'}]
), @List
]
)
);

This, however, is not very readable. You may want to consider a for
loop and some more variables rather than trying to do it all in one
statement.

--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\

[$_@_.%]

> [email]zaphod@earthling.net[/email] (Zaphod) writes:

> Always enable warnings unless you've decided there's a particular
> reason you want to disable a particular warning. If so then disable
> the particular warning only and for the smallest appropiate scope.

Hi sorry for butting in... but im new and the posts help me learn.
That said, i find this tip somewhat interesting, but dont know how to do that.

[Martien Verbruggen]

On Wed, 24 Dec 2003 06:33:11 GMT,
$_@_.% <$_@_.%> wrote:

>> [email]zaphod@earthling.net[/email] (Zaphod) writes:

>

>> Always enable warnings unless you've decided there's a particular
>> reason you want to disable a particular warning. If so then disable
>> the particular warning only and for the smallest appropiate scope.

>
> Hi sorry for butting in... but im new and the posts help me learn.
> That said, i find this tip somewhat interesting, but dont know how to do that.

Apart from warnings, you ahould also enable strictures. Put

use warnings;
use strict;

at the top of your Perl program or module. If you need to write for
pre-5.6.0 Perls, use the -w command line switch instead of the warnings
pragma.

You can read more in the perllexwarn and warnings documentation.

$ perldoc perllexwarn
$ perldoc warnings

Martien
--
|
Martien Verbruggen | Little girls, like butterflies, need no
| excuse - Lazarus Long
|

[Brian McCauley]

$_@_.% writes:

> > [email]zaphod@earthling.net[/email] (Zaphod) writes:

>

> > Always enable warnings unless you've decided there's a particular
> > reason you want to disable a particular warning. If so then disable
> > the particular warning only and for the smallest appropiate scope.

>
> Hi sorry for butting in... but im new and the posts help me learn.
> That said, i find this tip somewhat interesting, but dont know how to do that.

perldoc perllexwarn

--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\