Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Е. Перлов

Страницы: [1] 2
1
Perl / dll
« : 05 Мая 2003, 04:09:46 »
Может ли перл-скрипт пользоваться функциями из .dll файла? Как? Буду благодарен за пример или ссылку на него.

2
Perl / дата. Разница в часовых поясах
« : 09 Марта 2003, 19:34:05 »
localtime(time)[2] - gmtime(time)[2]

Но, насколько я понимаю, это даст разницу между часовым поясом _сервера_ (а не клиента) и Гринвичем. Даже если часы на сервере идут неправильно.

А вот ещё одна задачка: определите часовой пояс клиента. (Решения у меня нет, но оно мне очень нужно :))

3
Perl / Посылка файлов на сервер
« : 09 Марта 2003, 19:21:09 »
Цитировать
Xander:
Прочитай от начала и до конца.
И будет тебе Щастье.

Ты сам-то читал это от начала и до конца (спрашиваю из интереса)?

Цитировать
NiX:
Иначе вопрос таков - какой формат запроса к скрипту (полный, с заголовком и с содержимым).

Где-то в интернете я видел простой пример cgi-скрипта на Дельфах. Поищи и будет тебе ещё одно счастье ;)

4
Perl / Запись числа в файл
« : 09 Марта 2003, 19:03:22 »
Сетевой привет.
Одну вещь я не понимаю в перле. Допустим, в результате расчётов получилось число с плавающей точкой, например 5.6789999999999999999999. Нужно сохранить его в файле, а потом считать. Если сохранять такие числа в текстовом формате, то они будут занимать в 5-10 раз больше памяти, чем их реальная величина. Тем более такие числа значительно труднее искать в файлах т.к. длина у них разная (пристым seek FILE не отделаешься; придётся читать файл с начала). А как записывать их в бинарном виде - ?

5
Perl / Что это за ошибка?
« : 03 Февраля 2003, 01:26:53 »
Дома на Винде у меня всё работает, а на хостинге такую фигню выдаёт.

6
Perl / И снова, очень нужные и ненавистные...
« : 03 Февраля 2003, 00:46:01 »
Я немного подумал, сделал несколько проверок, и решил чуть-чуть изменить эти функции:

sub process_links
{
my $message = shift;
$message =~ s|http(s?)://(\\S+)|qq`[ссылка]`|egi;
$message =~ s|http://ftp://(\\S+)|\'[ссылка]\'|egi;
$message =~ s|mailto: (\\S+)|\'[email]\'|egi;
$message
}

sub escape
{
my $str = shift;
$str =~ s|([^0-9A-Za-z:.=&+/%_@\\-\\?\\#\\\\])|sprintf "%%%x", ord($1)|eg;
$str
}

_____
только надо убрать пробел после mailto: (я его добавил, чтобы не появился смайлик ": ("  )

7
Perl / И снова, очень нужные и ненавистные...
« : 02 Февраля 2003, 21:35:06 »
P.S. функции в форуме отображаются неправильно; исчезли бэкслэши

8
Perl / И снова, очень нужные и ненавистные...
« : 02 Февраля 2003, 21:19:42 »
Для замены адресов я использую такие функции:


sub process_links
{
  my $message = shift;
  $message =~ s|http(s?)://([0-9A-Za-z\\:\\.\\-_\\@\\/\\\\\\?=&\\+\\#]+)|qq`<a href="http$1://`.escape($2).qq`" target=_blank>[ссылка]</a>|egi;
  $message =~ s|ft p://([0-9A-Za-z\\:\\.\\-_\\@\\/\\\\\\?=&\\+\\#]+)|\'<a href="ft p://\'.escape($1).\'" target=_blank>[ссылка]</a>\'|egi;
  $message =~ s|mailto: ([0-9A-Za-z\\:\\.\\-_\\@\\/\\\\\\?=&\\+\\#]+)|\'<a href="mailto:\'.escape($1).\'">[email]</a>\'|egi;
  $message
}

sub escape
{
  my $str = shift;
  $str =~ s/([^0-9A-Za-z:\\.\\-_\\@\\/\\\\\\?=&\\+\\#])/sprintf("%%%x", ord($1))/eg;
  $str
}

9
Perl / Что это за ошибка?
« : 02 Февраля 2003, 21:06:54 »
Что это за ошибка (?):

Software error:
BEGIN not safe after errors--compilation aborted at LibCommon.pm line 16.
BEGIN failed--compilation aborted at calc.pl line 6.


Содержание файла LibCommon.pm:

package LibCommon;

##### last updated 29 Jan 2003 12:17 GMT #####

use strict "vars";
#use warnings;

BEGIN
{
   use Exporter ();
   our ($VERSION, @ISA, @EXPORT, @EXPORT_OK);     
   $VERSION     = 1.00;
   @ISA         = qw(Exporter);
   @EXPORT      = qw(func1);
   @EXPORT_OK   = qw(func1);
}

...

10
Perl / <чтение файла>
« : 29 Января 2003, 13:39:20 »
Смысле по одному байту? Ты не мог бы показать хотя бы схематический алгоритм, как это сделать?

11
Perl / <чтение файла>
« : 28 Января 2003, 21:24:15 »
Чтение в массив - это как раз то, чего я хотел бы избежать, т.к. длина файла ничем не ограничена. Thank you anyway.

12
Perl / <чтение файла>
« : 28 Января 2003, 18:47:14 »
Подскажите, пожалуйста, как читать файл построчно начиная с конца, т.е. чтобы сначала читалась последняя строчка, потом предпоследня...?

13
Perl / file upload
« : 24 Января 2003, 22:05:43 »
Цитировать
Чудак-человек, чем на форуме спрашивать, взял да и попробовал

А чё пробовать-то, у меня и так всё работает; но это не вселяет в меня слепую веру в то, что такая же работоспособность будет обеспечиваться и на других ОС.

Цитировать
http://www.w3.org/TR/html4/interact/forms.html#h-17.3

OK, thanks

Цитировать
дМС ОБЮБМБ ОХЦОП HTML ЧЩХЮЙФШ!

ЧЕУШ ЮФПМЙ?

14
Perl / file upload
« : 24 Января 2003, 19:21:11 »
Цитировать
Так почему ты там не нашел ответ?


Я же раньше не знал, что у них неплохой ФАК.

Цитировать
В какой ты предложил отправить.


А как предложить отправить русский текст в определённой кодировке? Можно ли сделать что-нибудь вроде этого:

http://site.h1.ru/cgi-bin/upload.pl" method="post" enctype="multipart/form-data">


...

15
Perl / file upload
« : 24 Января 2003, 17:54:06 »
А при таких жестких правилах, как на hut.ru к ним вообще соваться не стоит: если в течении одной недели не загрузить обновления на сайт, то его удаляют :( А ФАК у них не плохой. Спасибо ;) Теперь картинки отображаются.

Но и русский текст тоже отображается правильно. Почему? :) Вообще, в какой кодировке он посылается от клиента?

Страницы: [1] 2