perl - 底部的 STDIN 栏

Question

我想知道如何在终端的底部（就像 irc 客户端一样）制作一个 STDIN 栏。我在终端中显示了所有传入的 IRC 数据，但我希望能够直接在终端中聊天。我的措辞可能会让这有点混乱，但希望你明白我在说什么。

我宁愿不为此使用TK。只是终端中始终等待的 STDIN。键入，它将消息存储在一个变量中，然后使用 $sock->print 将其发送到 IRC。

Answer 1

对于基于文本的 UI，您应该使用 curses/ncurses。Curses库相当低级，因此您可能更喜欢使用Curses::Toolkit之类的东西——特别是Curses::Toolkit::Widget::Entry类似乎可以做你想做的事——或Curses::UI。对于您的用例来说，它们可能有点矫枉过正，但随着您向客户端添加更多功能，它们会很好地扩展。