程嶏清单13-3.txt

< linux网络编程工具>>配套源码

程序清单13-3：mymodult.pl
 1 : #!/usr/bin/perl
2 :
3 : package Mymodule;
4 : require Exporter;
5 : @ISA = qw(Exporter);
6 : @EXPORT = qw(myfunc1 myfunc2);
7 : @EXPORT_OK = qw($myvar1 $myvar2);
8 :
9 : sub myfunc1 {
10:   $myvar1 += 1;
11: }
12:
13: sub myfunc2 {ss
14:   $myvar2 += 2; 
15: }