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 %]

.ttPerl を使用して、ファイルのリストとファイルの最終更新日を表示するのを手伝ってください。

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 に答える