Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

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

by Not_a_Number (Parson)
on Feb 03, 2013 at 20:22 UTC ( #1016856=note: print w/ replies, xml ) Need Help??


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

Yet another (short) way:

my ( $str1, $str2 ) = ( 'ABCDE', 'BCDEO' ); my %count; $count{$_}++ for split //, $str1.$str2; print grep $count{$_} == 1, keys %count;


Comment on Re: compare two strings and return only he unique values.
Download Code
Re^2: compare two strings and return only he unique values.
by Kenosis (Priest) on Feb 03, 2013 at 21:17 UTC

    Won't show "A" when:

    my ( $str1, $str2 ) = ( 'ABCDEA', 'BCDEO' );

      Yeah, I know. But the OP said:

      I am trying to display unique values from two strings

      So is 'A', in your dataset, unique or not?

      Depends upon a better spec, I suppose...

      Update: smls (below) already pointed this out;

        Your solution is elegant and works beautifully with "ABCDE", "BCDEO" -- the OP's two initial strings. But the OP later included "ABCDE", "BBBBB" as options, clearly indicating the possibility of character reptition. Quite agree that a clearer spec would help...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016856]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (11)
As of 2014-09-19 11:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (135 votes), past polls