in reply to stuck on newb problem
my $str1 = "olleh"; my $str2 = "elloh"; if ( $str1 =~ /\A[$str2]+\z/ ) { print "$str1 and $str2 contain the same characters.\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: stuck on newb problem
by GrandFather (Saint) on Apr 28, 2012 at 05:26 UTC | |
|
Re^2: stuck on newb problem
by mbethke (Hermit) on Apr 28, 2012 at 06:18 UTC |