Perl-6列表与数组-3 标量上下文和列表上下文

学习内容 

• 标量上下文和列表上下文
• 在标量上下文中使用产生列表的表达式
• 在列表上下文中使用产生标量的表达式
• 强制指定标量上下文
• 列表上下文中的<STDIN>

标量上下文和列表上下文

        所谓上下文，指的是你如何使用表达式。 

        起到决定性因素的是操作符，而不是被操作的各种变量或直接量
        当Perl在解析表达式时，你要么希望它返回一个标量，要么希望它返回一个列表表达式所在的位置，Perl期望得到什么，那就是该表达式的上下文。

@people = qw(andy jneff betty);

@sorted = sort(@people);
#这行语句上下文是列表上下文。sort对数组进行排序，把排序结果放到另一个变量

$number = 42+ @people;
#这行语句上下文是标量上下文。42是标量，number是标量。
#people虽然是数组（列表）,也变成标量。@people标量是3，里面有3个数据。
print "$number\n";
#得到的结果是45

#列表上下文
@back = reverse qw/ bbbb cccc aaa/;
print "@back\n";

#标量上下文
#得到一串字符串，再将这个字符串反序排列
$back = reverse qw/ bbbb cccc aaa/;
print "$back\n";

标量在列表上下文里

@fred = 6*7;
#@fred，是一个数组，6*7是一个标量
#标量赋值到数组里，这是标量在列表上下文里，标量要变成列表
#列表里面只有一个数，42

@bar = "hello". ' ' ."world";

@w=undef;
#这是数据未定义，不是数据清空
#把数据清空
@b =();

强制指定标量上下文

@rocks= qw{tacl quar jads obsdin};
print "how many rocks do you have?\n"
print "i have",@rocks,"rocks\n";
#得到的结果是i have tacl quar jads obsdin rocks

#解决
#得到标量上下文
#scalar强制把列表上下文转变为标量上下文
print "i have",scalar @rocks,"rocks\n";
#得到的结果是i have 4 rocks

 列表上下文中的<STDIN>

标量/列表上下文输入

print "现在开始输入";
#标量上下文，只能输入一行
$line = <STDIN>;
print "$line\n";

#列表上下文可以输入多行
@line = <STDIN>;
print "@line\n";

#列表上下文可以输入结束，按【ctr+z】

#把输入的每一行后面的回车去掉
chomp(@line = <STDIN>);

#输出的空格是字符串内插