[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. ログ速（ろぐそく、logsoku） - 過去ログ スレタイ検索 全文検索 (1 PV)

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

  1. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (97 PV)
  2. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (60 PV)
  3. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (36 PV)
  4. ログ速（ろぐそく、logsoku） - 過去ログ スレタイ検索 全文検索 (31 PV)
  5. [Twitter]ツイッター検索のまとめ (28 PV)
  6. ホッシュジエンの国内ニュース解説 (26 PV)
  7. 自称「紀州のドンファン」和歌山の資産家「野崎幸助」氏が覚せい剤で不審死、警察は殺人容疑で捜査 (24 PV)
  8. [B-CAS]平成の龍馬（多田光宏）逮捕 (24 PV)
  9. 佐野研二郎氏の妻「実際にデザインを担当しているのは数人の部下。佐野は監修しただけ」パクリ疑惑を完全否定 (22 PV)
  10. 2chまとめサイト（ブログ）検索 (22 PV)

アクセス統計

ディレクトリ

関連サイト