sub push_b4 {
#$txt -> insert('end');
#select $txt;
system("expect c:\\\\expect.txt >expect.out");
open (FH1 ,"<","expect.out");
while (<FH1>) {
$txt -> insert('end',$_);
}
}
perl 调用按钮输出到文本框
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
上一篇:perl 升级到5.20版本
下一篇:perl tk说明
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章