とあるエンジニアの闇歴史帳

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


サイドバー

言語

サーバ関連

ツール

API

読み物

その他

Action disabled: index
perl:array_uniq

配列内の重複を取り除く - Perl

この記事は2007年03月06日に書かれた物です

配列内の同じ値を取り除きたい。ハッシュを利用すればかんたんに実現できる。

サンプル

;#
;#配列の重複を取り除く
;#
 
#-- 初期化する --#
@array = (
      '東京', '大阪', '広島', '京都', '東京'
    , '広島', '横浜', '大阪', '京都', '島根'
);
 
#-- 重複削除 --#
@uniq = uniqArray(\@array);
 
#-- 表示 --#
foreach my $value ( @uniq ){
    print "$value\n";
}
 
#------------------------------#
#配列(リスト)から重複を取り除く
#------------------------------#
sub uniqArray{
    my $array = shift;
    my %hash  = ();
 
    foreach my $value ( @$array ){
        $hash{$value} = 1;
    }
 
    return(
        keys %hash
    );
}

実行結果

島根
京都
横浜
東京
広島
大阪

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

関連ページ

perl/array_uniq.txt · 最終更新: 2020/06/23 14:10 (外部編集)