19、Perl入门：网站链接检查脚本详解

Perl入门：网站链接检查脚本详解

1. Perl简介

Perl是由Larry Wall在20世纪80年代末发明的。当时，他需要一种比shell脚本功能更强大，但又比C等结构化语言更灵活的编程语言，于是Perl应运而生。Perl是一种让人又爱又恨的语言，很少有人对它持中立态度。不过，它作为一种胶水语言，在全球系统管理员中得到了广泛应用。

在Mac OS X系统中，通常会预装最新版本的Perl。你可以通过以下命令来验证：

perl –v

如果没有得到预期的响应，或者你使用的是非常旧的Perl版本（如Perl 4），可以使用Fink来更新。

Perl的一个特点是“惯用弹性”，即可以使用不同的语法结构和命令来完成相同的任务。就像在餐厅结账，有多种表达方式可以达到相同的结果。这使得不同的Perl程序员在解决同一个问题时，可能会给出不同的解决方案。

2. 网站链接检查问题

大约六七年前，有人询问是否有工具可以快速检查网页上的链接。当时虽然有很多链接检查器，但我们可以编写一个简单的20行Perl脚本来完成这个任务。

我们需要一个小型的、可移植的脚本，它可以接受一个URL作为命令行参数，访问该URL，检查其中所有的链接，并跟踪站内链接以确定它们是否可达，最后生成一份报告。

为了完成这个任务，我们可以借助Perl的一些实用库。例如，使用LWP::Simple包来访问URL，使用HTML::LinkExtor包来提取HTML文档中的链