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