Re^2: substitution in textual area of HTML file

Hi Marto, nice script to start with. I just changed it a little bit to preserve the RegEx matching feature instead of the index one.

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Mojo::DOM;

my $html = '<ul><div class="txt" style="position:absolute; left:84px; 
+top:73px;"><span id="f1" style="font-size:11px;vertical-align:baselin
+e;color:rgba(0,0,0,1);">technology of S2S translation, also known as 
+Spoken Language Translation (SLT),</span></div><div class="txt" style
+="position:absolute; left:44px; top:73px;"><span id="f1" style="font-
+size:11px;vertical-align:baseline;color:rgba(0,0,0,1);">is a new appl
+ication of AI,</span></div><li>there</li><li>everyone</li></ul>
';

my $dom = Mojo::DOM->new( $html );

#  find each span tag
foreach my $id ( $dom->find('span')->each ){
    my $text = $id->text;
    if ( $text =~ /Spoken/){
        $text =~ s/Spoken/Derp!/g;
        $id->replace( $text );
    }
}

#  print the updated DOM
say $dom->content;
[download]

Now I can start working on the second phase: matching n-grams across two adjacent DOMs.

Comment on Re^2: substitution in textual area of HTML file Download Code

Replies are listed 'Best First'.
Re^3: substitution in textual area of HTML file by marto (Cardinal) on Mar 10, 2020 at 18:19 UTC
Fewer cars on the road tonight, you could also consider: #!/usr/bin/perl use strict; use warnings; use feature 'say'; use Mojo::DOM; my $html = '<ul><div class="txt" style="position:absolute; left:84px; +top:73px;"><span id="f1" style="font-size:11px;vertical-align:baselin +e;color:rgba(0,0,0,1);">technology of S2S translation, also known as +Spoken Language Translation (SLT),</span></div><div class="txt" style +="position:absolute; left:44px; top:73px;"><span id="f1" style="font- +size:11px;vertical-align:baseline;color:rgba(0,0,0,1);">is a new appl +ication of AI,</span></div><li>there</li><li>everyone</li></ul>'; my $dom = Mojo::DOM->new( $html ); $dom->find('span')->each( sub { $_->content( $_->content =~ s/Spoken/D +erp/r ) } ); say $dom->content; [download]	[reply] [d/l]
Re^4: substitution in textual area of HTML file by Takamoto (Monk) on Mar 10, 2020 at 18:47 UTC
If my text has some formatting tags (<bold> for example), the formatted text is stripped off. my $html = '<ul><div class="txt" style="position:absolute; left:84px; +top:73px;"><span id="f1" style="font-size:11px;vertical-align:baselin +e;color:rgba(0,0,0,1);">technology of S2S translation, <b>also</b> kn +own as Spoken Language Translation (SLT),</span></div><div class="txt +" style="position:absolute; left:44px; top:73px;"><span id="f1" style +="font-size:11px;vertical-align:baseline;color:rgba(0,0,0,1);">is a n +ew application of AI,</span></div><li>there</li><li>everyone</li></ul +> '; [download] Becoming: `<ul><div class="txt" style="position:absolute; left:84px; top:73px;">t +echnology of S2S translation, known as Derp! Language Translation (S +LT),</div><div class="txt" style="position:absolute; left:44px; top:7 +3px;"><span id="f1" style="font-size:11px;vertical-align:baseline;col +or:rgba(0,0,0,1);">is a new application of AI,</span></div><li>there< +/li><li>everyone</li></ul>` [download] I am starting to realize that my task is more difficult than I thought at first... but working on 2020-03-11 Athanasius fixed over-wide display of code.	[reply] [d/l] [select]
Re^5: substitution in textual area of HTML file by marto (Cardinal) on Mar 10, 2020 at 19:29 UTC
This doesn't seem to be the case: #!/usr/bin/perl use strict; use warnings; use feature 'say'; use Mojo::DOM; my $html = '<ul><div class="txt" style="position:absolute; left:84px; +top:73px;"><span id="f1" style="font-size:11px;vertical-align:baselin +e;color:rgba(0,0,0,1);">technology of S2S translation, <b>also</b> kn +own as <b>Spoken</b> Language Translation (SLT),</span></div><div cla +ss="txt" style="position:absolute; left:44px; top:73px;"><span id="f1 +" style="font-size:11px;vertical-align:baseline;color:rgba(0,0,0,1);" +>is a new application of AI,</span></div><li>there</li><li>everyone</ +li></ul> '; my $dom = Mojo::DOM->new( $html ); $dom->find('span')->each( sub { $_->content( $_->content =~ s/Spoken/D +erp/r ) } ); say $dom->content; [download] Output: `<ul><div class="txt" style="position:absolute; left:84px; top:73px;">< +span id="f1" style="font-size:11px;vertical-align:baseline;color:rgba +(0,0,0,1);">technology of S2S translation, <b>also</b> known as <b>De +rp</b> Language Translation (SLT),</span></div><div class="txt" style +="position:absolute; left:44px; top:73px;"><span id="f1" style="font- +size:11px;vertical-align:baseline;color:rgba(0,0,0,1);">is a new appl +ication of AI,</span></div><li>there</li><li>everyone</li></ul>` [download] The `<b></b>` tags around 'also' are still there, and replacing 'Spoken' with 'Derp' also maintains the associated `<b></b>` tags. Perhaps you've altered some code?	[reply] [d/l] [select]
Re^6: substitution in textual area of HTML file by Takamoto (Monk) on Mar 10, 2020 at 20:27 UTC
Re^7: substitution in textual area of HTML file by marto (Cardinal) on Mar 10, 2020 at 20:54 UTC
Re^5: substitution in textual area of HTML file by marto (Cardinal) on Mar 10, 2020 at 19:21 UTC
Post a few edge cases of the data you're working with and I'll take a look later on.	[reply]


Keep It Simple, Stupid
	PerlMonks