Perl › 関数 › here reverse関数を使用すると、文字列を逆順あるいは配列を逆順にすることができます。 # 文字列を逆順にする $str_reverse = reverse $str; # 配列を逆順にする @array_reverse = reverse @array; ハッシュとキーの値を入れ替えるのに、reverse関数を使用することもできます。 %hash_reverse = reverse %hash; サンプル reverse関数を使って、文字列を逆順に並べ替えるサンプルです。 # 文字列を逆順に並べ替え my $string = 'abc'; $string = reverse($string); 配列を逆順に並べ替えるサンプルです。 # 配列を逆順に並べ替え my @nums = (1, 2, 3); @nums = reverse @nums; rever

Perl › 関数 › here delete関数を使用すると、ハッシュのキーを削除することができます。キーに対応する値も削除されます。戻り値は削除されたキーに対応する値です。 my $value = delete $hash{$key}; ハッシュのリファレンスに対してdelete関数を使用する場合は次のように書きます。 my $value = delete $hash->{$key}; delete関数を使って、ageというキーを削除するサンプルです。 # ageというキーを削除 my %person = (name => 'Ken', age => 19); delete $person{age}; ハッシュのリファレンスの場合のサンプルです。 # キーを削除。リファレンスの場合。 my $person = {name => 'Ken', age => 19}; delete $pe

Perl › 関数 › here exists関数を使用するとハッシュのキーの存在を確認することができます。 # ハッシュのキーの存在確認 my $is_exists = exists $hash{$key}; ageというキーが存在するかを確認するには以下のようにします。 # ageというキーが存在することを確認 my %person = (name => 'Ken', age => 1); my $is_exists = exists $person{age}; ハッシュのリファレンスの場合には以下のようにすることができます。 # キーの存在確認。ハッシュのリファレンスの場合。 my $person = {name => 'Ken', age => 1}; my $is_exists = exists $person->{age}; defined関数との違い よく似た関数にdefin

Perl › 関数 › here each関数を使用するとハッシュとキーと値のペアを取得することができます。繰り返し使用することで、すべてのキーと値を取得できます。 # ハッシュのキーと値のペアの取得 my ($key, $value) = each %hash; eachを連続して使用するとすべての(キー, 値)のペアを順番に取得できます。取得する(キー, 値)のペアの順番は不定です。 # (キー, 値)のペアを順番に取得 my %age = (Ken => 19, Mike => 34); while (my ($name, $age) = each %age) { ... } each関数を実践で使用することは少ないと思います。同じ処理が、keys関数を使って行うことができ、keys関数を使ったほうが柔軟性が高いからです。現在のPerlでは、keys関数が最適化されているので、パフォ

Perl › 関数 › here keys関数を使用すると、ハッシュのすべてのキーを取得することができます。取得したキーの順序は不定です。 # すべてのキーを取得 my @keys = keys %hash; ハッシュのリファレンスを引数として渡す場合は、デリファレンスする必要があります。 # すべてのキーを取得。ハッシュのリファレンスの場合。 my @keys = keys %$hash; ハッシュのキーと値をすべて出力 keys関数を使って、ハッシュのすべてのキーとすべての値を出力してみます。 # キーの辞書順で並べ替えて出力 my $scores = {Ken => 1, Mike => 2, Rika => 3}; for my $person (sort keys %$scores) { print "$person : $scores->{$person}\n"; } 出力結果

Perl › 演算子 › here ハッシュスライスという機能を利用するとハッシュから複数の値を取り出すことができます。 my @math_score_slice = @math_scores{'Aiko', 'Kenta'}; ハッシュスライスを使うと、キーを複数指定して、値をリストとして取り出すことができる。接頭辞が$や%でなく、@であること、キー指定が、{ }であることに注意してください。 ハッシュのリファレンスに対して、ハッシュスライスを行うときは次のようにできます。 my @math_score_slice = @$math_scores{'Aiko', 'Kenta'}; ハッシュスライスを左辺値として使う @math_score_of{'Aiko', 'Kenta'} = (20, 40); ハッシュスライスを左辺値として使うことで、対応するキーに代入することができます。 配

Perl › 演算子 › here 配列スライスを使うと、配列から要素番号を指定して複数の要素を取り出すことができます。 # 配列スライス my @values = @array[0, 3, 5]; 配列から要素番号が1と3の要素を取得するサンプルです。 # 複数の要素を取得 my @nums = ('a', 'b', 'c', 'd'); my @choice = @nums[1, 3]; 結果は、@numsが('a', 'b', 'c', 'd')の場合に@choiceは('b', 'd')になります。 配列のリファレンスに対して配列スライスを行うには次のようにできます。 # 配列のリファレンスに対しての配列スライス my $nums = ['a', 'b', 'c', 'd']; my @choice = @$nums[1, 3]; 配列スライスを左辺値として使う 配列スライスを左辺