And now for another episode of HereDoc theater...
Look at this for a second and see if you get it, eventually you will want to look at perldoc perlop and search down to Regexp Quote-Like Operators or look in the Camel 2ed at page 43 "Here Docs" (I've never found here-documents in perldoc, anyone??? ahh perldoc perldata, thanks tilly!)
print <<BODY; Content-type: text/html <html><head><title>Nocc Call Log</title></head> <body bgcolor="#FFFFFF"> <h1>Nocc Call Log</h1> <table border="4"> <form action="post.cgi" method="POST"> <tr> <td> <h3>Callers Name: <input type="text" name="caller" size="25"></h3> </td> <td bgcolor="#FFDEAD"> <h3>Auto Time : <input TYPE="radio" NAME="time-Type" VALUE="auto_ +time"></h3> <br> <h3>Manual Time : <input TYPE="radio" NAME="time-Type" VALUE="manua +l_time"></h3> </td> <td bgcolor="#FFDEAD"> <h3>Time: <input type=\"text\" name=\"time\"></h3>\n"; </td>\n"; </tr>\n"; BODY # BODY is the end of the heredoc, and CANNOT have space # before or after it unless you get fancy # and do the print above as: # print <<" FANCY WITH Spaces in FRONT"; # and then you would end it with the following, minus the "#": # FANCY WITH Spaces in FRONT
--
$you = new YOU;
honk() if $you->love(perl)
In reply to RE: RE: Something is wrong and I don'tkow what
by extremely
in thread Something is wrong and I don'tkow what
by monk2b
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |