ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Tzirulnicov                    2:5020/40.102  06 Dec 2003  21:43:26
 To : All
 Subject : Класс->Переменная
 -------------------------------------------------------------------------------- 
 

 Есть класс. Hужно определить в нём переменную. Как ?
 
 package myclass;
 #@ISA=qw(Exporter);
 #@EXPORT=qw(new $test print);
 #@EXPORT_OK=qw{$test};
 sub new{
 my $class=shift;
 my $self={};
 bless $self, $class;
 return $self;
 }
 $test="OK";
 sub print{
 my $self=shift;
 print "Класс $self";
 }
 1;
 
 -------------
 
 $cl=new myclass;
 print $cl->$test;
 
 -------------
 
 Hе фурычит... :(
 ... Windows - вирус с удобным интерфейсом.
 --- Team: [Ru.Znakomstva] [Mo.Apartments] [Mo.Apartments.Talk]
 
 

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

Тема:    Автор:    Дата:    Класс->Переменная   Vadim Tzirulnicov   06 Dec 2003 21:43:26   Класс->Переменная   Renat Araslanow   07 Dec 2003 00:23:21   Класс->Переменная   Serge Chervjakov   07 Dec 2003 01:01:46