[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. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (9 PV)
  2. 2NN (2ch News Navigator) (3 PV)
  3. ホームページ作成に59bbsを活用するメリット (2 PV)
  4. 語句BBS 検索掲示板（59bbs.org） とは (2 PV)
  5. 三笠フーズから汚染米を仕入れていた美少年酒造が倒産 (2 PV)
  6. 鳥取市のゆるキャラ「かつ江さん」が餓死（公開中止） (2 PV)
  7. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (2 PV)
  8. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (2 PV)
  9. ホッシュジエンの国内ニュース解説 (1 PV)
  10. [書籍]MySQL関連 (1 PV)

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

  1. 掲示板やチャットなどのフリーPHPスクリプトの配布サイト (71 PV)
  2. 2ちゃんねる（2ch）検索 掲示板 - スレタイ、過去ログ、全文検索 (68 PV)
  3. 掲示板フリーソフト - 無料で利用できる掲示板CGI (37 PV)
  4. 5ちゃんねる（5ch.net、旧2ちゃんねる）掲示板 (26 PV)
  5. [Twitter]ツイッター検索のまとめ (26 PV)
  6. [掲示板]2ちゃんねる(2ch.net) (26 PV)
  7. 浜崎あゆみ(はまさきあゆみ、ayumi hamasaki) (23 PV)
  8. プリンセスガーデンホテル女性社長の「片岡都美」氏はフジモリ元大統領夫人 (23 PV)
  9. 2NN (2ch News Navigator) (22 PV)
  10. 2ちゃんねるは不法行為で乗っ取られていた、管理人のひろゆきが声明を発表 (20 PV)

アクセス統計

ディレクトリ

関連サイト