文本统计信息？

tingshuibanxia

75268426www
PKlotluv
cgjcjnbvvv统计v的个数？

sunzhiguolu

回复 1# tingshuibanxia
用 tr 操作符即可!

   

wyc198801wyc

  1 #!/usr/bin/perl
  2 use strict;
  3 use warnings;
  4 use 5.010;
  5
  6 my $string = "75268426www
  7 PKlotluv
  8 cgjcjnbvvv";
  9
10 my @chars = split "",$string;
11 my $sum;
12 for (@chars) {
13     if ( $_ eq "v" ) {
14         $sum += 1 || 0;
15     }
16 }
17 say $sum;


写的有点乱，大概这个意思

kggg

回复 2# sunzhiguolu

嗯， tr非常好用，  print $str =~ tr/v/v/;


   

kingfighters

对于: 75268426www
PKlotluv
cgjcjnbvvv统计v的个数

我认为没有必要纠结语言, 用python 就4行的事情, Perl 其实也行.

1. 
   
2. s = '''75268426www
   
3. PKlotluv
   
4. cgjcjnbvvv'''
   
5. from collections import Counter
   
6. c = Counter(s)
   
7. print(c['v'])
   

复制代码

回复 1# tingshuibanxia