配列操作 [Perl]

並べ替え

・辞書順
@hoge = sort @hoge;
あるいは
@hoge = sort {$a cmp $b} @hoge;

・辞書順（逆順）
@hoge = reverse sort @hoge;
あるいは
@hoge = sort {$b cmp $a} @hoge;

・数値
@hoge = sort {$a <=> $b} @hoge;

・数値（逆順）
@hoge = sort {$b <=> $a} @hoge;

ユニークな要素を抽出

%tmp;
@uniqlist = grep(  !$tmp{$_}++, @original );

２つの配列から重複していない要素を抽出
@difference;
%count = ();
foreach $element (@array1, @array2) { $count{$element}++ }
foreach $element (keys %count) {
    unless ( $count{$element} > 1 ) {
        push @difference , $element
    }
}

２つの配列から共通の要素を抽出
@intersection;
%count = ();
foreach $element (@array1, @array2) { $count{$element}++ }
foreach $element (keys %count) {
    if ( $count{$element} > 1 ) {
        push @intersection , $element
    }
}