神奇的PERL-第六个任务(1)

阅读更多

2.1         第六个任务声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载 

BOSS交待一个任务，对某客户网站的访客进行网站流量分析，有以下要求：

1、按来源地区统计人数。

2、能在WINDOWS和LINUX下运行。

网站提供类似于以下格式的访问日志（iplog.txt），每项用TAB分隔：

日期     时间         IP来源

2010/8/3 9:42   159.226.117.45

2010/8/3 9:42   114.249.218.138

2010/8/3 9:41   58.211.230.30

我们计划首先使用正则表达式的正则变量捕捉时间、IP地址，接着根据IP地址查询地区，最后进行统计。

1 

2 

3 

4 

5 

5.1 

5.2 

5.3 

5.4 

5.5 

5.6 

5.7 

 

 

5.7.1 使用module

在 Perl 里，一个名字空间为一个包，包独立于文件，在一个文件里能有许多包，一个包也能跨越多个文件。

1、包的声明与符号表

package 用来声明包，声明的有效范围从声明本身开始直到遇到块结尾或文件结束或 eval或同层次的 package 声明。标识符可以是包中的标量变量，数组变量，子过程，文件或者目录句柄，它们将放到所属当前包的符号表中，可供其它包访问。

很显然，这些标识符不包括那些用 my 声明的变量，它的变量名和变量值的访问范围都被限定在包内，不能被外部访问，在本包使用的其它包的变量当然也不会放入本包的符号表。而our声明的变量可通过所谓的别名访问，因此能被放入符号表中。

1、 包标识符的访问

访问引用包中的标识符的方法是：$包名：符号名

没有my声明的变量声明缺省时属于 main 包，比如：

$x=1;

print  $main::x;

输出：1

3、使用模块

模块是 Perl 里重复使用的基本单元。它是定义在一个以.pm结尾的同名文件中的包，可以通过以下2种方式使用模块：

use MODULE LIST;

 use MODULE;

MODULE为模块名，LIST为符号列表。

1)     requie

require 语句在运行时从其它文件(包括模块)装载定义，比如：

perl4-14.pl代码如下：

#perl4-14.pl

require "mydy.pl";#引用mydy.pl中的定义

print $x;

mydy.pl代码如下：

#mydy.pl

$x=1;

运行perl4-14.pl后，成功输出了mydy.pl中定义的$x值：1

2)     use

use在编译时将把你需要的符号导进来，如果你不提供符号的LIST，将使用在模块的内部 @EXPORT 数组里命名的符号。