大家看一下这个perl程序怎么回事？

biophysics

1. #!/usr/bin/perl
   
2. %name=(
   
3.         "fred"=>"flintstone",
   
4.         "barney"=>"rubble",
   
5.                 "wilma"=>"flintstone",
   
6.                 );
   
7. foreach $name_list (keys %name) {
   
8.         if ($name_list=3) {
   
9.                 print "abc\n";
   
10.         }
    
11. 
    
12. }

复制代码

为什么会输出abc结果呢？

zhlong8

= == 不分

dxjdhm

if 里面你是这是赋值