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

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


Сообщения - NeoNox

Страницы: [1] 2 3 ... 227
2
Очень интересно, такое впечатление, что yes-subpattern пробуется на соответствие, хотя условие (?=b) должно возвращать false.
Не совсем понятно что вы такой регуляркой собираетесь проверить но
use re debug поможет в понимании:
perl -e 'use re debug; 'a' =~ /^(?=\b)a$/'

3
Perl / Re: Вызов подпрограммы
« : 05 Марта 2013, 17:01:15 »
Очевидно, это список возвращаемых функцией mane_func(param) значений, рассматриваемый как хэш.
Точнее, ссылкой на хэш.
perl -e 'sub mane_func{ $h = { a=>b, b=>c, c=>d } } %hash = %{mane_func()}; print %hash'
такая конструкция часто используется если тебе нужно провести манипуляции с param, валидацию, сортировку и т.п.

4
теперь понятно.

perldoc -f eval
...
Note that as a very special case, an eval \'\'  executed within the DB package doesn\'t see the usual surrounding lexical scope, but rather the scope of the first non-DB piece of code that called it. You don\'t normally need to worry about this unless you are writing a Perl debugger

5
давайте конструкцию, дабы не гадать.

6
use Date::Format qw/time2str/;

sub debug
{
                
my $data join(\'\', @_);

                my $fmt = \'\';
                my $ra = $ENV{"REMOTE_ADDR"};

                my $stack = tracestack();

                my $date = time2str("%m/%d %H:%M", time());
                $fmt = sprintf( "[%s PID%s] %s [@%s]\\n", $date, $$, $data, $stack );
               print $fmt;
}


sub tracestack
{
        # code and idea borrowed from CGI::Log 1.00
        # by Jason Moore, 1998 <jmoore@sober.com>
        my @call = caller(1);

        my $line = $call[2];
        my $fname = $call[1];
        my $cnt = 2;

        my @stack;

        while( defined($call[0]) )
        {
                my $oldcaller = $call[0];
                @call = caller($cnt);
                $call[3] = $oldcaller unless defined( $call[3] );
                $fname = $call[1] if defined $call[1];
                my $newcaller = $call[3];
                unless( $newcaller =~ s/^main/$fname($line)/ )
                {
                        $newcaller .= "($line)";
                }

                unshift(@stack, $newcaller);
                $line = $call[2]; $cnt++;
        }

        return (wantarray) ? @stack : $stack[-1];
}


Надеюсь, понятно будет.

7
Perl / Голосование на Perl
« : 26 Ноября 2007, 12:23:16 »
Тю, а ты проверяй куку.
На страницу голосования зашел - получи куку, после отправки формы, спроси куку, если нет куки - в сад.

8
Perl / Голосование на Perl
« : 22 Ноября 2007, 20:12:55 »
куки+капча

9
Perl / Apache-Mysql
« : 23 Октября 2007, 23:41:58 »
Novak скажите, а документацию к модулю 1998 года выпуска вы удосужились прочитать?

10
Perl / Запаковка
« : 18 Октября 2007, 13:06:10 »
perldoc -f pack
perldoc -f unpack

11
Perl / аунтефикация через куки
« : 11 Октября 2007, 19:53:05 »
Цитировать
html_coder:
а md5(\'password\')?

А это дыра такая же. Потому как в куках хранится идентификатор СЕССИИ который ИЗМЕНЯЕТСЯ а не постояння информация. Что мне мешает зная имя и в мд5 сделать куку и зайти под этим человеком, ведь они ПОСТОЯННЫ?

Елки, ребята, ну столько уже обжовано про механизм сессий, дальше некуда. Зачем избыточные данные в куках гонять, если можно красиво написать? Посмотрите реализацию CGI::Session, Apache::Session, стандартная и красивая реализация механизма сессий.

Harvester :beer: но истина дороже ;)
Просто кодить мало, нужно стараться кодить правильно, иначе One mistake and you have to support it for the rest of your life (c)

12
Perl / аунтефикация через куки
« : 11 Октября 2007, 17:19:03 »
Harvester  Правильно, пусть вся сеть знает пароли и логины. Не стоит медвежью услугу оказывать.

13
Perl / аунтефикация через куки
« : 28 Сентября 2007, 18:58:10 »
http://forums.webscript.ru/showthread.php?s=&threadid=2625&msgnum=65
Цитировать
Paul56:
Народ подскажите как записать пароль с логином в куки на определённое время?

Пароль в куках это плохая идея.

14
Perl / Рекурсивное копирование ftp perl
« : 22 Сентября 2007, 23:17:21 »
А что, папки не рекурсивно копируются?
Права на файлы проверь, кроме того  
опцию Debug в единицу переведи, увидишь ошибку
$ftp = Net::FTP->new("some.host.name", Debug => 1)

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