Ещё раз всем доброго времени суток!

Пожалуйста помогите понять, что есть обьект в Perl?
Учу Perl самостоятельно, до этого учил JavaScript. В JavaScript в ООП всё было понятно - обьектом могло быть изображение, форма и т.д.
А вот в Perl я не пойму к чему я обращаюсь.

Если вас не затруднит, поясните пожалуйста.
Заранее благодарен,
Денис

Странный вопрос... Что конкретно надо?

Да, вопрос наверное действительно странный. В книге написано:
=============================================

Объект - это структура данных с некоторым набором режимов поведения. Обычно мы говорим о поведении объекта, как если бы оно осуществлялось им непосредственно, иногда доходя при этом до антропоморфизма. Например, можно услышать, что прямоугольник "умеет" выводить себя на экран, или что он "знает", как рассчитать свою площадь.

=============================================
Дело в том, что я не пойму к чему конкретно я могу обратиться. Пожалуйста если вас не затруднит приведите самый постой пример с коментариями.
Я не могу сдвинуться с места.

Господа, всем большое спасибо. Вопрос снимается.

Полистал ещё пару книг по Perl и понял всё про объекты из обьяснения Стивена Холзнера в "Perl специальный справочник" - действительно мудрая книга. Просто человек объясняет без лишних наворотов и мудрых слов, всё ясно как божий день.

To acp
Теперь я прекрасно понимаю, что мой вопрос был действительно непонятным.

Ещё раз всем спасибо.

Цитата

Объект - это структура данных с некоторым набором...

Что-то знакомое. Вроде, перевод "Perl programming" на русский

Так вот, с тем же прямоугольником.

Сам класс

Код

package TRectangle; #Конструктор # #Вход: #Координаты прямоугольника #1 - X1 #2 - Y1 #3 - X2 #4 - Y2 sub New {  #Нулевым параметром передаётся имя класса, извлекаем его  my $Class = shift;    #Создаём объект  my $Obj =  {    'X1' => $-[0],    'Y1' => $_[1],    'X2' => $_[2],    'Y2' => $_[3]  };    #Связываем объект с именем класса  bless($Obj, $Class);    #Возвращаем созданный объект  return($Obj); } #Подсчёт площади sub GetSquare {  #Получаем объект  my $Obj = $_[0];    #Вычисляем, возвращаем...  return(($Obj->{'X2'} - $Obj->{'X1'}) *    ($Obj->{'Y2'} - $Obj->{'Y1'})); } return(1);

А вот программа, использующая класс

Код

#Подключаем модуль с описанием объектного типа require 'TRectangle.pl'; #Вызываем конструктор, передаём в него параметры, тем самым #создавая объект my $Rect = TRectangle->New(1, 1, 3, 3); #Вызываем метод объекта, получаем площадь my $Sq = $Rect->GetSquare(); print($Sq);

Это сообщение отредактировал(а) acp - 5.5.2003, 14:52

Пока я писал, ты сам себе ответил...

To acp
Всё равно большое спасибо.