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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
<html>
<head>
<title>Test for Embperl - Loop Metacommand</title>
</head>
<body>
[- $i = 0 -]
[* while ($i <= $#ffld) { *]
[+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
[- $j = 0 -]
[* while ($j <= $i) { *]
[+ $j++ +]
[* } *]
<BR>
[- $i++ -]
[* } *]
[- $i = 0 -]
[* while($i <= 2) {*]
[+ $i++ +]
[* } *]
[- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -]
[- @a = ('a', 'b', 'c', 'd') ; -]
[* @hh = map { $_ => $h{$_} } sort keys %h ;
while ($v = shift @hh, $k = shift @hh) { *]
[+ "$v = $k" +]<br>
[* } *]
[- $i = 0 -]
[* while ($i <= $#a) { *]
[+ "\@a[$i] = $a[$i]" +]<br>
[- $i++ -]
[* } *]
[- $i = 0 -]
[* do { *]
[+ "\@a[$i] = $a[$i]" +]<br>
[- $i++ -]
[* } until ($i > $#a) ; *]
[* foreach $v (@a) { *]
[+ $v +] <br>
[* } *]
[* foreach $v (1, 3, 5, 7, 9) { *]
[+ $v +] <br>
[* } *]
[* foreach $v (1..10) { *]
[+ $v +] <br>
[* } *]
[- $i = 0 -]
[* do { *]
[+ "\@a[$i] = $a[$i]" +]<br>
[* @hh = map { $_ => $h{$_} } sort keys %h ;
while (($v = shift @hh, $k = shift @hh)) { *]
[+ "$v = $k" +]<br>
[* foreach $fv (1, 3, 5, 7, 9) { *]
[+ $fv +] <br>
[* } *]
[* foreach $fv (1) { *]
[+ $fv +] <br>
[- @hhh = map { $_ => $h{$_} } sort keys %hhh ; -]
[* while (($wv = shift @hhh, $wk = shift @hhh)) { *]
[+ "$wv = $wk" +]<br>
[* } *]
[* } *]
[* } *]
[- $i++ -]
[* } until ($i > $#a) ; *]
</body>
</html>
|
