1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
#!/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"; } }
You can clone a snippet to your computer for local editing. Learn more.