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_test.pl < prev    next >
Perl Script  |  2017-09-21  |  402b  |  19 lines
  1. #!/usr/local/bin/perl
  2.  
  3. @file = ('murai-w.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif','murai.gif');
  4.  
  5. {
  6.     local(@temp);
  7.     srand;
  8.     push(@temp, splice(@file, rand(@file), 1))
  9.         while @file;
  10.     @file = @temp;
  11. }
  12.  
  13. print "Content-type: image/gif\n\n";
  14. open(F, "/stage/htdocs/Japan/Theme/sense/profiles/image/@file[0]");
  15. while (<F>) {
  16.     print $_;
  17. }
  18. close(F);
  19.