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 调用按钮输出到文本框
最新推荐文章于 2017-03-10 15:18:12 发布