perl 统计字符串中字母的个数的代码

#!/usr/bin/perl -w
use strict;

my $str = "abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopa hkl;fjh#dsjfklpafj";
 my $count = 0;

while( $str =~ /#/g )
{
 $count++;
}
print "num of # is: $countn";

linuxjishu/13830.html target=_blank class=infotextkey>awk '{arr[$1]+=1 }END{for(i in arr){print arr[i]"t"i}}' FILE_NAME | sort -rn

perl -ne '{ chomp; $fre{$_} += 1 for split; END{print "$fre{$_}t$_n" foreach keys %fre;}}' FILE_NAME | sort

!/usr/bin/perl -w
# Purpose: to calculate the frequence of any words in a file
use strict;
my %fre;
while (<>) {
   chomp;
 
   foreach ( split ) {
      $fre{$_} += 1;
   }
}

foreach (keys %fre) {
   print "$fre{$_}t$_n";
}