Показать сообщение отдельно
Старый 28.04.2004, 06:50
BAKyyM_666 вне форума Посмотреть профиль Отправить личное сообщение для BAKyyM_666 Посетить домашнюю страницу BAKyyM_666 Найти все сообщения от BAKyyM_666
  № 1  
BAKyyM_666

Регистрация: Mar 2004
Сообщений: 9
По умолчанию картинка не получается,,, получаются крокозяблики

Ситуация такая:

perl скрипт:

#!/usr/bin/perl
print "Content-type: text/html\n\n";

print <<HTML;
какой-то текст.....
HTML

### тут хочу получить картинку от другого скрипта
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

$url="http://куда-то.ру/cgi-bin/скрипт.cgi";

my $req = HTTP::Request->new(POST=>$url);
#указываем тип контекста
$req->content_type('application/x-www-form-urlencoded');
#вводим сам контекст для передачи
$req->content("login=$login&sesid=$sesid");
my $res = $ua->request($req);

binmode(STDOUT);
print $res->content;

### картинка не получается,,, получаются крокозяблики

как получить картинку из другог скрипта, но перед этим указывая в исходном скрипте Content-type: text/html\n\n???
можно ли вообще так?