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

Question

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

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

我的文本组件插入SORCE代码：

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

Answer 1

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

（这是end-1c - 年末减少一个字符 - 为相当的技术原因;只有end你会得到额外的换行符附加已知。 Tk gotcha。）