Perl里有多个引用操作符,它们允许你用几乎任何字符来替代传统的单引号或者双引号字符。单引号字符(’)可以用操作符q来替代,双引号(”)可以用qq操作符来替代,而命令备份引用字符(`,重音号)能够用qx操作符来替代。
在每个操作符之后,放一个你希望用作引用字符的字符。下面是一个例子,它把感叹号用作单引号字符:
q!This is 'single' quoted!;
在生成带有嵌入式引用符的代码时,这些引用操作符就非常好用了,例如下面这个HTML的例子:
printqq!<font color="$color">This is "$color" text</font> !;
你还可以使用四种类型的括号字符——尖括号、圆括号、方括号和大括号——作为定界符。括号字符可以在引用的区域内嵌套使用。在开始的地方使用开始字符(opening character),在结束的地方使用(结束字符),例如:
printqx(echo "This is a test");
print qq[<hr align="$align" width="$width">
];
print qq<Note that <b>bracketing characters</b> nest in Perl!>;