Perl - 根据值将排序数组拆分为两个数组

Question

我对 Perl 还很陌生。

我有一大堆数字，首先排序：

my @numbers = do {                                                      
        open my $fh, '<', glob("hotfolder/*.out") or die $!;            
        local $/;                                                           
        <$fh> =~ /\d+/g;                                                    
};

    my @sorted_numbers = sort { $a <=> $b } @numbers;

排序后的值现在位于 @sorted_numbers 数组中。 接下来它需要在这个数组中找到缺失的值：

my @missing;

     my $i = 0;
            for ( $sorted_numbers[ 0 ] .. $sorted_numbers[ -1 ] ) {         
                ++$i, next if $_ == $sorted_numbers[ $i ];                  
                    push @missing, "$_\n";
    }

这是我需要帮助的地方。我不确定如何实现下一步。 数组中的每个数字都以 2 (200000) 或 3 (300000) 开头。

缺失值应仅显示在这些范围之间。 假设第一个范围以 240000 结束。另一个范围将从 300000 以上开始。

当然，我不想将这两个范围之外的所有值都返回为缺失值。

我按照这些思路尝试了一些方法，但语法和逻辑完全错误：

    foreach (my $step = @sorted_numbers) {


    if ($step <= 299999) {
        my $i = 0;
            for ( $sorted_numbers[ 0 ] .. $sorted_numbers[ -1 ] ) {         
                ++$i, next if $_ == $sorted_numbers[ $i ];                  
                    push @missing, "$_\n";
                    }   
    }
    else ($step > 299999) {
        my $i = 0;
            for ( $sorted_numbers[ 0 ] .. $sorted_numbers[ -1 ] ) {         
                ++$i, next if $_ == $sorted_numbers[ $i ];                  
                    push @missing2, "$_\n"; 
                    }
        }
    }

如果有什么不清楚的地方请告诉我，我很乐意提供更多信息。

Answer 1

只需检查相邻数字之间的差异。如果大于 1 但足够小（请参阅下面的 $gap_size），请报告缺失的数字：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $gap_size = 50;  # Tune this to your needs.

my @numbers = sort { $a <=> $b } map /\d+/g, <>;

for my $i (1 .. $#numbers) {
    my $diff = $numbers[$i] - $numbers[$i-1];
    if ($diff > 1 && $diff < $gap_size) {
        say for $numbers[$i-1] + 1 .. $numbers[$i] - 1;
    }
}