The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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

<body>

0
1
2
erstes = Hallo	Wert2 0 <BR>
    zweites = Leer zeichen 0 1 <BR>
    drittes = !&quot;#*+ 0 1 2 <BR>
    A = 1<br>
B = 2<br>
C = 3<br>
@a[0] = a<br>
	@a[1] = b<br>
	@a[2] = c<br>
	@a[3] = d<br>
	@a[0] = a<br>
	@a[1] = b<br>
	@a[2] = c<br>
	@a[3] = d<br>
	a <br>
b <br>
c <br>
d <br>
1 <br>
3 <br>
5 <br>
7 <br>
9 <br>
1 <br>
2 <br>
3 <br>
4 <br>
5 <br>
6 <br>
7 <br>
8 <br>
9 <br>
10 <br>
2:1 <br>
2:2 <br>
2:3 <br>
2:4 <br>
2:5 <br>
@a[0] = a<br>
	A = 1<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		B = 2<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		C = 3<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		@a[1] = b<br>
	A = 1<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		B = 2<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		C = 3<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		@a[2] = c<br>
	A = 1<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		B = 2<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		C = 3<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		@a[3] = d<br>
	A = 1<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		B = 2<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		C = 3<br>
		1 <br>
		3 <br>
		5 <br>
		7 <br>
		9 <br>
		x

 y

a
b
x = a = z
x = b = z
last = a = z
last = b = z
next = a = z
next = c = z
</body>
</html>