Perl 判断一个字符串中所有字符是否在另外一个字符串中出现

在酷壳 CoolShell.cn 中看到一个文章，判断一个字符串中的所有字符是否在另外一个字符串中出现，如果用循环的话时间复杂度是O(mxn)，如果使用先排序后判断时间复杂度是O(mlgm)+O(nlgn)+O(m)，作者面试的时候考官给出的一个思路是每个字符给一个素数，所有的树相乘，再用这个数去除另外一个字串中字符对应的数，余数为0的话则包含在第一个字串中，时间复杂度为O(m+n)，思考了以下，素数比较大，相乘可能会溢出，用另外一个思路位来解决这个问题，复杂度也是O(m+n)，实际效率有待验证。

一般情况下有128或者256个字串出现，每个字符对应一位，用16个（32个）8位的字符可以完全表示这些字符是否出现过，每个字符对应的位置为1即可，然后判断两个数组依次位与之后与查找的那个是否相同即可。

以下是简单的实现：

testing 0 0 0 0 1 0 0 0 0 0 0 0 160 66 24 0testing !@#$0 0 0 0 27 0 0 0 1 0 0 0 160 66 24 01testing %0 0 0 0 33 0 0 0 0 0 0 0 160 66 24 0testing !@#$0 0 0 0 27 0 0 0 1 0 0 0 160 66 24 00