Форум технической поддержки пользователей

**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
}

Форум технической поддержки пользователей

Perl CGI

Perl CGI

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