Perl 教程 之 Perl 正则表达式 7

Perl 正则表达式

正则表达式(regular expression)描述了一种字符串匹配的模式，可以用来检查一个串是否含有某种子串、将匹配的子串做替换或者从某个串中取出符合某个条件的子串等。

Perl语言的正则表达式功能非常强大，基本上是常用语言中最强大的，很多语言设计正则式支持的时候都参考Perl的正则表达式。

以下实例使用 /s 将变量 $string 重复的字符删除：

实例

!/usr/bin/perl

$string = 'baidu';
$string =~ tr/a-z/a-z/s;

print "$string\n";

执行以上程序输出结果为：

baidu

更多实例：

$string =~ tr/\d/ /c; # 把所有非数字字符替换为空格
$string =~ tr/\t //d; # 删除tab和空格
$string =~ tr/0-9/ /cs # 把数字间的其它字符替换为一个空格。