使用Perl常规表达式进行匹配

长期以来，Perl以其对常规表达式的固有支持，一直是非常流行的文本处理工具。在这篇入门性文章中，我们将带领你简单了解如何在你自己的程序中使用常规表达式，实现更加强大的文本搜索和替代功能。

我们首先了解最简单的常规表达式：匹配。假如在字符串中找到相匹配的模式，匹配操作就返回真值。因此下面的表达式：

$string =~ m/text/

只有在变量“$string”中的字符串包含子字符串“text”时才返回真值。这是最基本的常规表达式，它对每个字符进行逐字匹配。当然，这只是对常规表达式作用的一个尝试。以需要查找以“ext”结尾的四个字母的单词为例。为达到这个目的，我们使用一个非凡的字符“.”，常规表达式中的句号告诉Perl匹配其中的任何单独的字符。因此下面这个表达式：

$string =~ m/.ext/

将与单词“text”和“next”匹配。

不过，这个表达式并非完美，因为它与包含“ext”的更长单词的一部分相匹配，如“dextrous”和“flextime”。我们可以使用锚字符来限制匹配的位置。“^”字符匹配字符串的开头，因此：

$string =~ m/^.ext/

与“dextrous”匹配，但不与“context”匹配。

同样，“$”字符匹配字符串的结尾：

$string =~ m/.ext$/

与“context”匹配，但不与“dextrous”匹配。

假如你只希望匹配以“ext”结尾的四个字母的字符串，那么你可以组合使用上面的两个表达式，像这样：

$string =~ m/^.ext$/

现在，假如你需要匹配一组给定的字符，而不是句号位置的任何字符，那该怎么办呢？常规表达式通过使用方括号提供一个方法。以下面的表达式为例：

$string =~ m/^[tT]ext$/

这个表达式只与单词“text”和“Text”匹配。一对方括号将转换其中的任何单个字符。这个功能相当强大，例如：

$string =~ m/[aeiouAEIOU]/

假如$string变量中含有元音，则上面的例子返回真值。

假如括号中的第一个字符是“^”，这时它就不是一个锚字符，而是执行“非”操作，匹配不在括号内的任意字符，因此假如$string变量中只包含辅音或标点符号，可以对上面的例子进行调整，使它返回真值：

$string =~ m/[^aeiouAEIOU]/

方括号符号还可以指定字符的范围，让你不必列举一整串连续的数字或字母

最近，我的一个老朋友向我打电话求助。他从事记者的职业有多年了，最近获得了重新出版他的很多早期专栏的权利。他希望把他的作品贴在Web上;但是他的专栏都是以纯文本文件的形式保存的，而且他既没有时间也不想去为了把它们转换成为Web页面而学习HTML的知识。由于我是他电话本里唯一一个精通计算机的人，所以他打电话给我看我是否能够帮帮他。
　　“让我来处理吧，”我说：“一个小时以后再给我打电话。”当然了，当他几个小时以后打电话过来，我已经为他预备好了解决的方法。这需要用到一点点PHP，而我收获了他没完没了的感谢和一箱红酒。

　　那么我在这一个小时里做了些什么呢?这就是本篇文章的内容。我将告诉你如何使用PHP来快速将纯ASCII文本完美地转换成为可读的HTML标记。

　　首先让我们来看一个我朋友希望转换的纯文本文件的例子：

　　Green for Mars!

　　John R. Doe

　　The idea of little green men from Mars, long a staple of science fiction, may soon turn out to be less fantasy and more fact.

　　Recent samples sent by the latest Mars exploration team indicate a high presence of chlorophyll in the atmosphere. Chlorophyll, you will recall, is what makes plants green. It's quite likely, therefore, that organisms on Mars will have, through continued exposure to the green stuff, developed a greenish tinge on their outer exoskeleton.

　　An interview with Dr. Rushel Bunter, the head of ASDA's Mars Colonization Project blah blah...

　　What does this mean for you? Well, it means blah blahblah...

　　Track follow-ups to this story online at http://www.mars-connect.dom/. To see pictures of the latest samples, log on to http://www.asdamcp.dom/galleries/220/

　　相当标准的文本：它有一个标题、一个署名和很多段的文字。把这篇文档转换成为HTML真正需要做的是使用HTML的分行和分段标记把原文的布局保留在Web页面上。非凡的标点符号需要被转换成为对应的HTML符号，超链接需要变得可以点击。

　　下面的PHP代码(列表A)就会完成上面所有的任务：

　　列表A

　　让我们来看看它是如何工作的：

以下是引用片段：
<?php
// set source file name and path
$source = "toi200686.txt";

// read raw text as array
$raw = file($source) or die("Cannot read file");

// retrieve first and second lines (title and author)
$slug = array_shift($raw);
$byline = array_shift($raw);

// join remaining data into string
$data = join('', $raw);

// replace special characters with HTML entities
// replace line breaks with <br />
$html = nl2br(htmlspecialchars($data));

// replace multiple spaces with single spaces
$html = preg_replace('/ss /', ' ', $html);

// replace URLs with <a href...> elements

http://php-accelerator.co.uk/ 可以下载，是zend的强劲对手。是免费的。我已经在用啦。效果还不错。
修改 php.ini 加上：
zend_extension = /usr/local/lib/php_accelerator_1.3.3r2.so
phpa = on
phpa.tweaks = on
phpa.cache_dir = /tmp
phpa.file_perms = 400
phpa.cache_file_prune_period = 1h
phpa.cache_file_ttl = 1d
phpa.shm_size = 10
phpa.shm_key = 0xc0deb00
phpa.shm_perms = 666
phpa.shm_user = nobody
phpa.shm_group = nobody
phpa.shm_release_at_exit = on
phpa.shm_stats_check_period = 5m
phpa.shm_ttl = 12h
phpa.shm_max_processes = 512
phpa.shm_lock_threshold0 = 10

apachectl graceful 就能用啦。具体参数看它的文档。

重载(与覆盖不同)在PHP中不支持。在OOP中，你可以重载一个方法来实现两个或重多的方法具有相同的名字，但是有不同数量或类型的参数(这要看语言)。PHP 是一种松散类型的语言，所以通过类型重载不起作用，然而通过参数的个数不同来重载也不起作用。
有时在OOP中重载构造函数非常好，这样你可以通过不同的方法创建对象(传递不同数量的参数)。在PHP中实现它的技巧是：
class Myclass {
function Myclass() {
$name="Myclass".func_num_args();
$this->$name();
//注重$this->$name()一般是错误的，但是在这里$name是一个将被调用方法的名字
}
function Myclass1($x) {
code;
}
function Myclass2($x,$y) {
code;
}
}

通过在类中的额外的处理，使用这个类对用户是透明的：
$obj1=new Myclass('1'); //将调用Myclass1
$obj2=new Myclass('1','2'); //将调用Myclass2

有时这个非常好用。

function entities_rtrim($string,$length) {
if($length>=strlen($string))
{
return $string;
}
$s="";
for($i=0;$i<$length;$i )
{
if(ord($string{$i})>127)
{
$s.=$string{$i}.$string{ $i};
continue;
}else{
$s.=$string{$i};
continue;
}
}
return $s;
}