Perlクラブ

問題 1

問題 2

問題 3

問題 4

問題 5

問題 6

問題 7

問題 8

問題 9

問題 10

問題 11

問題 12

問題 13

問題 14

問題 15

問題 16

問題 17

問題 18

問題 19

問題 20

問題 21

問題 22

問題 23

問題 24

問題 25

問題 26

問題 27

問題 28

問題 29

問題 30

問題 31

my $var = 0;
my $flg = 'true';
$var = $flg ? 1 : 2;
print $var;