小编guy*_*gas的帖子

我编写了一个脚本来获取文件名并将文件内容插入到Text小部件中.现在当我关闭脚本窗口时,我需要它将文本写入Unix屏幕.

如何获取Text小部件内容？

我的文本小部件插入代码是:

open(FILE, $file_name);
foreach my $line (<FILE>) {
    $text->insert('end', $line);
}

我正在写一个Perl脚本,我需要在脚本上执行Unix Ctrl+ Z.我怎么能在Perl中做到这一点？

谢谢.