Re: compare two strings and return only he unique values.


P is for Practical
	PerlMonks

Re: compare two strings and return only he unique values.

by tobyink (Canon)

on Feb 03, 2013 at 19:20 UTC ( [id://1016852]=note: print w/replies, xml )

Need Help??

in reply to compare two strings and return only he unique values.

use 5.010;
use strict;
use warnings;

my ($str1, $str2) = ("ABCDE", "BCDEO");

my %in_str1 = map { $_ => 1 } split //, $str1;
my %in_str2 = map { $_ => 1 } split //, $str2;
my @unique;

for my $letter (keys %in_str1, keys %in_str2) {
    unless ( $in_str1{$letter} and $in_str2{$letter} ) {
        push @unique, $letter;
    }
}

say "Unique letters: @unique";
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name