Perl i pliki graficzne

Thread View: pl.comp.lang.perl

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Robert Nosko Mon, 26 May 1997 08:58

#287

Author: Robert Nosko
Date: Mon, 26 May 1997 08:58

7 lines
652 bytes

Witam,

W jaki sposob moge z poziomu skryptu wyswietlic plik graficzny (jpg, gif),
ktory nastepnie chcialbym umiescic na stronie HTML.

Dzieki,
robert

Re: Perl i pliki graficzne

#288

Author: Piotr Auksztulewicz
Date: Mon, 26 May 1997 11:17

11 lines
885 bytes

Robert Nosko (robertn@dawid.com.pl) wrote:
: Witam,

: W jaki sposob moge z poziomu skryptu wyswietlic plik graficzny (jpg, gif),
: ktory nastepnie chcialbym umiescic na stronie HTML.

Na przyklad tak:

print '<img src="obrazki/moj_ulubiony.gif">';

;-)))

Re: Perl i pliki graficzne

#289

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads