Hi
HTMLCode(MySear chPage.html):
[CODE=html]
<html>
<body>
<form method="post" action="http://localhost:8080/cgi-bin/Searchengines.p l">
<input type="text" name="q" size="50"/>
<input type="submit" name="sbm" text="Submit"/>
</form>
</body>
</html>
[/CODE]
PerlCode(Search engines.pl):
[CODE=perl]
#!C:/Perl/bin/perl -wT
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrow ser warningsToBrows er);
my $searchterm;
if(param('q'))
{
$searchterm = param('q');
}
print header;
print "<html>";
print "<frameset rows='10%,*'>";
print "<frame src='http://localhost:8080/MySearchPage.ht ml' scrolling='no' noresize/>";
print "<frameset cols='35%,35%,* '>";
print "<frame src='http://www.hakia.com/?q=".$searchter m."'/>";
print "<frame src='http://www.altavista.c om/sites/search/web?q=".$search term."'/>";
print "<frame src='http://www.google.com/search?q=".$sea rchterm."'/>";
print "</frameset>";
print "</frameset>";
print "</html>";
[/CODE]
I am using WindowsXP
- Freedolen
- I found a website "http://www.gahooyoogle .com" which is a search engine and fetches result from both yahoo and Google.
- tried to develop a similar one but with more simpler and i choose(Hakia, AltaVista and Google) as my search engines. I developed a html(MySearchPa ge.html) with textbox and submit button, when search term entered and clicking on submit button it calls a perl file.
- In perl file there is a Html code, the window is first separated to two rows, first row again calls the html file(MySearchPa ge.html) and second row is separated to three columns. These three columns contains the results of the search engines.
- Now i am entering the new search term in the first frame which contains the html file(MySearchPa ge.html) and the results are displayed in the same frame. But i need the results to be displayed in the second set of three frames without affecting the first frame, the first frame should always contain the html file only
HTMLCode(MySear chPage.html):
[CODE=html]
<html>
<body>
<form method="post" action="http://localhost:8080/cgi-bin/Searchengines.p l">
<input type="text" name="q" size="50"/>
<input type="submit" name="sbm" text="Submit"/>
</form>
</body>
</html>
[/CODE]
PerlCode(Search engines.pl):
[CODE=perl]
#!C:/Perl/bin/perl -wT
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrow ser warningsToBrows er);
my $searchterm;
if(param('q'))
{
$searchterm = param('q');
}
print header;
print "<html>";
print "<frameset rows='10%,*'>";
print "<frame src='http://localhost:8080/MySearchPage.ht ml' scrolling='no' noresize/>";
print "<frameset cols='35%,35%,* '>";
print "<frame src='http://www.hakia.com/?q=".$searchter m."'/>";
print "<frame src='http://www.altavista.c om/sites/search/web?q=".$search term."'/>";
print "<frame src='http://www.google.com/search?q=".$sea rchterm."'/>";
print "</frameset>";
print "</frameset>";
print "</html>";
[/CODE]
I am using WindowsXP
- Freedolen
Comment