Повторное использование юга от скрипта perl в другом скрипте

Question

У меня есть два сценария perl. У обоих нет ключевого слова «пакет» или чего-то еще. У одного есть суб (и плюс некоторый свободный плавающий код), который я хочу использовать в другом скрипте, без запуска свободного плавающего кода в этом процессе.

A.pl 
sub my_sub { 
    # do something 
} 

# do something else 
my_sub(); 
# do something else 

---

B.pl 
require A.pl; # but load only the subs, don't run anything 
my_sub(); 

Возможно ли это без того, чтобы выделить подлодку в отдельном файле .pm, а затем загрузить его?

Answer 1

require будет запускать код. Поэтому вам нужно A.pl распознать разницу между загрузкой и вызовом в командной строке. Я думаю, что это можно сделать, но вы как бы не поняли смысла.

Вместо этого я настоятельно рекомендую обратить вспять все. Вместо того, чтобы иметь скрипты mammoth pl и модули pm, отмените его и получите крошечные файлы pl, единственной функцией которых является загрузка модулей (модулей) и вызов функции, которая инкапсулирует туда функциональность. И тогда тривиально добавлять новые модули для хранения общей формы или функциональности.