$|=1; # autoflush buffer @l=qw{| / - \\}; # create an array with |/-\ characters while() { print qq{$l[$_++%@l]\x0d}; # $l[n] is the nth element of the array @l, $_ is a special variable in perl, but the end effect is that it starts at 0 and gets incremented, @l in this context is the length of the array, so it goes 01230123, etc. select($z,$z,$z,.2*(rand(2)**2)) # fancy way of doing a sub-second resolution timer (0-0.8sec on an exponential curve) }
At least add a sentance saying what the snippet does. Sheesh.
ReplyDeleteso you cant tell by looking at the code?
ReplyDeletemaybe you should run it..
I can think of two uses, oddly one of them is ascii space invaders
ReplyDeleteSo what does the code do? Without knowing Perl is it even possible to understand?
ReplyDeleteby far the worst blog i have ever seen. how did this manage to get on dzone! gahh
ReplyDeleteI can think of one use too: something which is more interesting to watch rather than this blog.
ReplyDeleteHere's a hint: copy and paste it to a command prompt (aka shell) near you, and hit enter.
ReplyDeleteHere's another hint... don't ever enter a command into your shell that you don't understand.
ReplyDelete$|=1; # autoflush buffer
ReplyDelete@l=qw{| / - \\}; # create an array with |/-\ characters
while() {
print qq{$l[$_++%@l]\x0d}; # $l[n] is the nth element of the array @l, $_ is a special variable in perl, but the end effect is that it starts at 0 and gets incremented, @l in this context is the length of the array, so it goes 01230123, etc.
select($z,$z,$z,.2*(rand(2)**2)) # fancy way of doing a sub-second resolution timer (0-0.8sec on an exponential curve)
}
the end result is a spinner
pretty lame imo
The last link from my blog that got on front page of dzone was helpful and useful, but it didnt get nearly as big of a response as this joke.
ReplyDeletei am glad you hate my blog, i hate yours =)
One good post was apparently all you were good for.
ReplyDelete