id:TAKESAKO に挑戦してみる

脳内パーサはあまり役に立たなかったので、perl インタプリタ様の力を借りてみる。
- - -
$ perl -d a.pl

Loading DB routines from perl5db.pl version 1.31
Editor support available.Enter h or `h h' for help, or `man perldebug' for more help.

main::(a.pl:6):

  DB<1> n
main::((reeval 4)[a.pl:6]:1):

  DB<1>
main::((reeval 4)[a.pl:6]:1):

  DB<1>
main::((eval 12)[(reeval 4)[a.pl:6]:1]:1):
1:      $@='';for$^(split/(.{8})/,$^){next if$^eq'';$^=~tr|!-/:-@[-`{-~|\0-\37|;$_=unpack'B*',$^;s/...(.{5})/$1/g;$^=length;$@.=pack'B*',$^&7?substr$_,0,$^&~7:$_}eval$@

  DB<1>
main::((eval 12)[(reeval 4)[a.pl:6]:1]:1):
1:      $@='';for$^(split/(.{8})/,$^){next if$^eq'';$^=~tr|!-/:-@[-`{-~|\0-\37|;$_=unpack'B*',$^;s/...(.{5})/$1/g;$^=length;$@.=pack'B*',$^&7?substr$_,0,$^&~7:$_}eval$@
...
  DB<1>
main::((eval 12)[(reeval 4)[a.pl:6]:1]:1):
1:      $@='';for$^(split/(.{8})/,$^){next if$^eq'';$^=~tr|!-/:-@[-`{-~|\0-\37|;$_=unpack'B*',$^;s/...(.{5})/$1/g;$^=length;$@.=pack'B*',$^&7?substr$_,0,$^&~7:$_}eval$@

  DB<1>
main::((eval 13)[(eval 12)[(reeval 4)[a.pl:6]:1]:1]:1):
1:      for(1..99){print"$_: 円周率は 約 3.14 です。\n"}

  DB<1>
main::((eval 13)[(eval 12)[(reeval 4)[a.pl:6]:1]:1]:1):
1:      for(1..99){print"$_: 円周率は 約 3.14 です。\n"}

  DB<1> n
1: 円周率は 約 3.14 です。
main::((eval 13)[(eval 12)[(reeval 4)[a.pl:6]:1]:1]:1):
1:      for(1..99){print"$_: 円周率は 約 3.14 です。\n"}

  DB<1>
2: 円周率は 約 3.14 です。
main::((eval 13)[(eval 12)[(reeval 4)[a.pl:6]:1]:1]:1):
1:      for(1..99){print"$_: 円周率は 約 3.14 です。\n"}

  DB<1>
3: 円周率は 約 3.14 です。
main::((eval 13)[(eval 12)[(reeval 4)[a.pl:6]:1]:1]:1):
1:      for(1..99){print"$_: 円周率は 約 3.14 です。\n"}
...
  DB<1> c
8: 円周率は 約 3.14 です。
9: 円周率は 約 3.14 です。
10: 円周率は 約 3.14 です。
11: 円周率は 約 3.14 です。
12: 円周率は 約 3.14 です。
13: 円周率は 約 3.14 です。
14: 円周率は 約 3.14 です。
15: 円周率は 約 3.14 です。
16: 円周率は 約 3.14 です。
17: 円周率は 約 3.14 です。
18: 円周率は 約 3.14 です。
19: 円周率は 約 3.14 です。
20: 円周率は 約 3.14 です。
21: 円周率は 約 3.14 です。
22: 円周率は 約 3.14 です。
23: 円周率は 約 3.14 です。
24: 円周率は 約 3.14 です。
25: 円周率は 約 3.14 です。
26: 円周率は 約 3.14 です。
27: 円周率は 約 3.14 です。
28: 円周率は 約 3.14 です。
29: 円周率は 約 3.14 です。
30: 円周率は 約 3.14 です。
31: 円周率は 約 3.14 です。
32: 円周率は 約 3.14 です。
33: 円周率は 約 3.14 です。
34: 円周率は 約 3.14 です。
35: 円周率は 約 3.14 です。
36: 円周率は 約 3.14 です。
37: 円周率は 約 3.14 です。
38: 円周率は 約 3.14 です。
39: 円周率は 約 3.14 です。
40: 円周率は 約 3.14 です。
41: 円周率は 約 3.14 です。
42: 円周率は 約 3.14 です。
43: 円周率は 約 3.14 です。
44: 円周率は 約 3.14 です。
45: 円周率は 約 3.14 です。
46: 円周率は 約 3.14 です。
47: 円周率は 約 3.14 です。
48: 円周率は 約 3.14 です。
49: 円周率は 約 3.14 です。
50: 円周率は 約 3.14 です。
51: 円周率は 約 3.14 です。
52: 円周率は 約 3.14 です。
53: 円周率は 約 3.14 です。
54: 円周率は 約 3.14 です。
55: 円周率は 約 3.14 です。
56: 円周率は 約 3.14 です。
57: 円周率は 約 3.14 です。
58: 円周率は 約 3.14 です。
59: 円周率は 約 3.14 です。
60: 円周率は 約 3.14 です。
61: 円周率は 約 3.14 です。
62: 円周率は 約 3.14 です。
63: 円周率は 約 3.14 です。
64: 円周率は 約 3.14 です。
65: 円周率は 約 3.14 です。
66: 円周率は 約 3.14 です。
67: 円周率は 約 3.14 です。
68: 円周率は 約 3.14 です。
69: 円周率は 約 3.14 です。
70: 円周率は 約 3.14 です。
71: 円周率は 約 3.14 です。
72: 円周率は 約 3.14 です。
73: 円周率は 約 3.14 です。
74: 円周率は 約 3.14 です。
75: 円周率は 約 3.14 です。
76: 円周率は 約 3.14 です。
77: 円周率は 約 3.14 です。
78: 円周率は 約 3.14 です。
79: 円周率は 約 3.14 です。
80: 円周率は 約 3.14 です。
81: 円周率は 約 3.14 です。
82: 円周率は 約 3.14 です。
83: 円周率は 約 3.14 です。
84: 円周率は 約 3.14 です。
85: 円周率は 約 3.14 です。
86: 円周率は 約 3.14 です。
87: 円周率は 約 3.14 です。
88: 円周率は 約 3.14 です。
89: 円周率は 約 3.14 です。
90: 円周率は 約 3.14 です。
91: 円周率は 約 3.14 です。
92: 円周率は 約 3.14 です。
93: 円周率は 約 3.14 です。
94: 円周率は 約 3.14 です。
95: 円周率は 約 3.14 です。
96: 円周率は 約 3.14 です。
97: 円周率は 約 3.14 です。
98: 円周率は 約 3.14 です。
99: 円周率は 約 3.14 です。
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.

  DB<1>