#!/usr/bin/perl $browser = $ENV{"HTTP_USER_AGENT"}; # Perl でバッファをしない #undef $/; $|=1; if ($browser =~ /^Mozilla\/1.[1-9]/i) { &animation; } else { print "HTTP/1.0 200 Okay\n"; print "Content-type: image/gif\n\n"; open (S, "gif0.gif"); print (); close S; } sub animation { print "HTTP/1.0 200 Okey\n"; print "Content-type: multipart/x-mixed-replace;boundary=sometext\n\n"; print "--sometext\n"; while (1) { for ($i=0; $i<17; $i++) { print "Content-type: image/gif\n\n"; open (S, "gif$i.gif"); print (); close S; print "\n--sometext\n"; } } }