【求助】一个简单的hash程序计数程序，开启strict导致报错。

10prince

各位大牛好，本人是perl的新手~  这是一门令我神往的语言。在小骆驼的书里， 遇见问题了，特来论坛求助：

Q1：以下这个程序，我开了 use strict就报错；
Q2：变量定义，变量使用也有问题。  在程序块外面，循环外面，怎么来内插变量？

请看程序吧！ 用砖石符，把读入的文件每一行的每一个有效单词进行计数。

#!/usr/bin/perl
use warnings;
#use strict;

while (<>){
  foreach (split){
    $total = 0;
    $total++;
    next if /\W/ ;
    $valid = 0;
    $valid++;
    #%count;
    $count{$_}++;
  }
}
print "total things = $total, valid words = $valid\n";

foreach my $word (sort keys %count){
  print "$word \t\t has $count{$word} times\n";
}



论坛比较冷清，请大家赐教，多谢啦！！

llbgurs

1. my $otal = 0;
   
2. my $valid = 0;

复制代码

10prince

llbgurs 发表于 2012-03-13 10:04

在循环的程序外，需要内插这几个变量啊~~  使用my的话，这里就print不出来啦！

llbgurs

回复 3# 10prince
那就在while外面定义啊

   

10prince

llbgurs 发表于 2012-03-13 10:07
回复 3# 10prince
那就在while外面定义啊

囧~  while 外面定义？？？？

这不是为了把while循环读到的行，单词，给计算出来嘛 ...  还是我没理解你的意思


请把程序改一下贴出来呗   多谢啦！

llbgurs

1. use strict;
   
2. 
   
3. my $total;
   
4. my $valid;
   
5. my %count;
   
6. 
   
7. while (<>){
   
8.   foreach (split){
   
9.     $total = 0;
   
10.     $total++;
    
11.     next if /\W/ ;
    
12.     $valid = 0;
    
13.     $valid++;
    
14.     #%count;
    
15.     $count{$_}++;
    
16.   }
    
17. }
    
18. print "total things = $total, valid words = $valid\n";
    
19. 
    
20. foreach my $word (sort keys %count){
    
21.   print "$word \t\t has $count{$word} times\n";
    
22. }
    

复制代码

10prince

楼上的亲~~我搞定啦！ 多谢啦！！

哎，我太菜啦！  一点都不会变通啊！！！     

十分感谢！！！

10prince

llbgurs 发表于 2012-03-13 10:22

多谢！

zhlong8

你确定你看的是小骆驼？它应该说了 my 和 use strict; 的关系吧

10prince

zhlong8 发表于 2012-03-13 10:31
你确定你看的是小骆驼？它应该说了 my 和 use strict; 的关系吧

是我提问没说清楚，又比较菜~ 在笨蛋也知道自己看的是神马书吧~   起码看图还能认识小动物的

我加了  strict ， 用了my （在while 循环内定义的变量） ，循环外面的的变量内插没法打印出来值~~

不知道可以把  my  xxx = xxxx ; 单独写在程序开始的部分 .

PS： 版主说话有火药味~  这是perl的风格嘛