Страница 1 из 1

Perl CGI

СообщениеДобавлено: 02 января 2012, 13:47
DmitryS
Учебник по языку программирования 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
}