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

flysky_coool

1. #！/usr/bin/perl -w
   
2. 
   
3. package Tables;
   
4. use strict;
   
5. 
   
6. our %students = (
   
7.   "studid" => "s000001",
   
8.   "studname"  => "n000001",
   
9.   "studscore" => "100",
   
10. );
    
11. 1;

复制代码

以上为Table.pm的内容

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

复制代码

以上为ctl.pl的内容，我不会调用pm中的hash，取出keys或values值

顺便问一下，perl编写中一般涉及到哪几个后缀名的，什么时候使用什么后缀名的？

flysky_coool

回复 1# flysky_coool



自己顶啊，每人知道么

   

q1208c

先试试 不要把 hashname 用 变量.

yinyuemi

1. cat Table.pm
   
2. package Table;
   
3. use strict;
   
4. 
   
5. our %students = (
   
6.   "studid" => "s000001",
   
7.   "studname"  => "n000001",
   
8.   "studscore" => "100",
   
9. );
   
10. 
    
11. sub hash{
    
12.         return \%students;
    
13. }
    
14. 1;
    
15. 
    
16. 
    
17. cat ctl.pl
    
18. #!/usr/bin/perl
    
19. 
    
20. use strict;
    
21. use Table;
    
22. 
    
23. sub write_ctl_file
    
24. {
    
25.   my $table_name = $_[0];
    
26. 
    
27.   foreach (keys %{$table_name})
    
28.   {
    
29.      print $_ . "\n";
    
30.   }
    
31. }
    
32. 
    
33. write_ctl_file(Table::hash());
    

复制代码

flysky_coool

回复 3# q1208c


      因为 在Tables 我要定义好多表。。然后根据表名去写文件。。不定义变量 我没法完成啊

q1208c

回复 5# flysky_coool


    hash name 可能是没办法做为变量的. 但 hash key可以,

所以, 可以用 两层的hash.

比如 newHash{'key1'}{'key2'} = 'var1';

这样, 你可以把 key1 做为变量来用, 但 hash 的name, newHash 不变就行了.　

flysky_coool

回复 6# q1208c


没大看明白。。能说的更明白点吗

   

q1208c

回复 7# flysky_coool

1. 
   
2. #！/usr/bin/perl -w
   
3. 
   
4. package Tables;
   
5. use strict;
   
6. 
   
7. our %newHash;
   
8. 
   
9. $newHash{"students"}{"studid"} = "s000001",
   
10. $newHash{"students"}{"studname"}  = "n000001",
    
11. $newHash{"students"}{"studscore"} = "100",
    
12. );
    
13. 1;   
    

复制代码

afukada

如果不使用use strict的話

把hash name當變數是可以的

1. %A1=("a"=>1,"b"=>2,"c"=>3,"d"=>4);
   
2. %A2=("a"=>5,"b"=>6,"c"=>7,"d"=>8);
   
3. 
   
4. $str="A1";
   
5. print "when var=",$str,"\n";
   
6. print join(",",keys(%$str)),"\n";
   
7. print join(",",values(%$str)),"\n";
   
8. 
   
9. print "\n\n";
   
10. 
    
11. $str="A2";
    
12. print "when var=",$str,"\n";
    
13. print join(",",keys(%$str)),"\n";
    
14. print join(",",values(%$str)),"\n";

复制代码

不過還是建議使用q1208c大神的方法做兩層的hash

flysky_coool

回复 8# q1208c


大神，我是个新手，想请教你一个思路。

目前，我是准备在Tables.pm文件中定义好多表，例如：Table 1，Table 2，Table 3 。。。。。每个表有对应的字段及默认值

         ctl.pl文件主要是读取Tables.pm中的字段名，使用另一个文件调用ctl.pl传入表名，然后使用ctl.pl调Tables.pm中的传入表的字段并写入文件中

         大神，你有什么好的思路吗？