1. 多位数组 
  2.  
  3.   
  4.  
  5. my %HAO; 
  6. for $i(0..9){ 
  7.    for $j(0..9) { 
  8.       $HAO[$i][$j] = $i.$j; 
  9.    } 
  10. } 
  11.  
  12.  
  13. for $x(0..$#HAO) { 
  14.    for $y(0..$#{$HAO[$x]}) { 
  15.       print $HAO[$x][$y]." "; 
  16.    } 
  17.    print "\n"; 
  18. } 
  19.  
  20. PS D:\> perl 01.pl 
  21. 00 01 02 03 04 05 06 07 08 09 
  22. 10 11 12 13 14 15 16 17 18 19 
  23. 20 21 22 23 24 25 26 27 28 29 
  24. 30 31 32 33 34 35 36 37 38 39 
  25. 40 41 42 43 44 45 46 47 48 49 
  26. 50 51 52 53 54 55 56 57 58 59 
  27. 60 61 62 63 64 65 66 67 68 69 
  28. 70 71 72 73 74 75 76 77 78 79 
  29. 80 81 82 83 84 85 86 87 88 89 
  30. 90 91 92 93 94 95 96 97 98 99 
  31.  
  32.   
  33.  
  34. #结果 
  35.  
  36.   
  37.  
  38. 哈希,数组 
  39.  
  40. my %HAO = ( 
  41.            fine => ["df","ee"], 
  42.            nine => ["fine","ok"], 
  43.            wcc => ["you","fuck"] 
  44. ); 
  45.  
  46. foreach $key(keys %HAO) { 
  47.    for $j(0..$#{$HAO{$key}}) { 
  48.       print $HAO{$key}[$j]." "; 
  49.  
  50.    } 
  51.    print "\n"; 
  52. } 
  53.   
  54.  
  55. #显示结果 
  56.  
  57. PS D:\> perl 01.pl 
  58. df ee 
  59. you fuck 
  60. fine ok 
  61. PS D:\> 
 
  

 
 
  
 
  
  1. ################################################################## 
  2. my %month = ( 
  3.              "01" => "Jan", 
  4.              "02" => "Feb", 
  5.              "03" => "Mar", 
  6.              "04" => "Apr", 
  7.              "05" => "May", 
  8.              "06" => "Jun", 
  9.              "07" => "Aug" 
  10.  
  11. ); 
  12.  
  13.  
  14. $point = \%month; 
  15. print "\n address of hash = $point\n"; 
  16. foreach $i(sort keys %month) { 
  17.    print "$i $$point{$i}\n"; # 
  18. #  print "$i $month{$i}\n";  
  19. } 
  20. print "\n\n"; 
  21.  
  22. foreach $i(sort keys %$point) { 
  23.    print "$i $$point{$i}\n"; # 
  24. } 
  25.  
  26. 输出 
  27.  address of hash = HASH(0x285bac) 
  28. 01 Jan 
  29. 02 Feb 
  30. 03 Mar 
  31. 04 Apr 
  32. 05 May 
  33. 06 Jun 
  34. 07 Aug 
  35.  
  36.  
  37. 01 Jan 
  38. 02 Feb 
  39. 03 Mar 
  40. 04 Apr 
  41. 05 May 
  42. 06 Jun 
  43. 07 Aug 
 
  
 
  
  1. 多维数组 
  2. 1  #!/usr/bin/perl 
  3. 2  # 
  4. 3  # Using Multi-dimensional Array references 
  5. 4  # 
  6. 5  $line = ['solid', 'black', ['1','2','3'] , ['4', '5', '6']]; 
  7. 6  print "\$line->[0] = $line->[0] \n"; 
  8. 7  print "\$line->[1] = $line->[1] \n"; 
  9. 8  print "\$line->[2][0] = $line->[2][0] \n"; 
  10. 9  print "\$line->[2][1] = $line->[2][1] \n"; 
  11. 10 print "\$line->[2][2] = $line->[2][2] \n"; 
  12. 11 print "\$line->[3][0] = $line->[3][0] \n"; 
  13. 12 print "\$line->[3][1] = $line->[3][1] \n"; 
  14. 13 print "\$line->[3][2] = $line->[3][2] \n"; 
  15. 14 print "\n"; # The obligatory output beautifier.  
  16.  
  17.     结果输出如下： 
  18.  
  19.  
  20. $line->[0] = solid 
  21. $line->[1] = black 
  22. $line->[2][0] = 1 
  23. $line->[2][1] = 2 
  24. $line->[2][2] = 3 
  25. $line->[3][0] = 4 
  26. $line->[3][1] = 5 
  27. $line->[3][2] = 6  
  28.  
  29.     那么三维数组又如何呢？下面是上例略为改动的版本。 
  30.  
  31.  
  32. 1  #!/usr/bin/perl 
  33. 2  # 
  34. 3  # Using Multi-dimensional Array references again 
  35. 4  # 
  36. 5  $line = ['solid', 'black', ['1','2','3', ['4', '5', '6']]]; 
  37. 6  print "\$line->[0] = $line->[0] \n"; 
  38. 7  print "\$line->[1] = $line->[1] \n"; 
  39. 8  print "\$line->[2][0] = $line->[2][0] \n"; 
  40. 9  print "\$line->[2][1] = $line->[2][1] \n"; 
  41. 10 print "\$line->[2][2] = $line->[2][2] \n"; 
  42. 11 print "\$line->[2][3][0] = $line->[2][3][0] \n"; 
  43. 12 print "\$line->[2][3][1] = $line->[2][3][1] \n"; 
  44. 13 print "\$line->[2][3][2] = $line->[2][3][2] \n"; 
  45. 14 print "\n";  
  46.  
  47.     结果输出如下： 
  48.  
  49.  
  50. $line->[0] = solid  
  51. $line->[1] = black  
  52. $line->[2][0] = 1  
  53. $line->[2][1] = 2  
  54. $line->[2][2] = 3  
  55. $line->[2][3][0] = 4  
  56. $line->[2][3][1] = 5  
  57. $line->[2][3][2] = 6  
  58.  
  59.     访问第三层元素的方式形如$line->[2][3][0]，类似于C语言中的