1

python, ruby ではハッシュの要素でのスライスが1行でできますが、perl ではどうやるのでしょうか?
「perl hash slice」 で検索しても、hash のキーでスライスする方法しか見つかりませんでした。

やりたいのは下記のようなことです。

ruby

[6] pry(main)> hash = (0..3).map { |x| [x, x*2] }.to_h
=> {0=>0, 1=>2, 2=>4, 3=>6}
[7] pry(main)> hash.select { |k, v| v > 2 }
=> {2=>4, 3=>6}

python

In [26]: hash = { x:x*2 for x in range(4) }

In [27]: hash
Out[27]: {0: 0, 1: 2, 2: 4, 3: 6}

In [28]: { k:v for k, v in hash.items() if v > 2 }
Out[28]: {2: 4, 3: 6}

ruby も python も、(key, value) の組としてループできますが、
perl だとリストなので、同じようには扱えなくて、悩んでいます。

自分で考えたのは、[key, value]の配列のリストに変換してから、ループする方法ですが、
標準で用意されていないとも思えないので、質問させていただきました。

1
  • 1
    List::Pairwise というのがcpanにあります。(外部ライブラリという意味で標準とは言えないですが。)
    – BLUEPIXY
    Commented 2016年6月19日 1:03

4 件の回答 4

2

grep でフィルタして map で生成 というのが個人的にはわかりやすいかなぁと思います

my %hash = map{ $_ => $_*2 } 0..3;
my %hash2 = map { $_ => $hash{$_} } grep { $hash{$_} > 2 } keys %hash;
1

Perlのmapでは、ブロックが空リストを返すことでその要素を除いた結果になります(perldoc -f map参照)。

my %hash = map { $_, $_ * 2 } 0..3;
my %hash2 = map { $hash{$_} > 2 ? ($_, $hash{$_}) : () } keys %hash;
1

ハッシュをループするのにv5.12以降であればeachが使えますが、
わかりずらい副作用があるので基本はmztnsさんのようにkeyを軸にします。

どうしてもハッシュのkeyとvalueをループ変数に取りたい場合は、spliceが使えます。

my %hash = map { $_ => $_ * 2 } 0 .. 3;

#
# ハッシュはリストコンテキストで呼ばれると
# 偶数インデックスがkey、奇数インデックスがvalueのリストを得られる。
# perlのv5.18以降はハッシュの順序がランダムになる点に注意。
#
my @hash_as_array = %hash;

while (my ($key, $value) = splice @hash_as_array, 0, 2) {
    next unless $value > 2;
    print "$key => $value\n";
}

ただし、spliceは破壊的なので、上の@hash_as_arrayは一時的な変数としてしか扱えません。

スコープを気にする場合はList::MoreUtilsnatatimeを使ってもいいです。

use List::MoreUtils qw(natatime);

my %hash = map { $_ => $_ * 2 } 0 .. 3;

my $iter = natatime(2, %hash);
while (my ($key, $value) = $iter->()) {
    next unless $value > 2;
    print "$key => $value\n";
}

短いコードなので、List::MoreUtilsが使えない場合でも直接定義してしまうのもありです。

sub natatime ($@) {
    my ($n, @list) = @_;
    return sub { splice @list, 0, $n };
}

my %hash = map { $_ => $_ * 2 } 0 .. 3;

my $iter = natatime(2, %hash);
while (my ($key, $value) = $iter->()) {
    next unless $value > 2;
    print "$key => $value\n";
}
0

以下は map を使う方法です。

use Data::Dumper;

%hash = map { $_ => $_ * 2 } 0..3;
map { $hash2{$_} = $hash{$_} if $hash{$_} > 2 } keys %hash;

print Dumper(\%hash);
print Dumper(\%hash2);

実行結果

$VAR1 = {
          '3' => 6,
          '0' => 0,
          '2' => 4,
          '1' => 2
        };
$VAR1 = {
          '2' => 4,
          '3' => 6
        };
1
  • mapの戻り値を期待しない使い方は危険な匂いがします。
    – ernix
    Commented 2016年6月19日 7:26

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。