1

上传功能后，我必须显示文件列表和文件的最后修改日期。

当我们上传文件时，它们将移动到一个目录中。之后，我必须在“模板工具包”文件中显示文件列表及其最后修改日期。

为了检索文件列表，我正在使用这个 Perl 代码

my $path = "/sa2/tools/jayaram_delete";

if (chdir($path)) {
    @files = glob "*";
}
else {
    @files = ();
}

print STDERR "FiveJayaram:@files";
$c->stash->{myoptions} = \@files;

同样，我必须检索文件的最后修改日期。

用于显示文件中的.tt文件：

[% FOREACH my IN myoptions%]
<tr class=propertyTableValueColValue><td><div><b>[% my %]</b></div></td></tr>
[% END %]

请帮助我.tt使用 Perl 显示文件列表和文件中的最后修改日期。

4

1 回答 1

0

在脚本的第一部分，您应该使用opendir检索文件并使用stat获取文件的修改日期。像这样：

opendir my $ls,$path or die $!;
while (my $file = readdir $ls ) {
    next if !-f "$path/$file";

    my @stat = stat("$path/$file");
    push @files, [ $file , localtime($stat[9]) ];
}
closedir $ls;

现在您有一个必须传递给模板的列表。列表中的每一项都是对包含文件和 mtime 的列表的引用。您应该将此列表传递给模板并检索它。查看有关在 TT 中访问列表引用的文档：

http://template-toolkit.org/docs/manual/Variables.html#section_List_References

您可能还想以不同的格式获取 mtime。运行 perldoc -f localtime 以查看如何执行此操作的示例。

于 2013-05-10T13:40:25.600 回答