Snippet revisions — Bitbucket

+#!/usr/bin/env perl

+use strict;

+use warnings;

+# Perl入学式 2018 第3回 練習問題

+# https://github.com/perl-entrance-org/workshop-2018/blob/master/3rd/slide.md

+# 練習問題(array_ref.pl)

+# animal

+#  ├─ dog

+#  │    ├─ shiba

+#  │    └─ bulldog

+#  ├─ cat

+#  │    ├─ mike

+#  │    └─ abyssinian

+#  └─ bird

+#        ├─ eagle

+#        └─ crow

+# 次の処理をする array_ref.pl を作りましょう。

+# 1.上記のデータ構造を表す@animalを作ってください。

+# 2.その中からeagleを取り出してください。

+# 3.余裕があれば、他の要素も取り出してみましょう。

+# 1.上記のデータ構造を表す@animalを作ってください

+# に従い、配列を作る

+my @animal;

+# 配列を作り、配列リファレンスをスカラー変数に格納する方法

+my @dog = ( 'shiba', 'bulldog' );

+my $dog_ref = \@dog;

+# 無名配列をスカラー変数に格納する方法

+my $cat_ref = [ 'mike', 'abyssinian' ];

+# 配列を作る際に、qwショートカットを使った例

+my @bird     = qw(eagle crow);

+my $bird_ref = \@bird;

+# push関数で、配列に配列リファレンスを入れていく

+push @animal, $dog_ref;

+push @animal, $cat_ref;

+push @animal, $bird_ref;

+# アロー記法を利用

+print $animal[2]->[0], "\n";    # eagle

+# アローを省略した記法

+print $animal[1][1], "\n";      # abyssinian

+# 配列の中の配列リファレンスをデリファレンスし、

+# 添え字でアクセスする

+print ${ $animal[0] }[0], "\n"; # shiba

Snippets