http://qs321.pair.com?node_id=498628
User since: Oct 09, 2005 at 19:56 UTC (18 years ago)
Last here: Jul 29, 2009 at 16:17 UTC (15 years ago)
Experience: 1398
Level:Hermit (10)
Writeups: 24
Location:Massachusetts
User's localtime: Mar 28, 2024 at 12:16 EDT
Scratchpad: None.
For this user:Search nodes
Watch for posts by this user

My first Perl quine. Ooh, ahh.

#!/usr/bin/perl local($_,$")=" 34O59OO O O O10 O OO O OO OO OO OO O OO OO 112 114 105O 110OO116 34 35 033 O47O 117O O115 O 114OOO47 O98O OO 105 110 O47 O 112 O OO OOOO OO O 101 O OO O 114 108 92O O 110O OO OO O O108 111 O O99 97O OO OO OO OO OO OO OO O OO 108 40 92 36 95 44 92 36 O 92 34 41 61 92 34 36 95 64 OO O O OO OO OO OO OO OO 123O91 109 O 97 OO 112 43 99 OO OO 104 O 114OOOO44 O109O 44 92O OO 100OO 43 44 103 O O OO93O 125 34 59O 10 10 OOO O "; print"#!/usr/bin/perl\nlocal(\$_,\$\")=\"$_@{[map+chr,m,\d+,g]}";