Perltk - 记住文本小部件中的位置

Question

我刚刚编写了一个非常简单的perl tk脚本来读取一个巨大的文本文件，并使用文本小部件显示它并将其附加到滚动条小部件上。现在我的问题是每次我运行脚本时，它都会从第一句话（整个文本文件）开始显示。如何让脚本记住我在文本中的位置，并在我退出并再次启动脚本时显示相同的区域，即如果我阅读文本的第 1000 行并退出脚本，脚本应该在我再次运行时显示第 1000 行。（换句话说，记住滚动位置）

我不是perl tk或perl的专业人士，但我会尽力学习它。请给出清晰的回复解释

Answer 1

如果你关闭你的perl脚本，它就会结束。它什么都不记得了，它已经不在那里了。但是，您可以制作脚本以将位置保存到文件中，并且在启动时，您可以尝试从文件中读取位置。请参阅以下示例：

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
my $file   = 'input.txt';
my $config = '.viewtext.conf';
my $mw = MainWindow->new(-title => 'Remember Position');
my $t = $mw->Scrolled("Text", -scrollbars => 'se')->pack;
my $b = $mw->Button(-text => 'Quit', -command => &quit)->pack;

open my $FH, '<', $file or die $!;
$t->Contents(<$FH>);
close $FH;
if (-f $config) {
    open my $FH, '<', $config or die $!;
    my ($x0, $x1, $y0, $y1) = split / /, <$FH>;
    $t->xviewMoveto($x0);                            # Here we restore the saved position
    $t->yviewMoveto($y0);
}
MainLoop();
sub quit {
    open my $CONF, '>', $config or die $!;
    print {$CONF} join ' ', $t->xview, $t->yview;    # This is the current position
    close $CONF;
    $mw->destroy;
}

如果要打开几个不同的文件，则必须记住文件的路径以及位置。