ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Stas Tyurin 2:5020/400 15 Dec 2003 19:01:33
To : All
Subject : Отдать xls файл через скрипт
--------------------------------------------------------------------------------
Hi All,
Требуется отдать скриптом файл xls, пишу:
open(FILE, '<' . $path_to_file);
binmode(FILE);
{ $/ = undef; $_ = <FILE>; }
close(FILE);
binmode(STDOUT);
print
"Content-Type: application/octet-stream" . "\n" .
"Content-Disposition: inline; filename=" . ($path_to_file =~
/([^\/\\]+)$/)[0] . "\n" .
"Content-Length: " . length($_) . "\n" .
"\n" . $_;
while (<FILE>) { print $_; }
close(FILE);
В результате содержимое экселевского файла выводится в браузер. Как быть?
C U...
--- ifmail v.2.15dev5.1
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по:
|
