求教如何调用pm文件中的hash

q1208c

回复 10# flysky_coool

1. 
   
2. #！/usr/bin/perl -w
   
3. 
   
4. package Tables;
   
5. use strict;
   
6. 
   
7. our %newHash;
   
8. 
   
9. $newHash{"Table1"}{"studid"} = "s000001",
   
10. $newHash{"Table1"}{"studname"}  = "n000001",
    
11. $newHash{"Table1"}{"studscore"} = "100",
    
12. 
    
13. $newHash{"Table2"}{"studid"} = "s000001",
    
14. $newHash{"Table2"}{"studname"}  = "n000001",
    
15. $newHash{"Table2"}{"studscore"} = "100",
    
16. 
    
17. $newHash{"Table3"}{"studid"} = "s000001",
    
18. $newHash{"Table3"}{"studname"}  = "n000001",
    
19. $newHash{"Table3"}{"studscore"} = "100",
    
20. 
    
21. $newHash{"Table4"}{"studid"} = "s000001",
    
22. $newHash{"Table4"}{"studname"}  = "n000001",
    
23. $newHash{"Table4"}{"studscore"} = "100",
    
24. 
    
25. 
    
26. 1;   
    

复制代码

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. use Tables;
   
6. 
   
7. sub write_ctl_file
   
8. {
   
9.     my $table_name = $_[0];
   
10. 
    
11.     foreach (keys %{$newHash{$table_name}}) {
    
12.         print $_ . "\n";
    
13.     }
    
14. }
    
15. 
    
16. write_ctl_file("students");
    

复制代码