代码如下所示, 然后我修改模板, 将显示菜单的代码换为<$MTZHMenu$>, 再选择时机重建相关页面,

use MT::Template::Context;

MT::Template::Context->add_tag(ZHMenu => \&get_zhmenu_html );

sub get_zhmenu_html
{
  my $zh_menu_html = ‘<ul id=”nav”>’.
     ‘ <li><a href=”/index.html”>Home</a></li>’.
     ‘ <li><a href=”/en”>English</a></li>’.
     ‘ <li><a href=”/blog.html”>Weblog</a></li>’.
     ‘ <li><a href=”/aul.html”>AUL/MyDUL</a></li>’.
     ‘ <li><a href=”/otop.html”>Tools</a></li>’.
     ‘ <li><a href=”/archives.html”>Archive</a></li>’.
     ‘ <li><a href=”/rss”>RSS</a></li>’.
     ‘ <li><a href=”/aboutme.html”>About</a></li>’.
     ‘</ul>’;

  scalar $zh_menu_html;
}

    对于这种没有任何文件访问操作的简单插件, 性能不是问题, 将会将更多的内容通过这种方式统一起来, 如广告代码, 如要取消广告, 只需要让插件函数返回空串就行.

Relative Posts:

• 2007/02/08 -- 加了英语九百句, 每页随机显示5句, 慢慢学! (1)
• 2007/02/01 -- 写了第二个Movable Type插件 — TangPoiem(唐诗) (8)
• 2007/01/19 -- 发布第的一个Movable Type插件 — RandomImage (2)
• 2007/01/18 -- 给每个页面加了一个随机的小图片 (4)
• 2007/01/17 -- 编写第一个Moveable Type的插件 — 随机数 (2)
• 2009/06/22 -- 升级Movable Type失败 (2)
• 2008/01/29 -- SCode的tmpdir路径 (0)
• 2008/01/29 -- 开始有垃圾留言了 (3)
• 2008/01/21 -- Movable Type升级失误 (1)
• 2007/09/09 -- 更改了Movable Type平台几个表上的索引 (0)

    从网上可以找到整个原文, 格式如下:

1. How are you? 你好吗?

    然后要加入一些HTML标记来进行格式化, 将它变成这样:

<li>How are you?</li> 你好吗?

    有900句之多, 如果手工加这些就不要做算了, 还好几天前学了点Perl的正则表达式, 花了20几分钟想如何将句子分成序号/英文/中文三个字段, 还好成功了, 看来Perl在处理文本上面还真是强! 接下来又用Perl将五行合成一行, 存成一个文件, 和我加唐诗一样的方法, 在每一篇中随机挑一行出来显示一下就行了. 以学习为目的去建一个网站, 应当是件好事.

    在将一个文件一所有行读入到一个数组时, 发现用下面的代码的话, 重建所有的页经常不成功.

open FILE_HANDLE “a.txt”;
my @lines = ();
while( my $line = <FILE_HANDLE> )
{
   push @lines, $line;
}
close FILE_HANDLE;

    改成如下后, 就没有问题了, 站点也要进行性能调整.

open FILE_HANDLE “a.txt”;
my @lines = <FILE_HANDLE>;
close FILE_HANDLE;

    如果你经常访问本站, 后来发现英语变好了, 得谢谢我啊!

Relative Posts:

• 2007/04/08 -- 创建插件来方便对MT模板的管理 (0)
• 2007/02/01 -- 写了第二个Movable Type插件 — TangPoiem(唐诗) (8)
• 2007/01/19 -- 发布第的一个Movable Type插件 — RandomImage (2)
• 2007/01/18 -- 给每个页面加了一个随机的小图片 (4)
• 2007/01/17 -- 编写第一个Moveable Type的插件 — 随机数 (2)
• 2009/06/22 -- 升级Movable Type失败 (2)
• 2008/01/29 -- SCode的tmpdir路径 (0)
• 2008/01/29 -- 开始有垃圾留言了 (3)
• 2008/01/21 -- Movable Type升级失误 (1)
• 2007/09/09 -- 更改了Movable Type平台几个表上的索引 (0)

    这个插件需要准备一个唐词文件, 有三个字段:

# image_url#link_url

Title#Author#Poiem Body…
Title#Author#Poiem Body…
……

    接下来在模板的适合位置插入:

<$MTTangPoiem file=”path/tangshi.txt”$>

    这个插件在你重新生成页面时, 会返回一段HTML代码(一个图片的连接), 如下所示:

<div class=”tang-poiem”>
  <div class=”tang-poiem-content”>
     <div class=”tang-poiem-title”>Title</div>
     <div class=”tang-poiem-author”>Author</div>
     <div class=”tang-poiem-body”>Poiem Body</div>
  </div>
</div>

    只需要在CSS文件中定义相应的样式, 就可以控制显示的效果了. 如果你懂Perl, 可以随便更改代码以满足你的需求. 和JavaScript的实现不同的是, 只有在重新生成页面(如新的留言)等时, 才会重新随机选择一首唐诗.

Relative Posts:

