Although this is a JS solution, it could be modified to perl. The reason its in JS is that by sending the full table out (as you'd do with a perl solution), you're outputting a lot more data than is needed.
I use the following javascript to let people select a color in a form text field. The text field lets them type a color if they know it, or they click a button to choose one:
function choosecolor(form, name, title) {
colorWindow=window.open("about:blank","colorWindow","width=400
+,height=120,resizable=yes")
colorlist = new Array('00','33','66','99','CC','FF');
colorWindow.document.write("<table border=0 cellpadding=0 cell
+spacing=0>");
colorWindow.document.write("<tr><td colspan=3 align=center><fo
+nt face='arial,helvetica,sans' size=3><b>" + title + "</b></td></tr>"
+);
colorWindow.document.write(" <tr>");
for (var rcolor in colorlist) {
colorWindow.document.write(" <td>");
colorWindow.document.write(" <table border=0 ce
+llpadding=0 cellspacing=2>");
for (var gcolor in colorlist) {
colorWindow.document.write(" <tr>");
for (var bcolor in colorlist) {
colorWindow.document.write(" <t
+d bgcolor='#" + colorlist[rcolor] + colorlist[bcolor] + colorlist[gco
+lor] + "'><a href=\"javascript:window.opener.document." + form + "."
++ name + ".value='#" + colorlist[rcolor] + colorlist[bcolor] + colorl
+ist[gcolor] + "'; self.close()\"><img src="./images/clearpixel.gif' w
+idth=8 height=8 border=0></a></td>");
}
colorWindow.document.write(" </tr>");
}
colorWindow.document.write(" </table>");
colorWindow.document.write(" </td>");
}
colorWindow.document.write(" </tr>");
colorWindow.document.write("</table></font><form><input type=b
+utton value=' Cancel ' onclick='self.close()'></form></center>");
Which works from a form like this:
<form name=colorpicker>
Enter a color:<input name=color type=text><input type=button value="Pi
+ck" onclick="choosecolor('colorpicker', 'color', 'Pick a color for no
+ reason at all')">
</form>
Hope this helps ... please forgive the lack of a perl solution, but note the above reasoning for it.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|