Snippet revisions — Bitbucket

+#!/usr/bin/env perl

+use strict;

+use warnings;

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

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

+# 練習問題(love_food.pl)

+my $words_ref = [

+    'alice loves meat!',

+    'bob loves sushi!',

+];

+# このような配列のリファレンスを受け取り,

+# リファレンスに格納された文字列について,

+# ｢loves｣の後に記述されている好きな食べ物の単語を

+# 正規表現で取得し,

+# ｢alice -> meat｣, ｢bob -> sushi｣のように

+# 表示するサブルーチン, love_foodを書いてみよう.

+love_food($words_ref);

+sub love_food {

+    # 引数を取得する

+    my $word_ref = shift @_;

+    # 配列リファレンスをデリファレンスして配列にする

+    my @array = @{$word_ref};

+    for my $line (@array) {

+        # 名前と食べ物がマッチする正規表現を書く

+        $line =~ /(.+) loves (.+)/;

+        print $1 . " -> " . $2, "\n";

+    }

+}

Snippets