Perl脚本逐行读取文件生成补全数字列表失败问题排查

你的脚本逻辑存在几个关键问题，导致输出不符合预期，我们一步步来修正：

原脚本的问题分析 #

• 你把输入的整行内容直接和$counter比较，但输入文件里是一行包含多个空格分隔的数字，不是每行一个数字，这完全误解了输入结构。
• 初始$counter设为0，但你的需求是从1开始补全数字，所以第一个输出会是0 0，和预期不符。
• 没有先收集所有存在的数字，而是试图逐行匹配，逻辑方向就错了。

修正后的脚本 #

#!/usr/bin/perl
use warnings;
use strict;

my $infile = $ARGV[0];
open(IN, $infile) or die ("Could not open file: $!");

# 读取输入行，分割成单个数字的数组
my @existing_numbers;
while (my $line = <IN>) {
    chomp $line;
    @existing_numbers = split /\s+/, $line; # 按任意空格分割数字
}
close(IN);

# 将存在的数字存入哈希，方便快速判断是否存在
my %exists;
$exists{$_} = 1 for @existing_numbers;

# 输入是递增的，直接取最后一个元素作为最大数字
my $max_num = $existing_numbers[-1];

# 从1到最大数字循环生成结果
for my $num (1..$max_num) {
    my $flag = exists $exists{$num} ? 1 : 0;
    print "$num $flag ";
}
print "\n"; # 最后添加换行符

脚本说明 #

1. 解析输入：用split /\s+/把输入行分割成单个数字的数组，自动处理多余的空格。
2. 哈希快速查找：把所有存在的数字存入哈希，判断某个数字是否存在的效率极高。
3. 确定遍历范围：因为输入是递增序列，直接取数组最后一个元素作为最大数字，无需额外计算。
4. 生成结果：从1遍历到最大数字，每个数字检查是否在哈希中，输出数字 标记的格式。

测试效果 #

用你的输入内容1 3 7 8运行脚本，会输出：

1 1 2 0 3 1 4 0 5 0 6 0 7 1 8 1 

完全符合你的预期要求。

内容的提问来源于stack exchange，提问作者SaltedPork