Perlでの配列/ハッシュの取り扱い方 #Perl

久しぶりにPerlでの開発を経験したので、自身への備忘録も含めて、記事にまとめます。
今回は配列/ハッシュの取り扱い方です。
※後で追加/編集する可能性があります。

初期化

旧式な方法

my @list1 = ( 1, 2, 3 );
my @list2 = qw/1 2 3/;

my %hash = ( 'name' => 'テスト太郎', 'age' => 10, 'email' => 'taro@test.com' );

print $list1[0];       # 1
print $list2[1];       # 2
print $hash{"name"};   # "テスト太郎"

変数宣言時は以下のようにする
- 配列:@~
- ハッシュ:%~
配列/ハッシュに格納済みの値への参照時は$~で参照する

モダンな方法

配列やハッシュでも@~や%~ではなく、$~で宣言することも可能。

my $list = [ 1, 2, 3 ];
my $hash = ( 'name' => 'テスト太郎', 'age' => 10, 'email' => 'taro@test.com' );

print $list->[0];       # 1
print $hash->{"name"};  # "テスト太郎"

この場合は変数名の後に->で配列のインデックスやハッシュのキーを指定する。
配列やハッシュとして扱いたい場合は、以下のように変数名の先頭に@~や%~を付ける。

print scalar @$list; #3
print scalar %$hash; #3

変換

文字列 => 配列

my $value = ™太郎 花子 次郎 三郎™;
my @names = split( /,/, $value );
print Dumper @names;

配列 => 文字列

my $names = qw/太郎 花子 次郎 三郎/;
my $value = join( ',', @$names );
print $value;           #太郎,花子,次郎,三郎

配列 => ハッシュ

use strict;
use warnings;
use Data::Dumper;

my $user_list = [
    {
        'id'    => 1,
        'name'  => 'テスト太郎',
        'age'   => 30,
        'email' => 'taro@test.com',
    },
    {
        'id'    => 2,
        'name'  => 'テスト花子',
        'age'   => 26,
        'email' => 'hanako@test.com',
    },
    {
        'id'    => 3,
        'name'  => 'テスト次郎',
        'age'   => 28,
        'email' => 'jiro@test.com',
    },
    {
        'id'    => 4,
        'name'  => 'テスト三郎',
        'age'   => 22,
        'email' => 'saburo@test.com',
    },
];

# id => 各データのhash
my $user_hash = { map { $_->{'id'} => $_ } @$user_list };
print Dumper $user_hash;

# # id => nameのhash
my $user_names = { map { $_->{'id'} => $_->{'name'} } @$user_list };
print Dumper $user_names;

$VAR1 = {
          '3' => {
                   'id' => 3,
                   'age' => 28,
                   'email' => 'jiro@test.com',
                   'name' => 'テスト次郎'
                 },
          '1' => {
                   'name' => 'テスト太郎',
                   'age' => 30,
                   'id' => 1,
                   'email' => 'taro@test.com'
                 },
          '2' => {
                   'name' => 'テスト花子',
                   'id' => 2,
                   'age' => 26,
                   'email' => 'hanako@test.com'
                 },
          '4' => {
                   'email' => 'saburo@test.com',
                   'id' => 4,
                   'age' => 22,
                   'name' => 'テスト三郎'
                 }
        };
$VAR1 = {
          '3' => 'テスト次郎',
          '2' => 'テスト花子',
          '1' => 'テスト太郎',
          '4' => 'テスト三郎'
        };

繰り返し処理

# 各値のみ参照
my $names = [ "太郎", "花子", "次郎", "三郎" ];
foreach (@$names) {
    print "$_ \n";
}

# インデックス付きで参照
foreach my $i ( 0 .. $#names ) {
    print "$names[$i] \n";
}

my $hash ={ 'name' => 'テスト太郎', 'age' => 10, 'email' => 'taro@test.com' };
foreach ( keys(%$hash) ) {
    print "$_ => $hash->{$_}\n";
}