ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Belov                         2:5085/1.158   07 Jan 2002  19:36:07
 To : All
 Subject : objects
 -------------------------------------------------------------------------------- 
 

 
 Есть некий метод(конструктор) хочеться чтоб когда я его вызывал как метод класса
 он инициализировал данные создаваемого объекта значением undef,а когда я его
 вызывал как метод экземпляра объекта он инициализировал данные создаваемого
 объекта значениями которые уже имеет данный экземпляр объекта
 те если
    $me = Class->new()
    $me->data("123456")
    $him = $me->new()
    print $him->data();
 то
 должно вывестись 123456
 
 в perltoot нашел только некоторое упоминание про это,имхо решение должно быть
 около отмеченной строки.скажите как мне реализовать это?
 sub new{
  my $proto = shift;
  my $class = ref($proto) || $proto; (*)
  my $self = {};
  $self->{DATA} = undef;
  bless ($self,$class);
  return $self;
 }
 
                 C уважением, Sergey Belov.
 --- УТВЕРЖДАЮ. MSG-редактор капитан 2.5 ранга Голд Дедович
  * Origin: :) (2:5085/1.158)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор