使用Perl脚本来填充数据集中的值

Question

我有一系列从90,000到1,000,000的数字（在一个文本文件中）对应于我缺少的文件。我想采用这一套，并将这些文件标记为“1”作为第二列，旁边是一系列90,000到1,000,000的数字。例如，对于系列1to13（其对应于“丢失”的文件）：

3 
7 
10 
12

我想创建一个数据集：

1 0 
2 0 
3 1 
4 0 
5 0 
6 0 
7 1 
8 0 
9 0 
10 1 
11 0 
12 1 
13 0

我希望能在执行此perl的。

Answer 1

假定它们进行排序：

use strict; 
use warnings; 

my $last = 89999; 
while (my $next = <>) { 
    chomp($next); 
    print $last, " 0\n" while ++$last < $next; 
    print "$next 1\n"; 
} 
print $last, " 0\n" while ++$last <= 1000000;