Charles K. Clarkson escribió:
From: Johan Meskens CS3 jmcs3 <> wrote:
: # hello
..
: # second question : how can i insert more than one image # i tried
: the following:
:
: # foreach( 1..6 ){
: # print "<img src=\"http://127.0.0.1/cgi-bin/five.cgi\";>"; # }
:
: # but this returns 6 times the same image
Well, that makes sense. What are the names of each image?
The loop above keeps suing the same name each time.
# here is what five.cgi consists of( it returns a random gif-image )
use warnings;
use strict;
use CGI;
my $dirpath = '/Users/Shared/ChromaticSpaceAndWorld/INTRA';
opendir( DIR, $dirpath ) || die " espejo de vidrio $! ";
my @files = grep ! /^[\._]/, readdir DIR;
closedir DIR;
my $image = $files[ rand( $#files ) ];
my $img = CGI->new();
open( FILE, "$dirpath/$image" ) || die " espejo de vidrio $! ";
binmode FILE;
binmode STDOUT;
print $img->header('image/gif');
print while <FILE>;
close FILE;
# so i remain with this second question
# there is probably something fundamental i don't understand
P.S. CGI.pm doesn't need to document every function. Gerneral
rules to create any tag is in the section titled PROVIDING
ARGUMENTS TO HTML SHORTCUTS.
thank you !
out of half the sun
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
