我正在做我的第一个CTF而且我遇到了不熟悉的领域。我从来没有使用Perl，经过大约5个小时这样做，我有点灼伤。
此处的代码： https://gist.github.com/anonymous/8d738e7d83c42c758de6514ce258327a
到目前为止，我已经了解了每个if语句需要什么输入。我已经使用了它们所使用的部分对输入进行了评论。最终，当我使用这些输入运行程序时，直到第191行都没问题。当我到达最后的答案块时，我只是停留了一个闪烁的光标。当我输入任何文本时，我点击最后的其他块并退出程序。
我相信我需要进一步的输入，并且可能会在eval（）中进行进一步的评估，但我不确定。