2.1 变量与上下文

2.1 变量与上下文

上下文（context）是 Perl 最独特的机制：表达式的取值由"它所在的位置"决定。数组放在需要单个值的位置就交出元素个数，放在需要列表的位置就交出全体元素。

三种容器的名字规则

Perl 用首字符区分容器类型，这条规则贯穿所有代码：

my $name  = 'access.log';   # 标量：$ 开头，单个值
my @lines = ('a', 'b', 'c');# 数组：@ 开头，有序列表
my %count = (api => 3);     # 哈希：% 开头，键值对
​

my 声明词法变量，配合 strict 使用。取数组单个元素时首字符换成 $：$lines[0]——因为取出来的是标量。这个"取元素用 $"的规则新手最容易漏。

亲眼看一次上下文换脸

my @items = (10, 20, 30);
my $n = @items;        # 标量上下文：得到 3（元素个数）
my @copy = @items;     # 列表上下文：得到 (10,20,30)
my $s = "@items";      # 字符串插值：得到 "10 20 30"
print "$n / $s\n";     # 输出 3 / 10 20 30
​

同一个 @items，三种位置三种结果。判断口诀：等号左边要什么，右边就变成什么。

上下文对照速查

⚠️ 常见坑：print @items 和 print "@items" 输出完全不同——前者是 102030，后者是 10 20 30。想要带分隔符的输出，要么加引号插值，要么显式 join。

上下文深潜：四个高频场景

看懂了换脸原理，再过四个实战里天天出现的场景，上下文的判断就会变成肌肉记忆。

第一个场景是列表赋值。等号左边给两个变量、右边给一个数组时，最后一个变量会吞掉剩余全部元素：

my ($first, @rest) = @lines;   # $first 拿第一个，@rest 拿剩下的全部
my $count = @lines;            # 对比：左边没有列表，右边交出个数
​

想丢弃开头几个元素时，用 undef 占位是惯用法：my (undef, undef, $third) = @fields; 直接取第三个字段，不产生多余变量。

第二个场景是强制转换。scalar 函数能显式声明"这里我要标量"：

my @durations = (120, 35, 890);
my $n = scalar @durations;             # 3
my $joined = join ',', @durations;     # "120,35,890"：join 的参数位置是列表上下文
print "count: ", scalar(@durations), "\n";
​

print 的参数列表是列表上下文，不加 scalar 时数组会展开成三个数字依次打印——统计报告里"总数"一栏莫名其妙变成一行数据，凶手多半是它。

第三个场景是布尔判断。if (@items) 在标量上下文取个数，零个元素为假，这是判空的标准写法。同理 while (my @chunk = read_chunk()) 在读不到内容时自动结束循环，批处理脚本里常见。

第四个场景是返回值。子程序 return @list; 到底返回列表还是个数，取决于调用方写在什么位置——调用 my $n = count_lines() 和 my @all = count_lines() 得到的东西不同。第 3 章写子程序时会专门回来收这个尾。

常见误读与排错链

上下文引起的 bug 有个统一特征：不报错，只出怪数。数字大得离谱、数组打印成一串、循环永远执行一次——排查时按这条链走：先看可疑表达式的等号左边或函数参数位置，判断上下文类型；再看右边表达式在该上下文里的定义；最后用 scalar 或括号显式固定语义。两分钟就能定位一类别人查一下午的问题。

还有一个来自老代码的陷阱：my $x = @items[0..2]; 切片放在标量上下文里得到的是最后一个元素，不是个数也不是列表。看见方括号下标批量取值却赋给标量，基本可以断定是笔误，正确意图往往是要 join 或要列表赋值。warnings 模式会提示这类可疑切片，这也是坚持开 warnings 的又一票理由。

一张对照表终结犹豫

把最常被问到的六个表达式在两种上下文里的取值汇总成表，拿不准时查表，查几次就内化了：

localtime 值得单独说一句，因为它在日常脚本里出场率极高：my $now = localtime; 得到人读的日期串，my @t = localtime; 得到拆开的分量，而分量里的年份要加 1900、月份从 0 起——日志报表打印日期时这三个坑一次踩全的人不在少数。正确取"当前小时"的写法是 (localtime)[2]，一对括号强制列表上下文再切片。

my $hour = (localtime)[2];     # 0..23
my ($d, $m, $y) = (localtime)[3, 4, 5];
printf "%04d-%02d-%02d\n", $y + 1900, $m + 1, $d;
​

动手验证而不是背表

所有上下文行为都可以用一行命令当场验证，养成"打印出来看"的习惯比背表可靠：

perl -e 'my @a = (1,2,3); my $s = @a; my @l = @a;
         print "scalar=$s list=@l length_arr=", scalar(@l), "\n"'
​

教学现场最常见的争论——"这里到底是几个值"——用这类三行脚本五秒终结。上下文是 Perl 给文本工人的礼物而不是障碍：读懂它之后，别人十行的取值代码你一行写完，这正是这门语言快的原因之一。

本节要点回顾

• 首字符即类型：$ 标量、@ 数组、% 哈希，取元素统一用 $
• 上下文决定取值：标量上下文里数组给个数，列表上下文给全体
• 字符串插值只对标量和数组生效，哈希不能直接插进双引号字符串
• 布尔判断走标量上下文：if (@items) 判空是惯用法
• 读代码时先看左边，再解释右边的表达式，就不会被换脸吓到