如何获取 Perl/Tk 文本小部件中的文本？
我编写了一个脚本，该脚本获取文件名并将文件内容插入到 文本小部件。现在，当我关闭脚本窗口时，我需要它将文本写入 Unix 屏幕上。
如何获取文本小部件内容？
我的文本小部件插入源代码是：
open(FILE, $file_name);
foreach my $line (<FILE>) {
$text->insert('end', $line);
}
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);
}
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
（它是
end-1c– 结尾少一个字符 – 出于相当技术性的原因；仅使用end您就会附加一个额外的换行符。一个已知的 Tk 陷阱。）(It's
end-1c– end less one character – for fairly technical reasons; with justendyou'd get an extra newline appended. A known Tk gotcha.)