Perl语言踩过的坑记录

字符串比较中，undef与空串""是相等的

  DB<14> $test=""
  DB<15> print 'ok' if($test eq undef); 
ok
  DB<16> print 'ok' if($test eq '');     
ok
  DB<17> 

字符串 '0' 在if判断中为假

  DB<22> $test="0"

  DB<23> print 'ok' if ($test)

  DB<24> $test="01"           

  DB<25> print 'ok' if ($test)
ok