sweepy838 has asked for the wisdom of the Perl Monks concerning the following question:

i'm still attempting this unscrambler for my challenge, i just need a little help with 1 small thing.. how am i able to check if a string contains the same characters as another string? example: 
str1 = "olleh"
str2 = "elloh"
does str2 contain the same letters as str1 (even if it is in a differe
+nt order)

[download]

Replies are listed 'Best First'.
Re: stuck on newb problem
by toolic (Bishop) on Apr 28, 2012 at 01:25 UTC
    sort the characters of each, then compare with eq: 
    use warnings;
use strict;

my $s = 'hello';
my $x = join '', sort split //, $s;
print "$x\n";

__END__

ehllo

    [download]
[reply]
[d/l]
[select]
      ahh thank you :D such simple solution cant believe i never thought of that :o jeez
[reply]
Re: stuck on newb problem
by jwkrahn (Abbot) on Apr 28, 2012 at 02:30 UTC 
    my $str1 = "olleh";
my $str2 = "elloh";
if ( $str1 =~ /\A[$str2]+\z/ ) {
    print "$str1 and $str2 contain the same characters.\n";
    }

    [download]
[reply]
[d/l]

      for the definition of "same characters" where you mean the same set of unique characters. However the OP probably wouldn't consider:

      my $str1 = "olleh";
my $str2 = "eelooooh";

      [download]

      to "contain the same characters", but they pass the test.

      True laziness is hard work
[reply]
[d/l]

      Fast but loose! Try with $str1 = "e" :)

      Edit: keeping the tab open too long obsoletes many a post ...

[reply]

Back to Seekers of Perl Wisdom