[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. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (3 PV)
  2. 2NN (2ch News Navigator) (2 PV)

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

  1. 2NN (2ch News Navigator) (316 PV)
  2. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (95 PV)
  3. 小林興起元衆議院議員がタレントの杉本彩さんにキスを迫る (61 PV)
  4. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (42 PV)
  5. 読売新聞「石井誠」記者変死事件 (20 PV)
  6. ログ速（ろぐそく、logsoku） - 過去ログ スレタイ検索 全文検索 (20 PV)
  7. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (17 PV)
  8. PHP、MySQLで動くオープンソース掲示板ソフト (12 PV)
  9. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (11 PV)
  10. 掲示板フリーソフト - 無料で利用できる掲示板CGI (11 PV)

アクセス統計

ディレクトリ

関連サイト