debug报错,是关于变量作用域的问题,附代码

godsad

原帖由 godsad 于 2009-7-31 13:36 发表
@wordALL和$wordDiff应该作用于整个子程序啊,怎么还会报这两个变量是全局变量的警告?

#!/usr/bin/perl use warnings; use strict; open FILE,"c:\\zz.txt"; my @tmp = <FILE>; close FILE; print "Please enter the word.\n"; my %count=&diff(@tmp); print "The word appeard ".$count{<STDIN>}."times in the file.\n"; sub diff {     my $wordFirst;     my @wordDiff;     my @wordAll;     my $sameNum;     my $tmp1;     my $tmp2;     my %diff;     foreach (@_){               chomp;               push @wordAll,$_;               }     $wordFirst=$wordAll[0];     foreach (@wordAll){               if ($wordFirst!=$_){               push @wordDiff,$_;               }      }     push @wordDiff,$wordFirst;     foreach $tmp1(@wordDiff){               foreach $tmp2(@wordALL){      #  报错:Global symbol "@wordALL" requires explicit package name at Untitled line 36.                        if ($tmp1==$tmp2){                           $sameNum++;                           }                        }               $sameNum-=1; #self               $diff{$wordDiff}=$sameNum;    #  报错:Global symbol "$wordDiff" requires explicit package name at Untitled line 42.               }     %diff; }

[ 本帖最后由 godsad 于 2009-7-31 13:59 编辑 ]

godsad

@wordALL和$wordDiff应该作用于整个子程序啊,怎么还会报这两个变量是全局变量的警告?

MMMIX

原帖由 godsad 于 2009-7-31 13:36 发表
@wordALL和$wordDiff应该作用于整个子程序啊,怎么还会报这两个变量是全局变量的警告?

1. Perl 的变量名是区分大小写的, 也即 @wordALL 和 @wordAll 是不同的变量
2. 数组和标量不共享名字空间，也即 @wordDiff 和 $wordDiff 是不同的变量。

godsad

原帖由 MMMIX 于 2009-7-31 14:01 发表

1. Perl 的变量名是区分大小写的, 也即 @wordALL 和 @wordAll 是不同的变量
2. 数组和标量不共享名字空间，也即 @wordDiff 和 $wordDiff 是不同的变量。

谢谢,还有好多bug 呵呵

ok了hash练习

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open FILE,"c:\\zz.txt";
   
7. my @tmp = <FILE>;
   
8. close FILE;
   
9. print "Please enter the word.\n";
   
10. my %count=&diff(@tmp);
    
11. my @tmp1=<STDIN>;
    
12. foreach (sort(@tmp1)){
    
13.           chomp;
    
14.           print "The word ".$_." appeard ".$count{$_}." times in the file.\n";
    
15.           }
    
16. 
    
17. sub diff {
    
18.     my $wordFirst;
    
19.     my @wordDiff;
    
20.     my @wordAll;
    
21.     my $sameNum;
    
22.     my $tmp1;
    
23.     my $tmp2;
    
24.     my %diff;
    
25. 
    
26.     foreach (@_){
    
27.               chomp;
    
28.               push @wordAll,$_;
    
29.               }
    
30. 
    
31.     $wordFirst=$wordAll[0];
    
32. 
    
33.     foreach (@wordAll){
    
34.               if ($wordFirst ne $_){
    
35.               push @wordDiff,$_;
    
36.               }
    
37.     }
    
38. 
    
39.     push @wordDiff,$wordFirst;
    
40. 
    
41.     foreach $tmp1(@wordDiff){
    
42.               foreach $tmp2(@wordAll){
    
43.                        if ($tmp1 eq $tmp2){
    
44.                           $sameNum++;
    
45.                           }
    
46.                        }
    
47.               $diff{$tmp1}=$sameNum;
    
48.               }
    
49.     %diff;
    
50.     }
    

复制代码

最终版,呵呵,看来以后要多写程序了

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open FILE,"c:\\zz.txt";
   
7. my @tmp = <FILE>;
   
8. close FILE;
   
9. print "Please enter the word.\n";
   
10. my %count=&diff(@tmp);
    
11. my @tmp1=<STDIN>;
    
