#!/usr/bin/perl use strict; use warnings; my $likes_scarar = <STDIN> =~ /\byes\b/i; print "$likes_scarar\n"; my($likes_list) = <STDIN> =~ /\byes\b/i; print "$likes_list\n"; 端末から実行する。どっちも、yesと入力する。 $ ./09-03.pl yes 1 yes 1こうなるんで</stdin></stdin>…