Ungkapan biasa Perl

Ungkapan biasa (ungkapan biasa) menerangkan corak padanan rentetan, yang boleh digunakan untuk menyemak sama ada rentetan mengandungi subrentetan tertentu, menggantikan subrentetan yang sepadan atau mengekstrak subrentetan yang sepadan daripada rentetan tertentu keadaan tertentu, dsb.

Fungsi ungkapan biasa bahasa Perl sangat berkuasa, pada asasnya yang paling berkuasa antara bahasa yang biasa digunakan Banyak bahasa merujuk kepada ungkapan biasa Perl semasa mereka bentuk sokongan ungkapan biasa.

Tiga bentuk ungkapan biasa Perl ialah padanan, penggantian dan transformasi:

Padanan: m/
Penggantian: s /
Penukaran: tr/

Ketiga-tiga bentuk ini secara amnya sama dengan =~ atau ! ~ digunakan bersama, =~ bermaksud sepadan, !~ bermaksud tidak sepadan.

Pengendali pemadanan

Pengendali pemadanan m// digunakan untuk memadankan pernyataan rentetan atau ungkapan biasa, contohnya, untuk memadankan "run" dalam skalar $bar, Kod adalah seperti berikut:

#!/usr/bin/perl

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

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

Laksanakan atur cara di atas, dan hasil keluarannya ialah:

第一次匹配
第二次匹配

Pengubah suai padanan corak

Padanan corak mempunyai beberapa pengubah yang biasa digunakan, seperti yang ditunjukkan dalam jadual di bawah :

修饰符	描述
i	忽略模式中的大小写
m	多行模式
o	仅赋值一次
s	单行模式，"."匹配"n"（默认不匹配）
x	忽略模式中的空白
g	全局匹配
cg	全局匹配失败后，允许再次查找匹配串

Pembolehubah ungkapan biasa

Selepas pemprosesan perl, akan terdapat tiga nama pembolehubah khas untuk nilai yang dipadankan:

$` : Bahagian sebelumnya rentetan yang sepadan
$&: Rentetan yang sepadan
$' : Baki rentetan yang belum dipadankan lagi

Jika anda menggabungkan ketiga-tiga pembolehubah ini, anda akan mendapat rentetan asal.

Contohnya adalah seperti berikut:

#!/usr/bin/perl

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

Hasil output melaksanakan program di atas ialah:

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

Operator penggantian

Pengendali penggantian s /// Ya Sambungan pengendali padanan yang menggantikan rentetan yang ditentukan dengan rentetan baharu. Format asas adalah seperti berikut:

s/PATTERN/REPLACEMENT/;

PATTERN ialah corak padanan, REPLACEMENT ialah rentetan gantian.

Sebagai contoh, kami menggantikan "google" dengan "php" dalam rentetan berikut:

#!/usr/bin/perl

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

print "$string\n";

Hasil keluaran untuk melaksanakan program di atas ialah:

welcome to php site.

Pengubah operasi penggantian

Pengubah suai operasi penggantian ditunjukkan dalam jadual berikut:

修饰符	描述
i	如果在修饰符中加上"i"，则正则将会取消大小写敏感性，即"a"和"A" 是一样的。
m	默认的正则开始"^"和结束"$"只是对于正则字符串如果在修饰符中加上"m"，那么开始和结束将会指字符串的每一行：每一行的开头就是"^"，结尾就是"$"。
o	表达式只执行一次。
s	如果在修饰符中加入"s"，那么默认的"."代表除了换行符以外的任何字符将会变成任意字符，也就是包括换行符！
x	如果加上该修饰符，表达式中的空白字符将会被忽略，除非它已经被转义。
g	替换所有匹配的字符串。
e	替换字符串作为表达式

Pengendali penukaran

Berikut ialah pengubah suai yang berkaitan dengan pengendali penukaran:

修饰符	描述
c	转化所有未指定字符
d	删除所有指定字符
s	把多个相同的输出字符缩成一个

Contoh berikut menukar semua huruf kecil dalam $string pembolehubah kepada huruf besar:

#!/usr/bin/perl 

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

print "$string\n";

Hasil keluaran untuk melaksanakan atur cara di atas ialah:

WELCOME TO php SITE.

Contoh berikut menggunakan /s untuk ulangi pembolehubah $string Pemadaman aksara:

#!/usr/bin/perl

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

print "$string\n";