15、Perl 中的面向对象编程与 Tk 模块应用

Perl 中的面向对象编程与 Tk 模块应用

1. 面向对象编程在 Perl 中的应用

在 Perl 里，我们可以使用对象来修改索引程序。基本思路是为文件创建一个简单的索引。具体步骤如下：
1. 创建一个 File 对象来存储要做索引的文件。
2. 用这个 File 对象初始化一个 Concordance 对象。
3. Concordance 对象打开文件，为每行创建 Line 对象。
4. 利用 Line 类和自身的方法构建索引并打印出来。

以下是具体代码示例：

concObj.pl
$file = File->new($ARGV[0]);
$myConc = Concordance->new($file);
$myConc->printIt();

这个程序首先创建一个新的 File 对象并赋值给 $file ，接着用 File 对象创建 Concordance 对象，最后使用 printIt() 方法打印索引。

下面是各个类的定义：
- File 类 ：

p