Re: Perl i pliki graficzne

Article View: pl.comp.lang.perl

Article #289

#289

From: Adam Glowacki
Date: Thu, 29 May 1997 12:32

34 lines
1333 bytes

Robert Nosko wrote:
> 
> Witam,
> 
> W jaki sposob moge z poziomu skryptu wyswietlic plik graficzny (jpg, gif),
> ktory nastepnie chcialbym umiescic na stronie HTML.
> 
> Dzieki,
> robert

np. tak:
 print "Location: /images/cr.gif\n\n";

albo:

open(GIF, "../images/cr.gif");
binmode(GIF);
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)=stat(GIF);
read(GIF, $pic, $size);
close(GIF);
$header="Content-type: image/gif\n\n";
open(GIF, '>-');
select(GIF);
$|=1;
binmode(GIF);
syswrite(GIF, $header, length($lolo));
syswrite(GIF, $pic, $size );
close(GIF);

binmode jest ze wzgledu na ew. ms-dos.

pozdrawiam,

adam

Technical Details

Message-ID: <338D775E.59E9@chemie.uni-halle.de>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!news.nask.pl!usenet

References: <01bc69b2$c6152160$044675c3@kinga.dawid.com.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!news.nask.pl!usenet
From: Adam Glowacki <glowacki@chemie.uni-halle.de>
Newsgroups: pl.comp.lang.perl
Subject: Re: Perl i pliki graficzne
Date: Thu, 29 May 1997 14:32:30 +0200
Organization: Martin-Luther University, IPC Merseburg
Lines: 34
Message-ID: <338D775E.59E9@chemie.uni-halle.de>
References: <01bc69b2$c6152160$044675c3@kinga.dawid.com.pl>
Reply-To: glowacki@chemie.uni-halle.de
NNTP-Posting-Host: caladan.chemie.uni-halle.de
Mime-Version: 1.0
X-Mailer: Mozilla 3.01 (WinNT; I)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message