Perl 程式設計/關鍵字/qw

這qw關鍵字

qw是一個可以用來替換引號（"）符號的命令。

語法

  qw(element [element] […])

示例

程式碼

my @array = qw(one two three);

print "Array contains " . @array . " element" . ((@array == 1) ? "" : "s") . "\n";
my @array1 = "only";

print "Array1 contains " . @array1 . " element" . ((@array1 == 1) ? "" : "s") . "\n";
my @family = "father, mother, daughter, son";

print "The family has " . @family . " member" . ((@family == 1) ? "" : "s") . "\n";

print qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[2] . "\n";

返回陣列中的元素數量和第三個月份，如下所示

Array contains 3 elements
Array1 contains 1 element
The family has 1 member
Mar