[问题求助] perl模块问题

Mekel

我在自己的模块aa.pm中引用了getopt：long，在别的脚本调用这个perl模块时该如何把所有参数传递过去？

523066680

回复 1# Mekel


    在 模块中要共享的变量使用 our 声明，例如官方Getopt::Long示例的三个变量

our $data   = "file.dat";
our $length = 24;
our $verbose;COPY

在脚本中使用 $模块名::变量名 访问
$aa::data
$aa::length

或者在 aa.pm 中建立一个函数，通过这个函数返回所有相关参数的{哈希表}。

Mekel

回复 2# 523066680


  多谢， 参数是能够完美传递的，即使不加our，因为我原函数里有$a=shift这样的语句，写pm里就要写成$a=shift @ARGV才行

523066680

回复 3# Mekel

初看描述以为是想要把自建模块里的变量往外传。