maston总结

最新推荐文章于 2021-11-15 18:14:16 发布

转载最新推荐文章于 2021-11-15 18:14:16 发布 · 120 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qinzb/p/9002956.html

本文详细介绍了Mason模板系统的使用方法，包括替换标签、转义替换、嵌入Perl代码等功能，并展示了如何通过不同方式调用组件及初始化块的用法。

Substitution Tags（替换标签）

  % $cd_count = 207; # this is embedded Perl
  You have <% $cd_count %> CDs.

Escaping substitutions（转义替换），两个字符 h(html),u(URL),n(不转义)

<textarea name="foo"><% $foo_data | h %></textarea>

Homepage: <a href="redirect?url=<% $homepage | u %>">

Embedded Perl: % Lines and <%perl> Blocks (嵌入perl)

  % foreach my $person (@people) {
    Name: <% $person->{name} %>
    Age: <% $person->{age} %>
    Height: <% $person->{height} %>
    Weight: <% $person->{weight} %>
  % }

如果有多行则可以用<%perl> </%perl>

If you have more than a few lines of Perl code in a row, however, it is probably best to use a Perl block instead
  <%perl>
   my @words = $sentence =~ /\b(\S+)\b/g;
   my @small_words = grep { length $_ <= 3 } @words;
   my @big_words = grep { length $_ > 3 } @words;
  </%perl>

Calling Other Components: <& &> Tags 调用其它组件

调用组件

<& /path/to/menu &>
<& $component &>
<& menu, width => 640, admin => 1 &>

可以用+或者()表示为表达式运行

<& ( component_path_returner( ) ) &>
<& +component_path_returner( ) &>

<%init> blocks , 初始化块

 It is currently <% $temp %> degrees.
  <%init>
   my ($temp) = $dbh->selectrow_array("SELECT temperature FROM current_weather");
  </%init>

<%args>

<%args>
   $color   #是必需要传入数据的
   $size => 20
   @items => ( 1, 2, 'something else' )
   %pairs => ( key1 => 1, key2 => 'value' )
  </%args>

获取提交表单值 $ARGS{'submit.x'}

% foreach (sort %ARGS) {
    <% $_ %>
  % }
  
  % foreach (sort @_) {
    <% $_ %>
  % }

可通过http传递获取参数

the mason book

转载于:https://www.cnblogs.com/qinzb/p/9002956.html