Created by sironekotoro 2018-07-22 View revision File perl_checker.pl Added Side-by-side diff More Ignore whitespace Hide word diff +#!/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"; + } +}