Re^2: How do i do a direct comparison of an array of strings?

Actually, you don't even have to bother with the tr stuff if you only want the differing positions:

>perl -wMstrict -le
"my ($x, $y) = qw{abXcdYef pqXrsYtu};
 my @i_diffs = differing_positions($x, $y);
 print 'number of differences: ', scalar @i_diffs;
 print qq{differing positions: @i_diffs};
 sub differing_positions {
   my $i = 0;
   map   $_->[1],
   grep  $_->[0] ne qq{\x00},
   map   [ $_, $i++ ],
   split '',
   $_[0] ^ $_[1]
   ;
   }
"
number of differences: 6
differing positions: 0 1 3 4 6 7
[download]

Comment on Re^2: How do i do a direct comparison of an array of strings? Select or Download Code

Replies are listed 'Best First'.
Re^3: How do i do a direct comparison of an array of strings? by gone2015 (Deacon) on Feb 20, 2009 at 01:13 UTC
Or even: `sub differing_positions { my @c = unpack('C*', $_[0] ^ $_[1]) ; return grep $c[$_], (0..$#c) ; }` [download]	[reply] [d/l]
Re^4: How do i do a direct comparison of an array of strings? by AnomalousMonk (Archbishop) on Feb 20, 2009 at 11:36 UTC
The `unpack` solution is simpler, IMHO, than the regex solution (see Re^2: How do i do a direct comparison of an array of strings? below), and is also faster except for strings in which there are relatively few differences. Benchmarks: Read more... (2 kB)	[reply] [d/l] [select]