Используйте Perl-скрипт для заполнения значений в наборе данных

Question

У меня есть серия чисел (в текстовом файле) от 90 000 до 1 000 000, которые соответствуют файлам, которые мне не хватает.Я хотел бы взять этот набор и отметить эти файлы как «1» во втором столбце рядом с полным рядом чисел от 90 000 до 1 000 000.Например, для серий 1–13 (что соответствует «отсутствующим» файлам):

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;