Привет всем. Такая ситуация, есть страничка написанная на cgi.pm
use CGI qw/:standard/;
use DBI;

print popup_menu(......)
и теперь мне надо чтоб из таблицы PG значения подставлялись в значения popup_menu.

Вот такая проблема.

• CGI.pm как присвоить popup_menu значения из Postg,sudomen, 15:26 , 07-Июн-06
  • CGI.pm как присвоить popup_menu значения из Postg,dsl, 09:40 , 10-Июн-06
    • CGI.pm как присвоить popup_menu значения из Postg,sudomen, 10:32 , 13-Июн-06

>Привет всем. Такая ситуация, есть страничка написанная на cgi.pm
>use CGI qw/:standard/;
>use DBI;
>
>print popup_menu(......)
>и теперь мне надо чтоб из таблицы PG значения подставлялись в значения
>popup_menu.
>
>Вот такая проблема.

Все нашел как это делать, оказалось просто.
Если кому понадобиться.
Выбираем нужные значения из таблицы и загоняем их в массив
use CGI qw/:standard/;
use DBI;

$db = DBI->connect("dbi:Pg:dbname=template1","pgsql","",{PrintError=>0});
$q = "select tablename from pg_tables";
$sth = $db->prepare($sel_q);
$rv = $sth->execute();

while ($ref=$sth->fetchrow_hashref())
      {
      ($name)=($ref->{'tablename'});
       push(@name_mas,$name);
      }

#print popup_menu({-values=>[@name_mas]});
$sth->finish();
$db->disconnect();

>while ($ref=$sth->fetchrow_hashref())
>      {
>      ($name)=($ref->{'tablename'});
>       push(@name_mas,$name);
>      }
>
>#print popup_menu({-values=>[@name_mas]});

CGI зло, сравни быстродействие :)

это все заменяем на:
print "<select name='select1' style='width: 200pt'>";
foreach my $key ( @{$sth->fetchall_arrayref} ){
     print "<option value='$key->[0]'> $key->[0] </option>";
}
print "</select>";

>
>>while ($ref=$sth->fetchrow_hashref())
>>      {
>>      ($name)=($ref->{'tablename'});
>>       push(@name_mas,$name);
>>      }
>>
>>#print popup_menu({-values=>[@name_mas]});
>
>CGI зло, сравни быстродействие :)
>
>это все заменяем на:
>print "<select name='select1' style='width: 200pt'>";
>foreach my $key ( @{$sth->fetchall_arrayref} ){
>     print "<option value='$key->[0]'> $key->[0] </option>";
>}
>print "</select>";

Вроде также работает. :-(