• 2007/04/08 -- 创建插件来方便对MT模板的管理 (0)
• 2007/02/08 -- 加了英语九百句, 每页随机显示5句, 慢慢学! (1)
• 2007/01/19 -- 发布第的一个Movable Type插件 — RandomImage (2)
• 2007/01/18 -- 给每个页面加了一个随机的小图片 (4)
• 2007/01/17 -- 编写第一个Moveable Type的插件 — 随机数 (2)
• 2009/06/22 -- 升级Movable Type失败 (2)
• 2008/01/29 -- SCode的tmpdir路径 (0)
• 2008/01/29 -- 开始有垃圾留言了 (3)
• 2008/01/21 -- Movable Type升级失误 (1)
• 2007/09/09 -- 更改了Movable Type平台几个表上的索引 (0)

# image_url#link_url

1.jpg#http://…..
2.jpg#http://…..

    接下来在模板的适合位置插入:

<$MTRandomImage file=”path/imagelist.txt”$>

    这个插件在你重新生成页面时, 会返回一段HTML代码(一个图片的连接), 如下所示:

<a href=”http://…..” target=”_blank”>
<img src=”1.jpg” border=”0″ />
</a>

    如果你懂Perl, 可以随便更改代码以满足你的需求. 和JavaScript的实现不同的是, 只有在重新生成页面(如新的留言)等时, 才会重新随机生成新的图片.

Relative Posts:

• 2007/04/08 -- 创建插件来方便对MT模板的管理 (0)
• 2007/02/08 -- 加了英语九百句, 每页随机显示5句, 慢慢学! (1)
• 2007/02/01 -- 写了第二个Movable Type插件 — TangPoiem(唐诗) (8)
• 2007/01/18 -- 给每个页面加了一个随机的小图片 (4)
• 2007/01/17 -- 编写第一个Moveable Type的插件 — 随机数 (2)
• 2009/06/22 -- 升级Movable Type失败 (2)
• 2008/01/29 -- SCode的tmpdir路径 (0)
• 2008/01/29 -- 开始有垃圾留言了 (3)
• 2008/01/21 -- Movable Type升级失误 (1)
• 2007/09/09 -- 更改了Movable Type平台几个表上的索引 (0)

    但这个随机图片不是每次访问都随机的, 你需要付出劳动(回复一下)才能看到图片的变化. 请你评价一下这个主意如何? 同时我也征集一下各种奇怪的小图片. 现在的这些小图片是从我的Flickr相册上取下来的, 规格75×75. 不知道我直接取别人相册上的这种小图片会不会有版权问题.

    谢谢你的光临与回复, 愿小图片能缓解你访问本站时的眼睛疲劳.

Relative Posts:

• 2007/04/08 -- 创建插件来方便对MT模板的管理 (0)
• 2007/02/08 -- 加了英语九百句, 每页随机显示5句, 慢慢学! (1)
• 2007/02/01 -- 写了第二个Movable Type插件 — TangPoiem(唐诗) (8)
• 2007/01/19 -- 发布第的一个Movable Type插件 — RandomImage (2)
• 2007/01/17 -- 编写第一个Moveable Type的插件 — 随机数 (2)
• 2009/06/22 -- 升级Movable Type失败 (2)
• 2008/01/29 -- SCode的tmpdir路径 (0)
• 2008/01/29 -- 开始有垃圾留言了 (3)
• 2008/01/21 -- Movable Type升级失误 (1)
• 2007/09/09 -- 更改了Movable Type平台几个表上的索引 (0)

<$MTRandomDigit min=… max=… width=… $>

    min   : the minimum random value, default 0.
    max   : the maximum random value, default 10.
    width : the digit count (zero prefixed), default 0.

    今天我还没有更改模板, 过几个改一下模板来试用一下这个我自已开发的插件. 源代码如下:

# Copyright (c) 2007, Fangxin Lou. (http://www.anysql.net/)

use MT::Template::Context;

MT::Template::Context->add_tag(RandomDigit => \&get_random_digit );

sub get_random_digit
{
  my ($ctx, $args) = @_;
  my $max_num = $args->{max};
  my $min_num = $args->{min};
  my $width   = $args->{width};
  
  $max_num=10 unless ($max_num);
  $min_num=0  unless ($min_num);
  $width  =0  unless ($width);

  my $val = 0;

  if ($width)
  {
    $val = sprintf(“%0${width}d”,($min_num+(rand(($max_num – $min_num) * 20)/20)));
  }
  else
  {
    $val = sprintf(“%d”,($min_num+(rand(($max_num – $min_num) * 20)/20)));
  }

  scalar $val;
}

1;

    至于如何放置插件, 我在这儿就不讲了.

Relative Posts:

• 2007/04/08 -- 创建插件来方便对MT模板的管理 (0)
• 2007/02/08 -- 加了英语九百句, 每页随机显示5句, 慢慢学! (1)
• 2007/02/01 -- 写了第二个Movable Type插件 — TangPoiem(唐诗) (8)
• 2007/01/19 -- 发布第的一个Movable Type插件 — RandomImage (2)
• 2007/01/18 -- 给每个页面加了一个随机的小图片 (4)
• 2009/06/22 -- 升级Movable Type失败 (2)
• 2008/01/29 -- SCode的tmpdir路径 (0)
• 2008/01/29 -- 开始有垃圾留言了 (3)
• 2008/01/21 -- Movable Type升级失误 (1)
• 2007/09/09 -- 更改了Movable Type平台几个表上的索引 (0)