VPF::GLOB ссылка на код - Форум программистов

gcc

Дата 10.2.2010, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

Код


$if = "if";

$t = 1;


$if ($t eq 1) {
   print '1';
}

подскажите, как заставить работать примерно такой код? есть ли аналоги готовые модули для такой реализации?

я хотел сделать триггеры на логике unless if else eslif для того чтобы в виде абстрации (в виде структуры) (в виде параллельного программирования) отправить данные в класс и чтобы там выполнились некоторые логический действия...

например это ($t eq 1) какой-то метод класса...

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

Код



            if (
                (
                     (  $c->user_exists()
                    && $_->{id_un} == $c->user->{user}->{id}
                    && $_->{created} > time - MyApp->config->{comment}->{edit_limit}

                            ||                            
                        
                        !$c->user_exists()
                        && $_->{id_un} == 0
                            && $_->{ip} && $c->request->address && $_->{ip} eq $c->request->address 
                    && $_->{created} > time - MyApp->config->{comment}->{edit_limit_guest} )                                                
                    
                    && $loop_data2->{close_co} != 1
                )
                || $c->check_user_roles('moder_co')
              )
            {

                #  print '1';
                $_->{edit_cm}   = 1;
            }

в этом же классе у меня есть

Код


 unless (
                (
                     (  $c->user_exists()
                    && $_->{id_un} == $c->user->{user}->{id}
                    && $_->{created} > time - MyApp->config->{comment}->{edit_limit}

                            ||                            
                        
                        !$c->user_exists()
                        && $_->{id_un} == 0
                            && $_->{ip} && $c->request->address && $_->{ip} eq $c->request->address 
                    && $_->{created} > time - MyApp->config->{comment}->{edit_limit_guest} )                                                
                    
                    && $loop_data2->{close_co} != 1
                )
                || $c->check_user_roles('moder_co')
              )
            {

                #  print '1';
                $_->{edit_cm}   = 1;
            }

видите что разница только в if unless

как сделать чтобы один и тот же код не выполнять?

Это сообщение отредактировал(а) gcc - 10.2.2010, 14:26

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

arto

Дата 10.2.2010, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

perldoc -f eval

gcc

Дата 10.2.2010, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

arto,

спасибо, не знал что именно это там есть, работает

Код


#!/usr/bin/perl
                            
$if = "if";

$t = 1;

$t1 = "{";
$t2 = "}";

sub hh {
$t eq 1;
}

eval " $if ( hh() ) $t1
   print '1sdf';
$t2

";

Код


$ ./perl34.pl
1sdf$

...я так понял в mod_perl (catalyst) оно должно быть нормально...

Это сообщение отредактировал(а) gcc - 10.2.2010, 15:05

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

sir_nuf_nuf

Дата 10.2.2010, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31

да, должно.

но то что вы хотите сделать - бооольшое зло.
А) eval "строка" - это все таки медленно
Б) это не безопасно. принципиально. Вам придется очень тщательно следить за тем что может оказаться на месте "if"

У вас же ООП - ну вот и следуйте ему: Создайте класс Condition, отнаследуйте от него IfCondition и вперед!

Код


$cond = "IfCondition"
$conf->check(...)

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »