![]() |
|
Модераторы: korob2001, ginnie |
![]()
|
|
| guvijur |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 28.9.2012 Репутация: нет Всего: нет |
Помогите решить задачу.
Я програмированием плотно никогда не занимался. Суть в следующем: Скрипт выбирает из таблицы SQL 4 числовых значения из разных строк. Требуется выбрать минимальное значение, если значений два, то два, если три, то три, если все равны, то все. Помогите, кто чем может. Хоть подскажите операторы, с помощью которых это можно сделать? |
|||
|
||||
| reiserford |
|
|||
|
Новичок Профиль Группа: Awaiting Authorisation Сообщений: 22 Регистрация: 20.3.2012 Репутация: 1 Всего: 1 |
use List::Util qw(min);
my $foo = min @bar; |
|||
|
||||
| guvijur |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 28.9.2012 Репутация: нет Всего: нет |
Т.е. сначала мне надо значения в массив загнать? А если без массива? Ну есть, например, 4 переменные $a, $b, $c и $d и надо именно среди них найти минимальное. Причём, забавность заключается ещё и в том, что мне важно знать и увидеть не просто минимальное значение, поскольку в данном случееименно оно и будет показано, а принципиально знать именно переменные или элементы массива с минимальным или минимальными значениями, поскольку мне, на основании этих данных надо будет делать манипуляции с БД. Для польшей детальности опишу подробнее ситуацию. Вот таблица в БД. Таблица1 Поле id | Поле NUM | Поле ANSWER | ...... | Поле METKA | 1 | 5001 | 45 | ....... | | 2 | 5002 | 36 | ...... | | 3 | 5003 | 38 | ...... | | 4 | 5004 | 36 | ...... | | Я получаю 4 значения поля ANSWER для каждой из строк. Выборку делаю по полю NUM. Присваиваю эти значения 4-м переменным: $n1, $n2 $n3 и $n4. Теперь мне надо определить минимальное значение или значения, если их два и внести в БД, в таблицу, в поле METKA цифру 1 для того номера или для тех номеров, значение которого(которых) минимальны. В принципе, вы верно подсказали. Дальше я просто могу сравнить это значение со значением каждого элемента массива. Блин, сам, похоже, ответ нашёл. |
|||
|
||||
![]()
|
| Правила форума "Perl" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |