急请教，用perl移植DOS窗口问题，万谢！！！
时间：2011-03-04
来源：互联网
想用perl 或者 perl Tk 将DOS窗口里实时显示的数据 移植到其它页面，让其实时显示；
或者这样说，我现在用perl Tk做一个平台，它需要实时滚动显示DOS窗口里的内容，急求方法！万分感谢！
或者这样说，我现在用perl Tk做一个平台，它需要实时滚动显示DOS窗口里的内容，急求方法！万分感谢！
作者: 433309 发布时间: 2011-03-04
open STDOUT 可以改变标准输出
作者: zhlong8 发布时间: 2011-03-04
回复 zhlong8
这个我以前用过，当时是把输出重定向到一个文本，然后再去读这个文本，可是不能 实时的 像DOS窗口里一样自己 滚动显示啊？ 有什么方法可以做到吗？ 谢谢！
这个我以前用过，当时是把输出重定向到一个文本，然后再去读这个文本，可是不能 实时的 像DOS窗口里一样自己 滚动显示啊？ 有什么方法可以做到吗？ 谢谢！
作者: 433309 发布时间: 2011-03-04
本帖最后由 zhlong8 于 2011-03-04 14:33 编辑
可以用 tie 的 TIEHANDLE 把 print 等一系列输出函数重定义，改成调用相应的 Tk 模块的代码。perltie 上有这么个例子，只要把 tie *FOO 改成 tie *STDOUT 就可以了
复制代码
QUOTE:
回复 zhlong8
这个我以前用过，当时是把输出重定向到一个文本，然后再去读这个文本，可是不能 实 ...
433309 发表于 2011-03-04 14:10
这个我以前用过，当时是把输出重定向到一个文本，然后再去读这个文本，可是不能 实 ...
433309 发表于 2011-03-04 14:10
可以用 tie 的 TIEHANDLE 把 print 等一系列输出函数重定义，改成调用相应的 Tk 模块的代码。perltie 上有这么个例子，只要把 tie *FOO 改成 tie *STDOUT 就可以了
- tie(*FOO,'Shout');
- print FOO "hello\n";
- $a = 4; $b = 6;
- print FOO $a, " plus ", $b, " equals ", $a + $b, "\n";
- print <FOO>;
作者: zhlong8 发布时间: 2011-03-04
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
