关于Perl工具Cluster SSH(cssh)中run方法与options调用的技术问询

问题1：$app->run() 的作用是什么？ #

你找不到run子例程是因为它不在App::ClusterSSH主模块里，而是通过类继承从子模块中获取的。ClusterSSH是基于Tk的GUI工具，App::ClusterSSH->new()创建的对象实际继承了App::ClusterSSH::Window::Tk模块的方法，run()方法就定义在./Window/Tk.pm中。

这个方法的核心作用是：

• 启动Tk的主事件循环（MainLoop），维持GUI界面持续运行
• 初始化并显示集群连接的主窗口
• 处理用户交互操作（比如输入命令、切换主机窗口）
• 管理所有SSH会话的创建与维护

问题2：$app->options->add_common_ssh_options; 的运作逻辑 #

这条语句是链式方法调用，拆解后分两步执行：

1. $app->options：调用Base.pm中的options子例程，该方法会返回一个App::ClusterSSH::Getopt类的实例（对应Getopt.pm的对象）。
2. ->add_common_ssh_options：调用上述Getopt实例的add_common_ssh_options方法，作用是向命令行选项解析器中添加标准SSH相关选项（比如-p指定端口、-l指定用户名、-i指定身份文件等），让ClusterSSH工具能识别并处理这些SSH连接参数。

内容的提问来源于stack exchange，提问作者phillip-from-oz