找不到错误了???

sunzhiguolu

看了篇帖子, 内容如下:

我现在有三个文件，省、市、县各有一个文件分别为：
sheng.txt
1 北京市
2 天津市
3 河北省
4 山西省
5 内蒙古自治区
6 辽宁省
7 吉林省
8 黑龙江省

shi.txt
1 北京市 1
2 天津市 2
3 石家庄市 3
4 唐山市 3
5 秦皇岛市 3
6 邯郸市 3
7 邢台市 3
8 保定市 3
9 张家口市 3
10 承德市 3

xian.txt
1 东城区 1
2 西城区 1
3 崇文区 1
4 宣武区 1
5 朝阳区 1
6 丰台区 1
7 石景山区 1
8 海淀区 1
9 门头沟区 1
10 房山区 1

怎么样处理这3个文件最后形成一个文件：
1，北京市，北京市，北京市
2，北京市，北京市，东城区
3，北京市，北京市，西城区
……
N，河北省，石家庄市，石家庄市
……
M，河北省，保定市，保定市
……

最后的文件格式就是序号，省，市，县。省的话就是序号，省，省，省；市的话就是序号，省，市，市；县区的话就是序号，省，市，县区。
这个序号就是1往后递增。


补充说明下：省市县的三个文件没有完全列出来，格式是保持一致的。市的第三段对应的就是省的序号，县市的第三段对应的就是市的序号

代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Load{
   
6.     local @ARGV = shift;
   
7.     my $rh = shift;
   
8.     while (<>){
   
9.         my ($num, $name) = split;
   
10.         $rh->{$num} = $name;
    
11.     }
    
12. }
    
13. 
    
14. sub Load1{
    
15.     local @ARGV = shift;
    
16.     my $rh = shift;
    
17.     while (<>){
    
18.         my ($num, $name, $id) = split;
    
19.         push (@{$rh->{$id}}, [$num, $name]);
    
20.     }
    
21. }
    
22. 
    
23. my ($rhReg, $rhCity, $rhCom) = ({}, {}, {});
    
24. Load (shift, $rhReg);
    
25. Load1 (shift, $rhCity);
    
26. Load1 (shift, $rhCom);
    
27. 
    
28. foreach my $rNum (sort keys %$rhReg){
    
29.     my $rName = $rhReg->{$rNum};
    
30.     my @aCity = @{$rhCity->{$rNum}};
    
31.     if (!@aCity){
    
32.         print join (', ', $rNum, ($rName) x 3), "\n";
    
33.         next;
    
34.     }
    
35.     foreach my $raCity (@aCity){
    
36.         my ($cNum, $cName) = @$raCity;
    
37.         my @aCom = @{$rhCom->{$cNum}};
    
38.         if (!@aCom){
    
39.             print join (', ', $rNum, $rName, ($cName) x 2), "\n";
    
40.             next;
    
41.         }
    
42.         foreach my $raCom (@aCom){
    
43.             my $com = $raCom->[-1];
    
44.             print join (', ', $rNum, $rName, $cName, $com), "\n";
    
45.         }
    
46.     }
    
47. }
    
48. 
    

复制代码

总是报错, "Can't use an undefined value as an ARRAY reference".
找了半天还是未将问题定位到, 还请大家指点. 谢谢大家...

fcl21721

my @aCity = @{$rhCity->{$rNum}}; 改为 my @aCity = $rhCity->{$rNum} ? @{$rhCity->{$rNum}});
my @aCom = @{$rhCom->{$cNum}};改为my @aCom = $rhCom->{$cNum} ? @{$rhCom->{$cNum}}: ();

类似于
my $aa = undef;
print @$aa;

sunzhiguolu

回复 2# fcl21721
多谢大师指点, 非常感谢!

sunzhiguolu

最终代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Load{
   
6.     local @ARGV = shift;
   
7.     my $rh = shift;
   
8.     while (<>){
   
9.         my ($num, $name) = split;
   
10.         $rh->{$num} = $name;
    
11.     }
    
12. }
    
13. 
    
14. sub Load1{
    
15.     local @ARGV = shift;
    
16.     my $rh = shift;
    
17.     while (<>){
    
18.         my ($num, $name, $id) = split;
    
19.         push (@{$rh->{$id}}, [$num, $name]);
    
20.     }
    
21. }
    
22. 
    
23. my ($rhReg, $rhCity, $rhCom) = ({}, {}, {});
    
24. Load (shift, $rhReg);
    
25. Load1 (shift, $rhCity);
    
26. Load1 (shift, $rhCom);
    
27. 
    
