perl,mason,工作和传递变量

时间:2018-03-27 05:29:18

标签: perl mason

我试图通过一个“泥瓦匠”'变量到在HTML之前运行的Perl自动处理程序脚本。 这可能。

<!--- MASON -->
<html>
<body>
    <%init>
        my $sub_headline = 'this is text';
    </%init>
    ###HEADER###
</body>
</html>

<!--- AUTOHANDLER --->
my $m_header = '<div class="m-portlet__head">
<div class="m-portlet__head-caption">
  <div class="m-portlet__head-title">
    <h3 class="m-portlet__head-text">###TITLE###</h3>
  </div>
  <p>$sub_headline</p>
</div><!-- /.caption -->
</div><!-- /.head -->';
$html   =~ s/###HEADER###/${m_header}/i;

1 个答案:

答案 0 :(得分:0)

结束为标题创建组件并为传入的arg添加条件。然后pirnt正确的HTML。