特定文字+αまで照会・重複を避けた個数のカウントについて

質問

以下のようなリストがあり、「-」から右に2文字までの数字、
(左から数えていって、-xxまで。)を抽出して、重複がないような
ファイルを作り、その数をカウントしたいと考えています。
ネットワーク機器の数を数えたいのですが、数字以降のインタフェース
情報は、機器の台数に不要なため、無視したいのです。

ファイル名：hosts
SAPPOROrouter-01Ether1/1
SENDAIrouter-01FastEther2/1
SENDAIrouter-01FastEther2/2
SENDAIrouter-01LoopBack
SAPPOROrouter-01ether2/1
TOKYOrouter-03LoopBack
TOKYOswitch-01GigaEther1/0
SENDAIswitch-01FastEther2/1
・・・

上の例で行くと、
router
SAPPOROrouter-01
SENDAIrouter-01
TOKYOrouter-03
switch
TOKYOswitch-01
SENDAIswitch-01

なので、
router・・・3台
switch・・・2台

というのが望む出力です。
数字は必ず2桁で、機器名称には必ず「-」がはいるので、それを利用できたらと
考えております。
なにか良い方法、ありませんでしょうか。

回答No.1

leaz024 · ベストアンサー

データを見る限り、- より左は
「地域名（英大文字）機器名（英小文字）」
となっているようなので、そのような仮定で。

open FH, "hosts" or die $!;
my (%name, %type);
while (<FH>) {
　　/^([A-Z]+([a-z]+)-\d\d)/;
　　$type{$2}++ unless $name{$1}++;
}
close FH;

foreach (sort keys %type) {
　　print "$_・・・$type{$_}台\n";
}

※全角空白を使っているので、コピペの際は注意！

お礼

質問してすぐのHelp、大変ありがとうございました。
ヒントをいただきましたようにハッシュを使ってどうにかこうにか作成が出来ました。

本当にありがとうございました。