Help for this page

Select Code to Download


  1. or download this
    my $statement = q{
  SELECT * 
    FROM BuyersSellers 
...
); 

my $BuyersSellers = $dbh->selectall_arrayref($statement, \%attr, $file
+number);
  2. or download this
    $statement = q{
  SELECT * 
...
  my $row = $sth->fetchrow_hashref('NAME_lc');
  $buysell->{PersonID} = { %$row };
}
  3. or download this
    foreach my $buysell (@$BuyersSellers) {
  next unless $buysell->{BuyerORSeller} eq 'BUYER';
  print qq{<tr class="$class"><td>$buysell->{PersonID}->{LastName}</td
+></tr>};
}