赋值||=

cecial

Intermediate Perl 8.6.2

1. my $handle = $output_handles{$name} ||= IO::File->open(">$name.info") || die "Cannot create $name.info: $!";

复制代码

执行顺序：

1. 
   
2. 1. $output_handles{$name}是否存在或有值，true:赋值给$handle; false, 到2
   
3. 2. IO::File->open(">$name.info") 是否成功，true:赋值给$output_handles{$name},然后赋值给$handle;false, 到3
   
4. 3. $handle,$output_handles{$name}都没有值，执行die。
   

复制代码

right?

nuclearxin

真的有人敢这样写吗？