|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitry A. Nikitin 2:5020/400 05 Jul 2004 22:10:19
To : Sadretdinova Nelly
Subject : Re: Загрузка файл
--------------------------------------------------------------------------------
Sadretdinova Nelly пишет:
> EB> Чтобы не было проблем с кодировками, я делал так, правда я делал
> EB> это для отравки писем с аттачментами, но думаю и здесь подойдет.
>
> EB> use MIME::Base64;
>
> EB> my $filename = "Запорожцы пишут письмо турецкому султану.doc";
>
> EB> $filename = &encode_base64( $filename);
> EB> my $file_name = '=?Windows-1251?B?' . $filename . '?=';
>
> В принципе, вариант, но мне не подходит. В силу ряда причин мне нужно
> именно сохранить файл у пользователя не под тем именем, под которым он
> хранится на сервере.
>
Отдай ему так и не мучайся. Самый надёжный и простой способ.
$flenght = -s $fname;
$file = "Запорожцы пишут письмо турецкому султану.doc";
open IN, "<$fname" || die($!);
print $cgi->header(
-type => 'application/octet-stream',
-Content_Disposition => "attachment; filename=\"$file\"",
);
binmode STDOUT;
binmode IN;
while(<IN>){
print ;
}
close IN;
--
mailto:dmitry@sbor.spb.su
http://dmitry.home.sbor.net
ftp://dmitry.home.sbor.net
--- ifmail v.2.15dev5.3
* Origin: Home Inc. (2:5020/400)
Вернуться к списку тем, сортированных по:
|
