<html>
<head>
<style type="text/css">
body{font-family:Arial;font-size:10pt;font-weight:bold;}
p{margin:10px;}
</style>
<script type="text/javascript" language="javascript">
//////////////////////////////////////////////////////////////////
var xmlHttp=null;
function http_req(inpval){
if(inpval.length==0){
document.getElementById("select").innerHTML="";
document.form.textbox2.value="";
return;
}
try{// Firefox, Opera 8.0+, Safari, IE7
xmlHttp=new XMLHttpRequest();
}
catch(e){// Old IE
try{
xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
}
catch(e){
alert ("Your browser does not support XMLHTTP!");
return;
}
}
var url="perl.pl?textbox1=" + inpval;
url=url+"&sid="+Math.random();
xmlHttp.open("GET",url,false);
xmlHttp.send(null);
document.getElementById("select").innerHTML=xmlHttp.responseText;
}
//////////////////////////////////////////////////////////////////
function printval(suggesval){document.form.textbox2.value=suggesval;}
//////////////////////////////////////////////////////////////////
</script>
</head>
<body>
<form name="form">
<p>Input: <input type="text" onKeyUp="http_req(this.value)"></input></p>
<p>Suggestions: <span id="select"></span></p>
<p>Output: <input type="text" id="textbox2" disabled="true"></input></p>
<p><input type="submit" value="Process Output"></input></p>
</form>
</body>
</html>#! /usr/bin/perl
use strict;
use CGI ':standard';
print "Content-type: text/html\n\n";
my $input = param('textbox1');
my @suggestions = qw(Andrew Amy Alex Ben Betty Chris Carl Christine Donna Daniel Emily Fred Francis Geoff);
print qq(<select onChange="printval(this.value)">);
print qq(<option>>>>>></option>);
foreach(@suggestions){
if($_=~m/^$input/i){
print qq(<option value="$_">$_</option>);
}
}
print qq(</select>);