Perl and CGI

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Remember me

Go Back   Tutorialized ForumsWeb Design & DevelopmentPerl and CGI

Add This Thread To:   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
Unread Tutorialized Forums Sponsor:
Old September 19th, 2008, 12:34 PM
samemeee samemeee is offline
Registered User
Tutorialized Newbie (0 - 499 posts)
Join Date: Sep 2008
Posts: 3 samemeee User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 19 m 7 sec
Reputation Power: 0
CGI problem

This CGI program gives me an error. Please help.

print "Content-type:text/html\n\n";

print "<title>Corruption Search</title>\n";

#corruptionsortc.cgi - use with corruptionc.html and corruptionco.out - Corruption

open(INF,"corruptionco.out") or dienice("Couldn't open corruptionco.out for reading: $! \n");
@data = <INF>;

print "<h2>Corruption Sort By Country and Province/State</h2>\n";

# First we initialize some counters and hashes for storing the
# summarized data.
$count =0;

#$r = 2;
$c = "";
$d = "";

foreach $i (sort bycountry @data) {

($count,$country,$state,$city,$education,$age,$gen der,$department,$who,$comment1,$hr,$min,$sec,$this mon,$mday,$year) = split(/\|/,$i);

if (lc($country) ne $c or lc($state) ne $d) {
print "<br><br>";
print "<font size=3>$country, $state </font><br>";


if (lc($country) ne $c or lc($state) ne $d) {

print "<table width=\"40%\">\n";
print "<tr bgcolor=\"red\"><th width=\"15%\">Department</th><th width=\"15%\">Who</th></tr>\n";
print "</table>\n";

print "<table width=\"100%\">\n";
print "<tr><td align=\"center\" width=\"20%\">$department</td><td align=\"center\" width=\"15%\">$who</td></tr>\n";
print "<tr align=\"center\" valign=\"top\" bgcolor=\"#FF99FF\"><td align=\"left\" colspan=\"10\">$comment1</td>\n";
print "<td align=\"center\" colspan=\"3\"><font color=\"blue\">$thismon$mday$year</font></td></tr></table>\n";

$c = $country;
$d = $state;

# this is the same as $count = $count + 1;


sub bycountry {
@a = split (/\|/,$a);
@b = split(/\|/,$b);
$a[3] cmp $b[3] || $a[2] cmp $b[2] || $a[9] cmp $b[9] || $a[17] cmp $b[17] ;


close INF;

print "To Start a new search, \n";
print "<a href=\"/corruptionc.html\">Go Back to the Search Page</a><br>";

print <<EndHTML;

sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;

Reply With Quote

Viewing: Tutorialized ForumsWeb Design & DevelopmentPerl and CGI > CGI problem

Developer Shed Advertisers and Affiliates

Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 

Powered by: vBulletin Version 3.0.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

© 2003-2018 by Developer Shed. All rights reserved. DS Cluster - Follow our Sitemap