perl中qr的打印结果的含义

Question

从 文档 中，我看到

$rex = qr/my.STRING/is;
print $rex; # prints (?si-xm:my.STRING)

但我不确定如何理解 ( ？si-xm：...）。如果我在 qr/quick|lazy/ 上进行打印，则会得到 (?-xism:quick|lazy)。这里的 (?-xism:...) 又是什么意思？

谢谢！

Answer 1

正如 perlre 手册页中所述：

? 和 : 之间的任何字母都充当标志修饰符 [...]

- 之前的字母是正修饰符；后面的都是否定修饰语。因此，例如，(?-xism:quick|lazy) 表示括号内不允许包含空格和注释，括号内的部分不允许 区分大小写，点 . 不 匹配换行符，^ 和 $ 匹配 不匹配行开始和行结束。

Answer 2

需要注意的是，(?FLAGS:pattern) 语法在 perl 5.14.0 中发生了变化，正则表达式字符串化也随之发生了变化。引用perlre：

从 Perl 5.14 开始，“^”（脱字符号或扬抑符）紧跟在“?”之后。是相当于“d-imsx”的简写。标志（“d”除外）可以跟随插入符号来覆盖它。但减号是不合法的。

（d 是 5.14 中的一组新标志之一，它影响 Unicode 对正则表达式的影响；d 是默认值，意味着基本上像旧的 Perl 版本一样运行）。

添加 (?^FLAGS:pattern) 语法后，正则表达式字符串化更改为使用此语法，并且仅列出与默认值不同的标志。因此 qr/hello/ 字符串化为 (?^:hello) （以前的 (?-xism:hello)）和 qr/ hello/i 字符串化为 (?^i:hello) （以前是 (?i-xsm:hello)）。

此更改的优点是，如果 perl 5.16 添加新的 q 正则表达式修饰符（用于“在量子计算机上运行此匹配”），qr/hello/ 获胜不必将 stringify 更改为 (?d-xismq:hello) — 它将能够保持 (?^:hello) ，就像 5.14 上一样。

Answer 3

如果字母出现在左侧，则它们代表 /x、/i、/s、/m -，如果字母出现在 - 右侧，则缺少修饰符。

该代码的目的是用于传输指定了哪些标志

>perl -E"$re = qr/./s;  say qq{a\nb} =~ /a${re}b/ ? 'match' : 'no match'"
match

>perl -E"$pat = '.';  say qq{a\nb} =~ /a${pat}b/ ? 'match' : 'no match'"
no match

>perl -E"$pat = '(?s-xim:.)';  say qq{a\nb} =~ /a${pat}b/ ? 'match' : 'no match'"
match

……以及哪些没有指定。

>perl -E"$re = qr/./;  say qq{a\nb} =~ /a${re}b/s ? 'match' : 'no match'"
no match

>perl -E"$pat = '.';  say qq{a\nb} =~ /a${pat}b/s ? 'match' : 'no match'"
match

>perl -E"$pat = '(?-xism:.)';  say qq{a\nb} =~ /a${pat}b/s ? 'match' : 'no match'"
no match

(?:...) 记录在 perlre 中。