perl - 这段 perl 代码有什么作用？

Question

在下面显示的一段代码中，我知道“none”、“monitor”或“gdb”之一设置为调试，但我就是无法理解语法。我刚刚开始学习 Perl。谁能解释一下这个语法是如何工作的？

GetOptions ("debug=s" => sub { set_debug ($_[1]) },
            "no-debug" => sub { set_debug ("none") },
            "monitor" => sub { set_debug ("monitor") },
            "gdb" => sub { set_debug ("gdb") }
           );

谢谢。

Answer 1

Firstly, "debug=s" is this the default assignment?

在 documentation for GetOptions 中解释了传递给 GetOptions 的散列中用于键的命名约定.

Second, use of "sub" keyword, I just guess its used to call the set_debug function?

没有。它定义了一个子例程，并将其作为值传递给胖逗号左侧的任何键。它在设置扩充时调用(这也在 GetOptions 文档中定义)。

Then at last how are "no-debug", "monitor" and "gdb" compared and set.

当提供匹配的命令行参数时，执行子例程。