Created by sironekotoro 2018-07-22

File perl_checker.pl Added

+#!/usr/bin/env perl

+use strict;

+use warnings;

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

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

+# 練習問題(output_array_and_hash.pl)

+# 引数として文字列を受け取り, その文字列に

+# perlないしPerlが含まれるなら｢Perl Monger!｣と

+# 表示するサブルーチンperl_checkerを書いてみましょう.

+my $input = 'Perl';

+perl_checker($input);

+sub perl_checker {

+    my $input = shift;

+    # [ ] で囲ま出た任意の1文字にマッチする

+    # 正規表現を使う

+    if ( $input =~ /[Pp]erl/ ) {

+        print "Perl Monger!\n";

+    }

+}

Snippets