Не помогло
#!/usr/bin/perl
use DBI;
use CGI qw(:standard escapeHTML);
print "Content-type: text/html\\n\\n";
my $dbh = DBI->connect("DBI:mysql:database=base;host=127.0.0.1",
"", "");
my $rec=$dbh->prepare("SELECT * FROM metro ");
$rec->execute;
print "
";
my $all_ref = $rec->fetchall_arrayref;
print header(),
start_html(-title=>"Скрипт ");
print start_form(-action=>url()),
popup_menu(-name=>"kollroom",
-value=>[$all_ref->
-labels=>{$all_ref->
print end_form();
Может я туплю просто
10
« : 19 Августа 2004, 18:13:26 »
Неа вместо значений поля таблицы Array(0x1d39bd0)
11
« : 19 Августа 2004, 17:39:42 »
Выборка происходит.Не знаю как сделать чтобы не ручкамиза полнять, а брать значение из базы.А то если ручками там очень много и не удобно потом что-то менять.
my $dbh = DBI->connect("DBI:mysql:database=base;host=127.0.0.1",
"", "");
my $rec=$dbh->prepare("SELECT field FROM main ");
$rec->execute;
print "";
my $all_ref = $rec->fetchall_arrayref;
popup_menu(-name=>"kollroom",
-value=>[@$all_ref],
-labels=>{@$all_ref} );
Так не работает
12
« : 19 Августа 2004, 17:00:26 »
Почему не относятся.
print start_form(-action=>url()),
popup_menu(-name=>"kollroom",
-value=>["1","2"],
-labels=>{"1"=>"1","2"=>"2"} );
БД MySql
13
« : 19 Августа 2004, 16:37:24 »
По-моему вопрос очевиден. как в popup_menu вставить данные из столбца таблицы?.
14
« : 19 Августа 2004, 16:31:30 »
Понятно что надо соеденится с базой, сделать выборку,записать массив и т.д. Только что-то не получается
15
« : 27 Октября 2003, 16:10:42 »
Все дошло, туплю по страшному