| Nils Diewald | 37e5b57 | 2013-11-20 20:26:03 +0000 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | use strict; |
| 3 | use warnings; |
| 4 | use FindBin; |
| 5 | use v5.16; |
| 6 | |
| 7 | my $dir = $FindBin::Bin; |
| 8 | |
| Nils Diewald | 7ed12c8 | 2014-10-31 17:51:19 +0000 | [diff] [blame] | 9 | foreach my $file (qw/00001 |
| 10 | 00002 |
| 11 | 00003 |
| 12 | 00004 |
| 13 | 00005 |
| 14 | 00006 |
| 15 | 02035-substring |
| 16 | 02439 |
| 17 | 05663-unbalanced |
| 18 | 07452-deep/) { |
| Nils Diewald | 0d76734 | 2015-06-17 20:34:24 +0000 | [diff] [blame] | 19 | my $out = $dir . '/../' . $file . '.json'; |
| Nils Diewald | 37e5b57 | 2013-11-20 20:26:03 +0000 | [diff] [blame] | 20 | |
| Nils Diewald | 0d76734 | 2015-06-17 20:34:24 +0000 | [diff] [blame] | 21 | my $call = 'perl ' . $dir . '/prepare_index.pl -i ' . $dir . '/../examples/WPD/AAA/' . $file . ' -o ' . $out; |
| 22 | print 'Create ' . $out . "\n"; |
| 23 | system($call); |
| 24 | |
| 25 | print 'Create ' . $out . ".gz\n"; |
| 26 | $call .= '.gz -z'; |
| 27 | system($call); |
| Nils Diewald | 37e5b57 | 2013-11-20 20:26:03 +0000 | [diff] [blame] | 28 | }; |