1

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

我不是 perl tk 或 perl 的专业人士，但我尽我所能去学习它。请回复解释清楚

4

1 回答 1

2

如果你关闭你的 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;
}

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

于 2012-06-27T14:30:09.037 回答