Created by
sironekotoro
| #!/usr/bin/env perl
use strict;
use warnings;
# Perl入学式 2018 第4回 練習問題
# https://github.com/perl-entrance-org/workshop-2018/blob/master/4th/slide.md
# 練習問題(while_input.pl)
# 標準入力に対する条件が多いので、スクリプト中に都度記載
# 入力と出力をわかりやすくするために区切り線を入れた
print '=== Input Some Strings ===', "\n";
while ( chomp( my $input = <STDIN> ) ) {
print '=== Return Strings ===', "\n";
# 文字列が0の場合, ループを抜ける(lastを使って...)
if ( $input eq '0' ) {
print "input 0 , script end\n";
last;
}
# 文字列がperlないしPerlを含む場合,
# 「Find Perl!」と表示する.
if ( $input =~ /[pP]erl/ ) {
print "Find Perl!\n";
}
# 文字列に大文字小文字問わず, pythonの文字列が
# 含まれる場合, 「Find Python!」と表示する.
if ( $input =~ /python/i ) {
print "Find Python!\n";
}
# 文字列にperlないしrubyないしpythonが
# 含まれる場合, 「Love Programming!」と
# 表示する.
if ( $input =~ /perl|ruby|python/ ) {
print "Love Programming!\n";
}
# 文字列の先頭にpapixがある場合,
# 「Find papix!」と表示する.
if ( $input =~ /^papix/ ) {
print "Find papix!\n";
}
# 文字列にHelloが含まれる場合, その後に
# 続く単語xxxxを使って「Hello! xxxx!」と
# 表示する.
if ( $input =~ /Hello/ ) {
$input =~ /Hello (.+)/;
print "Hello! $1!\n";
}
print '=== Input Some Strings ===', "\n";
}
|