Created by sironekotoro 2018-06-17 View revision File array_pop_shift.pl Added Side-by-side diff More Ignore whitespace Hide word diff +#!/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_pop_shift.pl) + +# 次の処理をする array_pop_shift.pl を作りましょう。 + +# 1. ('Alice', 'Bob', 'Chris') という配列を作ってください。 +my @array = ( 'Alice', 'Bob', 'Chris' ); + +# 2. 1の配列から 'Chris' を取り出し、出力してください。 +print pop @array, "\n"; # Chris + +# 3. 2の配列から 'Alice' を取り出し、出力してください。 +print shift @array, "\n"; # Alice