无法将perl Hash返回到模板工具包文件中

Question

提前致谢。     我试图使用Template Toolkit文件显示文件列表。在此之前，我将从perl文件返回到.tt（模板工具包文件）文件。     但条件没有执行，我也无法显示文件列表。     供你参考我提供的文件。

Perl文件（Example.pm）：

sub example{ 
    my $path = "/sa2/tools/jayaram_delete";
    if (chdir($path)) {
        @files = glob "*";//I am getting the list of files
    } else {
        @files = ();
    }

    $run{'files'} = \@files;
    $run{'testing'}= 'files';

    return 'site/screen/screen.tt',\%run;
}

模板工具包文件：（Example.tt）

//This is The condition to display the Upload functionality in the .tt file
            [% IF screenName == 'Resource Management' %]
//This is the code given in Stackoverflow,for displaying the list of files getting from    perl file to .tt file.But this functionality is not working in this .tt file.
[% files %]
[% FOREACH n IN files %]
    [% n %]
    [% END %]
//This is the Table format to display the Upload functionality in the .tt file.
<table id='dataTableExample' class=dataTable cellpadding=01 cellspacing=01>

        <tr class=verification style="text-align:left;">
            <th colspan="2">Instrumentation Configuration</th>
        </tr>
    <tr class=controlTableDataRow>
                                    <td class=controlTableCommandCell>
                                             <form    action='/sa/site/screen/testresults/ajaxTab/test/[% parentid %]/[% id %]' method='post'   enctype="multipart/form-data" target='file_upload'>
                                                    <input type="file"  name="uploadFile" size=30>
                                                    <input type="submit" name="submit" value="Upload">
                                                    <iframe id='file_upload' name='file_upload' style="display:none" src='about:blank' onload="if (file_upload.location.href != 'about:blank') uploadStatus(this)" >
                                                    </iframe>
                                            </form>
                                    </td>
                            </tr>
//This is the sample code to display in the .tt file
    <table class=propertyTable cellpadding=5 cellspacing=0>
    <tr class=propertyTableHeaderRow>
            <th>FileName</th>
            <th>Last Modified Date</th>
    </tr>
    </table>
[% END %]

For your reference i am providing the complete file,please help to solve this problem  for displaying the list of files in .tt file.

Answer 1

这种结构适用于您的目标：

use strict;
use warnings;

use Template;

my @files = glob "*";
my $tt = Template->new();
my $va = {
    files => \@files
};
$tt->process('my.tt', $va);

在my.tt文件中：

[% FOREACH n IN files %]
[% n %]
[% END %]

Answer 2

我意识到这是一个非常古老的问题，但我只是碰到它，并相信我看到了这个问题。看起来你的代码中有一个额外的[％END％]上限，到最后。我把这段代码扔进了一个模板，它就像你看到的一样。删除了最后一个[％END％]，我得到了输出。显然，由于我没有处理，它不是你想要的输出，但它解决了TT消隐的问题。我很确定你的问题很久以前就得到了解决，但希望这将在未来给别人带来一些麻烦。这些流氓标签可能是TT的痛苦。