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