perl 调用按钮输出到文本框

 sub push_b4 {
#$txt -> insert('end');
#select $txt; system("expect c:\\\\expect.txt >expect.out");
open (FH1 ,"<","expect.out");
while (<FH1>) {
$txt -> insert('end',$_);
}
}
上一篇:hdu4727 The Number Off of FFF


下一篇:Lua基础之MetaTable(6)