В Perl, зачем мне нужен экспортер?

Question

У меня есть модуль под названием hsfSubs.pm в моей папке perl\lib. У меня ничего нет в модуле, но подпрограммы и 1; в конце.

Одна подпрограмма, например, называется pause. Я не выполнял никаких процедур импорта или экспорта.

В моих основных программах я просто говорю use hsfSubs;, и в дальнейшем я могу позвонить pause без проблем. То же самое, если я скажу use hsfSubs qw(pause);.

Зачем использовать экспортер @EXPORT и @EXPORT_OK и т. Д. Или любые другие осложнения?

Несколько ответов на переполнение стека на вопросы об экспортере рассказывают, как его использовать, но я не понимаю, зачем его использовать.

Answer 1

Короткий вариант заключается в том, что вы хотели получить модуль, но в итоге вы получили то, что this вызывает библиотеку. Это не хорошо, потому что они загрязняют пространство имен вызывающего абонента (что может вызвать множество проблем). Но более важно здесь, загружая их, используя require или use (в качестве противопоставления do) является ошибкой.

Если бы это было правильно написано как модуль, ваш пример не сработает. Экспортер - это решение этой проблемы.

---

Давайте погрузиться в детали.

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

$ cat Buggy.pm 
sub test { "ok!" } 
1; 

$ perl -e'use Buggy; CORE::say(test());' 
ok! 

Но это только потому, что ваш пример слишком прост. Давайте добавим правильно правильно написанный модуль ^[1].

$ cat Buggy.pm 
sub test { "ok!" } 
1; 

$ cat Other.pm 
package Other; 
use Buggy; 
1; 

$ perl -e'use Other; use Buggy; CORE::say(test());' 
Undefined subroutine &main::test called at -e line 1. 

Исправлена ​​ошибка в модуле является то, что он не имеет package директиву. Модули, загруженные с использованием use и require, должны всегда использовать директиву package. Но как только вы это добавите, ваш модуль перестает работать.

$ cat NotBuggy.pm 
package NotBuggy; 
sub test { "ok!" } 
1; 

$ perl -e'use NotBuggy; CORE::say(test());' 
Undefined subroutine &main::test called at -e line 1. 

Экспортер используется для решения этой проблемы.

$ cat Final.pm 
package Final; 
use Exporter qw(import); 
our @EXPORT = qw(test); 
sub test { "ok!" } 
1; 

$ perl -e'use Final; CORE::say(test());' 
ok! 

---

1. Ну, не совсем. Если бы это было правильно написано, оно включало бы использование use strict; use warnings 'all';. Всегда включайте это! Здесь это было опущено, чтобы держать вещи визуально простыми.