| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5864 人关注过本帖
标题:请问我这个程序有啥问题。执行下来,wordlist里面是空白。请哪位朋友指点一 ...
只看楼主 加入收藏
nielong1964
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-10-11
收藏
 问题点数:0 回复次数:1 
请问我这个程序有啥问题。执行下来,wordlist里面是空白。请哪位朋友指点一下。



!/usr/bin/perl

open (FH, 'F:\\perl\about BUCT.txt ') || die $!;
open (OUT,'>>','F:/perl/wordlist.txt')or die $!;
sub byDescendingValues{
 $value= $freq{$b}<=>$freq{$a};
if ($value==0){
return $a cmp $b;
}else{
return $value;
}
}

while(<FH>) {
   {$line=$_ ;
        chomp $line;
        @words = split (/[\.\?,!;:]+\s+/, $line);}

        foreach $x (@words) {
              ++ $wordfreq{$x};
              }
              }
        close FH;

          foreach $x(sort byDescendingValues keys %freq){

   print OUT "$x,$wordfreq{$x}\n";
   }
搜索更多相关主题的帖子: 朋友 return about close 
2011-10-11 20:29
sianeal
Rank: 2
等 级:论坛游民
帖 子:12
专家分:16
注 册:2010-10-24
收藏
得分:0 
是这里有问题吧,'F:\\perl\about BUCT.txt ',反斜杠在单引号中应该写成双的 \\ ,否则不按路径执行。
2012-02-25 20:09
快速回复:请问我这个程序有啥问题。执行下来,wordlist里面是空白。请哪位朋友指 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012968 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved