多くのブログからリンクされている話題を自動的に抽出していますので、
ブログで話題になっている記事や、多くの議論を呼んでいる記事が自然と
ピックアップされるようになっています。[...]
なお、独自のロジックにより、影響力の強いブログのリンクを
重視するようになっているため、スパムブログや自動生成ブログからの
影響が受けにくい仕組みとなっています。
(http://blogradar.jp/about)
#!/usr/bin/perl
use strict;
use warnings;
use Template;
my $tt = Template->new({
# INCLUDE_PATH => 'tpl',
# OUTPUT_PATH => 'out',
# EVAL_PERL => 1,
}) || die $Template::ERROR, "\n";
my $str = "TKSK";
my $list_ref = [{id => 1, name => "you"},
{id => 20, name => "us"},
{id => 3, name => "me"},];
my $hash_ref = {yes => "Yes!!!",
no => "Noooooo!"};
my $vars = {
str => $str,
lr => $list_ref,
hr => $hash_ref,
};
#$tt->process("a.txt", $vars, "a.html") || die $tt->error(), "\n";
#$tt->process(\*DATA, $vars, "a.html") || die $tt->error(), "\n";
$tt->process(\*DATA, $vars) || die $tt->error(), "\n";
__END__
[% IF str %][% hr.yes %] [% str %][% ELSE %][% hr.no %][% END %]
[% FOR lr %][% id %]/[% name %][% IF !loop.last() %],[% END %][% END %]
[% FOR v IN lr.sort('name') %]([% v.id %]/[% v.name %])[% END %]
[% FOR v IN lr.nsort('id').reverse %]([% v.id %]/[% v.name %])[% END %]
Yes!!! TKSK 1/you,20/us,3/me (3/me)(20/us)(1/you) (20/us)(3/me)(1/you)