转载自:http://www.cnblogs.com/tobecrazy/archive/2013/06/28/3161784.html
1.q 相当于 单引号' '
转义字符无效
q可以使用()[] {} // ,,
2.qq 相当于" "
转义字符有效
qq可以使用()[] {} // ,,
3.qw 相当于 ('' ,'' ,' ')在每一个单词上添加 ' '
转义字符无效
qw可以使用()[] {} // ,,
qq 和qw 区别,qq赋给数组是整体赋给数组的一个元素,而qw则会每个单词算作一个数组元素
4.qr 相当于创建正则
qr//
一种使用方式:my $str = qr /policySrcZonev?6?_\d+=(.*?)&.*
policyDstZonev?6?_\d+=(.*?)&.*
policySrcNetv?6?_\d+=(.*?)&.*
policyDstNetv?6?_\d+=(.*?)&.*
policyDstSvcv?6?_\d+=(.*?)&
/ix;
my ($srcZone,$dstZone,$srcNet,$dstNet,$dstSvc) = $policy =~ /$str/;
5.qx 执行外部程序
相当于``
1 #!/usr/bin/perl
2 use strict;
3 my $strq=q{\n\nthis is q test};
4 my $strqq=qq,\n\nthis is qq test\n,;
5 my @qw=qw /this is a qw test \n/;
6 my @qq=qq(this is qq test \n);
7 my $qr=/test/;
8 my $qx=qx(date);
9 print $strq;
10 print $strqq;
11 print "@qw";
12 print "\n";
13 print "@qq";
14 print "\nthis is qr test $qr\n" if($strq=~$qr);
15 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
The current date is: 2013/06/28 周五