如何设置变量不区分大小写

大山里出来的孩子

下面是一个汉英字典里面的内容  ，我将第一列的英文设为一个哈希表里的键 $en ,怎样设置这个$en不区分大小写呢 ？比如有个单词Abandon  怎样使得这个单词也对应着 抛弃，放弃这个意思呢？
求高手指点，谢谢！！
abandon                                                                 抛弃，放弃                                       
abandonment                                                     放弃                                       
abbreviation                                                            缩写                                       
abeyance                                                                缓办 ， 中止                                 
abide                                                                   遵守                                       
ability                                                                 能力                                       
able                                                                    有能力的 ， 能干的                           
abnormal                                                                反常的，  变态的                              
aboard                                                                  船上， 车上                                   
abolish                                                                 废除 ， 取消                                 
abolition                                                               废除 ， 取消                                 
abortion                                                                流产                                       
abortive                                                                无效果的 ， 失败的                           
about                                                                关于，  大约      

jason680

回复 1# 大山里出来的孩子

lc(lowercase)

more information as below command:
$ perldoc -f lc      
   

大山里出来的孩子

你这个是将大写转换成小写 ，我想要的是不区分大小写 回复 2# jason680


   

afukada

回复 3# 大山里出来的孩子


jason680的意思是

將讀進來的單詞先全部轉換成小寫

再使用hash來找

wand65

回复 1# 大山里出来的孩子

搜索的时候（匹配的时候）忽略大小写可以吧
   

大山里出来的孩子

恩恩，那如果hash里面既有大写也有小写呢？回复 4# afukada


   

pitonas

one to three ~ {:2_168:}
my $师傅         jason680:

1. lc
   

复制代码

my $师傅         afukada:

1. 將讀進來的單詞先全部轉換成小寫

复制代码

{ adam => [ 亚当 ], abolish => [ 废除, 取消 ] }

1. my %dic = map { my ($e, @c) = split; lc($e) => [@c] } <DATA>;
   
2. 
   
3. __DATA__
   
4. Adam 亚当
   
5. abolish 废除 取消
   

复制代码

回复 6# 大山里出来的孩子


   

大山里出来的孩子

那要是我的里面大小写都有呢 ？回复 7# pitonas


   

afukada

你的意思是如果要查Abandon

結果也能找到 抛弃，放弃 嗎?

那就:

1. while(<DATA>)
   
2. {
   
3.         chomp;
   
4.         ($key,$vlaue)=split;
   
5.         print $vlaue,"\n";
   
6.         $dict{lc($key)}=$vlaue;
   
7. }
   
8. 
   
9. @list=("abandon","Abandon","abaNdon","ABANDON");
   
10. 
    
11. foreach(@list)
    
12. {
    
13.         $trans=$dict{lc($_)};
    
14.         print "$_\t$trans\n";
    
15. }
    
16. 
    
17. __DATA__
    
18. abandon                                                                 抛弃，放弃                                       
    
19. abandonment                                                     放弃                                       
    
20. abbreviation                                                            缩写                                       
    
21. abeyance                                                                缓办 ， 中止                                 
    
22. abide                                                                   遵守                                       
    
23. ability                                                                 能力                                       
    
24. able                                                                    有能力的 ， 能干的                           
    
25. abnormal                                                                反常的，  变态的                              
    
26. aboard                                                                  船上， 车上                                   
    
27. abolish                                                                 废除 ， 取消                                 
    
28. abolition                                                               废除 ， 取消                                 
    
29. abortion                                                                流产                                       
    
30. abortive                                                                无效果的 ， 失败的                           
    
31. about                                                                关于，  大约

复制代码

不管輸出輸入都強制轉換成小寫

pitonas

N 多种方法

1. 
   
2. my %dic;
   
3. map { my ( $e, @c ) = split; @{ $dic{ lc($e) } }{@c} = () } <DATA>;
   
4. say perl %dic;
   
5. 
   
6. # { abolish => { 废除 => undef, 取消 => undef }, adam => { 亚当 => undef, 有当 => undef } }
   
7. 
   
8. __DATA__
   
9. Adam 亚当
   
10. adam 有当
    
11. abolish 废除 取消
    

复制代码

1. my %dic;
   
2. while (<DATA>) {
   
3.     my ( $EN, @CH ) = split;
   
4.     my $en = lc $EN;
   
5.     my %c;
   
6.     @c{ @{ $dic{$en} || [] }, @CH } = ();
   
7.     $dic{$en} = [ keys %c ];
   
8. }
   
9. say perl %dic;
   
10. 
    
11. # { abolish => [ 废除, 消除, 取消 ], adam => [ 有当, 当亚, 亚当 ] }
    
12. 
    
13. __DATA__
    
14. Adam 亚当
    
15. adam 有当 当亚
    
16. abolish 废除 取消 消除
    
17. Abolish 废除 取消
    

复制代码

回复 8# 大山里出来的孩子