perl中q，qx，qq，qr，qw

来源：互联网发布：软件新城公寓申请编辑：程序博客网时间：2024/04/28 07:57

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\nthisisqtest;4mystrqq=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/;8myqx=qx(date);
9 print strq;10printstrqq;
11 print “@qw”;
12 print “\n”;
13 print “@qq”;
14 print “\nthis is qr test qr\n"if(strq=~qr);15printqx;
复制代码
输出结果：

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 周五

0 0