Сообщения

1

Perl / как писать демон

« : 03 Мая 2004, 03:38:35 »

Можно на Перле написать, а потом компильнуть в исполняемый файл..... И будет тебе как на Си.....
Вопрос надо ли....
И ещё коль про демоны разговор зашёл....
Как ты думаешь он должен отслеживать обращение к картинке ?
Тут наверное модуль к Апачу надо какой..... Чтоб увеличивал счётчик при обращении к картинке....

У-у-у.... какие дебри начались.....
Короче скриптом выдавай картинку и всё.....
Я во у себя софт скриптом отдаю, а то мне весь канал забьют, на меня не останится ....

2

Perl / Передача файла из скрипта , клиенту...

« : 14 Апреля 2004, 03:51:26 »

Mog.
.... ну... незнаю.... симпатичней...

3

Perl / Передача файла из скрипта , клиенту...

« : 13 Апреля 2004, 00:43:02 »

NeoNox
Да.... наверное только так и получится....
Придётся пол дописывать , чтоб делал рефреш сам на себя...
И при втором заходе уже слал файл ...

4

Perl / Установка модулей??? (perl) (+)

« : 13 Апреля 2004, 00:38:27 »

NeoNox

Mers:
Здесь обсуждаются проблемы установки модулей на Денвер.

Э....извиняюсь......
Только это Linux, а не винда....
А что в Денвере нет такой фичи ?

5

Perl / Декодирование формы: Знаки "+" и "=". КАК?

« : 12 Апреля 2004, 17:39:15 »

Может я чего не понял...?
Но я делаю так :

      ($x1,$text)=split(/=/,$text);
  $text=~s/\\+/ /g;
  $text=~s/%([0-9a-hA-H]{2})/pack(\'C\',hex($1))/ge;

Чем это плохо ?
Или я не понял что-то тут у вас...

6

Perl / Окно загрузки пр нажатии на ссылку

« : 12 Апреля 2004, 17:26:41 »

У меня работает это :

sysopen(FILE, "$file", O_RDONLY);
print "Content-Disposition: multipart\\/form-data\\; filename=\\"$name\\" \\n\\n";
binmode FILE;
binmode(STDOUT);
while(read(FILE, my $data, 1024)){print $data}
close FILE;

7

Perl / Установка модулей??? (perl) (+)

« : 12 Апреля 2004, 17:19:47 »

А я пару раз, когда надо было добавить модуль, делал так :

Как автоматизировать процесс установки библиотек и модулей?

Скачивание и установка вручную -- достаточно сложное занятие,
требующее постоянного вмешательства с вашей стороны.
Можно простым способом: сделать su (желательно),
запустить perl -MCPAN -e shell.
Если это первый запуск модуля CPAN,
вам зададут серию вопросов на тему URL вашего любимого зеркала CPAN.
После этого все просто: если вы знаете название модуля или библиотеки,
то набираете, скажем, install Net::NNTP.
Тогда этот модуль (для работы с NNTP) сам ищется на CPAN,
сам скачивается, компилируется, устанавливается.
Все, поставили, можно выходить и использовать вновь установленный модуль.
Если название точно не известно,
то набираем там же help и используем различные команды поиска типа i NNTP.

8

Perl / Передача файла из скрипта , клиенту...

« : 11 Апреля 2004, 21:02:42 »

Mog.

Mog.:
Э... Грешным делом, всегда думал, что это дело для наоборот клиент->сервер.

Э...э...э, а какая разница в каком направлении данные идут....?

9

Perl / Передача файла из скрипта , клиенту...

« : 11 Апреля 2004, 15:42:47 »

Спасибо большое....
Классно заработал такой вариант.....

sysopen(FILE, "$file", O_RDONLY);
print "Content-Disposition: multipart\\/form-data\\; filename=\\"$name\\" \\n\\n";
binmode FILE;
binmode(STDOUT);
while(read(FILE, my $data, 1024)){print $data}
close FILE;

Теперь даже большие файлы уходят легко и просто с небольшой загрузкой системы, ведь скорость чтения с харада намного больше скорости передачи.....

10

Perl / Передача файла из скрипта , клиенту...

« : 11 Апреля 2004, 03:43:26 »

Передача файла из скрипта , клиенту...
У меня это делает такой скриптец :

sysopen(FILE, "$file", O_RDONLY);
binmode(FILE);
@sabj = ;
close(FILE);
binmode(STDOUT);
print "Content-Disposition: multipart\\/form-data\\; filename=\\"$name\\" \\n\\n";
print @sabj;


Можнт и по ламерски написано, но всё работает....
Единственное , что мне не нравится, это то что при большом размере файла, скипт его пока прочитает в буфер....
Это жутко грузит сервер....
Может кто знает как переделать, что-б скрипт читал файл по мере его отправки ...

И ещё.....
Как сделать что-б из этого-же скрипта , клиенту отправлялась сначала страничка HTML ( типа предупреждение о посылке файла), а потом сам файл.....
Спасибо....