| 29 |
open my $tbt_file, '>:utf8', $tbt_file_name or die "$0: $tbt_file_name: $!"; |
open my $tbt_file, '>:utf8', $tbt_file_name or die "$0: $tbt_file_name: $!"; |
| 30 |
|
|
| 31 |
my $status = {}; |
my $status = {}; |
| 32 |
|
my $tbt_added = {}; |
| 33 |
|
|
| 34 |
warn "Generating...\n"; |
warn "Generating...\n"; |
| 35 |
$source_text =~ s{(<(?>p(?>re)?|li|d[td]|t[dh]|h[1-6])(?>\s[^>]*)?>)((?>(?!</?(?>p(?>re)?|li|d(?>[tdl]|iv)|t(?>[dr]|h(?>ead)?|able|body|foot)|h[1-6r]|ul|ol)(?>\s[^>]*)?>).)+)} |
$source_text =~ s{(<(?>p(?>re)?|li|d[td]|t[dh]|h[1-6])(?>\s[^>]*)?>)((?>(?!</?(?>p(?>re)?|li|d(?>[tdl]|iv)|t(?>[dr]|h(?>ead)?|able|body|foot)|h[1-6r]|ul|ol)(?>\s[^>]*)?>).)+)} |
| 63 |
$text =~ s/^\s+//; |
$text =~ s/^\s+//; |
| 64 |
$text =~ s/\s+\z//; |
$text =~ s/\s+\z//; |
| 65 |
$text =~ s/\x0D?\x0A(?:\x0D?\x0A)+/\n/g; |
$text =~ s/\x0D?\x0A(?:\x0D?\x0A)+/\n/g; |
| 66 |
print $tbt_file $text; |
unless ($tbt_added->{$text}) { |
| 67 |
print $tbt_file "\n\n"; |
print $tbt_file $text; |
| 68 |
|
print $tbt_file "\n\n"; |
| 69 |
|
$tbt_added->{$text} = 1; |
| 70 |
|
} |
| 71 |
} |
} |
| 72 |
|
|
| 73 |
$v; |
$v; |
Parent Directory
| 
Revision Log
| 
Patch