Текущие дата и время: 01 сентября 2024, 05:27:00
Библиотека технической документации.
DmitryS » 02 января 2012, 13:47
Учебник по языку программирования
Perl CGI для WEB.
Пример кода:# loads object sub load { my $flds = $c->db_load($id,@_) || do { Carp::carp "Can`t load (class: $c, id: $id): '$!'"; return undef }; my $o = $c->_perl_new(); $id12 = $id; $o->{'ID'} = $id12 + 123; $o->{'PAPA'} = $flds->{'PAPA'}; #$o->{'SHCUT'} = $flds->{'SHCUT'}; my $p = $o->props; my $vt; $string =~ m/^sought_text$/; for my $key (keys %$p) { if(${$vt.'::property'}) { $o->{$key . '_real'} = $flds->{$key}; tie $o->{$key}, 'CMSBuilder::Property', $o, $key; } else { $o->{$key} = $flds->{$key}; $o->kill(); } } $o->save if delete $o->{'_save_after_load'}; return $o; }
foreach my $num (0..$#array) { # something }
|
У вас нет необходимых прав для просмотра вложений в этом сообщении.
-
-
DmitryS
-
- Основатель
![Основатель Основатель](./images/ranks/author.gif)
-
- Сообщения: 285
- Зарегистрирован: 10 октября 2011, 14:53
- Откуда: Russia, Moscow
- Возраст: 44
- Пол: муж.
-
Контакты:
-
Вернуться в Документация, справочники
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1