perl php dump

调试函数 比较 perl #!/usr/bin/perl use POSIX qw(strftime); use Data::Dump qw(dump ddx); my %MonthAbbr = ( "Jan"=>'01',"Feb"=>'02',"Mar"=>'03',"Apr"=>'04',"May"=>'05',"Jun"=>'06',"Jul"=>'07',"Aug"=>'08',"Sep"=>'09',"Oct"=>'10',"Nov"=>'11',"Dec"=>'12' ); dump(%MonthAbbr); ddx(%MonthAbbr ); [root@localhost ~]# perl t.pl (   "Sep",  "09",  "May",  "05",  "Jul",  "07",  "Jun",  "06",  "Jan",  "01",  "Nov",  11,  "Aug",  "08",  "Feb",  "02",  "Mar",  "03",  "Dec",  12,  "Apr",  "04",  "Oct",  10,) # t.pl:6: ( #   "Sep",#   "09",#   "May",#   "05",#   "Jul",#   "07",#   "Jun",#   "06",#   "Jan",#   "01",#   "Nov",#   11,#   "Aug",#   "08",#   "Feb",#   "02",#   "Mar",#   "03",#   "Dec",#   12,#   "Apr",#   "04",#   "Oct",#   10,# ) PHP <?PHP  $my_8 = array( '000' => '坤六断','001' => '震仰盂','100' => '艮覆碗','101' => '离中虚','010' => '坎中满','011' => '兑上缺','110' => '巽下断' ); var_dump($my_8); ?> array(7) {   ["000"]=>   string(9) "坤六断"   ["001"]=>   string(9) "震仰盂"   [100]=>   string(9) "艮覆碗"   [101]=>   string(9) "离中虚"   ["010"]=>   string(9) "坎中满"   ["011"]=>   string(9) "兑上缺"   [110]=>   string(9) "巽下断" }