Perl中的文件复制进度弹出而不使用Tk？

Question

我最近遇到了一个复制大量文件的Perl脚本，并创建了一个弹出窗口，显示正在复制的文件的进度。

进度条如下所示：

（标题，文件夹名称和文件名被阻止，因为这些是工作文件，我不知道是否允许我发布该信息）

此脚本在具有标准Perl安装v5.18.2且没有添加模块的服务器上运行它没有安装Tk（以及我可能添加的许多其他有用模块......）

生成此框的脚本非常复杂且非常难以遵循...我在循环中将副本追溯到一系列xcopy命令，但没有任何内容可以指示创建弹出进度表。我甚至没有看到任何迹象表明该脚本正在调用外部应用程序以生成此进度表。

有没有办法在不使用Tk的情况下制作像Perl上面显示的那样的进度条？

如果没有，脚本会调用什么样的外部应用程序来制作这种进度条？

Answer 1

事实证明，这个进度条是由另一个应用程序在Perl脚本之外创建的，我花了很长时间才能找到它但是我找到了源代码。它是由一个二进制编码的.exe文件生成的，所以我无法从中获取任何信息。

这回答了我在特定情况下发生的事情，但它没有回答如何创建这样的弹出窗口的问题。如果有一种Perl可以创建这样的弹出窗口而不钻研Tk的方式，那对我来说真的很有用，因为我无法访问我工作的Tk。

---

修改

事实证明，Perl标配了一个名为Tkx的模块，它可以完成Tk模块的所有功能！在深入研究Tkx tutorial后，我能够制作进度条。