Tagging ULB Matt 11
This commit is contained in:
parent
d09fa6388c
commit
265aa7ca4b
|
@ -83,7 +83,7 @@ sub Untag {
|
|||
sub Reorder {
|
||||
my $txt = $_[0];
|
||||
say LOG "<R1>\t$txt";
|
||||
while ($txt =~ s/sub="\[(\d+)\]" ([^>]*>)([^<]*)(<(.|\n)*?>[^<]*)\[\1\]([^<]*<)/$2√$4$3$6/s) {}
|
||||
while ($txt =~ s/sub="\[(\d+)\]" ?([^>]*>)([^<]*)(<(.|\n)*?>[^<]*)\[\1\]([^<]*<)/$2√$4$3$6/s) {}
|
||||
say LOG "<R2>\t$txt";
|
||||
return $txt
|
||||
}
|
||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue