การแสดงออกปกติ Perl

regex (regular expression) อธิบายชุดของสตริงที่สามารถใช้เพื่อตรวจสอบว่าสตริงย่อยมีบางอย่างที่ตรงกับ substring ไม่เปลี่ยนหรือลบเงื่อนไขตรงกับสตริงย่อยจากสตริง เป็นต้น

ฟังก์ชั่น regex Perl ของภาษาที่มีประสิทธิภาพมากพื้นภาษาทั่วไปมีประสิทธิภาพมากที่สุดในการออกแบบภาษาสนับสนุนการแสดงออกหลายปกติเมื่อมีการอ้างอิงนิพจน์ปกติ Perl

สามรูปแบบของการแสดงออกปกติ Perl จะถูกจับคู่, ทดแทนและการแปลง:

• การจับคู่: m / / (นอกจากนี้ยังเรียกโดยย่อว่า / / m ละเว้น)

• แทนที่: S / / /

• การแปลง: TR / / /

ทั้งสามรูปแบบและมัก= ~ หรือ ~กับการใช้งาน = ~ แสดงให้เห็นถึงการแข่งขัน! ~ กล่าวว่าพวกเขาไม่ตรงกับ

ผู้ประกอบการแข่งขัน

การแข่งขันประกอบเมตร // ใช้เพื่อให้ตรงกับสตริงหรือคำสั่งที่แสดงออกปกติตัวอย่างเช่นเพื่อให้ตรงกับบาร์เกลา $ ใน "Run" รหัสดังต่อไปนี้:

#!/usr/bin/perl

$bar = "I am w3big site. welcome to w3big site.";
if ($bar =~ /run/){
   print "第一次匹配\n";
}else{
   print "第一次不匹配\n";
}

$bar = "run";
if ($bar =~ /run/){
   print "第二次匹配\n";
}else{
   print "第二次不匹配\n";
}

โปรแกรมข้างต้นผลลัพธ์คือ:

第一次匹配
第二次匹配

การปรับเปลี่ยนรูปแบบการจับคู่

มีบางรูปแบบทั่วไปการปรับเปลี่ยนการจับคู่มีดังต่อไปนี้:

ตัวแปร regex

Perl จะมีอยู่หลังจากการประมวลผลเพื่อให้ตรงกับค่าของสามชื่อตัวแปรพิเศษ:

• ส่วนหน้าของส่วนการจับคู่สาย: $ `
• $ &: การจับคู่สาย
• $ ': ไม่ตรงกับสายที่เหลือ

หากทั้งสามตัวแปรร่วมกันคุณจะได้รับสายเดิม

ตัวอย่างมีดังนี้

#!/usr/bin/perl

$string = "welcome to w3big site.";
$string =~ m/run/;
print "匹配前的字符串: $`\n";
print "匹配的字符串: $&\n";
print "匹配后的字符串: $'\n";

เอาท์พุทโปรแกรมข้างต้นเป็น:

匹配前的字符串: welcome to 
匹配的字符串: run
匹配后的字符串: oob site.

ผู้ประกอบการชดเชย

ผู้ประกอบการ /// เปลี่ยนตัวผู้ประกอบการคือเพื่อให้ตรงกับการขยายตัวของการใช้งานของสตริงใหม่เพื่อแทนที่สตริงที่ระบุ รูปแบบพื้นฐานจะเป็นดังนี้:

s/PATTERN/REPLACEMENT/;

รูปแบบเพื่อให้ตรงกับรูปแบบการเปลี่ยนเพื่อแทนที่สตริง

ยกตัวอย่างเช่น "google" เราจะเข้ามาแทนที่สตริงต่อไปนี้คือ "w3big":

#!/usr/bin/perl

$string = "welcome to google site.";
$string =~ s/google/w3big/;

print "$string\n";

เอาท์พุทโปรแกรมข้างต้นเป็น:

welcome to w3big site.

ปรับปรุงการดำเนินการแทนที่

แทนที่ปรับปรุงการดำเนินการดังต่อไปนี้:

ผู้ประกอบการแปลง

ต่อไปนี้เป็นผู้ประกอบการปรับเปลี่ยนแปลงที่เกี่ยวข้อง:

ตัวอย่างต่อไปนี้ $ ตัวแปรสตริงในตัวอักษรพิมพ์เล็กทั้งหมดแปลงเป็นตัวพิมพ์ใหญ่:

#!/usr/bin/perl 

$string = 'welcome to w3big site.';
$string =~ tr/a-z/A-z/;

print "$string\n";

เอาท์พุทโปรแกรมข้างต้นเป็น:

WELCOME TO w3big SITE.

ตัวอย่างต่อไปนี้ใช้ตัวแปร $ สตริง / S ตัวอักษรลบซ้ำ:

#!/usr/bin/perl

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

print "$string\n";

เอาท์พุทโปรแกรมข้างต้นเป็น:

runob

ตัวอย่างเพิ่มเติมได้ที่:

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

กฎการแสดงออกมากกว่าปกติ