The page below could be pre-populated from the call to your script.
<html>
<head>
<title>
Tabs Example
</title>
<script>
function setVisible(tabName){
var tabsNames=["PersonalTab", "AddressTab", "CommentsTab"];
for (index=0;index < 3; index++){
var tab=document.getElementById(tabsNames[index]);
tab.style.display = "none";
}
var tab= document.getElementById(tabName);
tab.style.display = "block";
}
</script>
</head>
<body>
<div name="tabs">
|<span id="Personal" onClick='setVisible("PersonalTab");' >Personal</s
+pan>|
<span id="Address" onClick='setVisible("AddressTab");' >Address</span>
+|
<span id="Comments" onClick='setVisible("CommentsTab")'; >Comments</sp
+an>|
</div>
<div id="PersonalTab" style="display: block;">
<table>
<tr><td>Name:</td><td>Some Guy</td></tr>
<tr><td>Age:</td><td>42</td></tr>
<tr><td>Status:</td><td>Married</td></tr>
</table>
</div>
<div id="AddressTab" style="display: none;">
<table>
<tr><td>email:</td><td>some.guy@example.com</td></tr>
<tr><td>Home:</td><td>42 Life St<br/>The universe<br/>Everthing</td></
+tr>
<tr><td>Work:</td><td>I'm afraid you still have to</td></tr>
</table>
</div>
<div id="CommentsTab" style="display: none;">
<table>
<tr><td>Punctuality:</td><td>Not too bad unless there was a match on s
+unday in which case moday can start late</td></tr>
<tr><td>Application:</td><td>Seems to spend more time solving anonymou
+s Perl problems than those of our customers</td></tr>
<tr><td>Skill:</td><td>What is it with Perl and why won't he apply him
+self to Java like he's supposed to</td></tr>
</table>
</div>
</body>
</html>
However this is properly a Javascript rather than a Perl issue
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."
|