line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
9
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
168
|
|
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
2
|
Test for Embperl - Loop Metacommand |
|
1
|
|
|
|
|
2
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
|
|
16
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
|
9
|
1
|
|
|
|
|
2
|
[- $i = 0 -] |
10
|
1
|
|
|
|
|
3
|
[$ while($i <= 2)$] |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
4
|
|
11
|
3
|
|
|
|
|
50
|
[+ $i++ +] |
|
3
|
|
|
|
|
21
|
|
12
|
1
|
|
|
1
|
|
4
|
[$ endwhile $] |
|
1
|
|
|
1
|
|
2
|
|
|
1
|
|
|
|
|
47
|
|
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
26
|
|
13
|
1
|
|
|
|
|
15
|
|
14
|
1
|
|
|
|
|
2
|
[- $i = 0 -] |
15
|
1
|
|
|
|
|
2
|
[$ while $i <= $#ffld $] |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
4
|
|
16
|
3
|
|
|
|
|
45
|
[+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] |
|
3
|
|
|
|
|
15
|
|
17
|
3
|
|
|
|
|
14
|
[- $j = 0 -] |
|
3
|
|
|
|
|
3
|
|
18
|
3
|
|
|
|
|
4
|
[$ while $j <= $i $] |
|
3
|
|
|
|
|
4
|
|
|
3
|
|
|
|
|
7
|
|
19
|
6
|
|
|
|
|
84
|
[+ $j++ +] |
|
6
|
|
|
|
|
27
|
|
20
|
|
|
|
|
|
|
[$ endwhile $] |
21
|
3
|
|
|
|
|
38
|
|
22
|
3
|
|
|
|
|
5
|
[- $i++ -] |
23
|
3
|
|
|
|
|
3
|
[$ endwhile $] |
|
3
|
|
|
|
|
8
|
|
24
|
1
|
|
|
|
|
16
|
|
25
|
|
|
|
|
|
|
|
26
|
1
|
|
|
|
|
2
|
[- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -] |
27
|
1
|
|
|
|
|
2
|
[- @a = ('a', 'b', 'c', 'd') ; -] |
|
1
|
|
|
|
|
5
|
|
28
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
3
|
|
29
|
|
|
|
|
|
|
[- @hh = map { $_ => $h{$_} } sort keys %h -] |
30
|
1
|
|
|
|
|
1
|
[$ while ($v = shift @hh, $k = shift @hh) $] |
|
1
|
|
|
|
|
9
|
|
|
3
|
|
|
|
|
7
|
|
|
1
|
|
|
|
|
5
|
|
31
|
3
|
|
|
|
|
44
|
[+ "$v = $k" +] |
|
3
|
|
|
|
|
20
|
|
32
|
|
|
|
|
|
|
[$ endwhile $] |
33
|
1
|
|
|
|
|
89
|
|
34
|
1
|
|
|
|
|
2
|
[- $i = 0 -] |
35
|
1
|
|
|
|
|
2
|
[$ while $i <= $#a $] |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
5
|
|
36
|
4
|
|
|
|
|
61
|
[+ "\@a[$i] = $a[$i]" +] |
|
4
|
|
|
|
|
20
|
|
37
|
4
|
|
|
|
|
8
|
[- $i++ -] |
38
|
4
|
|
|
|
|
4
|
[$ endwhile $] |
|
4
|
|
|
|
|
8
|
|
39
|
1
|
|
|
|
|
15
|
|
40
|
1
|
|
|
|
|
1
|
[- $i = 0 -] |
41
|
1
|
|
|
|
|
2
|
[$ do $] |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
2
|
|
42
|
4
|
|
|
|
|
58
|
[+ "\@a[$i] = $a[$i]" +] |
|
4
|
|
|
|
|
67
|
|
43
|
4
|
|
|
|
|
8
|
[- $i++ -] |
44
|
4
|
|
|
|
|
3
|
[$ until $i > $#a $] |
|
4
|
|
|
|
|
10
|
|
45
|
1
|
|
|
|
|
16
|
|
46
|
1
|
|
|
|
|
2
|
[$ foreach $v (@a) $] |
47
|
4
|
|
|
|
|
60
|
[+ $v +] |
|
4
|
|
|
|
|
17
|
|
48
|
|
|
|
|
|
|
[$ endforeach $] |
49
|
1
|
|
|
|
|
14
|
|
50
|
1
|
|
|
|
|
2
|
[$ foreach $v (1, 3, 5, 7, 9) $] |
51
|
5
|
|
|
|
|
73
|
[+ $v +] |
|
5
|
|
|
|
|
18
|
|
52
|
|
|
|
|
|
|
[$ endforeach $] |
53
|
1
|
|
|
|
|
15
|
|
54
|
1
|
|
|
|
|
3
|
[$ foreach $v (1..10) $] |
55
|
10
|
|
|
|
|
142
|
[+ $v +] |
|
10
|
|
|
|
|
33
|
|
56
|
|
|
|
|
|
|
[$ endforeach $] |
57
|
1
|
|
|
|
|
14
|
|
58
|
1
|
|
|
|
|
3
|
[$ foreach $v(1..5) $] |
59
|
5
|
|
|
|
|
73
|
2:[+ $v +] |
|
5
|
|
|
|
|
16
|
|
60
|
|
|
|
|
|
|
[$ endforeach $] |
61
|
1
|
|
|
|
|
16
|
|
62
|
1
|
|
|
|
|
2
|
[- $i = 0 -] |
63
|
1
|
|
|
|
|
1
|
[$ do $] |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
2
|
|
64
|
4
|
|
|
|
|
81
|
[+ "\@a[$i] = $a[$i]" +] |
|
4
|
|
|
|
|
16
|
|
65
|
4
|
|
|
|
|
7
|
[- @hh = map { $_ => $h{$_} } sort keys %h -] |
66
|
4
|
|
|
|
|
5
|
[$ while ($v = shift @hh, $k = shift @hh) $] |
|
4
|
|
|
|
|
10
|
|
|
12
|
|
|
|
|
22
|
|
|
4
|
|
|
|
|
10
|
|
67
|
12
|
|
|
|
|
176
|
[+ "$v = $k" +] |
|
12
|
|
|
|
|
45
|
|
68
|
12
|
|
|
|
|
19
|
[$ foreach $fv (1, 3, 5, 7, 9) $] |
69
|
60
|
|
|
|
|
887
|
[+ $fv +] |
|
60
|
|
|
|
|
190
|
|
70
|
|
|
|
|
|
|
[$ endforeach $] |
71
|
12
|
|
|
|
|
163
|
[$ foreach $fv (()) $] |
|
12
|
|
|
|
|
25
|
|
72
|
0
|
|
|
|
|
0
|
[+ $fv +] |
|
0
|
|
|
|
|
0
|
|
73
|
0
|
|
|
|
|
0
|
[- @hhh = map { $_ => $h{$_} } sort keys %h -] |
74
|
0
|
|
|
|
|
0
|
[$ while ($wv = shift @hhh, $wk = shift @hhh) $] |
|
0
|
|
|
|
|
0
|
|
|
0
|
|
|
|
|
0
|
|
|
0
|
|
|
|
|
0
|
|
75
|
0
|
|
|
|
|
0
|
[+ "$wv = $wk" +] |
|
0
|
|
|
|
|
0
|
|
76
|
|
|
|
|
|
|
[$ endwhile $] |
77
|
0
|
|
|
|
|
0
|
[$ endforeach $] |
78
|
12
|
|
|
|
|
199
|
[$ endwhile $] |
79
|
4
|
|
|
|
|
51
|
[- $i++ -] |
|
4
|
|
|
|
|
7
|
|
80
|
4
|
|
|
|
|
5
|
[$ until $i > $#a $] |
|
4
|
|
|
|
|
11
|
|
81
|
1
|
|
|
|
|
15
|
|
82
|
|
|
|
|
|
|
|
83
|
1
|
|
|
|
|
2
|
[- undef @a ; undef @b -] |
84
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
4
|
|
85
|
1
|
|
|
|
|
2
|
[$ if 1 $] |
|
1
|
|
|
|
|
1
|
|
86
|
1
|
|
|
|
|
14
|
|
87
|
|
|
|
|
|
|
x |
88
|
|
|
|
|
|
|
|
89
|
1
|
|
|
|
|
3
|
[$ foreach $a (@a) $] |
90
|
0
|
|
|
|
|
0
|
[$ foreach $b (@b) $] |
|
0
|
|
|
|
|
0
|
|
91
|
0
|
|
|
|
|
0
|
[$ endforeach $] |
92
|
0
|
|
|
|
|
0
|
[$ endforeach $] |
93
|
1
|
|
|
|
|
15
|
|
94
|
|
|
|
|
|
|
y |
95
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
[$ endif $] |
97
|
1
|
|
|
|
|
15
|
|
98
|
|
|
|
|
|
|
|
99
|
1
|
|
|
|
|
2
|
[- @bar = ('a', 'b', 'c'); -] |
100
|
1
|
|
|
|
|
2
|
[$ foreach $foo (@bar) $] |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
2
|
|
101
|
3
|
|
|
|
|
44
|
[* next if ($foo eq 'c'); *] |
|
3
|
|
|
|
|
5
|
|
102
|
3
|
100
|
|
|
|
8
|
[+ $foo +] |
|
2
|
|
|
|
|
7
|
|
103
|
2
|
|
|
|
|
26
|
[$ endforeach $] |
104
|
1
|
|
|
|
|
16
|
|
105
|
1
|
|
|
|
|
2
|
[$ foreach $foo (@bar) $] |
106
|
3
|
|
|
|
|
44
|
[* next if ($foo eq 'c'); *] |
|
3
|
|
|
|
|
4
|
|
107
|
3
|
100
|
|
|
|
11
|
x = [+ $foo +] = z |
|
2
|
|
|
|
|
6
|
|
108
|
2
|
|
|
|
|
26
|
[$ endforeach $] |
109
|
1
|
|
|
|
|
15
|
|
110
|
1
|
|
|
|
|
3
|
[$ foreach $foo (@bar) $] |
111
|
3
|
100
|
|
|
|
55
|
[$if ($foo eq 'c') $][$ last $][$endif$] |
|
3
|
|
|
|
|
7
|
|
112
|
1
|
|
|
|
|
14
|
last = [+ $foo +] = z |
|
2
|
|
|
|
|
8
|
|
113
|
1
|
|
|
|
|
2
|
[$ endforeach $] |
114
|
1
|
|
|
|
|
16
|
|
115
|
2
|
|
|
|
|
31
|
[$ foreach $foo (@bar) $] |
|
1
|
|
|
|
|
2
|
|
116
|
3
|
100
|
|
|
|
42
|
[$if ($foo eq 'b') $][$ next $][$endif$] |
|
3
|
|
|
|
|
7
|
|
117
|
1
|
|
|
|
|
14
|
next = [+ $foo +] = z |
|
2
|
|
|
|
|
9
|
|
118
|
1
|
|
|
|
|
2
|
[$ endforeach $] |
119
|
1
|
|
|
|
|
14
|
|
120
|
2
|
|
|
|
|
30
|
|
121
|
1
|
|
|
|
|
1
|
|