12. foreach (sort(@tmp1)){
    
13.           chomp;
    
14.           print "The word ".$_." appeard ".$count{$_}." times in the file.\n";
    
15.           }
    
16. 
    
17. sub diff {
    
18.     my $wordFirst;
    
19.     my @wordDiff;
    
20.     my @wordAll;
    
21.     my $sameNum;
    
22.     my $tmp1;
    
23.     my $tmp2;
    
24.     my %diff;
    
25.     my $tmp3;
    
26.     my $tmp4;
    
27. 
    
28.     foreach (@_){
    
29.               chomp;
    
30.               push @wordAll,$_;
    
31.               }
    
32. 
    
33.     $wordFirst=$wordAll[0];
    
34. 
    
35.     push @wordDiff,$wordFirst;
    
36. 
    
37.     foreach $tmp3(@wordAll){
    
38.               if ($wordFirst ne $tmp3){
    
39.                    foreach $tmp4(@wordDiff){
    
40.                              if ($tmp3 ne $tmp4){
    
41.                                   push @wordDiff,$tmp3;
    
42.                              }
    
43.                    }
    
44. 
    
45.               }
    
46.     }
    
47. 
    
48. 
    
49.     foreach $tmp1(@wordDiff){
    
50.               $sameNum=0;
    
51.               foreach $tmp2(@wordAll){
    
52.                        if ($tmp1 eq $tmp2){
    
53.                           $sameNum++;
    
54.                           }
    
55.                        }
    
56.               $diff{$tmp1}=$sameNum;
    
57.               }
    
58.     return %diff;
    
59. 
    
60.     }
    

复制代码

完美版,嗯这题涵盖了很多东东...

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open FILE,"c:\\zz.txt";
   
7. my @tmp = <FILE>;
   
8. close FILE;
   
9. print "Please enter the word.\n";
   
10. my %count=&diff(@tmp);
    
11. my @tmp1=<STDIN>;
    
12. foreach (sort(@tmp1)){
    
13.           chomp;
    
14.           if (exists $count{$_}){
    
15.                 print "The word ".$_." appeard ".$count{$_}." times in the file.\n";
    
16.           }
    
17.           else {print "The word ".$_." can`nt find in the file.\n";}
    
18. }
    
19. sub diff {
    
20.     my $wordFirst;
    
21.     my @wordDiff;
    
22.     my @wordAll;
    
23.     my $sameNum;
    
24.     my $tmp1;
    
25.     my $tmp2;
    
26.     my %diff;
    
27.     my $tmp3;
    
28.     my $tmp4;
    
29. 
    
30.     foreach (@_){
    
31.               chomp;
    
32.               push @wordAll,$_;
    
33.               }
    
34. 
    
35.     $wordFirst=$wordAll[0];
    
36. 
    
37.     push @wordDiff,$wordFirst;
    
38. 
    
39.     foreach $tmp3(@wordAll){
    
40.               if ($wordFirst ne $tmp3){
    
41.                    foreach $tmp4(@wordDiff){
    
42.                              if ($tmp3 ne $tmp4){
    
43.                                   push @wordDiff,$tmp3;
    
44.                              }
    
45.                    }
    
46. 
    
47.               }
    
48.     }
    
49. 
    
50. 
    
51.     foreach $tmp1(@wordDiff){
    
52.               $sameNum=0;
    
53.               foreach $tmp2(@wordAll){
    
54.                        if ($tmp1 eq $tmp2){
    
55.                           $sameNum++;
    
56.                           }
    
57.                        }
    
58.               $diff{$tmp1}=$sameNum;
    
59.               }
    
60.     return %diff;
    
61. 
    
62.     }
    

复制代码

偷看了下答案,shock死我了,hash真是精妙东东

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open FILE,"c:\\zz.txt";
   
7. my @words=<FILE>;
   
8. my %diff;
   
9. my $key;
   
10. my $value;
    
11. close FILE;
    
12. foreach (@words){
    
13.           chomp;
    
14.           $diff{$_}+=1;
    
15. }
    
16. while (($key,$value)=each %diff){
    
17.          print "The word ".$key." appeard ".$value." times\n";
    
18. }
    

复制代码

[ 本帖最后由 godsad 于 2009-8-3 13:30 编辑 ]