Perl CGI

Библиотека технической документации.

Perl CGI

Сообщение 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
 
Основатель
Основатель
 
Сообщения: 259
Зарегистрирован: 10 октября 2011, 14:53
Откуда: Russia, Moscow
Возраст: 39
Пол: муж.
 
Контакты:

Вернуться в Документация

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron