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 $i = 0;
while ($i < 5) {
    $i++;
}
print $i;