switch.t revision 1.8 
1#!./perl
2
3print "1..18\n";
4
5sub foo1 {
6    $_ = shift(@_);
7    $a = 0;
8    until ($a++) {
9	next if $_ eq 1;
10	next if $_ eq 2;
11	next if $_ eq 3;
12	next if $_ eq 4;
13	return 20;
14    }
15    continue {
16	return $_;
17    }
18}
19
20print do foo1(0) == 20 ? "ok 1\n" : "not ok 1\n";
21print do foo1(1) == 1 ? "ok 2\n" : "not ok 2\n";
22print do foo1(2) == 2 ? "ok 3\n" : "not ok 3\n";
23print do foo1(3) == 3 ? "ok 4\n" : "not ok 4\n";
24print do foo1(4) == 4 ? "ok 5\n" : "not ok 5\n";
25print do foo1(5) == 20 ? "ok 6\n" : "not ok 6\n";
26
27sub foo2 {
28    $_ = shift(@_);
29    {
30	last if $_ == 1;
31	last if $_ == 2;
32	last if $_ == 3;
33	last if $_ == 4;
34    }
35    continue {
36	return 20;
37    }
38    return $_;
39}
40
41print do foo2(0) == 20 ? "ok 7\n" : "not ok 7\n";
42print do foo2(1) == 1 ? "ok 8\n" : "not ok 8\n";
43print do foo2(2) == 2 ? "ok 9\n" : "not ok 9\n";
44print do foo2(3) == 3 ? "ok 10\n" : "not ok 10\n";
45print do foo2(4) == 4 ? "ok 11\n" : "not ok 11\n";
46print do foo2(5) == 20 ? "ok 12\n" : "not ok 12\n";
47
48sub foo3 {
49    $_ = shift(@_);
50    if (/^1/) {
51	return 1;
52    }
53    elsif (/^2/) {
54	return 2;
55    }
56    elsif (/^3/) {
57	return 3;
58    }
59    elsif (/^4/) {
60	return 4;
61    }
62    else {
63	return 20;
64    }
65    return 40;
66}
67
68print do foo3(0) == 20 ? "ok 13\n" : "not ok 13\n";
69print do foo3(1) == 1 ? "ok 14\n" : "not ok 14\n";
70print do foo3(2) == 2 ? "ok 15\n" : "not ok 15\n";
71print do foo3(3) == 3 ? "ok 16\n" : "not ok 16\n";
72print do foo3(4) == 4 ? "ok 17\n" : "not ok 17\n";
73print do foo3(5) == 20 ? "ok 18\n" : "not ok 18\n";
74