在Perl中将数组分配给变量而不使用额外的空行

Question

我正在编写一个perl脚本,将数据中的内容上传到数据库中.为此,我创建了一个"foreach"语句,循环遍历数组并将其内容分配给变量:

foreach my $line (@array)
    { $data .= "$line\n" }

这个脚本有效,我可以将变量上传到我的数据库中.但是,由于我的语句末尾的新行字符(用于保留我的数组的原始换行符),我的变量在末尾包含一个额外的空行,它也被放入数据库中.摆脱这一空白线的最佳方法是什么？这是我在循环后才能真正解决的问题吗？我对Perl非常新,所以我有点困惑.谢谢!

Answer 1

my $data = join "\n", @array;

该join内置采用隔板和列表,并连接您的列表中的元素.它相当于

sub join ($@) {
  my $sep = shift;
  @_ or return "";
  my $str = shift;
  $str .= $sep . shift while @_;
  return $str;
}