foxbitz

Happy X’mas and my dog’s 13th birthday!

きつねのボタン — Sat, 25 Dec 2010 14:04:02 +0000

Today is X’mas and my dog’s 13th birthday!

My dog Amie was born just on X’mas day 1997, of a English father and a Irland decent mother, with 10 brothers and sisters. She has so beautiful blue-eyes, with short glossy bristly black-haired. Is a little bit timid, glutton, but scarcely barks, soccer-ball lover,
gentry…very nice dog. I fuckin’ love and love her so much.

[MT]ウェブページ：ローカルメニュー生成用のモジュール

きつねのボタン — Fri, 26 Nov 2010 10:37:20 +0000

ウェブページにつけるローカルメニュー用のモジュールを書いたのでペタっておく。

＜ルール＞

ウェブページが、

(1)フォルダーなしならなにも出さない

(2)TOPフォルダなら自分の子フォルダの一覧を出す

(3)下層フォルダなら自分の兄弟フォルダの一覧を出す

※(2)のルールがちょい変則ですが、一部書き換えれば自分の兄弟フォルダ一覧にもできるです。





	
		
			兄弟: 
		
	
		
			
			
				自分の子:

[mt:If tag="pageFolder"]は、
フォルダ指定なしページの時に mtHasParentFolder で再構築エラーになるので後から追加した。フォルダなしならコンディショナルタグ HasParentFolderがfolseを返せばいいだけなんじゃないかと思うんだけど、なぜだかそのようには動いてくれてないみたい。

[MT]hashとプライベートタグを使って、少しだけメンテが楽な目次ページを作る方法

きつねのボタン — Sun, 10 Oct 2010 17:22:06 +0000

例えば「Movable Type 5 ドキュメント|movabletype.jp」のような目次的なページで、
個々のページはウェブページで生成し、適当な章立てをしつつ見せたい、なんていう時にページ追加・削除時のメンテを少しだけ楽にする書き方を工夫してみた。

前提として、
* 個々のページはウェブページで作成し、章をプライベートタグで入れておく。
* 目次ページ自身はインデックスアーカイブか、ウェブページにmteval=”1″を指定して生成する。


<$mt:SetVar name="01" value="@インストールと初期設定"$>
<$mt:SetVar name="02" value="@アップグレード"$>
<$mt:SetVar name="03" value="@フォームの作成（基本操作）"$>
<$mt:SetVar name="04" value="@管理画面の操作"$>
<$mt:SetVar name="05" value="@フォームのデザインカスタマイズ"$>
<$mt:SetVar name="06" value="@開発者向けガイド"$>
<$mt:SetVar name="07" value="@セキュリティ、死活監視"$>
<$mt:SetVar name="08" value="@各種リファレンス"$>



<$mt:Var name="__value__"  replace="@","" $>


<$mt:PageTitle remove_html="1"$>

この方法のポイントは、プライベートタグ設定など適度に手動制御部分を残しつつ、判定文はいっさい書き足さずにメンテできるところでして、
* 章の順番を自由に制御できる。
* タグベースなのであるページを複数の章に所属させたい時にも対応できる。
* 章を増やす時はmt:SetHashVar部分に1行を書き足すだけでよくて、面倒っちぃ判定文を書き足す必要がない。

せいぜい数十ページ程度までの小規模な目次ページなら小回りがきいてオススメな感じ ^^

逆にページ数が膨大な場合はプライベートタグの設定がかえって面倒で、あまりメリットはでない。
あと、印象として再構築がやや長めかもしれない。

<$mt:SetVar name=”01″ value=”@インストールと初期設定”$>
<$mt:SetVar name=”02″ value=”@アップグレード”$>
<$mt:SetVar name=”03″ value=”@フォームの作成（基本操作）”$>
<$mt:SetVar name=”04″ value=”@管理画面の操作”$>
<$mt:SetVar name=”05″ value=”@フォームのデザインカスタマイズ”$>
<$mt:SetVar name=”06″ value=”@開発者向けガイド”$>
<$mt:SetVar name=”07″ value=”@セキュリティ, 死活監視”$>
<$mt:SetVar name=”08″ value=”@各種リファレンス”$>

