Perl qw用法及代碼示例

qw 運算符在珀爾用於提取給定字符串的每個元素，因為它位於 single-quote ( ‘ ‘ ) 中的元素數組中。這個函數代表引用詞因為它會考慮給定字符串的每個單詞，因為它被引用，例如 qw(Geeks for Geeks) 相當於 ('Geeks', ‘for’, 'Geeks')。這個 qw() 使用括號，因此看起來它是一個函數，但事實並非如此。它使用不同類型的分隔符，如下所示：

@String = qw/Ram is a boy/;
@String = qw{Geeks for Geeks};
@String = qw[Geeks for Geeks];
@String = qw'Geeks for Geeks';
@String = qw"Geeks for Geeks";
@String = qw!Geeks for Geeks!;
@String = qw@Geeks for Geeks@;

用法： qw(String) 參數： String : It is the input string whose each element is extracted. 返回： each element of the given string as it is an array of elements in single-quote (”).

示例 1：

#!/usr/bin/perl
# Initialising a String as the parameter of qw
# operator whose each element is extracted.
@String = qw(GfG is a computer science portal);
foreach $key (@String) {
   print"Element is: $key\n";
}

輸出：

Element is: GfG
Element is: is
Element is: a
Element is: computer
Element is: science
Element is: portal

示例 2：

#!/usr/bin/perl
# Initialising a String as the parameter of qw
# operator whose each element is extracted.
@String = qw(Delhi Mumbai Kolkata Patna);
foreach $key (@String) {
   print"City name is: $key\n";
}

輸出：

City name is: Delhi
City name is: Mumbai
City name is: Kolkata
City name is: Patna

注意：qw 運算符讀取空白並提取空白前後的元素。

示例 - 3：

我們還可以對數字使用 qw 運算符。在這種情況下，語法將會改變。

Syntax of qw operator while using it with numbers -

qw/<space separated numbers>/;

#!/usr/bin/perl
# your code here
@array = qw/12 15 46 98 42 35/;
foreach $key (@array){
     print($key,"\n");
}

12
15
46
98
42
35