跳转至

Perl |列表上下文敏感度

原文:https://www . geesforgeks . org/perl-list-context-sensitivity/

简介 在 Perl 中，函数调用、术语和语句的解释不一致，这取决于其上下文。Perl 中有两个关键的上下文，即列表上下文和标量上下文。在列表上下文中，Perl 给出了元素列表。但是在标量上下文中，它返回数组中元素的数量。 Perl 假定在“列表上下文”中列出值，因为列表可以有任意数量的元素，或者它可以只有一个元素，或者它甚至可以被去相关。

Creating List Context

可以使用数组和列表生成列表上下文。

  • Assignment to an array: Example:

    perl @y = LIST;

    perl @y = @z;

    perl @y = localtime();

    这里，localtime()是 Perl 中的一个函数名，它揭示了数组中时间的数字描述。

  • Assignment to a list: Example:

    perl ($x, $y) = LIST;

    perl ($x) = LIST;

    在这里，列表还可以创建列表上下文，即使列表只有一个元素。

示例:

#!/usr/bin/perl
# Perl program of creating List Context

# array of elements
my @CS = ('geeks', 'for', 'geeks', 'articles'); 

# Assignment to a list 
my ($x, $y) = @CS; 

# Assignment to an Array
my @z = @CS;        

# Assignment of a function
# to an Array
my @t = localtime();

# Displays two elements of an
# array in List
print "$x $y\n";

# Displays an array of elements
print "@z\n";    

# Displays time stored in array 
# in number format
print @t;

Output:

geeks for
geeks for geeks articles
201761121191690

这里，在分配给 List 时，List 中有两个标量，即\(x 和\)y，因此只分配了数组的两个元素。

Arrays in List Context:

为了用一个数组激发 List Context，我们需要将一个数组赋给另一个数组。 例:

#!/usr/bin/perl

# Program for arrays in List Context
use strict;
use warnings;
use 5.010;

my @x = ('computer_', 'science_', 'portal_',
         'for_', 'GeeksforGeeks');

# Assignment of an array to 
# another array
my @y = @x; 

# Printing the new array
print @y;

Output:

computer_science_portal_for_GeeksforGeeks

这里，一个数组中的元素被复制到另一个数组中。

Use of if-statement in List Context

if-语句用于列表上下文中，仅当数组中存在元素时，才显示包含在“if”中的语句。 例:

#!/usr/bin/perl

# Program to display content of if-statement
use strict;
use warnings;
use 5.010;

my @x = ('G', 'f', 'G');

# Statement within 'if' will be executed 
# only if the array is not empty
if (@x)
{
    print "GeeksforGeeks";
}

Output:

GeeksforGeeks

这里，如果指定的数组有一定数量的元素，那么 if-condition 为真，它会激发 if-语句的内容，但是如果数组为空，那么 if-condition 为假，因此它不会执行 if-语句中的语句。

Reading in List Context:

“STDIN”是 Perl 中的一个 readline 运算符。为了将读线操作符置于列表上下文中，需要将该操作符指定给一个数组。 例:

#!/usr/bin/perl
use strict;
use 5.010;

# Asking user to provide input 
print "Enter the list of names:\n";

# Getting input from user 
my @y = <STDIN>;

# Used to remove extra line of spaces
chomp @y;

# Printing the required output
print "The number of names are: " . 
                 scalar(@y) . "\n"; 

Output:

这个程序是这样工作的: 第一步:用回车键一个一个输入要存储在数组中的名字。 第二步:在 Linux 系统下按 Ctrl-D，而在 Windows 系统下按 Ctrl-Z，表示输入结束。 第三步: chomp 用于删除每次输入后添加的多余行。 步骤 4: 使用标量打印数组中的元素个数，因为“标量上下文中的数组”只能返回数组的长度。

回到顶部