作者CindyLinz (Cindy Wang)
看板Perl
标题Re: [问题] 大量字串资料个数出现次数统计
时间Tue Aug 2 12:39:35 2011
※ 引述《spider1216 (顺着感觉走)》之铭言：
: 不好意思我是perl新手
: 我的问题是 我现在有404个单字资料库
: 然後我要去比对一个文字档案，其内容由上面资料库中的单字组成
: 我想去统计我的文字档案中 有哪些资料库单字且出现几次
: 请高手可以教我该怎麽做
如果档案没有非常大的话,
一一把字典里的字拿去比对应该是最好理解的方法~
my $data;
{
# 这边把档案读到 $data 里面
open my $f,
"filename.txt";
local $/;
$data = <
$f>;
close $f;
}
for(
qw(abc cba xxx)) {
# 每一个字典字拿去比一次
my $count =
my @a =
$data =~
/\Q$_/g;
# 这样会算出次数
print "$_: $count\n";
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.242.246.249
※ 编辑: CindyLinz 来自: 210.242.246.249 (09/10 13:14)