use strict; use warnings; use MT::Entry; # 最近のブログ記事を100件読み込めるようにする my $iter = MT::Entry->load_iter({ blog_id => 1, status => MT::Entry::RELEASE(), }, { limit => 100, sort => 'authored_on', direction => 'descend' }); # 記事を読み込める間繰り返す while (my $entry = $iter->()) { # 記事のタイトルに「Movable Type」を含まない場合は、次の繰り返しに進む next if ($entry->title !~ /Movable Type/); # 記事のタイトルを出力する print $entry->title . '
'; }