程嶏清单13-1.txt

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

程序清单13-1：private_data.pl
1 : package privpack;
2 : $valtoprint = 46;
3 : 
4 : package main;
5 : # This function is the link to the outside world.
6 : sub printval {
7 :   &privpack'printval();
8 : }
9 :
10: package privpack;
11: sub printval {
12:   print ("$valtoprint\n");
13: }
14:
15: package main;
16: 1; # return value for require