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

+# 練習問題(hash_func.pl)

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

+# 1. keys関数を使って、hash_profile.pl で作ったハッシュのkeyをすべて出力してください。

+my %my_profile = ( name => 'sironekotoro', age => '200', food => 'ramen' );

+my @keys = keys %my_profile;

+print "@keys", "\n";

+# 2. delete関数を使って、1で使ったハッシュから年齢(age)の要素を削除してください。

+delete $my_profile{age};

+# 3. exists関数を使って、年齢の要素が存在するか確認してください。存在している場合は "Age is exist." 、存在しない場合は "Age is not exist." と表示するようにしてみましょう。

+if ( exists $my_profile{age} ) {

+    print "Age is exist.\n";

+}

+else {

+    print "Age is not exist.\n";

+}

Snippets