+ -
当前位置:首页 → 问答吧 → perl Html::tepmlate 问题

perl Html::tepmlate 问题

时间:2010-09-28

来源:互联网

  1. #!/usr/bin/perl -w
  2. use strict;
  3. use HTML::Template;
  4. print "Content-Type:text/html\n\n";

  5. my $html = new HTML::Template( filename => "templates/tmpvar.tmpl" );
  6. my $out;

  7. #perl中的写法.

  8. $html->param( name => [
  9.             {name => 'tom', age => '21'},
  10.             {name => 'fukai', age => '25'},
  11.         ]);


  12. print $html->output;
复制代码


  1. #html中的内容
  2. <ul>
  3. <TMPL_LOOP NAME="name">
  4.         <li><TMPL_VAR NAME="name">:<TMPL_VAR NAME="age"></li>
  5. </TMPL_LOOP>
  6. </ul>      

  7. #html输出
  8. <ul>

  9.     <li>tom:21</li>

  10.     <li>fukai:25</li>

  11. </ul>
复制代码



当我不知道{ name => 'tom', age => '21' },  有多少行的时候我在perl该怎么循环,
比如我的name有m中间的name该如何循环
$html->param( name => [
            {name => 'tom', age => '21'},
            {name => 'fukai', age => '25'},
            {name => 'to1m', age => '21'},
            {name => 'fuk2ai', age => '25'},
            {name => 'to2m', age => '21'},
            {name => 'fu3kai', age => '25'},

        ]);

作者: mitmax   发布时间: 2010-09-28

是说解引用?

作者: yybmsrs   发布时间: 2010-09-28