<$mt:Var name=”value” replace=”@”,”" $>

”><$mt:PageTitle remove_html=”1″$>

[MT]カスタムフィールドのテキストエリアに入力した改行をページに反映させる方法

きつねのボタン — Sun, 19 Sep 2010 18:36:24 +0000

カスタムフィールドのテキストエリアに入力した改行をページに反映させるには

 <$mt:CustomFieldHoge filters="__default__"$>

のように書く。

以上

【ネタ元】カスタムフィールドのテキストエリアに入力した改行をページに反映させる – 小粋空間
http://www.koikikukan.com/archives/2008/03/18-005038.php

WordPressのアップグレードって楽ちん(^。^)

きつねのボタン — Sat, 31 Jul 2010 08:47:28 +0000

このブログをWordPress 3.0.1にした。

いつも感じるけれど、管理画面から[更新]をクリックするだけでいっさいがっさいすんでしまう。本当に楽ちんだ。

[Perlメモ]Windows×ActivePerl動作環境メモ

きつねのボタン — Sat, 24 Jul 2010 17:43:40 +0000

動作環境メモ

コマンドプロンプトでヘルプ表示

help 　　　　　　→ コマンドとその概要が一覧表示される
help コマンド名　→ 指定コマンドの詳しい説明が表示される

任意のディレクトリで .plのスクリプトが動くようにする
毎度、>perl c:\htdocs\perl\hoge.pl と書かなくても >hoge.pl だけで実行できるようにする。
→ PATHを設定する。
例えばいつも.plファイルをc:\htdocs\perl 配下に置くことにしたなら

path c:\htdocs\perl;%PATH%

とすると、現在のPATH設定に目的のパスが追加される。

[MT]あるタグがついたブログ記事, ウェブページの新着N本を出力する

きつねのボタン — Fri, 16 Jul 2010 22:57:30 +0000

ハッシュを使う。ブログ記事とウェブページ両方あわせたなかから新着N本だけ出すところは、keyを記事生成日にし、keyでソートすればいい。







 
 
   
 



 
 
   
 




 
 <$mt:Var name="out_html{$__key__}"$>

[MT]今日以降の3ヶ月分のエントリー一覧をtable表示する

きつねのボタン — Sun, 11 Jul 2010 15:11:39 +0000

前回、「[MT]今日以降の2ヶ月分のエントリー一覧を表示する」で、
* 今日以降のエントリーを
* 月ごとに表示する
のを試してみた。発展系でさらに、
* table表示に対応し、同月エントリー行の”月”欄はrowspanでくくられるようにする
* 月あたり最大10件まで表示
* 該当エントリーなしの月は月名だけの空行を表示する
ようにしてみた。

同月エントリー行の”月”をrowspanでくくるのが案外面倒だった。方針として、
* あらかじめその月の該当エントリーをリストアップして、該当エントリー数を取得（rowspan=”N”に使う）
* 同時に、エントリーの内容もハッシュに保存しておく
* 最後に、一気に1ヶ月分のtableデータを出力
とすることで解決した。

こんなのを生成します

