perl q qq qr qw qx 区别与使用方法

1.q 至关于 单引号' '

   转义字符无效

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

2.qq 至关于" "

       转义字符有效

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

3.qw  至关于 （'' ,'' ,' '）在每个单词上添加 ' '

    转义字符无效

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

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

4.qr   至关于建立正则

    qr//

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

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