文本統(tǒng)計(jì)信息？

tingshuibanxia

75268426www
PKlotluv
cgjcjnbvvv統(tǒng)計(jì)v的個(gè)數(shù)？

sunzhiguolu

回復(fù) 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;


寫的有點(diǎn)亂，大概這個(gè)意思

kggg

回復(fù) 2# sunzhiguolu

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


   

kingfighters

對(duì)于: 75268426www
PKlotluv
cgjcjnbvvv統(tǒng)計(jì)v的個(gè)數(shù)

我認(rèn)為沒(méi)有必要糾結(jié)語(yǔ)言, 用python 就4行的事情, Perl 其實(shí)也行.

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

復(fù)制代碼

回復(fù) 1# tingshuibanxia