Perl什么时候强加字符串上下文？

Question

看起来字符串上下文(虽然是真实的,并且在"编程Perl"章节"2.7.1.标量和列表上下文"中作为标量上下文的子概念提到),但在我能够找到的任何地方都没有清楚地记录在Perldoc.

显然,Perl中的一些东西(例如eqoperator,或qq //引用插值)会将值强制转换为字符串上下文.

Perl什么时候强加字符串上下文？

perldoc似乎没有任何有用的答案.

Answer 1

当Perl需要一个字符串时,Perl将生成包含标量的结构的PV(字符串组件).了解这一点的最佳地点是perlguts,perldata,以及较小程度的perlop.但基本上任何时候用标量执行字符串类型操作,它都会强加你对字符串上下文的感觉,如果标量只包含一个整数,那么将从该值隐式创建一个字符串.

因此,如果你有$var = 15一个整数$var,然后说,if( $var eq '15' ) {...}整数15的字符串表示将生成并存储在标量结构的PV部分.

这绝不是一个完整的列表,但以下内容将起到作用:

• 串比较运算符(eq,ne,ge,le,lt,gt)

• 匹配左操作数(=~,!~)的绑定运算符

• 串内插(qq{$var},"$var",qx/$var/,和反引号)

• regex操作符(m/$interpolated/,s/$interpolated//,qr/$interpolated/)

• <<"HERE" (HERE doc with interpolation)

• 哈希键$hash{$stringified_key}.

• . 连接运算符.

• 在较新版本的Perl,与bitwise功能启用,串位运算符&.,|.,^.,和~.,与他们同行的分配以及诸如&.=将调用它们的操作数字符串上下文.

• vec 在其第一个参数上强加字符串上下文.

可能还有其他人.但好消息是,这个实现细节很少泄漏到"胆量"级别之外的抽象层.可以关注的一个例子是编码JSON,因为我熟悉的JSON模块都会查看给定标量是否有PV组件来决定是将值编码为字符串还是数字.

正如Joel在下面的评论中所指出的那样,Devel::Peek自Perl 5.6.0版本以来一直在Perl核心中的模块可以方便地反省标量的内容:

use Devel::Peek;                    

my $foo = 12;                       

print "Initial state of \$foo:\n";  
Dump($foo);                         

my $bar = "$foo";                   

print "\n\nFinal state of \$foo:\n";
Dump($foo);                         

该代码生成的输出是:

Initial state of $foo:
SV = IV(0x56547b4bb2a0) at 0x56547b4bb2b0
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 12


Final state of $foo:
SV = PVIV(0x56547b4b5880) at 0x56547b4bb2b0
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 12
  PV = 0x56547b4ab600 "12"\0
  CUR = 2
  LEN = 10

如您所见,在强制字符串化之后有一个PV元素,POK设置了标志,并且存在CUR和LEN字段以指示字符串缓冲区的长度和其内容的当前长度.