Sunthari wrote:
>
> Hi All,
>
> I really someone understands what I 'm trying to do
> with the codes below.Pls help me to troubleshoot the
> codes below.
>
> I 'm sure I look dumb in this but pls. feel free to
> give ur comments and suggestion.
>
> Rgds,
>
It's already a good perl code, in my opinion.
I didn't checked it very intensive,
so I only will give you one hint to reduce your effort.
Instead of writing in every line a print command,
one is enough:
> print $q->header;
> print $q->start_html("Web Search");
> print $q->h1({-align=>"center"},'Web Concordance
> Search Results');
> print $q->h3({-align=>"center"},"for search term
> '$word'");
> print $q->h4({-align=>"center"},"Producing
> output....\n");
> print $q->hr;
>
Simplier is
print $q->header,
$q->start_html("Web Search"),
$q->h1({-align=>"center"},
'Web Concordance Search Results'),
$q->h3({-align=>"center"},
"for search term '$word'"),
$q->h4({-align=>"center"},
"Producing output....\n"),
$q->hr;
Note, that now it's more simple to read.
This code express what it does,
to print multiple arguments.
I expect two different print commands are completely different
like
print "Now I write to a file";
print FILE "in File";
Note also, that I build for $q->h1(....,
.....)
an own block.
Best Wishes,
Andrea
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
