Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

regarding html code in perl

Status
Not open for further replies.
peterto

peterto

Programmer
Joined
Apr 23, 2007
Messages
4
Hi guys i have doubt regarding html code in side perl, can any body please rectify that error.....

I wrote html code in side perl, here that html page is not displaying properly...I dont know where is problem....i tried in below code...


************************* Code *********************



print "Content-Type: text/html\n\n";
print "<html> <head>\n";
print "<title>Minimal Input</title>\n";
print "</head>\n";
print "<body bgcolor=\"lightgreen\">";
print "<form method=\"post\" action=\" >";
print "<p style=\"font-family:verdana;font-size:75%;color:red\">";
#print "FILE IS ALREADY EXIT IF U WANT CHANGE U CAN CHANGE OTHERWISE LEAVE IT\n";
print "<center>";
print "<p style=\"font-family:verdana;font-size:250%;color:red\">
<b>Day/Weekly Activity Report</b>\n";
print "</p>\n";
print "<TABLE BORDER=0 cellspacing=20>";
print "<TR>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>Project name:</b>\n";
print "</TD>";
print "<TD>";
print "<select name =\"Projectname\">\n";
print "<option value=\"Projectbyme\">Projectbyme</option>\n";
print "</select>\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>project member:</b>\n";
print "</TD>";
print "<TD>";
print "<select name =\"projectmembers\">\n";
print "<option value=\"jaison-san\">jaison-san</option>\n";
print "<option value=\"suraj-san\">suraj-san</option>\n";
print "<option value=\"swetha-san\">swetha-san</option>\n";
print "<option value=\"Umesh-san\">Umesh-san</option>\n";
print "<option value=\"vishnu-san\">vishnu-san</option>\n";
print "<option value=\"Harish-san\">Harish-san</option>\n";
print "<option value=\"sunil-san\">sunil-san</option>\n";
print "<option value=\"danunjay-san\">danunjay-san</option>\n";
print "<option value=\"kirankumar-san\">kirankumar-san</option>\n";
print "<option value=\"kiranjoy-san\">kiranjoy-san</option>\n";
print "<option value=\"peter-san\">peter-san</option>\n";
print "</select>\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>EmailId</b>\n";
print "</TD>";
print "<TD>";
print "<select name =\"EmailId\">\n";
print "<option value=\"jaison.j\@dell.com\" >jaison.j\@dell.com</option>\n";
print "<option value=\"suraj.k\@dell.com\">suraj.k\@dell.com</option>\n";
print "<option value=\"swetha.regati\@dell.com\">swetha.regati\@dell.com</option>\n";
print "<option value=\"umesh.p\@dell.com\">umesh.p\@dell.com</option>\n";
print "<option value=\"vishnu.c\@dell.com\">vishnu.c\@dell.com</option>\n";
print "<option value=\"harish.t\@dell.com\" >harish.t\@dell.com</option>\n";
print "<option value=\"sunil.c\@dell.com\">sunil.c\@dell.com</option>\n";
print "<option value=\"djkumar.ch\@dell.com\">djkumar.ch\@dell.com</option>\n";
print "<option value=\"kirankumar.gt\@dell.com\">kirankumar.gt\@dell.com</option>\n";
print "<option value=\"kiran.joy\@dell.com\">kiran.joy\@dell.com</option>\n";
print "<option value=\"peter.to\@dell.com\">peter.to\@dell.com</option>\n";
print "</select>\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>Month:</b>\n";
print "</TD>";
print "<TD>";
print "<select name=\"month\">\n";
print "<option value=\"january\">January</option>\n";
print "<option value=\"February\">February</option>\n";
print "<option value=\"March\">March</option>\n";
print "<option value=\"April\">April</option>\n";
print "<option value=\"May\">May</option>\n";
print "<option value=\"June\">June</option>\n";
print "<option value=\"July\">July</option>\n";
print "<option value=\"August\">August</option>\n";
print "<option value=\"September\">September</option>\n";
print "<option value=\"October\">October</option>\n";
print "<option value=\"November\">November</option>\n";
print "<option value=\"December\">December</option>\n";
print "</select>\n";
print "Date:\n";
print "<select name =\"fromdate\">\n";
print "<option value=\"1\">1</option>\n";
print "<option value=\"2\">2</option>\n";
print "<option value=\"3\">3</option>\n";
print "<option value=\"4\">4</option>\n";
print "<option value=\"5\">5</option>\n";
print "<option value=\"6\">6</option>\n";
print "<option value=\"7\">7</option>\n";
print "<option value=\"8\">8</option>\n";
print "<option value=\"9\">9</option>\n";
print "<option value=\"10\">10</option>\n";
print "<option value=\"11\">11</option>\n";
print "<option value=\"12\">12</option>\n";
print "<option value=\"13\">13</option>\n";
print "<option value=\"14\">14</option>\n";
print "<option value=\"15\">15</option>\n";
print "<option value=\"16\">16</option>\n";
print "<option value=\"17\">17</option>\n";
print "<option value=\"18\">18</option>\n";
print "<option value=\"19\">19</option>\n";
print "<option value=\"20\">20</option>\n";
print "<option value=\"21\">21</option>\n";
print "<option value=\"22\">22</option>\n";
print "<option value=\"23\">23</option>\n";
print "<option value=\"24\">24</option>\n";
print "<option value=\"25\">25</option>\n";
print "<option value=\"26\">26</option>\n";
print "<option value=\"27\">27</option>\n";
print "<option value=\"28\">28</option>\n";
print "<option value=\"29\">29</option>\n";
print "<option value=\"30\">30</option>\n";
print "<option value=\"31\">31</option>\n";
print "</select>\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>Workdone On:</b>\n";
print "</TD>";
print "<TD>";
print "<select name=\"days\">\n";
print "<option value=\"Sunday\">Sunday</option>\n";
print "<option value=\"Monday\">Monday</option>\n";
print "<option value=\"Tuesday\">Tuesday</option>\n";
print "<option
value=\"Wednesday\" >Wednesday</option>\n";
print "<option value=\"Thursday\">Thursday</option>\n";
print "<option value=\"Friday\">Friday</option>\n";
print "<option value=\"Saturday\">Saturday</option>\n";
print "</select>\n";
print "<textarea name=\"textreport\" rows=\"8\" cols=\"40\" >\n";
print "</textarea>\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>Work Planned</b>\n";
print "</TD>";
print "<TD>";
print "<textarea name=\"workplaned\" rows=\"5\" cols=\"50\" >\n";
print "</textarea>\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "<form>\n";
print "<p style=\"font-family:verdana;font-size:100%;color:blue\">\n";
print "<b>Do U Want SendMail to PM ?</b>\n";
print "</TD>";
print "<TD>";
print "<p style=\"font-family:verdana;font-size:100%;color:red\">\n";
print "Yes:\n";
print "<input type=\"radio\" name=\"sendmail\" checked=\"checked\" value=\"true\" />\n";
print "No:\n";
print "<input type=\"radio\" name=\"sendmail\" value=\"false\" />\n";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "</TD>";
print "<TD>";
print "<input type=\"submit\" value=\"MODIFY\" />\n";
print "</TD>";
print "</TR>";
print "</form>\n";
print "</TABLE>";
print "</body>\n";
print "</html>\n";



