第67回 æ£å¸¸ç³»ã¨ç•°å¸¸ç³» - bingo_nakanishiã®ä»–言語出身者ã®ãŸã‚ã®Perl入門æ£å¸¸ç³»ã¨ç•°å¸¸ç³»ã¨ã„ã†è¨€è‘‰ãŒã‚る。 第66回 Perlã§ã˜ã‚ƒã‚“ã‘んゲーム- bingo_nakanishiã®ä»–言語出身者ã®ãŸã‚ã®Perl入門 ã“ã®å‰å›žã®ã˜ã‚ƒã‚“ã‘んゲームを例ã«æŒ™ã’ã¦èª¬æ˜Žã™ã‚‹ã¨ã€ 入力ã«é–¢ã—ã¦è¨€ãˆã°ã€ 「グーã€ãƒãƒ§ã‚ã€ãƒ‘ーã€ã®ã„ãšã‚Œã‹ãŒã€å…¥åŠ›ã•ã‚ŒãŸå ´åˆãŒæ£å¸¸ç³»ã§ã‚る。 対ã—ã¦ã€ 「ãーã€ã¡ã‚‡ãã€ã±ãƒ¼ã€G,H,P,1,2,3ã€ãªã©ãŒå…¥åŠ›ã•ã‚ŒãŸå ´åˆãŒç•°å¸¸ç³»ã§ã‚る。 å‰å›žã®ã˜ã‚ƒã‚“ã‘んゲームã®ã‚½ãƒ¼ã‚¹1ã‹ã‚‰ã€ ################################### # 入力ãƒã‚§ãƒƒã‚¯ ################################### if( 1 != int @ARGV ){ die '引数ã®æ•°ãŒæ£ã—ãã‚ã‚Šã¾ã›ã‚“'; } if( !( ( $ARGV[0] eq 'グー' ) || ( $ARGV[0] eq 'ãƒãƒ§ã‚') || ( $ARGV[0]
{{#tags}}- {{label}}
{{/tags}}