Last active
December 15, 2016 02:34
-
-
Save azumakuniyuki/cd7bd76430d3e08c9b1371e0be2a038f to your computer and use it in GitHub Desktop.
Perl入学式2016年第4回の練習問題解答例
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
while( chomp(my $input = <STDIN>) ) { | |
# 入力された文字を判定 | |
last if $input eq '0'; | |
# 文字列の内容によって書き換える | |
print 'Find Perl!'."\n" if $input =~ m/[Pp]erl/; | |
print 'Find Python!'."\n" if $input =~ m/python/i; | |
print 'Love Programming!'."\n" if $input =~ m/(?:perl|ruby|python)/; | |
print 'Find papix!'."\n" if $input =~ m/\Apapix/; | |
print 'Hello! '.$1.'!'."\n" if $input =~ m/Hello\s*(.+)\z/; | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment