Použite perl skript na vyplnenie hodnôt v súbore údajov - perl, dataset

Mám sériu čísel (v textovom súbore) z90 000 až 1 000 000, ktoré zodpovedajú súborom, ktoré mi chýbajú. Chcel by som vziať túto sadu a označiť tieto súbory ako „1“ ako druhý stĺpec vedľa kompletnej série čísel 90 000 až 1 000 000. Napríklad pre sériu 1to13 (ktorá by zodpovedala „chýbajúcim“ súborom):

3
7
10
12

Chcel by som vytvoriť súbor údajov:

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

Chcel by som byť schopný vykonať to v jazyku perl.

odpovede:

Za predpokladu, že sú zoradené:

use strict;
use warnings;

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