http://www.perlmonks.org?node_id=888802


in reply to spiraling quine

In an effort to understand what is going on here, I decided to put the code in a more readable format

#!/usr/bin/perl $_=' $q="\47"; while($; = $z+ =.5){ %c = $r = 0; $/=""; while(20+$z>($;+=.05)){ $c { int $_ + 26 + 2 * ($r += .02) * sin $; } { 1 - $_ + 10 + int $r * cos $; } = 1for(0..1) } $t = reverse; $/ .= `clear` . "#!/usr/bin/perl\n\$_=$q\n"; for $y (1..20){ $c{$_}{$y} ? $/ .= chop $t : ($/ .= "\40")for(0..53); $/.="\n" } print "$/$q;s;" .chr(92). "s;;g;eval\n" } '; s;\s;;g;eval

Quite amazingly it prints the same image in this format. I think it has to do with the sin/cos.

Two things I am unfamiliar with, the $; variable and this line:

s;\s;;g;eval

Big props BTW