in reply to Re^2: Match text from txt to html
in thread Match text from txt to html

Great! And is the code working correctly? (Quietly loads the confetti cannon.)

Alex / talexb / Toronto

Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.

Replies are listed 'Best First'.
Re^4: Match text from txt to html
by corfuitl (Sexton) on Sep 04, 2019 at 14:42 UTC

    this is my code as of now.

    #!/usr/bin/perl

use warnings;

my $html = shift;

my $htmlvar;
open(my $fh, '<', $html) or die "cannot open file $html";
{
    chomp;
    local $/;
    $htmlvar = <$fh>;
}
close($fh);

my $line = 1;

while (<STDIN>){
    chomp;
    if ($htmlvar =~ /$_/  && $htmlvar !~ /<sentence id\"[0-9]*\">$_<\/
+sentence>/){
        $htmlvar =~ s/($_)/<sentence id\"$line\">$1<\/sentence>/;
        $line++
    }
}

print "$htmlvar\n";

    [download]
[reply]
[d/l]

      When open fails, get it to tell you why:

      open(my $fh, '<', $html) or die "cannot open file $html: $!";

      [download]

      Trying to parse HTML like this is more often than not a waste of time.

[reply]
[d/l]
Re^4: Match text from txt to html
by corfuitl (Sexton) on Sep 04, 2019 at 15:20 UTC

    Thanks! I am opening the html this way as I don't know the nodes of the files. the created automatically, so this is why I am reading them as text.

[reply]

In Section Seekers of Perl Wisdom