|
Lines 53-66
splitfile() {
Link Here
|
| 53 |
if ($closed) { |
53 |
if ($closed) { |
| 54 |
open($out, ">", sprintf("$prefix%02d", $i)); |
54 |
open($out, ">", sprintf("$prefix%02d", $i)); |
| 55 |
$closed = 0; |
55 |
$closed = 0; |
| 56 |
if ($indexmode == "dom" && $line !~ /<collection>/) { |
56 |
if ($indexmode eq "dom" && $line !~ /<collection>/) { |
| 57 |
print $out "<collection>"; |
57 |
print $out "<collection>"; |
| 58 |
} |
58 |
} |
| 59 |
} |
59 |
} |
| 60 |
print $out $line; |
60 |
print $out $line; |
| 61 |
$count++ if ($line =~ m|^</record>|); |
61 |
$count++ if ($line =~ m|^</record>|); |
| 62 |
if ($count == $size) { |
62 |
if ($count == $size) { |
| 63 |
if ($indexmode == "dom" && $line !~ m|</collection>|) { |
63 |
if ($indexmode eq "dom" && $line !~ m|</collection>|) { |
| 64 |
print $out "</collection>"; |
64 |
print $out "</collection>"; |
| 65 |
} |
65 |
} |
| 66 |
$count = 0; |
66 |
$count = 0; |
| 67 |
- |
|
|