Perl Perl 字符串统计问题

scmroad · 发布于 2010年8月24日 · 202 次阅读
96

如果输入一个字符串 abaaddcc 要求统计出这个字符串中a,b,c,d的个数

这个问题如何解答

共收到 2 条回复
96
i子休 · #1 · 2010年8月24日

[code] my %seen = ( ); my $string = "aaabbbcccdddabcd"; while ($string =~ /(.)/g) { $seen{$1}++; } [/code]

96
scmroad · #2 · 2010年8月24日

谢谢,你的方法是可以的。

[code] scm@wsscmroad ~/project/p4perl $ cat string1.pl my %seen = ( ); my $string = "aaaabbbcccdddabcd"; while ($string =~ /(.)/g) { $seen{$1}++; } foreach(keys %seen){ print "$_ $seen{$_} \n"; }

scm@wsscmroad ~/project/p4perl $ perl string1.pl c 4 a 5 b 4 d 4

[/code]

需要 登录 后方可回复, 如果你还没有账号请点击这里 注册