VPF::Повторное использование кода - Форум программистов

BISON*

Дата 6.8.2004, 14:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

У меня в двух CGI-скриптах(написанных на Perl) используются одинаковые функции.
Можно ли их вынести в один файл, а затем использовать в скриптах? (Что-нибудь типа "include") Как это сделать?

Заранее благодарен Всем!

korob2001

Дата 6.8.2004, 16:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

Создай класс или модуль.
Вот пример класса:

Код


package MyClass;

use strict; # Не обязательно, но желательно

# конструктор
sub new {
    my $check = shift;
    my $class = ref( $check ) || $check;
    my $self  = {};
    bless( $self, $class );
    return $self;
}

# Далее идут твои методы
# Следующий метод только для примера, его можно удалить.
sub HelloCheck {
       shift;
       my $name = shift || "Anonim";
       return("Hello, $name" . "!");
}

1; # В самом конце класса - обязательно нужно вернуть истинное значение.

Имя файла класса, должно совпадать с именем пакета с точностью до регистра. В нашем случае имя файла будет выглядеть так: MyClass.pm
Следует обратить внимание на расширение .pm, а не.pl - это для того что-бы нам при подключении класса не нужно было использовать никаких расширений.

А теперь давай попробуем обратиться к методу HelloCheck класса MyClass.

Код


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

# Указываем путь к каталогу в котором Perl будет искать наш класс.
# По умолчанию класс и вызывающая программа находятся в одном каталоге.
use lib qw( . ); 

# Подключаем класс.
use MyClass;

#Создаём объект
my $class = new MyClass;

# Обращаемся к методу HelloCheck
# Слово World можно заменить на любое другое или вообще
# не передавать никаких параметров, тогда будет использовано
# значение по уполчанию Anonim
my $string = $class->HelloCheck('World');

# Выводим на терминал полученную из класса строку
print $string, "\n";

Удачи.

Это сообщение отредактировал(а) korob2001 - 6.8.2004, 16:07

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

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

BISON*

Дата 15.8.2004, 14:33 (ссылка)

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

Загрузка ...

Шустрый

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

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

korob2001 Спасибо, я понял теперь в каком русле надо копать!!

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