linux - Perl 拆分和合并函数存在一些问题

Question

首先，我对 Perl 一点也不熟悉。过去 1/2 年我主要学习 C++。我现在正在上一门教授 Linux 命令的类(class)，我们有一些关于 Linux 中使用的语言的简短主题，包括 Perl，这完全让我感到困惑(没有双关语)。我有一个文本文件，其中包含一堆由空格和制表符分隔的随机数，甚至可能是换行符，这些随机数通过文件句柄读入程序。我应该编写 2 行代码，将数字行拆分并将它们合并到 foreach 循环内部的一个数组中。我不是在寻找答案，只是在正确的方向上插入。我已经尝试了不同的事情好几个小时了，感觉很愚蠢，我无法理解它，我完全迷失了语法。不在编译器内部工作并且在 C++ 之外工作超出了我的舒适区，这有点奇怪。对此，我真的非常感激。我附上了几张照片。基本上，我们编写的代码只是为了存储数字，程序的其余部分将确定最小的数字以及所有数字的总和。我的目前不正确，因为我不知道该怎么做。在输出照片中，它将显示通过文本文件输入的所有数字，以便您可以看到它们。

Answer 1

这里有几件事需要解决。首先，请不要发布示例数据或代码的屏幕截图，因为这使得无法复制和粘贴来测试您的代码或数据。通过在代码块前面缩进四个空格和换行符来发布您的代码/数据。

在脚本中添加use strict;。这应该是你类的第 0 课。之后将 my 添加到所有变量声明中。

要使用每行数字的内容填充@all_numbers，而不使用push，您可以使用如下内容:

foreach my $line (@output_lines)
{
    my @numbers = split /\s/, $line;
    @all_numbers = (@all_numbers, @numbers);
}