hi, i have a | delimited text data file and i want a perl script which accepts an input from a textbox on a html page(search.html) and search the lines containing that string and displays them in a html page format(show.html). Any help is appreciated. the html code for search. html and show.html are. search.html <html> <head><title>Purchase Cases @ ISC</title></head> <body bgcolor="#DFD2B3"> <img src="images/purchase1.jpg"> <p><center> <table><form action="/cgi-bin/ss.cgi" method="post" name="s1"> <tr> <td><b>Search </b></td> <td><input type=textbox" name="s1" size=25></td> </tr> <tr><td align="center"><input type="image" name="I1" src="image/search.gif"></t ></tr> </form></table> </body> </html>
show.html <html> <head><title>Purchase Cases @ ISC</title></head> <body bgcolor="#DFD2B3" text="#3D5BB1"> <img src="images/purchase.jpg"> <table><form action="/cgi-bin/save.cgi" method="POST" > <tr><td><b>Tender No.</b></td><td><input type=textbox" name="t1" size=25></td> <td><b>Tender Date</b></td><td><input type=textbox" name="td" size=25></td></tr> <tr><td><b>Purchase Order No.</b></td><td><input type=textbox" name="p1" size=25 ></td> <td><b>Purchase Order Date</b></td><td><input type=textbox" name="pd" size=25></ td> </tr> <tr><td><b>Grant</b></td><td><input type=textbox" name="grant" size=25></td> </tr> <tr><td><b>Name</b></td><td><input type=textbox" name="name" size=25></td> <td><b>Email</b></td><td><input type=textbox" name="email" size=25></td> </tr> <tr><td><b>Address</b></td><td colspan=3><input type=textbox" name="add" size=78 ></td> </tr> <tr><td><b>Phone No.</b></td><td><input type=textbox" name="phone" size=25></td> </tr> <tr><td><b>Imported</b></td><td><input type=textbox" name="import" size=25></td> <td><b>AMC</b></td><td><input type=textbox" name="amc" size=25></td></tr> <tr><td><b>Delivery</b></td><td><input type=textbox" name="del" size=25></td> <td><b>Invoice No.</b></td><td><input type=textbox" name="invoice" size=25></td> </tr> <tr><td><b>BG valid Upto</b></td><td><input type=textbox" name="bg" size=25></td ></tr> <tr><td><b>Amount</b></td><td><input type=textbox" name="amount" size=25></td></ tr> <tr><td><b>Item Name</b></td><td><input type=textbox" name="item" size=25></td> <td><b>Quantity</b></td><td><input type=textbox" name="qty" size=25></td></tr> <tr><td align="center"><input type="submit" value="Submit"></td></tr> </form></table> </body> </html> Thanks Shalabh -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