If i run this code on server side iam not getting web page instead of this i am getting hole page of this with print command also...........

please help me how to write html code in perl program.....
i tried in another method also by
print <<EOM;
----------------
-------------
html code
-----------
EOM

if i run this one iam getting web page but including print and EOM...
Thanks guys for spending ur valuable time ......
 
Sort by date Sort by votes
Hi

Your problem is the web server does not know that is a script.

Did you put a shebang ? Is the file executable ? Is the file located in a CGI directory ?
Code: 
[red]#!/usr/bin/perl[/red]

            print "Content-Type: text/html\n\n";
            print "<html> <head>\n";
            print "<title>Minimal Input</title>\n";

[gray]# ...[/gray]
Note that your question is much closer to forum452 or to your web server's forum.

Feherke.
 
Upvote 0 Downvote
Isn't the Content-Length header mandatory as well? Wouldn't it be easier to use the CGI module rather than hand-cranking your own?

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)[/small]
 
Upvote 0 Downvote
may i know how to use cgi module
 
Upvote 0 Downvote
Guys i have one more doubt regarding this...............


in above perl program that contains the html code for displaying web page,In this web page if i select project name means i want to get corresponding project member email id and if i select month and date, i want to get corresponding day name of that date...is there any method to get like this.............
OR is there any method to get like this with out performing any action(in the sense with out pressing any button or submit)
i tried with this code for displaying the web page..here i am choosing each and every field ......
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

svar
  • Question Question
Building strawberry perl with modules
Replies
0
Views
215
svar
svar
rob54321
  • Locked
  • Question Question
Perl how to read line from file with interpolation
Replies
6
Views
1K
rob54321
rob54321
newbie1238585
  • Locked
  • Question Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
816
mikrom
mikrom
Limbomusic
  • Locked
  • Question Question
Perl files getting accessed directly
Replies
0
Views
643
Limbomusic
Limbomusic
eslie
  • Locked
  • Question Question
Perl script behavior makes no sense!!!
Replies
0
Views
526
eslie
eslie

Part and Inventory Search

Sponsor

Back
Top