完成形のテンプレート










  
    
    
  

  
    
    
      
        
        
          （日）（土）（）
          " title="">
          
        
        
      
    
    
  




  
  
  (ないぉ）
  (ないぉ）
  

  
  
    
    ">
  
    
  
  
  






  
  

  

 zero_pad="2">



















月
日
イベント内容

解説：

処理本体部分：

実際の処理本体部分はこんな感じ。
繰り返し処理部分は2つのmt:SetVarTemplate でサブルーチン化しているので一見シンプル。
ちなみに、SetVarTemplateではそれぞれ↓こういう処理をしている（後述）。
* GetNextMonth: 翌月の年月を生成。翌月が年をまたぐ場合の処理。
* MonthlyEvent: 該当月のエントリー数のカウント, 該当エントリーをハッシュに保存していく処理。

ここで全体の初期値のセットを行っている。
after_today は”今日以降”のエントリーかを判定するフラグ。[MonthlyEvent]の中で、 mt:CalendarIfTodayがtrueになったら”1″にセットされて以降ずっと”1″のまま。
その後、↓tableの開始タグと、見だし行を出力。

これ以降、今月, 来月, さ来月のデータを出力（実処理はサブルーチン内で出力）

最後に、tableの終了タグを出力しておしまい。

月	日	イベント内容

サブルーチン mt:SetVarTemplate name=”GetNextMonth”

翌月の年月を生成。翌月が年をまたぐ場合の処理をしている部分。

前段で年をまたぐ場合の月送り処理をして、最後の行↓で、this_ym に”%Y%m”フォーマットのデータをセットしている。
mt:Calendar month=”$this_ym”で使えるフォーマット(YYYYMM)を得るためにわざわざ月と年にバラしてから月を+1して再び合体するということをしている。
月にzero_pad=”2″を指定している部分がキモ。ちと苦労した部分。


   zero_pad="2">

サブルーチン mt:SetVarTemplate name=”MonthlyEvent”

3つのパートに分かれている。最初はローカル変数の初期化みたいなことをしている部分。

2番目のパートではmt:Calendar month=”$this_ym” ブロックタグ内で、ここでは
* “今日以降”になったかどうかのフラグのセット。
* 今日以降なら指定月のエントリーをリストアップして、ハッシュに保存。
* 月のカウンター（monthly_cnt）により、（今日以降の）同月最大10件までのエントリーのみに限る部分の判定。
* このパートを回し終わるとその月のエントリー数が得られる（monthly_cnt）。
を行っている。













（日）（土）（）
" title="">

最後のパートで、1ヶ月分のtable要素を出力。
月のカラムをrowspanしたいために、2番目のパートであらかじめエントリー数（monthly_cnt）を数えておき、最後にまとめて出力処理する、ということになっている。

* ＜mt:Loop name=”tag_htmls” sort_by=”key”＞～＜/mt:Loop＞ブロック内で1行ずつ順に出力。
* ＜mt:If name=”__first__”＞で、その月の先頭行の場合は、＜tr＞＜td rowspan=”※エントリー数値をセット”＞をセットしている。
* ハッシュの値を出す部分は、＜MTVar name=”__value__”＞。
* なお、その月のエントリーが一つもない時は（ないぉ）と表示。





(ないぉ）
(ないぉ）





rowspan=">">

以上でっす。

7/12 追記

「今月10件以下なら・・・」の判定箇所が間違っていたので修正。mt:Entriesの外で判定すると、10件目近くで同日複数エントリーある場合に、10件を超えて表示されてしまう→ハッシュに保存する直前にmt:Ifを移動。

[Perlお勉強]繰り返し, reverse, 文字列の繰り返し(x演算子)

きつねのボタン — Sun, 04 Jul 2010 14:45:53 +0000

ぼちぼちとお勉強してます(-｡-)y-ﾟﾟﾟ

Perl言語プログラミングレッスン問題6-5 (p173)：
わりときれいに解けたので記念に貼っておく。

# 6行と16行の2パターンのクリスマスツリーを作る

use strict;
use warnings;

my @array = qw(* ! * % / * + - ! . * * % / * +);

for my $n(5,15) {
 foreach my $i(0..$n) {
   my @obverse = @array[0..$i];
   my @reverse = reverse(@obverse);
   print ' ' x ($n-$i), @obverse, @reverse[1..$i], "\n";
 }
}

[MT]今日以降の2ヶ月分のエントリー一覧を表示する

きつねのボタン — Tue, 29 Jun 2010 04:35:26 +0000

今日以降の2ヶ月分（今月と来月）のイベント情報を表示する、みたいなお題があって
ちょっとやってみた。なんかちょーダサダサなコードかもですがメモしておくー。

＜ポイント＞

年送りの処理：今月が12月なら翌月は1にリセットし、かつ年を+1する。
で月をYYYYMM形式で渡してあげる必要があるので、$this_ymは年＋月で算出し、
かつ月はMM形式になるようzeropad=”2″を使って０を補完する必要あり。単に翌月＝今月＋１ってやると文字列でなく数値と解釈される模様。







 


  


<$mt:CalendarDate format="%x"$>　<$mt:EntryTitle$>












今月
this_year：
this_month：
this_year_month: 













来月
this_year：
this_month：
this_year_month:

↓出力サンプル