Template :: Toolkit 파일의 마지막 수정 날짜를 표시하려면

Question

기능을 업로드 한 후 파일 목록과 파일의 최종 수정 날짜를 표시해야합니다.

파일을 업로드하면 단일 디렉토리로 이동합니다. 그 후 "템플릿 툴킷"파일에 마지막으로 수정 된 날짜가있는 파일 목록을 표시해야합니다. 나는 파일을 마지막으로 수정 한 날짜를 검색 할 수있는 파일을 내가 같은 년이 펄 코드

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 파일의 마지막 수정 날짜를 표시하도록 도와주세요. 스크립트의 첫 번째 부분에서

Answer 1

당신은 파일의 수정 날짜를 얻을 수있는 파일과 합계를 검색 할 했던 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을 실행하면 어떻게하는지 예제를 볼 수 있습니다.