Geek Answers Handbook

Perl compare two lines and highlight inconsistent characters

string1 = "AAABBBBBCCCCCDDDDD" string2 = "AEABBBBBCCECCDDDDD"

exit. If the mismatch (in this case, E) is replaced by HTML tags around E, which are its color.

 A**E**ABBBBBCC**E**CCDDDDD

What I have tried so far: XOR, diff and substr. First I need to find the indices, then replace these indices with a template.

+8
perl
source share
6 answers
 use strict; use warnings; my $string1 = 'AAABBBBBCCCCCDDDDD'; my $string2 = 'AEABBBBBCCECCDDDDD'; my $result = ''; for(0 .. length($string1)) { my $char = substr($string2, $_, 1); if($char ne substr($string1, $_, 1)) { $result .= "**$char**"; } else { $result .= $char; } } print $result;

Print A**E**ABBBBBCC**E**CCDDDDD

Tested a few. May contain errors.

+7
source share
 my @x = split '', "AAABBBBBCCCCCDDDDD"; my @y = split '', "AEABBBBBCCECCDDDDD"; my $result = join '', map { $x[$_] eq $y[$_] ? $y[$_] : "**$y[$_]**" } 0 .. $#y;
+9
source share
 use warnings; use strict; my ($s1, $s2, $o1, $o2) = ("AAABBBBBCCCCCDDDDD", "AEABBBBBCCECCDDDDD"); my @s1 = split(//, $s1); my @s2 = split(//, $s2); my $eq_state = 1; while (@s1 and @s2) { if (($s1[0] eq $s2[0]) != $eq_state) { $o1 .= (!$eq_state) ? "</b>" : "<b>"; $o2 .= (!$eq_state) ? "</b>" : "<b>"; } $eq_state = $s1[0] eq $s2[0]; $o1.=shift @s1; $o2.=shift @s2; } print "$o1\n$o2\n";

Exit

 A<b>A</b>ABBBBBCC<b>C</b>CCDDDDD A<b>E</b>ABBBBBCC<b>E</b>CCDDDDD

The simplest one that only displays the second line:

 use warnings; use strict; my ($s1, $s2, $was_eq) = ("AAABBBBBCCCCCDDDDD", "AEABBBBBCCECCDDDDD", 1); my @s1 = split(//, $s1); my @s2 = split(//, $s2); for my $idx (0 .. @s2 -1) { my $is_eq = $s1[$idx] eq $s2[$idx]; print $is_eq ? "</b>" : "<b>" if ( $was_eq != $is_eq); $was_eq = $is_eq; print $s2[$idx]; }

Outout

 </b>A<b>E</b>ABBBBBCC<b>E</b>CCDDDDD
+4
source share

This may be the memory intensity for large lines.

 use strict; use warnings; my $a = "aabbcc"; my $b = "aabdcc"; my @a = split //, $a; my @b = split //, $b; my $new_b = ''; for(my $i = 0; $i < scalar(@a); $i++) { $new_b .= $a[$i] eq $b[$i] ? $b[$i] : "**$b[$i]**"; }

OUTPUT:

 $ test.pl new_b: aab**d**cc
+3
source share

There are several ways to do this. The following is a possible way to solve this problem.

 my $str1="ABCDEA"; my $str2="AECDEB"; my @old1=split("",$str1); my @old2=split("",$str2); my @new; for my $i (0..$#old1) { if ($old1[$i] eq $old2[$i] ) { push (@new, $old2[$i]); } else { my $elem = "**".$old2[$i]."**"; push (@new , $elem); } } print @new;

Output:

 A**E**CDE**B**
+2
source share

Aligning columns and using the bitwise operator of the string "^":

 my $a = "aabbccP"; my $b = "aabdccEE"; $_ = $a ^ $b; s/./ord $& ? "^" : " "/ge; print "$_\n" for $a, $b, $_;

gives:

 aabbccP aabdccEE ^ ^^
+2
source share

More articles:


All Articles