[Perl][HTML::Template]<TMPL_LOOP>タグのサンプルプログラム

<TMPL_LOOP>タグはセクションを区切り、名前をつけることができます。この名前つきループの内側に<TMPL_VAR>タグを置き、プログラムでパラメータに代入するハッシュ・リファレンスの param() にリスト(配列リファレンス)を渡すと、リスト分の出力が繰り返されます。

以下は、<TMPL_LOOP>タグの使い方を示すサンプルプログラムです。サンプルプログラムでは、コンマで区切られたデータファイルを読み込んでリストを作成し、それをパラメータに渡してテーブルを表示しています。また、<TMPL_IF>タグ、<TMPL_ELSE>タグを使用してデータがない場合は、テーブルが出力されないようにしています。


--- データファイル（userdata.txt）

kagahiro,kitaakita,kagahiro3@59log.com,011678901
admin,tokyo,webmaster10@59log.com,011778901
buzei,kawasaki,support2@59bbs.org,041758901

--- テンプレートファイル（tmplloop.tmpl）

<html>
<head>
<title>HTML::Templateのサンプルプログラム LOOP</title>
</head>
<body>
<h1>HTML::Templateのサンプルプログラム LOOP</h1>
<TMPL_IF NAME=DATA_NUM>
    <table>
    <tr>
    <td>User Name</td>
    <td>Address</td>
    <td>Email</td>
    <td>Tel</td>
    </tr>
    <TMPL_LOOP NAME=USER_INFO>
    <tr>
    <td><TMPL_VAR NAME=USERNAME></td>
    <td><TMPL_VAR NAME=ADDRESS></td>
    <td><TMPL_VAR NAME=EMAIL></td>
    <td><TMPL_VAR NAME=TEL></td>
    </tr>
    </TMPL_LOOP>
    </table>
<TMPL_ELSE>
    No data
</TMPL_IF>
</body>
</html>

--- CGI（tmplloop.cgi）

#!/usr/bin/perl

use strict;
use warnings;

use HTML::Template;

my $template = HTML::Template->new(filename => 'tmplloop.tmpl');

my @loop_data = ();
open my $infh, '<', "userdata.txt";
while (my $rec = <$infh>) {
    chomp $rec;
    if ($rec ne '') {
        my %row_data;
        my ($username, $address, $email, $tel) = split(/,/, $rec);
        $row_data{USERNAME} = $username;
        $row_data{ADDRESS} = $address;
        $row_data{EMAIL} = $email;
        $row_data{TEL} = $tel;
        push @loop_data, \%row_data;
    }
}
close $infh;

$template->param(USER_INFO => \@loop_data);
$template->param(DATA_NUM => scalar(@loop_data));

print "Content-Type: text/html; charset=utf-8\n\n";
print $template->output;
[2231] Posted by kagahiro at 2010/08/18 20:59:26
オープン | 1 point | Link (1) | Trackback (0) | Comment (1)

キーワード
Perl HTML Template サンプルプログラム

語句検索のホームページ


[Perl][HTML::Template]<TMPL_LOOP>タグのサンプルプログラム 関連リンク

HTML::Template
HTML::Templateは、シンプルで高速なループ構造を表現するのに適したテンプレートエンジン。テンプレートファイルでは変数を入れるために以下のタグが使用できる。<TMPL_VAR> <TMPL_LOOP> <TMPL_INCL...

[Perl][HTML::Template]<TMPL_LOOP>タグのサンプルプログラム トラックバック

トラックバックURL :


[Perl][HTML::Template]<TMPL_LOOP>タグのサンプルプログラムへのコメント

1 Posted by モンクレールメンズ at 2012/11/10 19:09:28
お世話になります。とても良い記事ですね。

詳細の入力フィールドを表示する

おすすめ  (チェックしてコメントすると最新情報に掲載)
コメント :

< 前のスレッド      次のスレッド >

アクセスランキング

今日のアクセスランキング（上位10件）

  1. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (8 PV)
  2. 掲示板フリーソフト - 無料で利用できる掲示板CGI (5 PV)
  3. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (5 PV)
  4. [Twitter]ツイッター検索のまとめ (5 PV)
  5. 2NN (2ch News Navigator) (3 PV)
  6. [B-CAS]平成の龍馬（多田光宏）逮捕 (3 PV)
  7. 米航空宇宙局（NASA）の無人ロケット「アンタレス」が打ち上げに失敗し大爆発、壮大な花火となった (2 PV)
  8. [Perl][HTML::Template]<TMPL_LOOP>タグのサンプルプログラム (2 PV)
  9. 男はつらいよ (2 PV)
  10. PHP、MySQLで動くオープンソース掲示板ソフト (2 PV)

今月のアクセスランキング（上位10件）

  1. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (55 PV)
  2. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (30 PV)
  3. 掲示板フリーソフト - 無料で利用できる掲示板CGI (24 PV)
  4. 浜崎あゆみ(はまさきあゆみ、ayumi hamasaki) (23 PV)
  5. 2ちゃんねるは不法行為で乗っ取られていた、管理人のひろゆきが声明を発表 (20 PV)
  6. 2ちゃんねるまとめブログ「明日もやられやく」の管理人「小林浩忠容疑者」がウイルス作成罪で逮捕 (20 PV)
  7. 橋下市長は正しかった、米兵が日本人女性を二人がかりでレイプか (20 PV)
  8. [掲示板]2ちゃんねる(2ch.net) (20 PV)
  9. 闇の声（やみのこえ） (18 PV)
  10. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (18 PV)

アクセス統計

ディレクトリ

関連サイト