Просмотр сообщений
1
Базы данных / Проверка на повторы новых данных с имеющимися - может ли такое MySQL?
« : 02 Сентября 2002, 15:25:26 »
Спасибо большое. Так и сделаю.
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Страницы: [1] 2
2
Базы данных / Проверка на повторы новых данных с имеющимися - может ли такое MySQL?
« : 30 Августа 2002, 13:27:31 »
Спасибо, но вот еще уточнение. Алгоритм проверки на повтор многоступенчатый:
Сначала сравнивается по первому параметру(номер), потом по второму(название), и потом по третьему(код). Если все три варианта ничего не вернули - то тогда новые данные - действительно новые (простите за каламбур) и их можно исертить.
Сначала сравнивается по первому параметру(номер), потом по второму(название), и потом по третьему(код). Если все три варианта ничего не вернули - то тогда новые данные - действительно новые (простите за каламбур) и их можно исертить.
3
Базы данных / Проверка на повторы новых данных с имеющимися - может ли такое MySQL?
« : 30 Августа 2002, 09:54:38 »
Как будет работать MySQL, например, с такими данными:
- создается база из более 100 тыс товаров.
- при вводе новых данных в БД необходимо проверить на возможность их наличия уже в базе (т.е. надо проверять на повторы при вводе новых данных).
Может ли такое проделать СУБД MySQL? (если да, то как быстро, ведь надо сравнивать с 100 тыс.!)
- создается база из более 100 тыс товаров.
- при вводе новых данных в БД необходимо проверить на возможность их наличия уже в базе (т.е. надо проверять на повторы при вводе новых данных).
Может ли такое проделать СУБД MySQL? (если да, то как быстро, ведь надо сравнивать с 100 тыс.!)
4
Perl / Как можно закачать на сервер *.jpg файл?
« : 08 Августа 2002, 10:23:56 »
у меня так:
<form ENCTYPE="multipart/form-data" attach="image/jpg" method="post">
<input type=hidden name="action" value="add_record">
<INPUT TYPE="FILE" NAME="upload-jpg" SIZE=15>
<INPUT TYPE="SUBMIT" VALUE="Добавить">
<INPUT TYPE="RESET" VALUE="Очистить">
</form>
А зачем убирать attach? Попробую, может получится.
<form ENCTYPE="multipart/form-data" attach="image/jpg" method="post">
<input type=hidden name="action" value="add_record">
<INPUT TYPE="FILE" NAME="upload-jpg" SIZE=15>
<INPUT TYPE="SUBMIT" VALUE="Добавить">
<INPUT TYPE="RESET" VALUE="Очистить">
</form>
А зачем убирать attach? Попробую, может получится.
5
Perl / Как можно закачать на сервер *.jpg файл?
« : 07 Августа 2002, 13:44:51 »
Аааа! Не работает. Пишет, что невозможно открыть файл - и ИЕ тоже не отображает. Код скрипта такой:
use CGI qw (:standard);
use CGI::Carp qw (fatalsToBrowser);
$CGI::POST_MAX = 131072;
my $filename = param(\'upload-jpg\');
$data_file="./../../books/1.jpg";
$action = param(\'action\');
if ($action eq \'add_record\') {
if ($filename eq "") {
print "Content-type: text/html\\n\\n";
print "<html><body>ОШИБКА: Необходимо ввести имя файла для загрузки.
\\n";
exit;
}else {
}
sub process_file {
print "Content-type: text/html\\n\\n";
print "<html><BODY>Загружается $filename
\\n";
if ($foto !~ /([\\w-]+ \\. (?: gif | jpe?g ))$/ix) {
open (FILE, ">$data_file")
binmode FILE;
print FILE while (<$filename>);
close FILE;
}
}
} else { &html_add_form;}
use CGI qw (:standard);
use CGI::Carp qw (fatalsToBrowser);
$CGI::POST_MAX = 131072;
my $filename = param(\'upload-jpg\');
$data_file="./../../books/1.jpg";
$action = param(\'action\');
if ($action eq \'add_record\') {
if ($filename eq "") {
print "Content-type: text/html\\n\\n";
print "<html><body>ОШИБКА: Необходимо ввести имя файла для загрузки.
\\n";
exit;
}else {
&process_file;
}
sub process_file {
print "Content-type: text/html\\n\\n";
print "<html><BODY>Загружается $filename
\\n";
if ($foto !~ /([\\w-]+ \\. (?: gif | jpe?g ))$/ix) {
open (FILE, ">$data_file")
or die "cant open: $_";
binmode FILE;
print FILE while (<$filename>);
close FILE;
}
}
} else { &html_add_form;}
7
Perl / Как можно закачать на сервер *.jpg файл?
« : 07 Августа 2002, 10:57:34 »
Мой скрипт что-то делает нехорошее с файлом и его потом нельзя нигде открыть. Как закачать изображение правильно?
В форме у меня такие параметры:
<form ENCTYPE="multipart/form-data" attach="image/jpg" method="post">
<INPUT TYPE="SUBMIT" VALUE="Добавить"> <INPUT TYPE="RESET" VALUE="Очистить">
В форме у меня такие параметры:
<form ENCTYPE="multipart/form-data" attach="image/jpg" method="post">
<INPUT TYPE="SUBMIT" VALUE="Добавить"> <INPUT TYPE="RESET" VALUE="Очистить">
8
Perl / Как вывести данные за текущую неделю ?
« : 01 Августа 2002, 09:14:04 »
Чего-то я не понимаю - а как текущее время узнать? localtime?
И в новостях должно быть указано время их записи?
И в новостях должно быть указано время их записи?
9
Perl / Как вывести данные за текущую неделю ?
« : 31 Июля 2002, 12:58:08 »
Я столкнулся с небольшой проблемой по определению количества дней, в течение которых скрипт на ПЕРЛЕ выводит новости на сайт. Надо, чтобы он выводил только новости из БД за текущую неделю. Как это сделать?
10
Базы данных / Как проверить значения одного массива на совпадение значений другого?
« : 24 Июля 2002, 10:27:39 »
А на ПЕРЛЕ есть что-нибудь похожее???
11
Базы данных / Как проверить значения одного массива на совпадение значений другого?
« : 23 Июля 2002, 16:58:44 »
У меня есть небольшая проблема с поиском совпадений в БД. Пользователь закачивает новый текстовой файл(дополнение) к БД - как сделать так, чтобы скрипт проверял на совпадение закачиваемые записи с записями, уже имеющимися в БД? Данные из закачиваемого файла - это один массив (его элементы - строки файла), данные БД - это другой массив. Как оптимально проверить на совпадение значений одного массива с каждым значением другого?
С уважением, Евгений
С уважением, Евгений
12
Perl / Подскажите, как выводить результаты поиска постранично?
« : 23 Июля 2002, 11:56:10 »
Человек нажимает кнопку "вывести все записи из БД" - и все эти записи выводятся по 20 штук на страницу. БД - тектовая.
13
Perl / Подскажите, как выводить результаты поиска постранично?
« : 23 Июля 2002, 11:10:05 »
Мне надо сделать так, чтобы выводилось по 20 результатов из БД на каждую страницу. Как это сделать?
14
Perl / Как определить height и width у картинки для ее правильного отображения?
« : 19 Июля 2002, 15:41:28 »
Вобщем так. Этот скрипт я кинул нафиг. Вот есть гораздо лучше.
open(IMG ,"images/001.jpg");
sub Read1IMG {
read (IMG, $b, 1);
return ord($b);
}
sub Read2IMG {
read (IMG, $msb, 1);
read (IMG, $lsb, 1);
}
local $stop = 0;
while (!$stop) {
$aMarker = Read1IMG();
while ($aMarker != 0xFF) { $aMarker = Read1IMG(); }
$aMarker = Read1IMG();
while ($aMarker == 0xFF) { $aMarker = Read1IMG(); }
### got next marker
if ( (($aMarker >= 0xC0) && ($aMarker <= 0xCF)) &&
}
}
print "Content type = text/html\\n\\n"
print "Тип: $img_type, Высота: $img_height, Ширина: $img_width\\n";
open(IMG ,"images/001.jpg");
sub Read1IMG {
read (IMG, $b, 1);
return ord($b);
}
sub Read2IMG {
read (IMG, $msb, 1);
read (IMG, $lsb, 1);
return ( (ord($msb) << 8) | ord($lsb) );
}
local $stop = 0;
while (!$stop) {
$aMarker = Read1IMG();
while ($aMarker != 0xFF) { $aMarker = Read1IMG(); }
$aMarker = Read1IMG();
while ($aMarker == 0xFF) { $aMarker = Read1IMG(); }
### got next marker
if ( (($aMarker >= 0xC0) && ($aMarker <= 0xCF)) &&
($aMarker != 0xC4) && ($aMarker != 0xCC) ) {
Read2IMG();
Read1IMG();
$img_height = Read2IMG();
$img_width = Read2IMG();
$stop = 1;
$img_type = "jpg";
}
}
print "Content type = text/html\\n\\n"
print "Тип: $img_type, Высота: $img_height, Ширина: $img_width\\n";
15
Perl / Как определить height и width у картинки для ее правильного отображения?
« : 19 Июля 2002, 14:50:11 »
Вся проблема в том, что в переменной $width ничего нет после выполнения кода. Чем отличается $jpeg_file от $file_name в этом коде? И как можно этот код написать без return и sub - чтоб сразу в $width и $height размеры выдавались?
С уважением, Евгений.
С уважением, Евгений.
Страницы: [1] 2