Wie zähle ich die Anzahl bestimmter Buchstaben in einem Array, Perl?

Question

Ich habe ein Array, das nur Buchstaben enthält, keine Ziffern. Ich möchte zählen, wie oft ein bestimmter Brief angezeigt wird. Ich möchte keinen Hash verwenden, ich muss die Reihenfolge der Liste beibehalten.

use strict; 
use warnings; 

my %counts; 
$counts{$_}++ for @array; 
print "$counts\n"; 

Answer 1

Verwenden grep es

my @ar = qw(abc cde fgh 123 abc); 
my $count = grep{ /ab/} @ar; 
print $count; 

Oder verwenden foreach

my @ar = qw(abc cde fgh 123 abc); 
my $m; 
$m+= /ab/,foreach (@ar); 
print $m; 

Während das Spiel $m inkrementiert angetroffen wurde, zu tun.

Answer 2

Sie könnten Text::CountString Modul auf CPAN betrachten.

Answer 3

Der Code, den Sie haben scheint zu finden, um die Vorkommen zu zählen. Das einzige Problem, das Sie haben, ist, die Zählungen anzuzeigen. Sie verwenden eine neue Skalarvariable namens $counts, die nicht deklariert und leer ist.

Was Sie wollen, ist dies:

use strict; 
use warnings; 

my %counts; 
$counts{$_}++ for @array; 
print "$_: $counts{$_}\n" for keys %counts;