1 #!/usr/bin/perl -w
2 # File: html_gen.pl
3 # Author: Tom Large - tlarge@thelug.org
4 # Location: http://www.thelug.org/docs/
5 # Description: A simple script to demonstrate how to
6 # take data from user input (or anywhere else), and use
7 # it to generate an html document.
8
9 print "\nWhat is your characters name?: ";
10 $name = <STDIN>;
11 chomp $name;
12
13 print "\nWhat is your characters Alignment?: ";
14 $alignment = <STDIN>;
15 chomp $alignment;
16
17 print "\nWhat race is your character?: ";
18 $race = <STDIN>;
19 chomp $race;
20
21 print "\nWhat is your characters height?: ";
22 $height = <STDIN>;
23 chomp $height;
24
25 print "\nWhat is your characters weight?: ";
26 $weight = <STDIN>;
27 chomp $weight;
28
29 print "\nWhat is your characters age?: ";
30 $age = <STDIN>;
31 chomp $age;
32
33 print "\nWhat is your characters class?: ";
34 $class = <STDIN>;
35 chomp $class;
36
37 print "\nWhat is your characters level?: ";
38 $level = <STDIN>;
39 chomp $level;
40
41 print "\nHow many experience points does your character have?: ";
42 $experience = <STDIN>;
43 chomp $experience;
44
45 print "\nWhat is your characters iq?: ";
46 $iq = <STDIN>;
47 chomp $iq;
48
49 print "\nWhat is your characters me?: ";
50 $me = <STDIN>;
51 chomp $me;
52
53 print "\nWhat is your characters ma?: ";
54 $ma = <STDIN>;
55 chomp $ma;
56
57 print "\nWhat is your characters pe?: ";
58 $pe = <STDIN>;
59 chomp $pe;
60
61 print "\nWhat is your characters ps?: ";
62 $ps = <STDIN>;
63 chomp $ps;
64
65 print "\nWhat is your characters hp?: ";
66 $hp = <STDIN>;
67 chomp $hp;
68
69 print "\nWhat is your characters sdc?: ";
70 $sdc = <STDIN>;
71 chomp $sdc;
72
73 print "\nWhat is your characters pb?: ";
74 $pb = <STDIN>;
75 chomp $pb;
76
77 print "\nWhat is your characters pp?: ";
78 $pp = <STDIN>;
79 chomp $pp;
80
81 print "\nWhat is your characters spd?: ";
82 $spd = <STDIN>;
83 chomp $spd;
84
85
86
87 $red = "#ff00000";
88
89 $file = $name;
90 open(INFO, ">>$file.html");
91 print INFO "<HTML>\n";
92 print INFO "<HEAD>\n";
93 print INFO "<TITLE>$name</TITLE>\n";
94 print INFO "</HEAD>\n";
95 print INFO "<BODY>\n";
96 print INFO "<B>Name:</B> <font color=$red>$name</font color=$red>";
97 print INFO "<BR>";
98 print INFO "<B>Alignment:</B> <font color=$red>$alignment</font color=$red>";
99 print INFO "<BR>";
100 print INFO "<B>Race:</B> <font color=$red>$race</font color=$red>";
101 print INFO "<BR>";
102 print INFO "<B>Height:</B> <font color=$red>$height</font color=$red>";
103 print INFO "<BR>";
104 print INFO "<B>Weight:</B> <font color=$red>$weight</font color=$red>";
105 print INFO "<BR>";
106 print INFO "<B>Age:</B> <font color=$red>$age</font color=$red>";
107 print INFO "<BR>";
108 print INFO "<B>Class:</B> <font color=$red>$class</font color=$red>";
109 print INFO "<BR>";
110 print INFO "<B>Experience:</B> <font color=$red>$experience</font color=$red>";
111 print INFO "<BR>";
112 print INFO "<B>IQ:</B> <font color=$red>$iq</font color=$red>";
113 print INFO "<BR>";
114 print INFO "<B>PB:</B> <font color=$red>$pb</font color=$red>";
115 print INFO "<BR>";
116 print INFO "<B>ME:</B> <font color=$red>$me</font color=$red>";
117 print INFO "<BR>";
118 print INFO "<B>PP:</B> <font color=$red>$pp</font color=$red>";
119 print INFO "<BR>";
120 print INFO "<B>MA:</B> <font color=$red>$ma</font color=$red>";
121 print INFO "<BR>";
122 print INFO "<B>PE:</B> <font color=$red>$pe</font color=$red>";
123 print INFO "<BR>";
124 print INFO "<B>PS:</B> <font color=$red>$ps</font color=$red>";
125 print INFO "<BR>";
126 print INFO "<B>SPD:</B> <font color=$red>$spd</font color=$red>";
127 print INFO "<BR>";
128 print INFO "<B>HP:</B> <font color=$red>$hp</font color=$red>";
129 print INFO "<BR>";
130 print INFO "<B>SDC:</B> <font color=$red>$sdc</font color=$red>";
131 print INFO "<BR>";
132 print INFO "<B>Weapons:</B>\n";
133
134 print "\nHow many weapons does your character have?: ";
135 $nweapons = <STDIN>;
136 chomp $nweapons;
137
138 $count = 1;
139 $top = "top";
140
141 print INFO "<table width=900 border=0 cellpadding=0 cellspacing=0>";
142 print INFO "<center>";
143
144 while ($count <= $nweapons)
145 {
146 $count++;
147 print "\nWhat is the name of the weapon? ";
148 print "\nPlease type the name with an _ in it.";
149 print "\nExample: For Rune Sword type it like this Rune_Sword: ";
150 $nameweapon = <STDIN>;
151 chomp $nameweapon;
152
153 print "\nHow much damage does this weapon do?: ";
154 $damage = <STDIN>;
155 chomp $damage;
156
157 print "\nIs this weapon special y/n?: ";
158 $special = <STDIN>;
159 chomp $special;
160
161 if ($special =~ /^y/i)
162 {
163
164 print "\nWhat is special about it?: ";
165 $infor = <STDIN>;
166 chomp $infor;
167
168 $nfile = $nameweapon;
169 open(INFO, ">>$nfile.html");
170 print INFO "<HTML>";
171 print INFO "<HEAD>";
172 print INFO "<TITLE>$nweapon</TITLE>";
173 print INFO "</HEAD>";
174 print INFO "$infor";
175 print INFO "</HTML>";
176 open(INFO, ">>$file.html");
177 print INFO "<td width=0 valign=$top>";
178
179 $namer = "$nameweapon.html";
180
181
182 print INFO "<center><font color=$red><a href=$namer>$nameweapon : $damage</font color=$red></center></A>";
183 print INFO "</td>";
184 }
185
186 if ($special =~ /^n/i)
187 {
188 print INFO "<td width=0 valign=$top>";
189 print INFO "<center><font color=$red>$nameweapon : $damage</font color=$red></center>";
190 print INFO "</td>";
191 }
192
193 }
194 print INFO "</center>";
195 print INFO "</table>";
196
197 print INFO "</BODY>";
198 print INFO "</HTML>";
199 print INFO "\n";
200 print INFO "\n";
201 print INFO "\n";
202 print INFO "\n";
203 print INFO "\n";
204 print INFO "\n";
205 print INFO "\n";
206 print INFO "\n";
207 print INFO "\n";
syntax highlighted by Code2HTML, v. 0.9.1