Perl 5 数一数字符串中每个字母出现的次数(一)

Perl 5古老，但还是魅力十足。

数字母个数的游戏关键还是在数字母的方法，练习如下：

方法一：

#!/usr/bin/perl -w
my $array = "sadfdfssDEFG3568flasd&^^%yxyzzzdlgknfsdkafllaskjfsfsdfkfsj";
my @array = split(//,$array);

for (my $m=97;$m<=122;$m++) {
  @aarray = split(chr($m),$array);
  print "Number of ",chr($m),": " , scalar(@aarray)-1,"\n";
}

方法二：

#!/usr/bin/perl -w
my $tarray = "0"x26;
my @tarray = split(//,$tarray);

foreach (@array) {
  if (ord($_) >= 97 and ord($_) <= 122) {
    $tarray[ord($_) - 97]=$tarray[ord($_) - 97]+1;
  }
}
foreach (@tarray) {
  print $_;
}
print "\n";

方法很多种，总会带上它们学其它各种语言。