|
add files
|
1 |
use strict; |
| 2 |
use warnings; |
|
| 3 | ||
| 4 |
my $info = {};
|
|
| 5 |
while (my $line = <>) {
|
|
| 6 |
my ($row_id, $book_id, $chapter, $section) = split /\t/, $line; |
|
| 7 |
|
|
| 8 |
if (defined $info->{$book_id}{$chapter}{$section}) {
|
|
| 9 |
die "$book_id, $chapter, $section, line $."; |
|
| 10 |
} |
|
| 11 |
else {
|
|
| 12 |
$info->{$book_id}{$chapter}{$section}++;
|
|
| 13 |
} |
|
| 14 |
} |