sub push_b4 {
#$txt -> insert('end');
#select $txt; system("expect c:\\\\expect.txt >expect.out");
open (FH1 ,"<","expect.out");
while (<FH1>) {
$txt -> insert('end',$_);
}
}
相关文章
- 11-21perl 调用按钮输出到文本框
2022-11-21 07:44:06
sub push_b4 {
#$txt -> insert('end');
#select $txt; system("expect c:\\\\expect.txt >expect.out");
open (FH1 ,"<","expect.out");
while (<FH1>) {
$txt -> insert('end',$_);
}
}