Темы

1

Perl / Загрузка файла с подменой ссылки

« : 17 Февраля 2011, 11:52:45 »

Нужно организовать загрузку файла например mp3

1. путь к файлу например будет такой:
/cgi-bin/img.pl?d=123456789
2. файл будет лежать например:
/audio/mp3/name1.mp3

Первая ссылка не должна меняться но давать возможность загружать файл.

Как лучше реализовать данную задачу.

2

Базы данных / Можно ли хранить записи в таблице в определенном порядке

« : 22 Декабря 2004, 11:40:13 »

Можно ли хранить записи в таблице в определенном порядке например по дате (DESC), нужно для ускорения выборки из базы.
В одной таблице храню все данные а например в другой только id и date_iz, выбираю записи например по второй, таких таблиц может быть несколько.

Где-то на форуме об этом ктото писал.
Может кто-то подскажет как реализовать.
База MySQL

3

Базы данных / Можно ли создать INDEX в mysql с пораметрами...

« : 16 Ноября 2004, 18:18:08 »

Можно ли создать INDEX в mysql с пораметрами выбранными например:

1.  выбрать все "01" из ячейки `id` потом по "0" из ячейке `num` и по `date` отсортировать.

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


#этот пример только создает с сортировкой INDEX
$sth = $dbh->prepare("ALTER TABLE $table ADD INDEX `f_id_num_date` (`id` ASC, `num` ASC, `date` ASC) ") or die "Error prepare: " . $dbh->errstr();
$sth->execute() or die "Error execute:" . $sth->errstr . "\\n";

Можно ли сделать чтото вроде:

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


$sth = $dbh->prepare("ALTER TABLE $table ADD INDEX `id_index` ( WHERE ((`id` =01) AND (`num` =0))
ORDER BY date` ASC ) ") or die "Error prepare: " . $dbh->errstr();


4

Perl / Проблема с возвратом по return из sub.

« : 20 Октября 2004, 16:41:35 »

Как при возврате из sub отлавить эту ошибку тоесть не делать return во втором случае.


#1. Все ок
$test1 = ["test1"];
$test2 = ["test2","test3"];
name($test1, $test2);

#2. Ошибка при возврате
name(["test1"], ["test2","test3"]);

sub name {
      my($left, $right) = (shift, shift);
    
#код...
      
      return $left, $right;      
}

5

Perl / Как добавить в хэш пару ключ - значение, чтобы он не перезаписывался?

« : 19 Октября 2004, 12:12:06 »

Как в хеш с ключом $db{\'name\'} добавить еще { \'ключ\' =>  \'значение\'} чтобы придыдущии ключи не удалились.

6

Perl / Можно ли записать в DB_File хеш такого типа...

« : 13 Октября 2004, 17:04:21 »

Можно ли записать в DB_File хеш такого типа структуру или может куда еще...

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


%db{$key}
               ->[0]
               ->[1]
                      ->[0]
                      ->[1]
                      ->[2]
               ->[2]
                      ->[0]
                      ->[1]
               ->[3]


7

Perl / Проблема поставил win2003ser,ActivePerl, перл работает но в IE при ошибке не выдае...

« : 11 Ноября 2003, 21:41:35 »

Проблема поставил win2003ser,ActivePerl, перл работает но в IE при ошибке не выдает полное описание ошибки(номер страки например) а пишет ошибка 404, в предыдущих версиях писал, может сервис какой включить надо или выключить. Нужно для быстрой отладки.
Кто знает подскажите.

8

Perl / Можно ли в "while" при переборе прыгать на нужную позицию в файле.

« : 27 Января 2003, 11:01:14 »

Можно ли в "while" при переборе прыгать на нужную позицию в файле. Как в for:

for(@file[3 .. 8]){
  ....
}

как в while:

while(?...)

9

Perl / Как при неверном GET запросе перенаправить запрос на определенную строницу

« : 18 Декабря 2002, 16:31:15 »

Как при неверном GET запросе перенаправить запрос на определенную строницу:
Например: http://test.ru/cgi-bin/test.pl?test=12dfsdfgsdfg
на http://www.test.ru/cgi-bin/test.pl?test

10

Perl / Есть ли функция опредиления целого числа

« : 18 Ноября 2002, 10:51:47 »

Есть ли функция опредиления целого числа например: 3.4 должно быть равное 3 или 3.6 равное 4

11

Perl / Как записать в начало файла данные переменной.

« : 30 Октября 2002, 17:08:34 »

Как записать в начало файла данные переменной.

12

JavaScript & JScript / Как определить рабочую область окна браузера W,H

« : 24 Октября 2002, 15:21:28 »

Как определить рабочую область окна браузера W,H

13

Perl / Как скомпилить под Unix perl исходник

« : 14 Марта 2002, 15:19:38 »

Как скомпилить под Unix perl исходник