28. foreach my $rNum (sort keys %$rhReg){
    
29.     my $rName = $rhReg->{$rNum};
    
30.     my @aCity = $rhCity->{$rNum} ? @{$rhCity->{$rNum}} : ();
    
31.     if (!@aCity){
    
32.         print join (', ', $rNum, ($rName) x 3), "\n";
    
33.         next;
    
34.     }
    
35.     foreach my $raCity (@aCity){
    
36.         my ($cNum, $cName) = @$raCity;
    
37.         my @aCom = $rhCom->{$cNum} ? @{$rhCom->{$cNum}} : ();
    
38.         if (!@aCom){
    
39.             print join (', ', $rNum, $rName, ($cName) x 2), "\n";
    
40.             next;
    
41.         }
    
42.         foreach my $raCom (@aCom){
    
43.             my $com = $raCom->[-1];
    
44.             print join (', ', $rNum, $rName, $cName, $com), "\n";
    
45.         }
    
46.     }
    
47. }

复制代码

最后我想请教下大家, 像这种问题 还有其他解决思路吗?

jason680

回复 4# sunzhiguolu

1. 打印少了...

2. http://bbs.chinaunix.net/thread-4255399-1-1.html

104359176

最近学习 go 语言，习惯所有的变量都先声明变量类型，然后赋值。
竟然发现 Perl 程序越来越看不懂了。

sunzhiguolu

回复 5# jason680
谢谢大神指点, 您提醒的太对了. 我太马虎了。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Load{
   
6.     local @ARGV = shift;
   
7.     my $rh = shift;
   
8.     while (<>){
   
9.         my ($num, $name) = split;
   
10.         $rh->{$num} = $name;
    
11.     }
    
12. }
    
13. 
    
14. sub Load1{
    
15.     local @ARGV = shift;
    
16.     my $rh = shift;
    
17.     while (<>){
    
18.         my ($num, $name, $id) = split;
    
19.         push (@{$rh->{$id}}, [$num, $name]);
    
20.     }
    
21. }
    
22. 
    
23. my ($rhReg, $rhCity, $rhCom) = ({}, {}, {});
    
24. Load (shift, $rhReg);
    
25. Load1 (shift, $rhCity);
    
26. Load1 (shift, $rhCom);
    
27. 
    
28. foreach my $rNum (sort keys %$rhReg){
    
29.     my $rName = $rhReg->{$rNum};
    
30.     my @aCity = $rhCity->{$rNum} ? @{$rhCity->{$rNum}} : ();
    
31.     print join (', ', $rNum, ($rName) x 3), "\n";
    
32.     my $ge1 = 0;
    
33.     foreach my $raCity (@aCity){
    
34.         my ($cNum, $cName) = @$raCity;
    
35.         my @aCom = $rhCom->{$cNum} ? @{$rhCom->{$cNum}} : ();
    
36.         if (!@aCom and $ge1++){
    
37.             print join (', ', $rNum, $rName, ($cName) x 2), "\n";
    
38.             next;
    
39.         }
    
40.         foreach my $raCom (@aCom){
    
41.             my $com = $raCom->[-1];
    
42.             print join (', ', $rNum, $rName, $cName, $com), "\n";
    
43.         }
    
44.     }
    
45. }
    
46. 
    

复制代码

perl abc.pl sheng shi qu
--------------------------------------------------------------------

1, 北京市, 北京市, 北京市
1, 北京市, 北京市, 东城区
1, 北京市, 北京市, 西城区
1, 北京市, 北京市, 崇文区
1, 北京市, 北京市, 宣武区
1, 北京市, 北京市, 朝阳区
1, 北京市, 北京市, 丰台区
1, 北京市, 北京市, 石景山区
1, 北京市, 北京市, 海淀区
1, 北京市, 北京市, 门头沟区
1, 北京市, 北京市, 房山区
2, 天津市, 天津市, 天津市
3, 河北省, 河北省, 河北省
3, 河北省, 唐山市, 唐山市
3, 河北省, 秦皇岛市, 秦皇岛市
3, 河北省, 邯郸市, 邯郸市
3, 河北省, 邢台市, 邢台市
3, 河北省, 保定市, 保定市
3, 河北省, 张家口市, 张家口市
3, 河北省, 承德市, 承德市
4, 山西省, 山西省, 山西省
5, 内蒙古自治区, 内蒙古自治区, 内蒙古自治区
6, 辽宁省, 辽宁省, 辽宁省
7, 吉林省, 吉林省, 吉林省
8, 黑龙江省, 黑龙江省, 黑龙江省

sunzhiguolu

回复 6# 104359176
大神 那里看不懂 还请指出, 没发现哪里不对呀!!!???

104359176

1. sub Load1{
   
2.     local @ARGV = shift;
   
3.     my $rh = shift;
   
4.     while (<>){
   
5.         my ($num, $name, $id) = split;
   
6.         push (@{$rh->{$id}}, [$num, $name]);
   
7.     }
   
8. }

复制代码

这里的 $rh, 没有声明是数组，就直接 push
local @ARGV = shift
从 args shift出的东西，竟然可以用 @来接收。

sunzhiguolu

回复 9# 104359176

这里的 $rh, 没有声明是数组，就直接 push
local @ARGV = shift
从 args shift出的东西，竟然可以用 @来接收。

大神 让您这么一说 我到有点崩溃了. 那您说这段代码该如何写才严谨, 谢谢您指点.