将多个语句组合到Perl中的表达式中？

Question

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

Answer 1

这正是do BLOCK的目的。

例如，

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