perl - 为自记录代码初始化 "undef"？

Question

有时候我想写:

my $var = shift // undef;    # argument is optional
                             # or

my $var = $val{optional_value} // undef;

表示可以省略参数，否则//undef当然没用。

这有多贵，是否被编译器优化掉了？

Answer 1

我敢肯定它不是很贵，但我不得不说

my $var = shift // undef;

没有那么清晰

my $var = shift;    # argument is optional

或

my $var = shift;    # optional; undef if omitted

它们在运行时肯定(尽管几乎没有)便宜。如果您仍然需要注释(为了清楚起见)，那么 //undef 除了不必要的操作码之外真正添加了什么？