
28.04.2004, 06:50
|
|
Регистрация: 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???
можно ли вообще так?
|