ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Poliakov                     2:5020/400     04 May 2001  13:22:54
 To : All
 Subject : Re: ООП
 -------------------------------------------------------------------------------- 
 

 On Fri, 4 May 2001 05:45:46 +0000 (UTC), "InSAn" <news@insan.al.ru> wrote:
 
 >Как реализовывается объектно-ориентированное программирование на Перле?
 
 # Как реализовывается объектно-ориентированное программирование на
 # Перле?
 # Где можно посмотреть простенькие примеры?
 # Hапример, как реализовать следующее:
 
 {
 package MyModule;
 
 sub new {
     my $class = shift;
     my $self = {};
     bless $self, $class;
     $self->{text} = shift;
     $self->{tag} = '';
     return $self;
 }
 
 sub tag {
     my $self = shift;
     $self->{tag} = shift;
     return $self;
 }
 
 sub result {
     my $self = shift;
     my $result = '<' . $self->{tag} . '>'
                     . $self->{text}
                     . '</' .  $self->{tag} . '>';
 
     return $result;
 }
 
 } # end of package MyModule
 
 $text = MyModule->new('Какой-то текст');
 $text -> tag('b');
 print $text -> result();
 # Результат - <b>Какой-то текст</b>
 
 $text -> tag('i');
 print $text -> result();
 # Результат - <i>Какой-то текст</i>
 
 Michael Poliakov
 --- ifmail v.2.15dev5
  * Origin: Nizhniny Novgorod Information Networks (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    ООП   InSAn   04 May 2001 09:45:46   Re: ООП   Vladimir Podgorny   04 May 2001 10:35:00   Re: ООП   Artur Penttinen   04 May 2001 11:19:43   Re: ООП   Artem Chuprina   04 May 2001 12:28:41   Re: ООП   Michael Poliakov   04 May 2001 13:49:21   Re: ООП   Ivan Frolcov   04 May 2001 11:59:11   Re: ООП   Michael Poliakov   04 May 2001 13:22:54   ООП   Dmitry Ochnev   05 May 2001 13:47:44   Re: ООП   Sergey V. Leschenko   11 May 2001 15:31:32