perl 中装载自己的模块。

把大象装入冰箱，需要三步。

在perl中装载自己的模块，也同样需要三步。
（MacOS下测试通过。）


1: 先创建一个自己的模块库：
/Users/mc/codes/perl/mylib

2:在这个模块库下，创建一个模块：average.pl：
cat average.pl

#!/usr/bin/perl

package average; # Declare a package

     # Average a list of grades

   sub ave {

       my(@grades)=@_;

        my($num_of_grades)=$#grades + 1;

        foreach $grade ( @grades ){

             $total += $grade;

        }

       $total/$num_of_grades;   # What gets returned

    }

1; # Make sure the file returns true or require will not succeed!

3:在你的工作目录下，在你的程序中将这个模块库倒入。
我的工作目录是：/Users/mc/codes/perl 

/Users/mc/codes/perl/12_modules.pl：

#!/usr/bin/perl

unshift(@INC, "/Users/mc/codes/perl/mylib");

require "average.pl";

print "Enter your midterm scores.\n";

@scores=split(' ', );

printf "The average is %.1f.\n", average::ave(@scores);

# The ave subroutine is found in a file called average.pl