![]() |
![]() |
#1 |
Камрад
Join Date: дек 2002
Сообщений: 13
|
![]()
Тут столкнулся с проблемой... Хотел прочитать программой текстовый файл. Сделал все как было описано в книге... ничо не получилось. В книге автор использовал модуль перл с ключом -w и модуль strict. А у меня в программе их не было может это повлияло?
|
![]() |
[Ответить с цитированием] |
![]() |
#2 |
Камрад
Join Date: окт 2002
Location: Murmansk-city
Сообщений: 105
|
Исходник в студию. А просто вывести текстовый файл поможет include(), не надо извращений.
|
![]() |
Дневник [Ответить с цитированием] |
![]() |
#3 |
Камрад
Join Date: мая 2002
Сообщений: 83
|
Попробуй так:
#!/usr/.../perl # $filevar = 'yourfile.txt'; print "Content-type: text/html\n\n"; print "<html>\n<title>PAGE TITLE</title>\n<head>...</head>\n<body ...>"; open (FILEHANDLE, ">$filevar"); while (<FILEHANDLE>){ print $_; } print "</body>\n</html>"; |
![]() |
Дневник [Ответить с цитированием] |
![]() |
#4 |
Камрад
Join Date: мая 2002
Сообщений: 83
|
перед последним print вставь:
close(FILEHANDLE); |
![]() |
Дневник [Ответить с цитированием] |
![]() |
Thread Tools | |
Display Modes | |
|
|