regen-index.pl


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

#!/usr/bin/perl
#use Data::Dumper;
use warnings;
use strict;
use lib ".";
use PatchIndexer;

# Regenerate the index to stdout

my ($FH, $index);
open $FH,'<',"00000_index.txt";
my @index = parseIndex($FH);
#print Dumper(@index);
print printIndex(\@index);