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