Помогите разобраться с Перлом

Ivory Blade · 15-01-2003, 17:40

Тут столкнулся с проблемой... Хотел прочитать программой текстовый файл. Сделал все как было описано в книге... ничо не получилось. В книге автор использовал модуль перл с ключом -w и модуль strict. А у меня в программе их не было может это повлияло?

Genux · 16-01-2003, 18:09

Исходник в студию. А просто вывести текстовый файл поможет include(), не надо извращений.

B.B>>>Flash · 18-01-2003, 19:56

Попробуй так:
#!/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>";

B.B>>>Flash · 18-01-2003, 19:58

перед последним print вставь:
close(FILEHANDLE);

15-01-2003, 17:40	#1
Ivory Blade Камрад Join Date: дек 2002 Сообщений: 13	Помогите разобраться с Перлом Тут столкнулся с проблемой... Хотел прочитать программой текстовый файл. Сделал все как было описано в книге... ничо не получилось. В книге автор использовал модуль перл с ключом -w и модуль strict. А у меня в программе их не было может это повлияло?
	[Ответить с цитированием]

16-01-2003, 18:09	#2
Genux Камрад Join Date: окт 2002 Location: Murmansk-city Сообщений: 105	Исходник в студию. А просто вывести текстовый файл поможет include(), не надо извращений.
	Дневник [Ответить с цитированием]

18-01-2003, 19:56	#3
B.B>>>Flash Камрад 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>";
	Дневник [Ответить с цитированием]

18-01-2003, 19:58	#4
B.B>>>Flash Камрад Join Date: мая 2002 Сообщений: 83	перед последним print вставь: close(FILEHANDLE);
	Дневник [Ответить с цитированием]