Perl正則表達式是一種非常強大的文本處理工具，可以用來匹配復雜的模式
基本語法：在Perl中，正則表達式使用m//或//操作符進行匹配。m表示多行匹配模式，而//表示單行匹配模式。在正則表達式中，^表示行首，$表示行尾，.表示任意字符，*表示前面的字符可以出現零次或多次，+表示前面的字符必須出現一次或多次，?表示前面的字符可以出現零次或一次，|表示或的關系，()用于分組。
常用元字符：
.：匹配任意單個字符*：匹配前面的字符零次或多次+：匹配前面的字符一次或多次?：匹配前面的字符零次或一次^：匹配行的開頭$：匹配行的結尾|：表示或的關系，用于匹配多個選擇()：用于分組，改變運算符的優先級\：用于轉義特殊字符常用預定義字符類：
\d：匹配數字字符（等價于[0-9]）\D：匹配非數字字符（等價于[^0-9]）\w：匹配單詞字符（等價于[a-zA-Z0-9_]）\W：匹配非單詞字符（等價于[^a-zA-Z0-9_]）\s：匹配空白字符（空格、制表符、換行符等）\S：匹配非空白字符常用正則表達式修飾符：
i：忽略大小寫m：多行模式，^和$可以匹配每一行的開頭和結尾s：讓.匹配包括換行符在內的任意字符x：忽略空白和注釋常用正則表達式函數：
=~：將正則表達式與字符串進行匹配，返回一個匹配結果數組!~：將正則表達式與字符串進行不匹配，返回一個匹配結果數組pos()：返回當前匹配的位置span()：返回匹配的起始和結束位置replace()：使用指定的字符串替換匹配到的內容下面是一些使用Perl正則表達式匹配復雜模式的例子：
# 匹配郵箱地址
my $email = "example@example.com";
if ($email =~ /^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$/) {
print "Email is valid\n";
} else {
print "Email is invalid\n";
}
# 匹配電話號碼
my $phone = "123-456-7890";
if ($phone =~ /^\d{3}-\d{3}-\d{4}$/) {
print "Phone number is valid\n";
} else {
print "Phone number is invalid\n";
}
# 匹配URL
my $url = "https://www.example.com";
if ($url =~ /^https?:\/\/[^\s]+/) {
print "URL is valid\n";
} else {
print "URL is invalid\n";
}
這些例子展示了如何使用Perl正則表達式匹配不同類型的復雜模式。你可以根據需要組合使用這些元字符、預定義字符類和修飾符來構建更復雜的正則表達式。
