#!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use DBI; use CGI qw(:standard); my $q = new CGI; my $query = $q->param('query'); my $search_query = $query; $search_query =~ s/ /\+/g; print $q->header(); my $dbh = DBI->connect('DBI:mysql:db139512078', 'dbo139512078', 'bMdannBK', {RaiseError =>1}); &show; $dbh->disconnect(); sub show { my $check = $dbh -> prepare("SELECT * FROM words WHERE def='$query' LIMIT 1"); $check->execute(); while (my @row = $check -> fetchrow_array()) { my $term = uc $row[1]; &header($term); print qq|
| |||||||||||||||
|