Автор Тема: HTML в perl-скриптах (Прочитано 3337 раз)

sergo_stavropol · « : 05 Октября 2002, 02:56:07 »

Мужики, а что, разве в perl-скриптах после
print "Content-type: text/html\\n\\n";
print FILE "\\n
при написании html-кода можно использовать не все возможности html? То есть, некоторые вещи не срабатывают?
Например, вот код:

open(FILE, ">>$date.txt") or die("Can not open? reason: $!");
print "Content-type: text/html\\n\\n";
print FILE "\\n
<body  link="#000000" bgcolor="#ff9900" topmargin="5" leftmargin="5" bottommargin="0" rightmargin="0">
<table  cellpadding=0 cellspacing=0 border=0 width=800 height=2><tr>
<td width=800 height=1></td></tr></table>
<table  cellpadding=0 cellspacing=0 border=0 width=800 height=1><tr>
<td bgcolor=black width=800 height=1></td></tr></table>
<table align=left  width=800 align=center border=0 cellpadding=0 cellspacing=0><tr>
<td valign=middle align=left width=1 bgcolor=black></td>
<td  valign="middle" width=149 align=left><font size=1 face=verdana>$xxx,  &#160 $time</font></td>
<td valign=middle align=left width=1 bgcolor=black></td>
<td valign="middle" width=199 align=left><font size=1 face=verdana> &#160 $ip </font> </td>
<td valign=middle align=left width=1 bgcolor=black></td>
<td valign="middle" width=149 align=left><font size=1 face=verdana> &#160 $page</font> </td>
<td valign=middle align=left width=1 bgcolor=black></td>
<td valign="middle" width=298 align=left><font size=1 face=verdana>&#160 <a href="$ref">$ref</a></font></td>
<td valign=middle align=left width=1 bgcolor=black></td>
</tr></table>

<table cellpadding=0 cellspacing=0 border=0 width=800 height=1><tr>
<td bgcolor=black width=800 height=1></td></tr>
</table>
</body>
";

при запуске выдает int.server error
в чем дело может быть? неужто нельзя html человеческий с использованием , bgcolor и т.д. и т.п. написать в cgi-документе ?
Заранее БЛГДРН.

Vovan · « **Ответ #1 :** 05 Октября 2002, 03:16:38 »

смотри, если взглянуть трезво - то сразу видно, что твой код просто не может работать.
Если у тебя ХТМЛ-код ограничен кавычками, то как могут быть кавычки в самом ХТМЛ??? Используй другие ограничители.

Например:

print << HTML;

HTML

или

qq(

);

в принципе - все, что угодно.

sergo_stavropol · « **Ответ #2 :** 05 Октября 2002, 03:26:34 »

Vovan

а в какой строке это сделать, можешь чуть подребней? ( в той где Content-type или где print FILE? или чтобы кавычек не было и там?

ну плиз, поподробней, а?
:beer:

YA · « **Ответ #3 :** 05 Октября 2002, 10:46:26 »

Цитировать

поподробней, а?

print FILE qq|

...
...

|;

Прежде чем задавать глупые вопросы, посмотри по форуму - недавно обсуждали или книжку почитай.

[OFF]HTML у тебя тоже оставляет желать лучшего:
- про CSS ничего не слышал?
- специально везде по разному пишешь:
- &#160 - в конце надо ставить ";"[/OFF]

sergo_stavropol · « **Ответ #4 :** 05 Октября 2002, 15:46:15 »

YA
Ну извини пожалуйста, я не претендую на то что это крутой html. Но я ж не просил оценивать мой html, я его знаю хорошо, и про CSS слышал, а задавал глупый вопрос по перлу, который не знаю совсем.

А вообще я всегда стараюсь искать что-то перд тем как спросить
на этот раз не удалось
Сорри...
надеюсь больше никого не раздражаю.

YA · « **Ответ #5 :** 06 Октября 2002, 02:05:11 »

[OFF]За грубость извини!
Просто всем давно надоело, что никто не использует FAQ и поиск. Такие форумы, ИМХО, делают не для того, чтобы каждую неделю отвечать на одни и те же вопросы.
А мой комментарий по HTML специально выделен как "OFF".[/OFF]

glebushka · « **Ответ #6 :** 06 Октября 2002, 17:05:55 »

sergo_stavropol, дело в том, что
# $ % \\ " & @ ;
специальные символы Перла, для того, чтобы Перл не обращал на них внимания, надо их экранировать символом \\
Например:
\\&\\#160 $page
Ну или как посоветовал Vovan.
А лучше как посоветовал YA:-)

Новости:

Автор Тема: HTML в perl-скриптах (Прочитано 3337 раз)