Clearer variables.
This commit is contained in:
5
ccc
5
ccc
@@ -192,8 +192,9 @@ sub extract_section_numbers {
|
|||||||
my @sections;
|
my @sections;
|
||||||
|
|
||||||
# Find section header numbers with Windows lines
|
# Find section header numbers with Windows lines
|
||||||
while($html =~ /\r\n<[p|P] class=MsoNormal[^>]*>(<i[^>]*>)?(\d{1,4})/g) {
|
while($html =~ /\r\n<[pP] class=MsoNormal[^>]*>(<i[^>]*>)?(\d{1,4})/g) {
|
||||||
push @sections, $2;
|
my $section_num = $2;
|
||||||
|
push @sections, $section_num;
|
||||||
}
|
}
|
||||||
|
|
||||||
return @sections;
|
return @sections;
|
||||||
|
|||||||
Reference in New Issue
Block a user