Perl qw()函数

语法

qw EXPR

定义和用法

qw()是用来指定了很多小单引号的句字是一个快速的方法。例如，qw(foo bar baz) 相当于 ('foo', 'bar', 'baz')。一些程序员认为，使用qw使Perl脚本更容易阅读。实际上，你可以使用任何分隔符，而不仅仅是括号组。

简单地，可以使用qw()准备一个数组，如以下所示的例示的。

返回值

• 列表元素的列表组成的计算，如果他们是单引号。

例子

试试下面的例子：

#!/usr/bin/perl -w#by www.yiibai.com@array = qw(This is a list of words without interpolation);foreach $key (@array){   print"Key is $key\n";}

这将产生以下结果：

Key is ThisKey is isKey is aKey is listKey is ofKey is wordsKey is withoutKey is interpolation