perl - 如何使哈希键查找不区分大小写？

Question

显然，哈希键是以区分大小写的方式进行比较的。

$ perl -e '%hash = ( FOO => 1 ); printf "%s\n", ( exists $hash{foo} ) ? "Yes" : "No";'
No

$ perl -e '%hash = ( FOO => 1 ); printf "%s\n", ( exists $hash{FOO} ) ? "Yes" : "No";'
Yes

是否有设置可以更改当前脚本的设置？

Answer 1

一个字符串的哈希值和大小写改变的同一个字符串是不相等的。所以你不能做你想做的事，除了在创建之前和使用它之前在每个哈希键上调用“uc”。