This is my text. I hope you like it!
| Would you like to see my Monkey? |
##
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $html = '';
while () {
$html .= $_;
}
my $begin = 0;
my $end = 0;
my @excerpts = ();
for (my $i=0;$i') {
$begin = $i + 1;
}
if ($begin && substr($html,$i,1) eq '<') {
$end = $i;
}
if ($begin && $end) {
push @excerpts, { begin => $begin, end => $end };
$begin = 0;
$end = 0;
}
}
# last snippet
if ($begin && !$end) {
push @excerpts, { begin => $begin, end => length($html) };
}
my @word_pos_list = ();
foreach my $excerpt (@excerpts) {
my $begin = $excerpt->{begin};
my $end = $excerpt->{end};
my $length = $end - $begin;
my $word_string = substr($html,$begin,$length);
while ($word_string =~ m/(\b\w+\b)/g) {
my $word_begin = $begin + $-[0];
my $word_end = $begin + $+[0];
my $word_length = $word_end - $word_begin;
push @word_pos_list, { begin => $word_begin, end => $word_end, length => $word_length, word => $1 };
}
}
print "Original HTML:\n";
print "$html\n";
print "**************************************\n";
print "New HTML:\n";
my $test_repl = $word_pos_list[6];
my $repl_beg = $test_repl->{begin};
my $repl_length = $test_repl->{length};
substr($html,$repl_beg,$repl_length,'POOP');
print $html;