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