Perl 正则表达式

2024 年 8 月 29 日 | 阅读 3 分钟

正则表达式是由定义特定模式的字符串组成。perl 正则表达式的语法和 awk, grep 以及 sed 非常相似。

Perl 中有三个正则表达式运算符

匹配正则表达式运算符
替换正则表达式运算符
转换正则表达式运算符

Perl 匹配运算符

Perl 匹配运算符有多种修饰符。它主要用于将字符串或语句与正则表达式匹配。

匹配运算符修饰符

运算符	描述
cg	即使全局匹配失败，也继续搜索
g	全局搜索所有匹配项
i	搜索匹配项，忽略大小写
m	如果字符串具有换行符，则 $ 和 ^ 将针对换行符边界而不是字符串边界进行匹配
o	仅允许表达式评估一次
s	使用 . 匹配换行符
x	在表达式中使用空格

Perl 匹配运算符 =~

匹配运算符 =~ 用于匹配给定字符串中的单词。它区分大小写，这意味着如果字符串具有小写字母，而你要搜索大写字母，则它将不匹配。

$line = "This is javaTpoint.";
if ($line =~ /java/){
   print "Matching\n";
}else{
   print "Not Matching\n";
}
if ($line =~ /Java/){
   print "Matching\n";
}else{
   print "Not Matching\n";
}

输出

Matching
Not Matching

Perl 匹配运算符 !~

它与前一个运算符 (=~) 相反。如果字母匹配，则输出为不匹配，反之亦然。

$ line = "This is javaTpoint.";
if ($line!~ /java/){
   print "Matching\n";
}else{
   print "Not Matching\n";
}
if ($line!~ /Java/){
   print "Matching\n";
}else{
   print "Not Matching\n";
}

输出

Not Matching
Matching

Perl 匹配运算符与 $_

您也可以针对特殊的默认变量 $_ 进行匹配。

$_ = "This is javaTpoint.";
    if (/java/) {
        print "Matching\n";
    }
    else {
        print "Not Matching\n";
    }
if (/Java/) {
        print "Matching\n";
    }
    else {
        print "Not Matching\n";
    }

输出

Matching
Not Matching

Perl 匹配运算符与 m

匹配运算符 m 也用于匹配给定字符串中的单词。

$ line = "This is javaTpoint.";
if ($line=~ m[java]){
   print "Matching\n";
}else{
   print "Not Matching\n";
}
if ($line=~ m{Java}){
   print "Matching\n";
}else{
   print "Not Matching\n";
}

输出

Matching
Not Matching

Perl 匹配运算符与 $1, $2...

$1, $2 将根据指定的括号打印单词。

my $word = "CuNaHg";
    $word =~ /(((Cu)(Na))(Hg))/;
    print "1: $1 2: $2 3: $3 4: $4 5: $5 6: $6\n";

输出

1: CuNaHg 2: CuNa 3: Cu 4: Na 5: Hg 6:

Perl 匹配运算符与 ?

它打印给定字符串中括号内的匹配字符。

my $word = "CuNaHg";
    $word =~ /(?:(Cu)NaHg)/;
    print "$1\n"; # prints "Cu"
     $word =~ /(?:Cu(Na)Hg)/;
    print "$1\n"; # prints "Na"
     $word =~ /(?:CuNa(Hg))/;
    print "$1\n"; # prints "Hg?

输出

Cu
Na
Hg

Perl 替换运算符

替换运算符只是匹配运算符的扩展。它允许替换与某些新文本匹配的文本。

它的基本语法是

Perl 替换运算符与 s///

在这里，我们用 s/// 将第一部分的 liquid 替换为 solid。

在第二部分中，'liquid' 被 'solid' 全局替换，使用 s///g。

$line = "liquid will remain liquid until it is evaporated";
$line =~ s/liquid/solid/;
print "$line\n";
print"\n";
$line = "liquid will remain liquid until it is solidified";
$line =~ s/liquid/solid/g;
print "$line\n";

输出

solid will remain liquid until it is evaporated
solid will remain solid until it is evaporated

Perl 转换运算符

转换运算符类似于替换运算符。但是，转换不使用正则表达式搜索替换值。

它的基本语法是

Perl 转换运算符替换一个字母

在这里，所有 'l' 字母将通过转换运算符替换为 'z' 字母。

$line = "liquid will remain liquid until it is evaporated";
$line =~ tr/l/z/;
print "$line\n";

输出

ziquid wizz remain ziquid untiz it is evaporated

Perl 转换运算符替换多个字母

在这里，所有 'l' 和 'i' 字母将通过转换运算符替换为 'z' 和 'x' 字母。

$line = "liquid will remain liquid until it is evaporated";
$line =~ tr/li/zx/;
print "$line\n";

输出

zxquxd wxzz remaxn zxquxd untxz xt xs evaporated

下一个主题Perl split 函数

我们提供所有技术（如 Java 教程、Android、Java 框架）的教程和面试问题

联系信息

G-13, 2nd Floor, Sec-3, Noida, UP, 201301, India

hr@tpointtech.com

+91-9599086977

关注我们

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

Perl 教程

Perl 控制语句

Perl 数组

Perl 字符串

Perl 命名空间

Perl 哈希

Perl Regex

Perl 函数

Perl 文件处理

Perl 目录

Perl 错误处理

Perl 高级

Perl 面试