Grafik einlesen/ausgeben

[Peter G.]

Guten Tag,

Kann mir mal jemand posten wie man in Perl ein Grafik einlist
und ausgibt (nur die Grafik ohne HTML) ?
Müsste das nicht so in der Art aussehen ?

open(GRAFIK, "<test.jpg");
my @test = <GRAFIK>;
close(GRAFIK);
print "Content-type: image/jpeg\n\n";
print @test;

Wäre auch für'n Link zu dem Thema in SelfHTML dankbar.

Grüße,
Peter.

[Andres Freund]

Hi,

Kann mir mal jemand posten wie man in Perl ein Grafik einlist
und ausgibt (nur die Grafik ohne HTML) ?
Müsste das nicht so in der Art aussehen ?

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
$name = "pic1.jpeg";

print "Content-type: image/jpeg\n\n";

open (BILD ,"../pics/public/$name");

binmode BILD; #nur auf Windows Systemen wichtig

my @data = <BILD>;
close (BILD);
print @data;

So funktioniert es.