1.	<GALiRe>
2.	
3.	<title>Hello World Test<end title>
4.	
5.	<%
6.	
7.	
8.	open("test.txt") as(#FH);
9.	@XMLFile=#FH;
10.	close(#FH);
11.	
12.	
13.	open("/") as(#FH);
14.	@dirArry=#FH;
15.	
16.	/* This works, too --  @dirArry = select(/./) from(#FH);*/
17.	
18.	
19.	
20.	print '<color:#008800;>conditional variable return tests ... <end color><new>';
21.	
22.	if (@dirArry) {
23.		while ($file = @dirArry) {
24.			print "$file<new>";
25.		}
26.	}
27.	else {print "NO ARRAY<new>";}
28.	
29.	if (%hash) {print "HASH<new>";}else {print "NO HASH<new>";}
30.	if ($var) {print "VAR<new>";}else {print "NO VAR<new>";}
31.	if (#FH) {print "FH<new>";}else {print "NO FH<new>";}
32.	
33.	
34.	
35.	
36.	print '<new><line><color:#008800;>variable escape test ... <end color>';
37.	
38.	print "<new><heading>Hello World! \#FH <end heading>";
39.	print '<new><heading>Hello World! #FH <end heading>';
40.	
41.	
42.	close(#FH);
43.	
44.	
45.	
46.	print '<new><line><color:#008800;>info test ... <end color><new>';
47.	
48.	%info = info("sandbox.png");
49.	print %info[mdate];
50.	print "<new>%info";
51.	
52.	
53.	
54.	print '<new><line><color:#008800;>+ test ... <end color>';
55.	
56.	$var1 = "loves you.";
57.	$var2 = "She ";
58.	$var1 =+ $var2;
59.	print "<new>$var1";
60.	
61.	$var1 = "She ";
62.	$var2 = "loves you.";
63.	$var1 += $var2;
64.	print "<new>$var1";
65.	
66.	
67.	$var1 = 9;
68.	$var2 = 1;
69.	$var1 += $var2;
70.	print "<new><new>$var1";
71.	
72.	$var1 = 9;
73.	$var2 = 1;
74.	$var1 =+ $var2;
75.	print "<new>$var1";
76.	
77.	$var1 = 9;
78.	$var2 = 1;
79.	$var1 /= $var2;
80.	print "<new><new>$var1";
81.	
82.	$var1 = 9;
83.	$var2 = 1;
84.	$var1 =/ $var2;
85.	print "<new>$var1";
86.	
87.	
88.	
89.	
90.	print '<new><line><color:#008800;>hash add-to test ... <end color><new>';
91.	
92.	%hash=();
93.	%hash2=(a="1",b="2",);
94.	@arry=("x","y","z");
95.	
96.	add(x="var1",) to(%hash);
97.	add(@arry) to(%hash);
98.	add(z="var3",y="var2",) to(%hash);
99.	add(%hash2) to(%hash);
100.	print "%hash<new>";
101.	
102.	print "@arry<new>";
103.	%hash=@arry;
104.	print %hash;
105.	
106.	
107.	
108.	print '<new><line><color:#008800;>file Mod test  ... <end color><new>';
109.	
110.	move("sandbox.png") to("/temp/");
111.	print info("/temp/sandbox.png") + "<new>";
112.	move("/temp/sandbox.png") to("/");
113.	
114.	rename("sandbox.png") to("sandbox_1.png");
115.	print info("sandbox_1.png");
116.	rename("sandbox_1.png") to("sandbox.png");
117.	
118.	
119.	%>
120.	
121.	<end GALiRe>


Back to /SampleHost/