Tagging ULB Matt 11
This commit is contained in:
parent
d09fa6388c
commit
265aa7ca4b
|
@ -83,7 +83,7 @@ sub Untag {
|
||||||
sub Reorder {
|
sub Reorder {
|
||||||
my $txt = $_[0];
|
my $txt = $_[0];
|
||||||
say LOG "<R1>\t$txt";
|
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";
|
say LOG "<R2>\t$txt";
|
||||||
return $txt
|
return $txt
|
||||||
}
|
}
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue