ค่าผกผันของตัวแก้ไข Perl regex X

โมดิฟายเออร์ #x ทำงานในทางกลับกัน อนุญาตให้ใช้ช่องว่างที่ไม่เกี่ยวข้องใน regex ซึ่งจะถูกละเว้นในการค้นหา:

preg_match('# s p a m #ix')

จะจับคู่เฉพาะ "สแปม" เท่านั้น

สิ่งที่คุณต้องทำเพื่อค้นหาช่องว่างตามอำเภอใจด้วย regex ของคุณคือการแทรก \s* ระหว่างตัวอักษรใดๆ:

preg_match('# S \s* P \s* A \s* M #ix', 's p a   m');

คุณสามารถทำให้เป็นอัตโนมัติ/ลดความซับซ้อนลงเล็กน้อยโดยการแปลงคำให้เป็น regex ที่เหมาะสมโดยผสม \s* โดยใช้:

$regex = join('\s*', str_split("spam", 1));
preg_match("#$regex#ix", "s p a m");

จริงๆ แล้ว ฉันคิดว่าคุณควรแยกช่องว่างออกแล้วจึงจับคู่กัน เนื่องจากนี่คือสิ่งที่คุณตั้งใจจะทำ โค้ดของคุณจึงชัดเจนกว่าการค้นหา Magic regex หรือการแทรกรูปแบบช่องว่างระหว่างตัวอักษร

Perl สำหรับสิ่งนี้จะมีลักษณะดังนี้

my $string = "S   p A m";
(my $string_no_ws = $string) =~ s/\s//g;
if ($string_no_ws =~ /spam/i) {
  #do something
}

จริงๆ แล้ว คุณสามารถทำการทดสอบโดยไม่ต้องใช้ regex ได้หากต้องการ โดยใช้ index:

my $string = "S   p A m";
(my $lc_string_no_ws = lc $string) =~ s/\s//g;
if (index($lc_string_no_ws, 'spam') >= 0) {
  #do something
}

การแก้ไข /x สำหรับ regex ใน Perl อ้างอิงถึงโครงสร้าง regex ไม่ใช่สิ่งที่ถูกจับคู่ เพื่อให้ตรงกับค่าที่คุณต้องการ

/s\s*p\s*a\s*m\s*/i

ถ้าลำดับมีความสำคัญสำหรับคำว่าสแปม และถ้าไม่เป็นเช่นนั้น

/[spam \t\n\r]+/ 

ก็เพียงพอแล้ว