マイコンピュータ
マイネットワーク
マイドキュメント
ごみ箱
perl module 忘備録
ユニークな要素だけを持つ配列
使い方：
use strict;
use Array::Unique;
# 既存の配列をtieしてもよいが、tieすると要素が全て削除されて
# 空配列に初期化されるので注意。
tie my @a,'Array::Unique';
@a = (0,1,2,3,3,2,4,5);
print "@a\n";
push(@a,qw(5 6));
print "@a\n";
$a[0]=6;
print "@a\n";
実行結果：
0 1 2 3 4 5
0 1 2 3 4 5 6
6 1 2 3 4 5
