|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Slava Korchagin 2:5025/57 16 Mar 2001 17:24:35
To : Roman Kondrashin
Subject : Пpоблема вывода изобpажения
--------------------------------------------------------------------------------
Friday, March 16 2001 11:09, Roman Kondrashin wrote to All:
RK> print "Content-type: image/gif\n\n"; # или image/jpeg
RK> open (F, "picture.gif");
RK> binmode (F);
RK> while (<F>)
RK> {
RK> $f .= $_;
RK> }
RK> binmode (STDOUT);
RK> print $f;
RK> close (F);
Hy yж тогда так:
#!perl
open (IMG, "../images/bull_a.gif") || die "No pasaran: $!\n";
binmode IMG;
binmode STDOUT;
@img = <IMG>;
close IMG;
print "Content-type: image/gif\n\n";
print @img;
Good bye. Slava
--- CoolDead snapshot-2000.12.24
* Origin: = Thaboo Station = (Voronezh, Russia) (2:5025/57)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
