|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Pavel Kurnosoff 2:5030/736.25 30 Aug 2000 17:16:48
To : Natalya Levit
Subject : Re: LWP FAQ (1/1)
--------------------------------------------------------------------------------
PK> $URL =
PK>
'http://a100.g.akamaitech.net/7/100/70/0001/www.fool.com/art/new/butts/go99
PK> .gif'; my $res = LWP::UserAgent->new->request(new HTTP::Request GET =>
PK> $URL);
PK> binmode(STDOUT); print $res->is_success ? (header('image/gif'),
PK> $res->content) : (header('text/html'), $res->status_line);
NL> А в чем будут отличия для zip файла? Только поменять header('image/gif')
NL> на header('application/zip') или еще что-то?
да. ну, возможно еще content-disposition: attachment; filename=xxx выдать,
чтобы имя файла было нормальное, а не имя скрипта.
--
// pavel kurnosoff
--- Gnus v5.6.45/XEmacs 21.1 - "Bryce Canyon"
* Origin: there's no tomorrow (2:5030/736.25)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
