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

Question

我编写了一个获取文件名的脚本，并将文件内容插入Text widget。现在，当我关闭脚本窗口时，我需要它将文本写入Unix屏幕。

如何获取文本窗口小部件内容？

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

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

Answer 1

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

（它是end-1c - 结束少于一个字符 - 出于相当技术原因;仅end你会得到一个额外的换行符。一个已知的Tk陷阱。）