home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
cgi-bin
/
Japan
/
Theme
/
rand_select_murai.pl
< prev
next >
Wrap
Perl Script
|
2017-09-21
|
399b
|
19 lines
#!/usr/local/bin/perl
@file = ('murai-w.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif');
{
local(@temp);
srand;
push(@temp, splice(@file, rand(@file), 1))
while @file;
@file = @temp;
}
print "Content-type: image/gif\n\n";
open(F, "/stage/htdocs/Japan/Theme/faqs/person/image/@file[0]");
while (<F>) {
print $_;
}
close(F);