Gossamer Forum: General: Perl Programming: Simple Problem...

May 24, 2003, 7:50 AM

Sensor

New User (2 posts)

May 24, 2003, 7:50 AM

Post #1 of 7

Shortcut

Simple Problem...

Hello, people.
Sorry for my English. I am foreigner.

I have a small problem with gif/jpeg files showing.

---perl code-----
#!/usr/bin/perl
#gif.pl
print "Content-Type: image/gif\n\n";
open(FILE,"22.gif");
print <FILE>;
close(FILE);
-------end--------

I use 
in html page.
But this not work.

Please, explain.

Thank you!
---
best regards
sensor

May 24, 2003, 9:05 AM

Paul

Veteran (19537 posts)

May 24, 2003, 9:05 AM

Post #2 of 7

Shortcut

Re: [Sensor] Simple Problem... In reply to

Start by telling us what happens ;) ...before you do that though, add some error checking.

open( ... ) or die $!;

Last edited by:

Paul: May 24, 2003, 9:05 AM

May 25, 2003, 4:47 AM

Sensor

New User (2 posts)

May 25, 2003, 4:47 AM

Post #3 of 7

Shortcut

Re: [Paul] Simple Problem... In reply to

This code is a part of script "Pictures of the day".

open(PIC,"4/01") or die...(etc); open w/o errors

If there is file.txt instead the picture, it will work properly. But i need to open pic. ;)
---
best regards
sensor

May 26, 2003, 4:17 AM

Andy

Veteran / Moderator (18441 posts)

May 26, 2003, 4:17 AM

Post #4 of 7

Shortcut

Re: [Sensor] Simple Problem... In reply to

Try this;

Code:
#!/usr/bin/perl 
#gif.pl  
    use CGI::Carp qw(fatalsToBrowser); 
    print "Content-Type: image/gif\n\n";  

    open(FILE,"22.gif") || die "Cant open. Reason: $!"; 
      print <FILE>;  
    close(FILE);

I have a feeling it has something to do with the slashes in your variable. Remember, its a file name, but Perl will treat forward slashes as 'folders'.

Cheers

Andy (mod)
andy@ultranerds.co.uk