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 $num = 0;
my $result = 1;

if (!$num) {
  $result = 10;
}

if ($num >= 0) {
  $result = 100;
}

print($result);