使用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;