1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/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
You can clone a snippet to your computer for local editing. Learn more.