2013-05-07 62 views
1

我必须在上传功能后显示文件列表和文件的上次修改日期。要显示Template :: Toolkit文件中的文件的最近修改日期

当我们上传文件时,他们将移动到一个目录中。之后,我必须在“模板工具箱”文件中显示其上次修改日期的文件列表。

对于检索我来检索文件的最后修改日期的文件我用这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 %] 

请帮我显示的文件列表,并使用Perl在.tt文件的最后修改日期。

+0

工作示例大多是良好的开始,http://search.cpan.org/~abw/Template-Toolkit-2.24/lib/Template/Tutorial/Web.pod#Generating_Static_Web_Content – 2013-05-07 11:37:37

+1

这一切看起来都很合理。你有什么问题?获取时间戳?显示你的数据?都? – 2013-05-07 11:57:02

回答

0

在脚本的第一部分,你应该使用执行opendir来检索文件和统计来获取文件的修改日期。像这样:

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访问列表的引用:

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