1.q 相当于 单引号' '

转义字符无效

q可以使用（）[] {} // ,,

2.qq 相当于" "

转义字符有效

qq可以使用（）[] {} // ,,

3.qw  相当于 （'' ,'' ,' '）在每一个单词上添加 ' '

转义字符无效

qw可以使用（）[] {} // ,,

qq 和qw 区别，qq赋给数组是整体赋给数组的一个元素，而qw则会每个单词算作一个数组元素

4.qr   相当于创建正则

qr//

5.qx 执行外部程序

相当于``

 #!/usr/bin/perl

 use strict;

 my $strq=q{\n\nthis is q test};

 my $strqq=qq,\n\nthis is qq test\n,;

 my @qw=qw /this is a qw             test \n/;

 my @qq=qq(this is qq           test \n);

 my $qr=/test/;

 my $qx=qx(date);

 print $strq;

 print $strqq;

 print "@qw";

 print "\n";

 print "@qq";

 print "\nthis is qr test $qr\n" if($strq=~$qr);

 print $qx;

输出结果：

D:\>perl string.pl

\n\nthis is q test

this is qq test
this is a qw test \n
this is qq test

this is qr test
The current date is: 2013/06/28 周五