JPEG and Perl

CSUIDL PROGRAMMEr · Aug 30, 2005

Folks
I am new to perl
ALl want to do is to display a image on my html page using perl .
Here is my code

#!/usr/bin/perl
print "Content-type:image/jpeg\n\n";
print " </html>";
print "<body>";
print " <IMG SRC='emb.jpeg'> " ;
print "</body>";
print"</html>";
Is it right or am i missing something
Thanks

John Bokma · Aug 30, 2005

CSUIDL PROGRAMMEr said:
Folks
I am new to perl
ALl want to do is to display a image on my html page using perl .
Here is my code

#!/usr/bin/perl

use strict;
use warnings;

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

use CGI;

print " </html>";
print "<body>";
print " <IMG SRC='emb.jpeg'> " ;
print "</body>";
print"</html>";
Is it right or am i missing something

If your Content-Type is a jpeg image, why are you sending out HTML?

Jürgen Exner · Aug 30, 2005

CSUIDL said:
Folks
I am new to perl
ALl want to do is to display a image on my html page using perl .
Here is my code

As far as Perl is concerned some comments below

#!/usr/bin/perl

You are missing
use strict;
use warnings;

print "Content-type:image/jpeg\n\n";
print " </html>";
print "<body>";
print " <IMG SRC='emb.jpeg'> " ;
print "</body>";
print"</html>";
Is it right or am i missing something

Although technically there is nothing wrong with your Perl code (it will
print what you are telling it to print) I would replace the phletoria of
print statements with a single "here" document:

use warnings;
print <<EOT;
Content-type:image/jpeg

</html>
<body>
<IMG SRC='emb.jpeg'>
</body>
</html>
EOT

jue

Paul Lalli · Aug 30, 2005

CSUIDL said:
Folks
I am new to perl

That's okay, because this question doesn't have anything to do with
Perl.

ALl want to do is to display a image on my html page using perl .
Here is my code

#!/usr/bin/perl
print "Content-type:image/jpeg\n\n";

Here you are telling the client (the webbrowser) that you're about to
send a JPEG - binary data.

print " </html>";
print "<body>";

Here, you start sending the client *text*, not a JPEG.

print " <IMG SRC='emb.jpeg'> " ;
print "</body>";
print"</html>";
Is it right or am i missing something

You are missing something. If you want to send an HTML page that
contains an image source link, as you seemed to do above, tell the
client you're sending HTML:

print "Content-type: text/html\n\n";

If you want to send *just* the actual JPEG file, not an HTML page that
contains a link to the file, send the actual file:

[UNTESTED]
if (! open my $img, '<', 'emb.jpeg') {
print "Content-type: text/plain\n\n";
print "Error attempting to open emb.jpeg: $!\n";
} else {
binmode $img;
print "Content-type: img/jpeg\n\n";
my $buffer;
while (my $bytes = read ($img, $buffer, 1024) {
print $buffer;
}
}

Hope this helps,
Paul Lalli

Stuck with html and css	25	Dec 14, 2022
non-working perl script under Windows 2008	8	Feb 24, 2014
CGI and PERL help - no image	6	Nov 26, 2008
Slideshow not working properly	2	Jan 7, 2023
Flip-Cards with Local Images	1	Mar 27, 2023
Help with my responsive home page	2	Dec 14, 2022
Need assistance finetuning HTML, CSS, Javascript - sticky header issue	3	Feb 25, 2022
Help with code	0	Jun 12, 2022

JPEG and Perl

CSUIDL PROGRAMMEr

John Bokma

Jürgen Exner

Paul Lalli

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads