perl - 有没有更简单的方法来使用 Perl chomp？

Question

我经常要做:

#similarly in while (my $val = <$fh>){...}
my $val = <$fh>;
chomp $val;

my $res = `command`;
chomp $res;

如果可以的话，我宁愿跳过第二行。我看到我可以在我的 shebang 行中使用 -l 选项基于:Is there anything in core Perl to auto-chomp lines from "<>" operator?

反引号有类似的东西吗？或者，是否有一种不那么冗长的 chomp inline 方法？

Answer 1

sub chomper(_) {
   my ($line) = @_;
   chomp($line) if defined($line);
   return $line;
}

while (defined( my $line = chomper(<>) )) {
   ...
}