请教：map函数的使用出错！

华小飞_Perl

只是一个练习，出现错误，请教各位了，源代码如下：

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. use Data::Dumper;
   
6. 
   
7. my @gilligan = qw( red_shirt hat luckey_socks water_bottle );
   
8. my @skipper = qw( blue_shirt hat jacket preserver sunscreen );
   
9. my @professor = qw( sunscreen water_bottle slide_rule batteries radio );
   
10. 
    
11. my %all = (
    
12.         Gilligan  => \@gilligan,
    
13.         Skipper   => \@skipper,
    
14.         Professor => \@professor,
    
15. );
    
16. 
    
17. my %ch_all = map {
    
18.         my $person = $_;
    
19.         map { $person => { $_ => 1 } } @{ $all{$person} };
    
20. } sort keys %all;
    
21. 
    
22. print Data::Dumper->Dump( [ \%ch_all ], [ qw(*ch_all) ] );

复制代码

原来想构建的哈希数据结构如下：

1. %ch_all = (
   
2.             'Gilligan' => {
   
3.                             'luckey_socks' => 1,
   
4.                             'water_bottle' => 1,
   
5.                             'hat' => 1,
   
6.                             'red_shirt' => 1
   
7.                           },
   
8.             'Professor' => {
   
9.                              'slide_rule' => 1,
   
10.                              'water_bottle' => 1,
    
11.                              'batteries' => 1,
    
12.                              'sunscreen' => 1,
    
13.                              'radio' => 1
    
14.                            },
    
15.             'Skipper' => {
    
16.                            'jacket' => 1,
    
17.                            'sunscreen' => 1,
    
18.                            'preserver' => 1,
    
19.                            'blue_shirt' => 1,
    
20.                            'hat' => 1
    
21.                          }
    
22.           );

复制代码

但实际运行下来如下：

1. %ch_all = (
   
2.             'Gilligan' => {
   
3.                             'water_bottle' => 1
   
4.                           },
   
5.             'Professor' => {
   
6.                              'radio' => 1
   
7.                            },
   
8.             'Skipper' => {
   
9.                            'sunscreen' => 1
   
10.                          }
    
11.           );

复制代码

请问各位在map函数使用上存在哪些错误，请指正，谢谢！
（啰嗦了点，勿喷~）

sunzhiguolu

分开写就行了.

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. use Data::Dumper;
   
6. 
   
7. my @gilligan = qw( red_shirt hat luckey_socks water_bottle );
   
8. my @skipper = qw( blue_shirt hat jacket preserver sunscreen );
   
9. my @professor = qw( sunscreen water_bottle slide_rule batteries radio );
   
10. 
    
11. my %all = (
    
12.         Gilligan  => \@gilligan,
    
13.         Skipper   => \@skipper,
    
14.         Professor => \@professor,
    
15. );
    
16. 
    
17. my %ch_all = map {
    
18.         my $person = $_;
    
19.         my %items = map {$_, 1} @{ $all{$person} };
    
20.         $person, \%items;
    
21. } sort keys %all;
    
22. 
    
23. print Data::Dumper->Dump( [ \%ch_all ], [ qw(*ch_all) ] );
    

复制代码

zhlong8

内层那个 map 返回的是
'Gilligan' => {  'luckey_socks' => 1, },
'Gilligan' => {'hat' => 1},
'Gilligan' => {'red_shirt'=>1},
'Gilligan' => {'water_bottle =>1},

键都一样，放在一个 hash 里自然就互相覆盖了

华小飞_Perl

回复 2# sunzhiguolu
谢谢大神，问题已解决~

华小飞_Perl

回复 3# zhlong8

好的，按照您的见解，确实与运行结果相符的。但是在要构建的哈希的外层中键 $person 是相同的，可是值的话 { $_ => 1 }，其中 $_ 不是会改变的吗，不应该会覆盖掉的啊，请指教？

104359176

$_ 在不同的上下文中是不同的。
你这样写，$_ 其实是一个上下文。

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $pos = 0;
   
6. my @aColors = ([qw /red blue green/], [qw /black white/]);
   
7. my %hPeople = map {
   
8. my $who = $_;
   
9. map { $who => {$_ => 1} } @{$aColors[$pos++]};
   
10. } qw /Tom Jim/;
    
11. 
    
12. for my $who (keys %hPeople){
    
13.     my @aClrs = keys %{$hPeople{$who}};
    
14.     print "$who favorite (@aClrs) colors.\n";
    
15. }

复制代码

hztj2005

华小飞_Perl 发表于 2016-09-11 09:19
回复 3# zhlong8

好的，按照您的见解，确实与运行结果相符的。但是在要构建的哈希的外层中键 $person  ...

1. <p>插入观察，说明数据是产生了的。结果不符合理想，可能与内层map的返回值，如何被perl解析有关。也许你这样写，perl就解析了最后一个数据。而按2楼的写法， perl就解析正确。</p><p>my %items = map {$_, 1} @{ $all{$person} };
   
2. </p><p>$person, \%items;</p><p>
   
3. </p><p>#!/usr/bin/perl
   
4. 
   
5. use warnings;
   
6. use strict;
   
7. use Data::Dumper;
   
8. 
   
9. 
   
10. my @gilligan = qw( red_shirt hat luckey_socks water_bottle );
    
11. my @skipper = qw( blue_shirt hat jacket preserver sunscreen skirt);
    
12. my @professor = qw( sunscreen water_bottle slide_rule batteries radio book);
    
13. 
    
14. my %all = (
    
15.         Gilligan  => \@gilligan,
    
16.         Skipper   => \@skipper,
    
17.         Professor => \@professor,
    
18. );
    
19. my @temp;  
    
20. my %ch_all = map
    
21. {
    
22.     my $person = $_;
    
23.     print $person."\n";
    
24.       
    
25.      map {
    
26.                  print "$_\n";
    
27.                  push @temp ,"$person ; { $_ => 1 }" ; #插入观察，说明数据是产生了的。        
    
28.                 $person => { $_ => 1 }
    
29.      } @{ $all{$person} };
    
30.               
    
31.            
    
32. } sort keys %all;
    
33. 
    
34. print ("@temp");#插入观察，说明数据是产生了的。
    
35. 
    
36. print Data::Dumper->Dump( [ \%ch_all ], [ qw(*ch_all) ] );</p>

复制代码

华小飞_Perl

回复 6# 104359176
外层的 $_ 已经赋值给 $person 了，之后的 $_ 应该不是在另一个列表上下文了吗？请大神求教~

华小飞_Perl

回复 7# sunzhiguolu

多谢，按照您的方法，可以了~