VPF::Как узнать реальное имя класса

Danissimo

Дата 12.12.2006, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 14.8.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 1

Предположим, я продавец цветов. Пусть объявлен класс Flower и два его потомка -- Orchid и Chamomile. Пусть в классе Flower объявлен метод smell():

Код


package Flower;
sub new {
    my $class = shift;
    return bless {}, $class;
}
sub smell {
    print "??? smells";
}

Как сделать так, чтобы выполняя

Код


my $flower = new Chamomile();
$flower->smell();

печаталось

Код


Chamomile smells

korob2001

Дата 12.12.2006, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Супер класс Flower.pm

Код


package Flower;
sub new {
    my $class = shift;
    return bless {}, $class;
}

sub smell {
    return ref(shift) . " smells"; # Вот то, о чём ты спрашивал
}

1;

Подкласс Orchi.pm

Код


package Orchid;

require Flower;
@ISA = ("Flower");

1;

Подкласс Chamomile.pm

Код


package Chamomile;

require Flower;
@ISA = ("Flower");

1;

Код который использует всю эту канитель test.pl

Код


#!/usr/bin/perl -w
use strict;
use Chamomile;
use Orchid;

my $o = new Orchid();
my $c = new Chamomile();

print $o->smell() . "\n";
print $c->smell() . "\n";

# Аналог instanceof из Java
if (ref($o) eq "Orchid") {
    print "\$o содержит ссылку на объект класса Orchid\n";
} else {
    print "\$o не содержит ссылку на объект класса Orchid\n";
}

if (ref($o) eq "Chamomile") {
    print "\$o содержит ссылку на объект класса Chamomile\n";
} else {
    print "\$o не содержит ссылку на объект класса Chamomile\n";
}

Но в Perl это используется довольно редко, так как нет нужды делать преобразование от одного типа к другому, как в Java.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Danissimo

Дата 13.12.2006, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 14.8.2006
Где: Санкт-Петербург

Репутация: 1
Всего: 1

Класс!!!

А знали ли вы то, что в одном файле можно объвить больше одного пакета? Я вот не знал. Тогда и клиент и три класса умежаются в один файл. Практичекая польза от этого -- вопрос другой.

И еще. Я использую конструкцию

Код


use base 'Flower';

чтобы показать, что родительский класс -- Flower. Чем такая конструкция отличается от

Код


require Flower;
@ISA = ('Flower');

И что делать, если перед @ISA сказано use strict;?

korob2001

Дата 13.12.2006, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Цитата(Danissimo @ 13.12.2006, 08:23

)

А знали ли вы то, что в одном файле можно объвить больше одного пакета?

Знали, только на мой взгляд всёже хранить классы более удобно в разных файлах. Один пакет - один файл.

Цитата(Danissimo @ 13.12.2006, 08:23

)

И еще. Я использую конструкцию

Такой вариант, выполняется на этапе компиляции, а не исполнения. Возможно это даже лучшее решение, чем работать напрямую с @ISA.

Цитата(Danissimo @ 13.12.2006, 08:23

)

И что делать, если перед @ISA сказано use strict;?

Код


use vars qw(@ISA);

или

Код


our @ISA;

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »