|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Lusev 2:5020/400 11 Aug 2000 17:39:01
To : All
Subject : Re: Вывод графики
--------------------------------------------------------------------------------
"Artur Penttinen" <artur@niif.spb.su> wrote in message
news:8n0jer$ilf$1@news.spbu.ru...
> Anton Lusev <webmaster@arispro.ru> wrote:
> AL>
> AL> "Artur Penttinen" <artur@niif.spb.su> wrote in message
> AL> news:Pine.BSO.4.21.0008111058220.10632-100000@roof.ptc.spbu.ru...
> >> On 11 Aug 2000, Anton Lusev wrote:
> >>
> >> > From: Anton Lusev <webmaster@arispro.ru>
> >> > Newsgroups: fido7.ru.perl
> >> > Subject: Вывод графики
> >> > Date: 11 Aug 2000 10:47:38 +0400
> >> > Organization: Demos online service
> >> >
> >> > Подскажите плиз где ошибка ?
> >> >
> >> > Есть gif или jpg файл
> >> >
> >> > надо его вывесть через скрипт, т.е.
> >> >
> >> > <img src="/cgi-bin/banners/1.cgi" width="468" height="60">
> >> >
> >> > После прочтения нескольких примеров
> >> >
> >> > пишу прогу
> >> >
> >> > #!/usr/bin/perl
> >> >
> >> > print "Content-type: image/gif\n\n";
> >> >
> >> > open (IMG,"<banner005.gif");
> >> > print <IMG>;
> >> > close (IMG);
> >> >
> >> > выводит только маленький кусок файла ?
> >>
> >> $/ = undef; ?
> >> print while (<IMG>); ?
> >>
> >> WBW, Artur
> >>
> >> --
> >> Все проблемы от того, что каждая защелка считает себя центральным
замком
> >>
> >>
> AL> Все равно не работает :0(
>
> Hу очень странно тогда. У меня - работает.
> Попробуйте:
>
> {
> local $/ = undef;
> open(F,"<banner005.gif") or die "can't open file: $!";
> print <F>;
> close(F) or die "can't close file: $!";
> }
>
> WBW, Artur
>
> --
> Ведущим авторитетом может считаться любой, угадавший два раза подряд.
>
код все равно не работет
но мне подсказали еще один и он заработал
#!/usr/bin/perl
print "Content-type: image/gif\n\n";
open (IMG,"banner005.gif") || die $!;
binmode(IMG);
binmode(STDOUT);
while (read(IMG, $buff, 16*1024))
{print STDOUT $buff;}
close (IMG);
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
