Perl : 用 FreezeThaw 比较两个 数组ARRAY / HASH 是否相同

来源：perlfaq-4.44-How do I test whether two arrays or hashes are equal?

            
use FreezeThaw qw(cmpStr);
@a = @b = ( "this", "that", [ "more", "stuff" ] );


printf "a and b contain %s arrays\n",
cmpStr(\@a, \@b) == 0
? "the same"
: "different";