如何在Perl/Tk Text小部件中获取文本？

Question

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

如何获取Text小部件内容？

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

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

Answer 1

$text->get('1.0','end-1c');

(这是end-1c- 结束少一个角色 - 出于相当的技术原因;只是end你会额外添加一个换行符.一个已知的Tk陷阱.)