在Perl Splitting和Merging Functions中遇到一些问题

Question

首先,我根本不熟悉Perl.我在过去的半年里一直在研究C++.我现在正在上课,那是教授Linux命令的,我们在Linux上使用的语言上有一些简短的主题,包括Perl,这完全是我的循环(没有双关语).我有一个文本文件,其中包含一些由空格和制表符分隔的随机数字,甚至可能是换行符,它们通过文件句柄读入程序.我应该写两行代码来分割数字行并将它们合并到一个数组中,在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);
}