qw 简写

beyes

我们经常需要建立简单的单词列表，比如：

($var1, $var2, $var3) = ("are", "you", "ok");

此时我们会发现，每个单词要用双引号括起来，要是多写几个单词，那必定让然感觉枯燥无味。但是 perl 里提供了 qw 简写，它可以让我们不需要写那么多的双引号。比如上面的例子可以改写如下几种形式：

($var1, $var2, $var3) = qw(are, you, ok);
($var1, $var2, $var3) = qw{are, you, ok};
($var1, $var2, $var3) = qw# are, you, ok #;
($var1, $var2, $var3) = qw! are, you, ok !;

我们会在单词列表的前后分别用界定符包围起来。界定符是要配对的，这里有两种情况：
1. 左右两边的界定符相同
2. 左右两边的界定符不同，如 { 和 } ，以及 < 和 > ，像这种形式下，左右界定符是一对配对的符号而被允许。但是不能写成 # 和 > 的形式。

示例代码：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl

($var1, $var2, $var3) = ("are", "you", "ok");
print "$var1     $var2      $var3 \n";

($var1, $var2, $var3) = qw (i am ok);
print "$var1     $var2      $var3 \n";

($var1, $var2, $var3) = qw <who are you>;
print "$var1     $var2      $var3 \n";

#列表里的元素个数超出变量的个数，则多出的自动忽略
($var1, $var2, $var3) = qw <what is your name>;
print "$var1     $var2      $var3 \n";

#创建一个字符串数组
($myarr[0], $myarr[1], $myarr[2]) = qw/www groad net/;
print "$myarr[0]        $myarr[1]       $myarr[2] \n";

运行输出：

./listv.pl
are     you      ok
i     am      ok
who     are      you
what     is      your
www     groad   net

上面代码种，注意到一种情况：
当单词列表中给出的单词个数多于要赋值变量的个数，那么多出的单词数会被自动忽略。