Snippets

sironekotoro Perl入学式 2018 第3回 練習問題 array_push_unshift.pl

Created by sironekotoro
View revision

File array_push_unshift.pl Added

  • 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_push_unshift.pl)
+
+# 1. ('Alice', 'Bob', 'Chris') という配列を作ってください。
+my @array = ( 'Alice', 'Bob', 'Chris' );
+
+# 2. 1の配列の末尾に Diana を追加し、 ('Alice', 'Bob', 'Chris', 'Diana') という配列を作ってください。
+push @array , 'Diana';
+
+# 3. 2の処理に続けて、配列の最初に Eve を追加し、 ('Eve', 'Alice', 'Bob', 'Chris', 'Diana') という配列を作ってください。
+unshift @array , 'Eve';
+
+# 4. 3の配列をfor文で出力してみましょう。
+for my $name (@array){
+    print $name , "\n"
+}
+
+# Eve
+# Alice
+# Bob
+# Chris
+# Diana
HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.