Sophie: apache-HTML-Embperl-2.2.0-8mdv2010.0 i586

apache-HTML-Embperl-2.2.0-8mdv2010.0.i586.rpm


<html>
<head>
<title>Test for Embperl - Loop Metacommand</title>
</head>

<body>

[- $i = 0 -]
[* while ($i &lt;= $#ffld) { *]
    [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
    [- $j = 0 -]
    [* while ($j &lt;= $i) { *]
        [+ $j++ +] 
    [* } *]
    <BR>
    [- $i++ -]
[* }  *]

[- $i = 0 -]
[* while($i &lt;= 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>