> Thanks for helping a newbie in perl......
I am newbie too =)
This works on my computer, but you can try this :
>
> ------------------------------------------------------------------
> #!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
>
> my $filepath="mypicture.jpg";
>
> open(IMAGE, $filepath) || die "Error reading File";
## If you don't use fatalsToBrowser, this die message will
## only write to your error.log file, you cannot see anything
## wrong directly.
> binmode(IMAGE);
> binmode(STDOUT);
>
> print "Content-type: image/jpeg\r\n\r\n";
# or try : print "Content-type: image/x-jpeg\r\n\r\n";
> while(<IMAGE>){
> print;
> }
>
# Try : print $buffer while (read (IMAGE, my $buffer, 1024));
# Remember to : close (IMAGE);
Rgds,
Connie
>
>
>
> Connie Chan <[EMAIL PROTECTED]> wrote in message
> 000b01c24536$415c1720$[EMAIL PROTECTED]">news:000b01c24536$415c1720$[EMAIL PROTECTED]...
> > Yes, you forgot to post your code =)
> >
> > Rgds,
> > Connie
> >
> > ----- Original Message -----
> > From: "Archie" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> > Sent: Friday, August 16, 2002 9:11 PM
> > Subject: Re: Help!! Retrieving Image File
> >
> >
> > > Thanks 4 replying Connie, but it didn't work.....
> > >
> > > i already did binmode STDOUT,
> > >
> > > and tried this print "Content-type: image/jpeg\r\n\r\n"; as advise.
> > >
> > > i just hope some1 here can remind me what else i forgot to do.
> > >
> > > thanks...
> > >
> >
> >
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
