Perl qw 函数

说明

此函数是一种快速指定大量小单引号词语的方法。例如，qw(foo bar baz) 等同于 ('foo', 'bar', 'baz'). 有些程序员会认为使用 qw 会使 Perl 脚本更易读。您实际上可以使用任意一组分隔符，而不局限于圆括号。

您可以使用 qw() 来准备一个数组，如下例所示。

语法

以下为该函数的简单语法 −

qw EXPR

返回值

此函数会返回包含一份清单，清单中由 LIST 的元素组成（已对其进行求值，如同它们被单引号引起来的一样）。

示例

以下示例代码展示了它的基本用法 −

#!/usr/bin/perl -w

@array = qw(This is a list of words without interpolation);

foreach $key (@array) {
   print"Key is $key\n";
}

当执行上述代码时，它会产生以下结果 −

Key is This
Key is is
Key is a
Key is list
Key is of
Key is words
Key is without
Key is interpolation