😀

perl array-hashあたりのtips

1 min read

配列から重複を排除する

my @array = qw/ a b c a/;

my %hash   = ();
my @unique = grep { ! $hash{ $_ }++ } @array;

ソートする

# 配列
@tags = sort {$a cmp $b} @tags;

# ハッシュ
foreach ( sort { $hash_ref->{$a} <=> $hash_ref->{$b} } keys $hash_ref ){
    print $_, ':', $hash_ref->{$_}, "\n";
}