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

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{
nthis is q test};
my $strqq=qq,

this is qq test
,;
my @qw=qw /this is a qw             test 
/;
my @qq=qq(this is qq           test n);
my $qr=/test/;
my $qx=qx(date);
print $strq;
print $strqq;
print "@qw";
print "
";
print "@qq";
print "
this is qr test $qr
" if($strq=~$qr);
print $qx;

输出结果：

  

D:>perl string.pl

this is q test              

this is qq test
this is a qw test
this is qq test

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