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) "巽下断" }