|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 11 Aug 2000 14:12:09
To : "Anton Lusev"
Subject : Re: Вывод графики
--------------------------------------------------------------------------------
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
--
Ведущим авторитетом может считаться любой, угадавший два раза подряд.
--- ifmail v.2.15dev5
* Origin: Bits & Bobs Inc. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
