как в popup_menu вставить данные из таблицы

[linke]

Понятно что надо соеденится с базой, сделать выборку,записать массив и т.д. Только что-то не получается

[NeoNox]

1. Нужно делать правильно.
2. Вопроса я не услышал.
3. Гадать что у тебя не получается здесь никто не будет.

[linke]

По-моему вопрос очевиден. как в popup_menu вставить данные из столбца таблицы?.

[NeoNox]

Вопросы с popup menu не относятся к языку Perl.
Что за базу ты используешь?
Что умеешь делать?

[linke]

Почему не относятся.
 print start_form(-action=>url()),
  popup_menu(-name=>"kollroom",
             -value=>["1","2"],
             -labels=>{"1"=>"1","2"=>"2"} );
БД MySql

[NeoNox]

Другое дело.
И что не работает, какие ошибки?
Выборка из БД происходит?

[linke]

Выборка происходит.Не знаю как сделать чтобы не ручкамиза полнять, а брать значение из базы.А то если ручками там очень много и не удобно потом что-то менять.

Код: [Выделить]

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} );

Так не работает

NeoNox

• Координатор
• Глобальный модератор
• Ветеран
• 
• 
• Сообщений: 3012
• +0/-0
• 0
• • 

как в popup_menu вставить данные из таблицы

тоесть @$all_ref пустой?

The documentations is your friend

linke

• Заглянувший
• Новичок
• 
• Сообщений: 21
• +0/-0
• 0
• • 
  • 

как в popup_menu вставить данные из таблицы

Неа вместо значений поля таблицы Array(0x1d39bd0)

NeoNox

• Координатор
• Глобальный модератор
• Ветеран
• 
• 
• Сообщений: 3012
• +0/-0
• 0
• • 

как в popup_menu вставить данные из таблицы

Вот с этого и нужно было начинать.
Замени на $all_ref->

• .

The documentations is your friend

linke

• Заглянувший
• Новичок
• 
• Сообщений: 21
• +0/-0
• 0
• • 
  • 

как в popup_menu вставить данные из таблицы

Не помогло
#!/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();
Может я туплю просто

NeoNox

• Координатор
• Глобальный модератор
• Ветеран
• 
• 
• Сообщений: 3012
• +0/-0
• 0
• • 

как в popup_menu вставить данные из таблицы

Что выводит $all_ref->

• ?

The documentations is your friend

linke

• Заглянувший
• Новичок
• 
• Сообщений: 21
• +0/-0
• 0
• • 
  • 

как в popup_menu вставить данные из таблицы

ARRAY(0x1d339ac)

Phoinix

• RW
• Ветеран
• 
• 
• Сообщений: 1097
• +0/-0
• 2
• • 
  • 

как в popup_menu вставить данные из таблицы

linke
Читаем документацию DBI:

fetchall_arrayref - формирует ссылку на массив ссылок, то бишь твои данные (поля таблицы) находятся здесь (в двухмерном массиве):

$$all_ref

• [y] - где x - строка, а y - столбец

• Печать

Страницы: [1]   Вверх

« предыдущая тема следующая тема »

• Forum Webscript.Ru »
• Программирование »
• Perl »
• как в popup_menu вставить данные из таблицы

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 

• SMF 2.0.19 | SMF © 2016, Simple Machines
• XHTML
• RSS
• Мобильная версия

Страница сгенерирована за 0.137 секунд. Запросов: 17.

[NeoNox]

тоесть @$all_ref пустой?

[linke]

Неа вместо значений поля таблицы Array(0x1d39bd0)

[NeoNox]

Вот с этого и нужно было начинать.
Замени на $all_ref->

• .

[linke]

Не помогло
#!/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 "

[NeoNox]

Что выводит $all_ref->

• ?

[linke]

ARRAY(0x1d339ac)

[Phoinix]

linke
Читаем документацию DBI:

fetchall_arrayref - формирует ссылку на массив ссылок, то бишь твои данные (поля таблицы) находятся здесь (в двухмерном массиве):

$$all_ref

• [y] - где x - строка, а y - столбец