如何让 ActivePerl 与 cygwin 的屏幕完美配合？

Question

我想使用 cygwin 工具（屏幕）进行开发，并从 cygwin 环境调用 ActiveState Perl 调试器会引发以下错误。

bash-3.2$ perl -d test.pl
The system cannot find the path specified.
Unable to get Terminal Size. The Win32 GetConsoleScreenBufferInfo call didn't work. The COLUMNS and LINES environment variables didn't work. The resiz
e program didn't work. at F:/Perl/lib/Term/ReadKey.pm line 362.
Compilation failed in require at F:/Perl/lib/Term/ReadLine/Perl.pm line 64.
 at F:/Perl/lib/Term/ReadLine/Perl.pm line 64
        Term::ReadLine::Perl::new('Term::ReadLine', 'perldb', 'GLOB(0x18e2e0c)', 'GLOB(0x1883e14)') called at F:/Perl/lib/perl5db.pl line 6073
        DB::setterm called at F:/Perl/lib/perl5db.pl line 2237
        DB::DB called at testReliance1.pl line 2
Attempt to reload Term/ReadLine/readline.pm aborted.
Compilation failed in require at F:/Perl/lib/Term/ReadLine/Perl.pm line 64.
END failed--call queue aborted at testReliance1.pl line 64.
 at testReliance1.pl line 64
bash-3.2$

我找不到任何解决方法。
尝试使用 cygwin perl distrubution，但是在 cpan 下编译 perl 模块对我来说是一场噩梦，因为它们中的大多数都无法编译并且没有深入的知识来修复编译器错误。

为调试器提供一个假终端可能有效，但不知道可行性以及如何继续。
请建议是否有任何解决方法。

Answer 1

来自 Term::ReadLine 文档的 “环境”部分 ：

环境变量PERL_RL 控制加载哪个ReadLine 克隆。如果该值为 false，则使用虚拟接口。

作为解决不兼容性问题之前的解决方法，您可以禁用 Term::ReadLine

bash$ PERL_RL=0 perl -d test.pl

Answer 2

请记住，Windows 控制台提供了与常规 *nix 控制台截然不同的环境。一般来说，想要与控制台交互的 Windows 应用程序无法在 Cygwin 控制台（如 MinTTY、XTerm、Screen）中运行，因为它们只提供 PTY 模拟。

MinTTY 的作者 Andy Koppe 撰写了一个名为 conin 的小程序，允许 Windows 程序像从控制台一样读取，但完整的输出支持仍被认为不可行。

Answer 3

在我看来，你好像遇到了很多问题。 ActiveState Perl 是一种将 Perl 移植到 Windows 的尝试，具有模块的二进制分发和版本控制，这种方法正在消亡。 strawberry perl 的成功和我的个人经验让我认为您只是使用了错误的产品。

我只用草莓，自从移民以来我遇到的问题数量一只手就能数得过来。我很高兴从 ActiveState 转换过来。我建议你也尝试一下。 Strawberry 附带了一个 mingw 环境——它甚至会为您编译 XS 模块，并且它为您打开了一个纯粹的 CPAN。

（这是一个完全不同寻常的答案，但我相当确定我已经在 cygwin 中使用了草莓 perl 的 bin，并且它已经起作用）

解决方案 - 使用 Cygwins Term ReadKey

本质上，您只需要 Cygwin Term::ReadKey< /code> 在你的 lib 啄食顺序中处于较高位置，以便使用它。

1. 创建目录 D:\foo_lib
2. 将 term/ReadKey 目录从 cygwins /usr/lib/perl 复制到 D:\foo_lib
3. 将 Term/ReadKey.pm 复制到 D:\foo_lib\Term\
4. prepend PERL5LIB="D:\foo_lib " 到您的 StrawBerry Perl 环境。

---

或。

---

从 Cygwin 运行此命令。

perl -MTerm::ReadKey -E"say Term::ReadKey::termsizeoptions()"

无论该值是什么，请从您的 Strawberry 安装中编辑 Term/ReadKey.pm 并将其手动破解，设置一个变量

1. my $termoption = value_you_got from 上述
2. 替换 &termsizeoptions()，与$termoption

Answer 4

在运行 Perl 之前尝试运行此命令：

export COLUMNS LINES

Answer 5

使用与 ActiveState perl 一起打包的 wperl.exe。这往往可以正常工作。