How can I get the text in the Perl/Tk Text widget?

Question

I have written a script that gets a file name and insert the file content to a Text widget . Now when I close the script window, I need it to write the text onto the Unix screen.

How can I get the Text widget content?

My text widget insertion sorce code is:

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

Answer 1

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

（由于技术上的原因，这是end-1c末尾-少一个字符；仅在end附加了新行。已知的Tk陷阱。）