包package
package mypack; # 声明后,下一个package之前,所有内容都属于此package作用域
$var = 26;
package main;
print ("$mypack'var\n"); # 在main的package中使用其他package变量。package'var
require/use、export perl 模块使用
export
# export出默认的符号表,包括一个函数,一个标量,和一个数组;
# use时不需要指定,就可以直接引入
@EXPORT = qw(afunc $scalar @array); # afunc is a function
# 显式export出符号表,同样包括函数,hash和typeglob。
# use时必须指定,才能被引入使用
@EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
require/use
require 运行是引入
use 编译时引入
use Mymodule; import进该模块默认输出的符号;
use Mymodule (); 不import进任何来自该包的符号,与require Mymodule;一样;
use Mymodule qw(bfunc); import进该包显式export出的bfunc函数。