45、Perl编程：面向对象模块、套接字和常用功能的使用

Perl编程：面向对象模块、套接字和常用功能的使用

1. 面向对象模块示例

1.1 面向对象编程在Perl中的灵活性

在Perl里，面向对象编程（OOP）并非强制要求。你可以选择少量使用，也能彻底采用面向对象的方式编写所有代码，这取决于哪种方式更简单，以及你对OOP的热衷程度。

1.2 使用CGI模块的两种方式

在脚本中运用Perl的OOP，常见的便捷方法是采用面向对象的方式使用各种CPAN模块，不一定非要把自己的脚本构建成一组对象。以之前使用CGI脚本和CGI模块的例子来说，CGI模块的子程序既可以当作普通子程序使用，也能作为面向对象的方法调用。

1.2.1 普通子程序方式

以下是原始脚本 pairs1.pl ：

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

my @keys = param();

print header;
print start_html('Hello!');
print "<H1>Key/Value Pairs</H1>\n";
print "<UL\n";

foreach my $name (@keys) {
    print "<LI>$name = ", param($name), "\n";
}
print "</UL>\n";

print end_html;

此脚本使用了CGI模块的四个子程序：
- pa