[myリスト]の検索結果


<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)

ミクシィが、同社のソーシャル・ネットワーキング サービス(SNS)「mixi」において、人と人との新しいつながり方が可能になるサービス「myリスト」の提供を開始した。

「myリスト」は、これまで提供されていた「お気に入り」を、より使いやすく改善したサービスで、「あなたの友人かも？」で表示されるユーザー、知り合いかもしれないユーザー、気になるユーザーなどを、 「myリスト」として、簡単に登録・追加することが可能になっている。

また、「myリスト」に追加するとともに、マイミクシィになってみたいユーザーには、「マイミクOK！」にチェックを付けることも可能となった。「マイミクOK！」にチェックを付けた際に、チェックを付けた相手も同様に「マイミクOK！」にチェックを付けた場合、一定期間をおいて自動でマイミクとなることができる。これによって、「マイミクになりたいけど恥ずかしい」「マイミク断られたら嫌だから申請しないでおこう」などと、今までマイミクになるチャンスを逃していた方たちも、マイミクとしてつながることができ、これまで以上にコミュニケーションを楽しむことができる。

「myリスト」提供開始 恥ずかしがり屋のあなたも簡単気軽につながれる！

さすが!と言わせる mixi徹底攻略術
著者：高橋 暁子
価格：1,764円
シーアンドアール研究所

by Amalink

[1304] Posted by buzei at 2009/10/05 17:39:20
0 point | Link (2) | Trackback (0) | Comment (0)

任意のキーワードリストに含まれるテキスト中のキーワードに、特定のページ(URL)にリンクするPerlのサンプルスクリプトを作ってみました。ブログソフトとか掲示板ソフトを開発する際に役に立つと思います。文字エンコードがUTF-8、EUCではOKでしたが、SJISではうまく動きませんでした。

以下、サンプルスクリプトの一部です。
my @wordlist = ('はてな', 'ブログ', 'アルファブロガー');

foreach my $word (@wordlist) {

    my $encword = $word;

    $encword =~ s/(\W)/'%'.unpack('H2', $1)/eg;	# uri encode

    my $link = "<a href=\"serach.cgi?querystr=$encword\">$word</a>";

    $text =~ s/$word/$link/g;

    # アンカーテキストのキーワードは元に戻す

    my $pattern = "(<a href.+)<a href.+$word</a>(.+/a>)";

    $text =~ s/$pattern/$1$word$2/g;

}

print $text;

リンクの処理のところが微妙ですが、適当に修正して使っていただければ幸いです。

はてなダイアリーのキーワードにリンクするためのサンプルもあるようです。動かしてみたわけでないのでハッキリとはいえませんが、ソースを見る限りテキスト内でアンカータグでリンクを行っている場合は、まずいような気もします。

はてなダイアリーキーワード自動リンクAPI - はてなダイアリー日記
なお、上記ファイルは現状で300KBほどありますので、アプリケーション側で一定時間キャッシュして頂くなどの措置をお願いできればと思います。
テキスト一つ処理するだけで300KBですか、はてな側も大変かも知れませんが呼び出す方も大変ですね。
[225] Posted by buzei at 2008/02/24 23:46:55
0 point | Link (1) | Trackback (0) | Comment (0)

  1  


アクセスランキング

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

  1. [中国高速鉄道事故]多数の乗客が車両ごと穴に埋められ行方不明に (11 PV)
  2. しわしわの美女！キャロライン・ケネディ新駐日米大使を属国民が土下座でお出迎え (8 PV)
  3. k本的に無料ソフト・フリーソフト (8 PV)
  4. 掲示板フリーソフト - 無料で利用できる掲示板CGI (8 PV)
  5. ブルース・ウィリスさんが24歳年下のモデル、エマ・ヘミングさんと結婚 (8 PV)
  6. リア・ディゾン、「でき婚」を発表 (8 PV)
  7. 動画コミュニティサイト「ニコニコ動画」 (7 PV)
  8. 紅茶に含まれる成分が骨粗しょう症に効果　体重６０キロなら３日に一度６０杯の紅茶を飲めば効果：お料理速報 (7 PV)
  9. 中国経済の先行き不安で世界同時株安が進行 (7 PV)
  10. 消費税増税法案が民主自民公明の3党賛成で可決成立 (7 PV)

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

  1. 掲示板フリーソフト - 無料で利用できる掲示板CGI (27 PV)
  2. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (15 PV)
  3. 【速報】パナマ文書に記載されている日本企業、日本人の一覧リスト (13 PV)
  4. [中国高速鉄道事故]多数の乗客が車両ごと穴に埋められ行方不明に (11 PV)
  5. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (9 PV)
  6. しわしわの美女！キャロライン・ケネディ新駐日米大使を属国民が土下座でお出迎え (8 PV)
  7. k本的に無料ソフト・フリーソフト (8 PV)
  8. ブルース・ウィリスさんが24歳年下のモデル、エマ・ヘミングさんと結婚 (8 PV)
  9. 伝説の男、瓜田純士さんが新宿駅構内で2週間前に割腹自殺を図る (8 PV)
  10. リア・ディゾン、「でき婚」を発表 (8 PV)

アクセス統計

ディレクトリ

関連サイト