Как я могу получить текст в виджете Perl / Tk Text?

Question

Я написал скрипт, который получает имя файла и вставляет содержимое файла в Текстовый виджет . Теперь, когда я закрываю окно скрипта, мне нужно написать текст на экране Unix.

Как я могу получить содержимое виджета Текст?

Мой код для вставки текстового виджета:

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

Answer 1

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

(Это end-1c - в конце меньше одного символа - по довольно техническим причинам; всего лишь end вы добавите дополнительный символ новой строки.