2

提前致谢。我正在尝试使用模板工具包文件显示文件列表。在此之前，我将 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.
4

2 回答 2

2

这种结构非常适合您的目标：

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 %]
于 2013-04-26T13:15:44.087 回答
0

我意识到这是一个非常古老的问题，但我只是遇到了它，并且相信我看到了这个问题。看起来你的代码中有一个额外的 [% END %] 上限，接近尾声。我将此代码放入模板中，它做了与您看到的相同的事情。删除了最后一个 [% END %] ，我得到了输出。显然，由于我没有处理，它不是您想要的相同输出，但它解决了 TT 消隐问题。我确定您的问题很久以前就解决了，但希望这可以在将来为其他人节省一些麻烦。那些流氓标签对 TT 来说可能很痛苦。

于 2016-10-30T12:45:43.147 回答