perl：如何跨各种perl文件共享变量和子例程

Question

我正在尝试这种方式：

main.pl

use YAML::XS
our $yaml_input = YAML::XS::LoadFile("$input_file");
parse_yaml($yaml_input); 
#this variable has to be passed to the function parse_yaml which is in other file.

parser.pl

sub parse_yaml($yaml_input)
{
#some processing
}

我已经阅读了关于使用软件包的一些答案，但在这种情况下我们如何使用它。

Answer 1

基本上你需要将<{1}}子程序导入到你当前的程序中，而不是试图导出参数的值，但我不确定为什么你自己写{当parse_yaml已经为您完成时，{1}}实用程序

Exporter模块的文档中非常清楚地描述了这一点

这是一个简短的例子

main.pl

parse_yaml

MyUtils.pm

YAML::XS::LoadFile