Verwenden Sie Perl-Skript zum Ausfüllen von Werten im Datensatz

Question

Ich habe eine Reihe von Zahlen (in einer Textdatei) von 90.000 bis 1.000.000, die Dateien entsprechen, die ich vermisse. Ich möchte dieses Set nehmen und diese Dateien als "1" als zweite Spalte neben einer vollständigen Zahlenreihe von 90.000 bis 1.000.000 markieren. Zum Beispiel für die Serie 1to13 (die den „fehlenden“ Dateien entsprechen würde):

3 
7 
10 
12

Ich möchte einen Datensatz erstellen:

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

Ich möchte in der Lage sein, dies ausführen in Perl.

Answer 1

Vorausgesetzt, dass sie nach:

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;