active在Perl中将多个语句组合成一个表达式

Question

是否可以将多个语句组合成一个表达式？一个块可以做到这一点，但我想知道它们是否也可以打包成一个表达式。

Answer 1

这正是

do BLOCK的目的。

例如

my $file = do {
   open(my $fh, '<', $qfn) or die $!;
   local $/;
   <$fh>
};