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

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


Сообщения - APL

Страницы: 1 [2] 3 4 ... 24
16
Perl / Как использовать SSL-соединение на своем сайте?
« : 13 Января 2010, 22:04:53 »
Хммм... не подскажите пример в исходнике?

17
Perl / Как использовать SSL-соединение на своем сайте?
« : 13 Января 2010, 01:18:50 »
Хочу организовать безопасную авторизацию и шифрованное соединение

18
Perl / Как использовать SSL-соединение на своем сайте?
« : 12 Января 2010, 15:54:26 »
Подскажите плиз...

19
Perl / Права на запись...
« : 10 Декабря 2009, 10:31:00 »
Насколько я знаю, либо запуск скриптов из директории, либо выдача документов как есть. Настройки лучше не менять, иначе у вас скрипты перестанут работать.

P.S. Действительно,.. смысла хранить документы в /cgi-bin не вижу

20
Базы данных / MySQL - сложный запрос
« : 17 Октября 2009, 16:47:29 »
where cats like \'$id|\' or cats like \'|$id\' or cats = \'$id\'

либо я не понял задачу...

21
Perl / Проблема с переходом на UTF8
« : 02 Июля 2009, 18:40:33 »
Начал переделывать сайты на utf8, но столкнулся с проблемой,..

Вот простой пример

Код: [Выделить]
#!/usr/bin/perl

use utf8;
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, \'ru_RU.utf8\');
setlocale(LC_ALL, \'ru_RU.utf8\');

use strict;
use CGI qw/:standart/;
use CGI::Carp qw(fatalsToBrowser);

$object::cgi = new CGI;

print "\\n\\n";
$a = \'Тест\';
print lc ($a); print " (".(length $a).") ";
print "\\n\\n";

$a = $object::cgi->param(\'k\');
print uc($a); print " (".(length $a).") ";

1;

просто в качестве проверки преобразования регистров... в первом случае выдает длину 4, а во втором 8, если значение параметра тоже k=Тест, причем сам скрипт записан в юникоде... ну и во втором случае регистр менять не хочет... видимо CGI как-то преобразовывает...

подскажите плиз, где протупил

22
Perl / Вопрос по перекодировнию unix-даты
« : 11 Апреля 2009, 11:50:02 »
Задача разбирать и преобразовывать из одного формата в другой. Например в моем примере она переводит дату на локальный язык и убирает лишнее, т.е. Предлагать разбирать самому не надо, я могу, но неохота, слишком много вариантов перебирать, дата может быть по-разному отформатирована и мне могут понадобиться разные форматы

Fri, 10 Apr 2009 13:03:59 +0400

будет

Пятница 10 Апрель 13:03:59 2009

Но это только пример, можно разбирать по всякому, если с использованием date, то все очень просто, но date у меня не везде сработал у внешних провайдеров. Хочется узнать нет ли модуля работающего аналогично команде date

23
Perl / Вопрос по перекодировнию unix-даты
« : 10 Апреля 2009, 14:28:56 »
Вот столкнулся с проблемой... есть дата типа
Fri, 10 Apr 2009 13:03:59 +0400

ну или другого немного формата, но соответствующая date

Я перекодировал на домашней машине так:
open (A, "date -d \'$message{\'date\'}\' +\'%A %d %B %H:%M:%S %Y\'|"); $message{\'date\'} = ; close(A);

но у прова одного не сработало... нет прав кажется на такое...

как мне еще можно использовать date? ну например может модуль есть какой?

24
Perl / Содержимое директории WEB-сервера
« : 08 Апреля 2009, 18:19:46 »
hanslinger:

Я понимаю

Задачу понял так - вывести файлы (с рекурсией) относительно пути, переданного через параметр url

25
Perl / Содержимое директории WEB-сервера
« : 08 Апреля 2009, 16:30:22 »
Можно укзать путь относительно document_root

26
Perl / Содержимое директории WEB-сервера
« : 08 Апреля 2009, 13:18:16 »
Вопрос звучал так:

Может кто-нибудь знает, возможно ли с помощью Perl провести поиск и вывод списка всех файлов, которые содержатся на Web-сервере по введённому URL?

===============================

А что такое по-вашему на веб-сервере? Что такое по введенному url? Что в урле должно быть и как интерпретировать параметр? Трудно начать с директории $ENV{\'DOCUMENT_ROOT\'} или с любой другой????

В чем вопрос?

27
Perl / Идентификация ОС
« : 06 Апреля 2009, 15:53:21 »
Версия ОС: $^O;

Сервер: $ENV{\'SERVER_SIGNATURE\'};

28
Perl / Идентификация ОС
« : 06 Апреля 2009, 15:46:25 »
Анализируй $ENV{HTTP_USER_AGENT}

29
Perl / Содержимое директории WEB-сервера
« : 06 Апреля 2009, 15:45:02 »
можно анализировать
ls -R

можно
sub   get_files_tree {
   my ( $base_dir, $mask, @result) = @_;

   my $full_mask = \'\';
   my $full_dir = \'\';

   $full_dir = \'\'.($base_dir);
   $full_mask = "$full_dir/$mask";


   $full_dir =~ s/\\/{2,}/\\//g;
   $full_mask =~ s/\\/{2,}/\\//g;

   push @result, $full_dir;

   my @files = get_file_list($object, $full_mask);
   @result = (@result, @files);

   my @dirs = get_dir_list($object, $full_mask);
   foreach ( @dirs ) {
      my @d = split /\\//, $_;
      my $dir = pop @d;
      if ( length $dir ) {
         my $rd = "$base_dir".\'/\'."$dir";
         @result = get_files_tree("$rd", "$mask", @result );
      }
   }
   return @result;
}

sub   get_file_list {
   my ($full_mask) = @_;
   my @result = ();
   my @list = glob ( $full_mask );
   foreach (@list) {
      if (-f $_) {
         push @result, $_;
      }
   }
   return @result;
}

sub   get_dir_list {
   my ($full_mask) = @_;
   my @result = ();
   my @list = glob ( $full_mask );
   foreach (@list) {
      if (-d $_) {
         push @result, $_;
      }
   }
   return @result;
}

Можно еще по всякому получай список файлов, текущую директорию, анализируй директория или файл, проверяй права и вперед рекурсию, какая проблема

30
Perl / Загрузка файла
« : 14 Января 2009, 15:07:01 »
1. Что за функция param()???

2. $file1 должен содержать  ДЕСКРИПТОР ФАЙЛА

например так
Код: [Выделить]
open (IN,"in") || die \'bad\';
$in = IN;
open (OUT,">out") || die \'bad\';
binmode(OUT);  
while(<$in> ) {  print OUT $_; };  
close(OUT);

Страницы: 1 [2] 3 4 ... 24