第一章　概述

@reqlist = ("file1.pl", "file2.pl", "file3.pl");
require ($reqlist[$0]);
require ($reqlist[$1]);
require ($reqlist[$2]);

a、確定存貯子程序庫的目錄
b、將子程序抽取放到單獨的文件中，將文件放到子程序庫目錄
c、每個文件末尾加一句非零值的語句，最簡單的辦法是語句 1;
d、在主程序中用require包含一個或多個所需的文件。
e、運行主程序時，用 -I 選項指定子程序庫目錄，或者在調用require前將該目錄添加到@INC數組中。

1、應該使用unshift來向@INC中添加目錄，而不是push。因為push增加到@INC的末尾，則該目錄將被最後搜尋。
2、如果你的庫文件名與/usr/local/lib/perl中的某文件同名，則不會被包含進來，因為require只包含同名文件中的第一個。

$var = 14;
package mypack;
$var = 6;

1: #!/usr/local/bin/perl
2:
3: package pack1;
4: $var = 26;
5: package pack2;
6: $var = 34;
7: package pack1;
8: print ("$var\n");

$ program
26
$

package mypack;
$var = 26;
package main;
print ("$mypack'var\n");

package mypack;
subroutine mysub {
  local ($myvar);
  # stuff goes here
}

package pack1;
subroutine mysub {
  $var1 = 1;
  package pack2;
  $var1 = 2;
}

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

• 文件變量STDIN, STDOUT, STDERR 和 ARGV
• 變量%ENV, %INC, @INC, $ARGV 和 @ARGV
• 其它含有特殊字符的系統變量

1 : #!/usr/local/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 {
14:   $myvar2 += 2;
15: }

1: #!/usr/local/bin/perl
2:
3: use integer;
4: $result = 2.4 + 2.4;
5: print ("$result\n");
6:
7: no integer;
8: $result = 2.4 + 2.4;
9: print ("$result\n");

$ program
4
4.8
$

use integer;
$result1 = 2.4 + 2.4;
if ($result1 == 4) {
no integer;
$result2 = 3.4 + 3.4;
}
$result3 = 4.4 + 4.4;

4
6.8
8