请教:substring在string中的重复次数

biomasm

in.txt为:
I,IIII
me,meme
we,wewewewewe
you,youyouyou
hi,hihi
awe,aweaweawe
期望out.txt为:
type repeat count
1,4,1
2,2,2
2,5,1
3,3,2

以me,meme这一行为例说明:me为substring,meme为string;
type等于length(substring),
repeat等于substring在string中的重复次数,
type与repeat都相等的合并,并计数count.

哪位大侠指点一下?代码说话最佳.

superdoctor

COUNT 的计算我无法找到规律啊？？

type与repeat都相等的合并,并计数count. ---什么意思？

biomasm

me,meme =>;type为2,repeat为2
we,wewewewewe=>;type为2,但repeat为5
hi,hihi =>;type为2,repeat为2
me行和hi行type与repeat都相等,合并,计数count为2;
we行count则计为1

怒剑狂啸

1. open (FILE,"in.txt");
   
2. while (chomp($_=<FILE>;)) {
   
3.         ($a,$b)=split(/,/,$_);
   
4.         $count=$b=~s/$a/$a/g;
   
5.         $hash{eval{length$a}.",".$count}++;
   
6. }
   
7. close FILE;
   
8. open (FILE,">;out.txt");
   
9. print FILE "$_,$hash{$_}\n" foreach (sort keys%hash);
   
10. close FILE;
    

复制代码

superdoctor

原帖由 "biomasm" 发表：
me,meme =>;type为2,repeat为2
we,wewewewewe=>;type为2,但repeat为5
hi,hihi =>;type为2,repeat为2
me行和hi行type与repeat都相等,合并,计数count为2;
we行count则计为1

你楼顶的累记两字让我困惑了。。。

use strict;

my ($dest,$substr,$i,$n,$repeat);
while(1) {
$i=$n=$repeat=0;
print "enter destination chars: ";
chomp($dest=<STDIN>;
print "enter substring: ";
chomp($substr=<STDIN>;

while(($i=index($dest,$substr,$n))+1) {
   $n=$i+length($substr);
   $repeat++;
}

print "type\trepeat\tcount\n".length($substr)."\t".$repeat."\t".($repeat==length($substr)?2:1)."\n";
print "\n\nTry again===============\n";
}
exit 0;

无须HASH，每个字串仅循环一遍，应该说效率还可以罢，至于文本的到入倒出自己加上就可以了，我使用标准输入是为了便于测试。。。

今天cu是不是有点问题，特别漫

biomasm

原帖由 "superdoctor" 发表：
"($repeat==length($substr)?2:1)

superdoctor兄理解偏了,我应当这么举例:

me,mememe =>;type为2,repeat为3
we,wewewewewe=>;type为2,但repeat为5
hi,hihihi=>;type为2,repeat为3
me行和hi行type与repeat都相等,合并,计数count为2;

(me行的type=hi行的type)&(me行的repeat=hi行的repeat)

怒剑狂啸兄的代码正是我期望的, hash应该是好的解决方案.又如

原帖由 "chaoslawful(perlChina) " 发表：
既然要求合并type和repeat都相等的行，那就可以把type和repeat值合起来作为散列键，自己用分隔符串联或者用perl的multidimensional array emulation都可以

while(chomp($line=<>) {
     @fields=split(/,/,$line,2);
     $stats{length($fields[0]),$fields[1]=~s/$fields[0]/$fields[0]/g}++;
}
foreach (keys %stats) {
     print join(",",split($; ,$_),$stats{$_}),"\n";
}

呵呵,都是好手啊!多谢诸位!

寂寞烈火

来一个shell的

1. 
   
2. /home/lee#cat tmp
   
3. I,IIII
   
4. me,meme
   
5. we,wewewewewe
   
6. you,youyouyou
   
7. hi,hihi
   
8. awe,aweaweawe
   
9. /home/lee#while read line;do
   
10. >; n=$(echo $line|cut -f1 -d',')
    
11. >; expr length $(echo $line|cut -f1 -d',')
    
12. >; echo $line|cut -f2 -d','|awk -F"$n" '{print NF-1}'
    
13. >; done<tmp|xargs -n2|sort -n|uniq -c|awk '{print $2","$3","$1}'>;out.txt;cat out.txt
    
14. 1,4,1
    
15. 2,2,2
    
16. 2,5,1
    
17. 3,3,2
    

复制代码

怒剑狂啸

寂寞烈火真是牛人啊，怎么能记得住那么多命令和参数，并将它们组合运用的啊？极度崇拜中……

寂寞烈火

[quote]原帖由 "怒剑狂啸"]寂寞烈火真是牛人啊，怎么能记得住那么多命令和参数，并将它们组合运用的啊？极度崇拜中……[/quote 发表：

  我现在特崇拜会perl的兄弟  

pupilzeng

原帖由 "寂寞烈火" 发表：

  我现在特崇拜会perl的兄弟  

怀疑寂寞烈火是不是linuxsir以前的javalee?