changelogを書いているときに簡単に折り畳んでタイトルだけ並べられるように.vimrcいじった

vimrc changelog関連部分

autocmd BufRead *.chg setf changelog
autocmd FileType changelog set foldexpr=ChgLogFoldLevel(v:lnum) foldmethod=expr foldlevel=0
let g:changelog_username ="hassy"
function! ChgLogFoldLevel(lnum)
  let l1 = getline(a:lnum)  
  if l1 =~"^\\t\\*[^*]"
    return '>1'
  elseif l1 =~"^\\t"
    return 1
  else
    return 0
  endif
endfunction

これでだいぶ読みやすくなった

RubyのRSS::MakerでRSS1.0生成すると、content:encodedが自動的にhtml_escapeされてしまい、CDATAとして埋め込んでくれないので、モンキーパッチングしてみた。

rss_cdata.rb

require 'rss'

module RSS
  module BaseModel
    def install_cdata_element(tag_name, uri, occurs, name=nil, type=nil, disp_name=nil)
      name ||= tag_name
      disp_name ||= name
      self::ELEMENTS << name
      add_need_initialize_variable(name)
      install_model(tag_name, uri, occurs, name)

      def_corresponded_attr_writer name, type, disp_name
      convert_attr_reader name
      install_element(name) do |n, elem_name|
        <<-EOC
        if @#{n}
          rv = "\#{indent}<#{elem_name}>"
          value = "<![CDATA[" + eval("@#{n}") + "]]>"
          if need_convert
            rv << convert(value)
          else
            rv << value
          end
          rv << "</#{elem_name}>"
          rv
        else
          ''
        end
EOC
      end
    end
  end 
  
  module ContentModel
    def self.append_features(klass)
      super 
      
      klass.install_must_call_validator(CONTENT_PREFIX, CONTENT_URI)
      %w(encoded).each do |name|
        klass.install_cdata_element(name, CONTENT_URI, "?", "#{CONTENT_PREFIX}_#{name}")
      end
    end
  end 
  
  class RDF
    class Item; include ContentModel; end
  end
end

試してみる

require 'rss'
require './rss_cdata'
 
rss = RSS::Maker.make("1.0") do | maker |
  maker.channel.about = "http://hoge.fuga/index.rdf"
  maker.channel.title = "harahoro"
  maker.channel.description = "hirehare"
  maker.channel.link = "http://hoge.fuga/"
  item = maker.items.new_item
  item.link = "http://hoge.fuga/piyo.html"
  item.title = "aheaheuhiha"
  item.content_encoded = "<p>aheuhihaaa</p>"
  item.dc_date = Time.now()
end 
puts rss.to_s

結果

<?xml version="1.0" encoding="UTF-8"?>
<rdf:RDF xmlns:image="http://web.resource.org/rss/1.0/modules/image/"
  xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xmlns:content="http://purl.org/rss/1.0/modules/content/"
  xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/"
  xmlns="http://purl.org/rss/1.0/">
  <channel rdf:about="http://hoge.fuga/index.rdf">
    <title>harahoro</title>
    <link>http://hoge.fuga/</link>
    <description>hirehare</description>
    <items>
      <rdf:Seq>
        <rdf:li resource="http://hoge.fuga/piyo.html"/>
      </rdf:Seq>
    </items>
    <taxo:topics>
      <rdf:Bag/>
    </taxo:topics>
  </channel>
  <item rdf:about="http://hoge.fuga/piyo.html">
    <title>aheaheuhiha</title>
    <link>http://hoge.fuga/piyo.html</link>
    <content:encoded><![CDATA[<p>aheuhihaaa</p>]]></content:encoded>
    <dc:date>2009-12-02T13:14:24+09:00</dc:date>
    <taxo:topics>
      <rdf:Bag/>
    </taxo:topics>
    <content:encoded><![CDATA[<p>aheuhihaaa</p>]]></content:encoded>
  </item>
</rdf:RDF>

どうよ。

以下を".vimrc"に追記

map ,t <ESC>:tabnew<CR>
map ,h <ESC>:tabp<CR>
map ,l <ESC>:tabn<CR>

これで、タブ移動、タブ作成が楽になる

いろいろな処理をするファイルをプラグインとして適当なディレクトリに入れておくと、それらをロードしてオブジェクト化するやりかた。

バッチ処理とかでカスタムな方法をインプリしたいときとかに使えるかと思う。

plugin_loader.rb

class PluginLoader
  attr_reader :plugins
  def initialize(plugin_base, extension = 'rb')
    @plugin_base = plugin_base
    @plugins = []
    Dir.glob(@plugin_base + "*.#{extension}").each do |p|
      require p
      @plugins << Object.const_get(to_classname(p)).new
    end
  end
  private
  def to_classname(str)
    str.sub(/^#{@plugin_base}/){""}.sub(/\.rb$/){""}.gsub(/\/(.?)/) { "::" + $1.upcase }.gsub(/(^|_)(.)/) { $2.upcase }
  end
end

使い方はこんな感じ(あらかじめpluginsディレクトリにxxxx.rbファイルを作っておく)

test.rb

require './plugin_loader' 

pl = PluginLoader.new(File.dirname(__FILE__) + "/plugins/")
pl.plugins.each do | p |
  p.run
end

Rubyで動的に関数定義3

で書いた方法をつかって、PerlのTest::Baseっぽいのを書いてみる。

(Ruby Test::Baseってのがすでにあるみたいだけどね。)

まずは、test_base.rb

require 'test/unit' 
class TestBase < Test::Unit::TestCase
  @@test_template = {}
  def run(*args)
    return if@method_name.to_s == "default_test"
    super
  end
  def self.start_test
    self.parse if(@@test_template.empty?)
    self.generate_tests 
  end
  private
  def self.parse
    test_name = ""
    buf = ""
    buf_mode = ""
    while line = DATA.gets do 
      line.chomp!
      if(line =~ /^(===|---)/)
        if(buf != "" && test_name != "" && buf_mode != "")
          @@test_template[test_name][buf_mode] = eval(buf)
          buf = ""
        end
        if(line =~ /^=== (.*)$/)
          test_name = $1
          @@test_template[test_name] = {}
        elsif(line =~ /--- input (.*)$/)
          @@test_template[test_name][:method_name] = $1
          buf_mode = :input
        elsif(line = ~/--- expected/)
          buf_mode= :expected
        end
      else
        buf += line
      end
    end
    if(buf != "" && test_name != "" && buf_mode != "")
      @@test_template[test_name][buf_mode] = eval(buf)
      buf = ""
    end
  end
  def self.generate_tests
    @@test_template.each do |test_name,test_args|
      define_method(test_name) do
        result=__send__(test_args[:method_name],test_args[:input])
        assert_equal test_args[:expected], result, " error on #{test_name}"
      end
    end 
  end
end

DATAの処理のところが、ちょっと(かなり？)スパゲッティーだけど、generate_testsの所でテスト用の関数をDATA内容に合わせて作成してる。

Test::Unit::TestCaseのrunメソッドで"default_test"を無視するようにして、TestCaseがテスト未定義時に勝手にdefault_testを実行するのを防いでる。(この部分を抜くとどうなるか試せば言ってる意味がわかるはず)

実際のテストのほうは、こんな感じで書く。

require './test_base'
require './testee' 

class TestBaseTest < TestBase
  def setup #setupとかは通常のTestCaseと同じ
    @testee = Testee.new
  end
  def login_test(login_name) # DATAを利用するテストはtest_以外のメソッド名
    @testee.login(login_name)
    @testee.who_am_i?
  end
  def test_without_data # DATAを使わないテストはtest_で始まるメソッド名
    true
  end
end
TestBaseTest.start_test #最後にstart_testでテストを生成しておく
__END__ #ここからテストに渡すパラメータ
=== test_should_login_by_hoge
--- input login_test #inputの後ろに利用するメソッド名
:hoge
--- expected
:hoge
=== test_should_login_by_fuga
--- input login_test
:fuga
--- expected
:fuga

inputの後ろのメソッド名が一個しかかけなかったり、フィルタとか便利なものがなかったり、"ruby Test::Base"よりかなりはしょってるけど、1ファイルで出来てるのでその辺はしょうがないと割り切る。

じゃあの。

先週の金曜日マジカジャパンの羽生社長と飲み会があった。

有名人との飲み会は初めてなのでちょっと緊張したけど、アルコールと羽生さんの毒舌っぷり(?)のせいで最終的にはべろんべろんの飲み会になってしまった。

飲みながら書いたメモ(いわゆる腰リールなんだけど、リールが壊れたのでただのメモ帳。。)を発表してみます。

• 本質と製品のGAPの部分に自分の価値がある
  • 要は製品だけで売れるなら自分の価値は無いんじゃないのとかそういうこと
• ソリューションから離れる
  • 「売りたい」から「買いたいと思わせる」への変換みたいなことだったかなぁ。
  • ソリューションは一旦おいておいて、顧客の課題や要望が大事でしょうということ。
• Recordingで気付くことの重要性
  • PDCAの前にCheck(Recording & Review)するほうが大事じゃね？みたいな。
• 価値がわかるレベルまで人を育てることが必要
  • 何がすごいかはある程度勉強した人じゃないとわからない
• クラスターの大きさ知ってる？
  • はてブ、技術書、ビジネス啓蒙書みたいなのを買う人って実は決まった人たちで、クラスターは小さい

もっといろいろ話したけど、書いちゃいけないこともありそうなので、この辺で。

いやぁ、いい刺激になった。

強化学習によって学習させたニューラルネットワークを使ったハムレット(４目並べ）ゲームを作った。

だいぶ前からニューラルネットワークとか人工知能とかに興味があったんだけど、なかなかプログラミングする暇がなくてほったらかしにしてた。

そのうち、内容を解説していくつもり。

今回は、そのさわりの部分。

アーキテクチャ

アーキテクチャは、ざっくりこんな感じ。

                   +-----------------+
         +-------->lRL Agent         |
         |         |                 |
         |   +---->|[Value Function] |
         |   |     +-------------+---+
         |   |                   |
   State |   | Reward            | Action
         |   |                   |
         |   |   +-----------+   |
         |   +---|Environment|<--+
         |       |           |
         +-------|           |
                 +-----------+

• RL Agent: 強化学習エージェント(今回の場合プレイヤー)
• Value Function: 各State(ボードの状態)の価値を算出する関数
• Environment: 環境(今回の場合ゲームボード)

実際の動き

動きとしては、

• RL Agent(プレイヤー)が、現在のState(盤面)を取得する: Environment --> RL Agent
• RL Agentが、最も価値の高い次のStateを自分の価値関数(Value Function)から調べる: RL Agent --> Value Function
• 上記のStateに移行するためのActionをEnvironment(環境)になげる。: RL Agent --> Environment
• 環境からのReward(報酬)をえる。: Environment --> RL Agent
• 報酬を元に価値関数をアップデートする。: RL Agent --> Value Function
  V(s)<-V(s) + α[reward + γV(s')-V(s)] :TD(0)方式

言葉にすると、現在のStateの価値は、次のステートの価値+rewardに近づくように学習されるということ

で、RL Agentが持つ価値関数[Value Function]の部分はどのような関数になるのかは未知であるので、ニューラルネットワークでState -> Valueの対応付けを学習させることにした。

今回のサイトに関して

• 10万回以上のRL Agent同士のゲームにより学習させたニューラルネットワークを用いています。
• 学習部分は割愛しています。(もともと学習部分はjavaでデスクトップように作っていたので。。そのうちperlに移植して学習機能付きにします)
• ニューラルネットワークの重みデータ + 百行程度のperl + javascript(GUIとか用)で出来ています。
• 同ディレクトリのhamlett.cgiに以下のデータをつけることによりjsonpデータが返ります。
  • board=0_0_1_2_.... #ボードの盤面。1(先攻player)、2(後攻)、盤面(左下から左上、左から右に順次"_"で区切って並べたもの)
  • player=1 or 2 # 自分(1=先攻、2=後攻)
  • callback=xxxx #jsonpのcallback関数

参考書籍:

こまった。xslt内でawsのクエリーをつなげるということをしていたのだが、今回の認証系の変更により全滅。

xslt内でHMAC-SHAの変換って出来んのかなぁ？

まいった

Perlでバイナリファイルをいじる場合にいろいろと同じ問題に遭遇するので、忘れないようにメモ。

バイナリファイルの読み込み

読み込む場合に"getc"使うと、ファイルが終わってないのに終了してしまうことがある。

正しくは"read"を使う。

my $filename = $ARGV[0];
open my $file,'<',$filename or die;
binmode $file; 
my $val;
while(read($file, $val, 1)){
}

これで1byteづつ処理できる。実際はバイナリの構造にあわせてreadするバイト数を変える。

読んだバイナリの処理

バイナリを数値として処理するためには、その構造にあわせてunpackする。

unpack("C",$val); #unsigned byte
unpack("S",$val); #unsigned short
unpack("L",$val); #unsigned long
unpack("c",$val); #signed byte
unpack("s",$val); #signed short
unpack("l",$val); #signed long

bit処理の場合は、いろいろ問題がある。

ビット反転"~"は、ビット長にあわせてpackしてから処理する。

~pack("c",$i); # $iは数値。一旦byteにしてからビット反転

ビットの"&(and),|(or),^(xor)"は、両方同じビット長にする。

もしくはunpackしてから処理する(unpackしても同じビット長(環境依存)になるからね)

pack("s",$j) ^ pack("s",$i); # $i,jは数値。両方shortにしている
unpack("s",$val) ^ $i; # $valは読んだバイナリ,$iは数値。

ビットシフト"<<", ">>"は、数値化(unpack)してからじゃないと動かない。。。(何故？)

unpack("S",$i) << 1

と、いうことで、実は「ビット反転」以外はunpackして処理する。ということ。

例として、μ-lawとPCMの変換(なんのこっちゃ？という人はwavファイルの勉強を。。)

my $mantissa = unpack("C",~$val); #$valが読み込んだバイナリ
my $sign = (unpack("C",$val) < (0x0080))? -1:1;
my $exponent = ($mantissa >> 4) & (0x0007);
my $segment = $exponent + 1;
$mantissa = $mantissa & (0x000F);
my $step = (0x0004) << $segment;
my $g191_value = pack("S",$sign * (((0x0080) << $exponent) + $step*$mantissa + $step/2 - 4*33));
#最後に"S"でpackしてunsigned shortに

バイナリの書き出し

書き出したい構造にあわせてpackしてやる。

wavファイルのヘッダとかだとこうなる。

my $form = "";
$form .= "RIFF";
$form .= pack("L",$size + 36); #data size + headersize(-8) 
$form .= "WAVE";
$form .= "fmt ";
$form .= pack("L",16); #fmt chunk size
$form .= pack("S",1); # pcm
$form .= pack("S",1); # mono
$form .= pack("L",8000); # 8k sampling
$form .= pack("L",16000); # Byte/sec = sampling * 2byte(16bit 量子化) * 1(mono)
$form .= pack("S",2); # Byte/sample(8bit量子化) * channel(mono)
$form .= pack("S",16); # 8bit量子化
$form .= "data";
$form .= pack("L",$size); #data size

おまけ

signedとunsignedを変換するにはpackしてunpackというややこしい方法が必要。

my $i = -100;
my $unsigned_value = unpack("C",pack("c",$i));

wav関連でもぞもぞしてるのバレバレですね。

ルータの冗長化の方式としてVRRPとHSRP(Cisco only)がある。

これは、通常「マスター側ルータ」がarp応答するのに対し、マスターダウン時には「スタンバイ側ルータ」がarp応答するようになって対応するというもの。

で、これにNATを組み合わせて下図のように組もうとすると、問題が起こった。

+-----------+     +-----+    192.168.1.251 +-------+ 192.168.10.251
|my server  |-----|L2 SW|------------------|Master |-----
|192.168.1.1|     |     | Virtual Router   +-------+ 
+-----------+     |     | (192.168.1.254)
                  |     |                  +-------+
                  |     |------------------|Standby|-----
                  +-----+    192.168.1.250 +-------+ 192.168.10.250
 
        	                            NAT変換:
                                  192.168.1.1 <=> 192.168.10.1

VRRPの場合の設定(f0が外側)

Router1(config)# track 1 interface f0 line-protocol
Router1(config)# int f1
Router1(config-if)#vrrp 1 ip 192.168.1.254
Router1(config-if)#vrrp 1 priority 150
Router1(config-if)#vrrp 1 track 1 decrement 100
Router1(config-if)#ip nat inside
Router1(config)# int f0
Router1(config-if)#ip nat outside
 
Router2(config)# int f1
Router2(config-if)#vrrp 1 ip 192.168.1.254
Router2(config-if)#ip nat inside
Router2(config)# int f0
Router2(config-if)#ip nat outside
 
Router1/2共通(config)# ip nat inside source static 192.168.1.1 192.168.10.1

問題は、Standby側のルータがNAT設定したIPのarpに応答してしまい、duplicate addressとなってしまう問題。

HSRPでは、NATのredundancyオプションを利用して回避できる。(NATのredundancyオプションにstandbyで設定した名前を指定する)

HSRPの場合の設定(f0が外側)

Router1(config)# track 1 interface f0 line-protocol
Router1(config)# int f1
Router1(config-if)#standby 1 ip 192.168.1.254
Router1(config-if)#standby 1 priority 150
Router1(config-if)#standby 1 track 1 decrement 100
Router1(config-if)#standby 1 preempt
Router1(config-if)#standby 1 name hsrp1
Router1(config-if)#ip nat inside
Router1(config)# int f0
Router1(config-if)#ip nat outside
 
Router2(config)# int f1
Router2(config-if)#standby 1 ip 192.168.1.254
Router2(config-if)#standby 1 preempt
Router2(config-if)#standby 1 name hsrp1
Router2(config-if)#ip nat inside
Router2(config)# int f0
Router2(config-if)#ip nat outside
 
Router1/2共通(config)# ip nat inside source static 192.168.1.1 192.168.10.1 redundancy hsrp1

VRRPでも、descriptionを設定してredundancyやればできるはずなんだけど、できなかった。

久々のネットワークねたでした。

drivendevelopment.jp を driven-development.jpに変えた。

また、検索にひっかからなくなるな。

あと、コメント欄(はてなブックマーク)も空になっちゃう。

追記 ～～～

ドメイン元に戻した。

理由: ハイフンないのが流行みたい。

Railsである特定のmodelの検索(find)時に必ずsortをかけたいというような場合には、modelのfindをカスタマイズするのが便利。

class Hoge < ActiveRecord::Base
  class << self
    alias_method :find_org, :find
    def find(*params)
      options = {:order => "fuga desc"}
      options.update(params.last.is_a?(::Hash)? params.pop : {})
      find_org(*params.push(options))
    end
  end
end

もとのfind(find_org)を呼び出すときに、paramsを'*'でもとに戻すの忘れてえらい目にあった。

railsで使えるidiomを見つけた。

rubyで、あるメソッドの呼び出しが以下のようになっている場合、

hoge(:param, :option1 => true , :option2 => false)

以下のやり方でオプション部分だけを取り出せる

def hoge(*prams)
  options = params.last.is_a?(::Hash)? params.pop : {}
  pp options
  pp params
end

参考:

ActiveSupport::CoreExtensions::Array::ExtractOptions#extract_options!

ActiveRecord::Errors関係をいろいろいじりたいと思って、まずは、ActiveRecord::Validationをかじってみた。

Validationの流れの参考にでもなれば。

• ActiveRecord::Baseが、Module ActiveRecord::Validationsをinclude
• ActiveRecord::Validationsでは、
  • validate, validate_on_create, validate_on_updateのそれぞれのメソッドを定義。
  • これらのメソッド呼び出しにより、個々のvalidatorをCallbackChainに登録できる
    (validate do |record| true;end とやると validate_callback_chainにこのブロックが登録される。)
• これらのメソッドを利用して
  validates_each, validates_confirmation_of, vaidates_acceptance_of, vaidates_presence_of, validates_length_ofをCallbackChainに登録
• :save_with_validation :save_with_validation! を定義
  valid?メソッド経由でcallbackchainを順番に呼び出し
• alias_method_chainによるsaveのリプレース
  • alias_method_chain :save, :validation
  • alias_method_chain :save!, :validation
    これにより
    save => save_with_validation, save! => save_with_validation!
    オリジナルのsave/save!は、
    :save_without_validation , :save_without_validation!
    にalias

最終的に、save/save!を契機にvalidation関連が呼ばれる。

だいたいそんな感じっぽい

参考:

• validations.rb
  • ActiveRecord::Validations
  • ActiveRecord::Errors
• callbacks.rb
  • ActiveSupport::Callbacks

またでたよ。IE。

jasonpとかでスクリプトを読み込んで実行するときに、最初のkicker(loader?)的なスクリプトを書く場所によってエラーが発生する。

「インターネットサイトxxxを開けません。操作は中断されました」というエラーウィンドウがでて、サイトは表示されない状態となる。

例:

kicker.js

function kicker(){
  var script = document.createElement("script");
  script.setAttribute("type","text/javascript");
  script.setAttribute("src","./callee.js");
  document.body.appendChild(script);
  return true;
}

scriptタグを作ってcallee.jsを読み込むだけ。

callee.js

function callee(){
  document.getElementById("hogefuga").appendChild(document.createTextNode("hogefuga"));
  return true;
} 
callee();

テキストノードを埋め込むだけ。最後に自分を呼んでいる。

buggy.html(動かないケース)

<html>
  <head>
    <script type="text/javascript" src="./kicker.js" charset="utf-8" ></script>
  </head>
  <body>
    <div>
      <div id="hogefuga"></div><!-- ここにテキストノードが書き加わる -->
      <script>
      <!--
        kicker();
      //-->
      </script>
    </div>
  </body>
</html>

問題は、scriptタグがdivに囲まれていることらしい。

下記のように変更すると動く

:
<div>
  <div id="hogefuga"></div>
</div>
<script>
<!--
  kicker();
//-->
</script>
:

でも、いつもいつも外側に書けるわけでもないよね？

そういう時はeventListenerだそうだ。

if(window.addEventListener){
  window.addEventListener("load",kicker, false);
}else{
  window.attachEvent("onload",kicker);
}

もう、いい加減面倒くさいよ。

参考: http://yusuke.homeip.net/diary/2006/03/12/1142155862799.html

ちなみに、何を作っていて気付いたかというと、このブログの「コメント」欄。

といっても、「はてなブックマーク」をコメント欄代わりに表示しているだけ。

今読んでる。

ところどころややこしい言い回し（日本語のせい？)があるものの、じっくり読めば筆者の言おうとしている「伝わるコーディング」がわかってくる。

Javaならではの問題も多いけど、思想的にはプログラマーは知っていて損はなと思う。

スクリプト言語やってるとすぐにハッシュで引数とか渡しがちだけど、筆者の言うように、それにより伝わりにくいコードになるのは確かだ。

でも、それをやらないと面倒くさいコーディングが増えるのも確かだ。

そのあたりのビミョーなところも読みながら自分なりに結論を出すのだろう。。。

javascriptによる簡易regexでは対応できないケースがでてしまったので、いろいろ参考にしつつruby版を作った。

require 'resolv'
require 'pp'

class MailAddressValidator
  def self.validate(address)
    return validate_by_regex(address) && validate_by_MX(address)
  end
  def self.validate_by_regex(address)
    addr_spec = %r{^(?:(?:(?:(?:[a-zA-Z0-9_!#\$\%&'*+/=?\^`{}~|\-]+)(?:\.(?:[a-zA-Z0-9_!#\$\%&'*+/=?\^`{}~|\-]+))*)|(?:"(?:\\[^\r\n]|[^\\"])*")))\@(?:(?:(?:(?:[a-zA-Z0-9_!#\$\%&'*+/=?\^`{}~|\-]+)(?:\.(?:[a-zA-Z0-9_!#\$\%&'*+/=?\^`{}~|\-]+))*)|(?:\[(?:\\\S|[\x21-\x5a\x5e-\x7e])*\])))$}
    address =~addr_spec
  end
  def self.validate_by_MX(address)
      mxdomain = address[/[^@]+$/]
      Resolv::DNS.new.getresource(mxdomain,Resolv::DNS::Resource::IN::MX) rescue nil
  end
  private_class_method :validate_by_regex, :validate_by_MX
end

使うときはこんな感じ

require File.dirname(__FILE__) + '/mail_address_validator'
print (MailAddressValidator.validate('hogefuga@hogefugadennnenn.naiyo')) 'ok':'ng' #=> ng

これをつかって、同期Ajaxでチェックしてる。

日本語が変だな。。。要は javascriptでxmlhttprequest.open('GET',"xxxxxx", false)という形で同期的にチェックしてる。

参考:

http://blog.livedoor.jp/dankogai/archives/51189905.html

http://www.ruby-lang.org/ja/man/html/resolv.html

追記 2009-04-13:

spellミスを直しました。id:Uchimataさんありがとうございます。

はてなブックマークがはじめてコメント欄として機能した記念すべき日です。

Railsを使わないで、rubyからActionMailerでメールを送信したくなったので、やり方のメモ。

ActionMailerは、gemでインストール済みと仮定。

Sakuraレンタルサーバ(さくら)の場合、"POP before SMTP"なので、送信前にpop認証が必要となります。

require 'rubygems'
require 'action_mailer'
require 'net/pop'

class MyMailer < ActionMailer::Base
  alias_method :base_perform_delivery_smtp, :perform_delivery_smtp
  @@pop3_auth_done = nil
  def self.setup_for_sakura
    self.delivery_method = :smtp
    self.smtp_settings = {
      :address => 'xxx.sakura.ne.jp',
      :port => 587,
      :domain => 'xxx.sakura.ne.jp',
      :pop3_auth => {
        :server => 'xxx.sakura.ne.jp',
        :user_name => 'hoge@xxx.sakura.ne.jp',
        :password => 'passw0rd',
        :expires => 1.hour,
        :authentication => :login
      }
    } 
    self.template_root = File.dirname(__FILE__) + "/templates"
    self.perform_deliveries = true
  end
  def mail_contents(user,contents)
    from "hoge <hoge@xxx.sakura.ne.jp>"
    recipients "#{user} <#{user}>"
    subject "日本語タイトルほげふが"
    body :user => user, :contents => contents
  end
  private
  def perform_delivery_smtp(mail)
    do_pop_auth if !@@pop3_auth_done or (Time.now - smtp_settings[:pop3_auth][:expires]) >= @@pop3_auth_done
    base_perform_delivery_smtp(mail)
  end
  def do_pop_auth
    pop = Net::POP3.new(smtp_settings[:pop3_auth][:server])
    pop.start(smtp_settings[:pop3_auth][:user_name], smtp_settings[:pop3_auth][:password])
    @@pop3_auth_done = Time.now
    pop.finish
  end
end 

で、./templates/my_mailer/mail_contents.erbに、テンプレートを適当に作成。

<%= @user %> 様
<%= @contents[:hello] %>ですねん。
ほな

これを利用する側はこんな感じ。

require 'rubygems'
require File.dirname(__FILE__) + "/my_mailer"
MyMailer.setup_for_sakura
MyMailer.deliver_mail_report('user@hogefuga.com', {:hello => "こんにちは"})

rubygemsへのパスが通ってない場合は、$LOAD_PATH.push("パス"), ENV['GEM_HOME'] = "パス"、でライブラリ及びGEM_HOMEのパスを通しておきましょう。

参考: http://railsforum.com/viewtopic.php?pid=47672

またしてもIE。

ラジオボタンを動的に生成する場合、デフォルトとか以前の結果とかをチェックした状態で表示するために

var myRadio = document.createElement('input'); 
myRadio.type = 'radio';
myRadio.value = 'hoge';
myRadio.checked = true;

とかやるじゃないですか。

IEの場合、これではチェックが付かない。

ドキュメントにappendした後に変更する必要があるんだって。

いい加減にしてくれよIE

javascriptでformをname属性でアクセスする手法は良く使う。

var abc = document.formname.hoge.value;

これを、動的に生成させたformで行おうと思った場合、IEで問題が起こる。

var myNode = document.getElementById('fuga');
var myForm = document.createElement('form');
myForm.name = 'formname';
var myInput = document.createElement('input'); 
myInput.name = 'hoge'; 
myInput.type = 'text';
myInput.size = "40";
myForm.appendChild(myInput);
myNode.appendChild(myForm);

dom生成時に.nameでname属性を変更しているにもかかわらず、IEでは独自のIDがつけられてしまい、上記のname属性を利用したアクセス方法ではアクセスできないのだ！

有り得ないよ。

そこで、こんなユーティリティ関数が必要になる。

function createNamedElement(tag,name){
  var isIE =/*@cc_on!@*/false;
  var element;
  if (name) {
    element = (isIE)? document.createElement('<' + tag + ' name="' + name + '">'): document.createElement(tag);
    element.name = name;
  } else {
    element = document.createElement(tag);
  } 
  return element;
}

IE恐るべし。

ちなみに'cc_on'の所は、IEの判定で良く使われる方法(らしい)。

この記事のタグ名'bug_or_spec'のネーミングセンスの良さに自画自賛

以下の方法では動かない。

package hoge; 
sub new{
  my $class=shift;
  my $self={'msg2' => 'harahoro','hoge' => \&hoge};
  bless $self,$class;
  return $self;
} 
sub fuga{
  my $self=shift;
  my $msg =shift;
  my $classname=ref $self;
  print "from $classname : hello! $msg\n"; 
} 
sub hoge{
  my $self=shift;
  my $msg = shift;
  print "I am calling fuga\n";
  $self->fuga("hoge : $msg and ". $self->{"msg2"});
} 
1;
package main; 
my $moga=hoge->new;
$moga->{'hoge'}->('self hash'); 

当然、以下も動かない。

package hoge; 
sub new{
  my $class=shift;
  my $self={'msg2' => 'harahoro'};
  bless $self,$class;
  $self->init;
  return $self;
} 
sub init{
  my $self=shift;
  $self->{"hoge"} = \&hoge;
} 
sub fuga{
  my $self=shift;
  my $msg =shift;
  my $classname=ref $self;
  print "from $classname : hello! $msg\n"; 
} 
sub hoge{
  my $self=shift;
  my $msg = shift;
  print "I am calling fuga\n";
  $self->fuga("hoge : $msg and ". $self->{"msg2"});
} 
1;
package main; 
  my $moga=hoge->new;
  $moga->{'hoge'}->('self hash'); 

以下の２点が問題

• $self->funcのリファレンス取得方法がない
• \&funcとするとinvocantが渡らない

なので、以下のような解決方法になる。

package hoge;
sub new{
  my $class=shift;
  my $self={'msg2' => 'harahoro'};
  bless $self,$class;
  $self->init;
  return $self;
} 
sub init{
  my $self=shift;
  $self->{"hoge"} = $self->hoge_invocant;
} 
sub fuga{
  my $self=shift;
  my $msg =shift;
  my $classname=ref $self;
  print "from $classname : hello! $msg\n"; 
} 
sub hoge_invocant{
  my $invocant=shift;
  return sub {  hoge($invocant, @_);};
} 
sub hoge{
  my $self=shift;
  my $msg = shift;
  print "I am calling fuga\n";
  $self->fuga("hoge : $msg and ". $self->{"msg2"});
} 
1;
package main; 
my $moga=hoge->new; 
$moga->{'hoge'}->('self hash');

hoge_invocantが

「invocantをレキシカルクロージャとして保持しhogeをinvocantつきで呼び出す無名関数」

を返す。

ここで無名関数を使うべきだということに気付いた。

sub init{
  my $self=shift;
  $self->{"hoge"} = sub {hoge($self, @_);};
}

追記～～

本屋で↑を立ち読みしたら(買え！　＞＞ 俺) 載ってた。

同じ結論になってたようなので、買わなくてもいいってことか？

～～追記終わり

こんなのをlibに入れて利用してる。

module YamlFixture
def record_to_yaml_fixture(rec_class_name)
  eval(rec_class_name).find(:all).inject({}){|h, v| h.merge(v.attributes["id"] => v.attributes)}.to_yaml
  end
end

to_jsonのときはattributesを取り出してjson化してる。

to_yamlのときはオブジェクトそのものをyaml化してる。

なので、

@items.to_json

と

@items.attributes.to_yaml

が等価

ということかな。

Perlは、内部的に改行をLFとして扱い、入力時・出力時に環境に合わせたコードで出力する。

なので、Windows上のperl (Strawberry perl使用)で、以下のようにすると

perl -e 'print "\x0a";'

出力に 0x0d0a (CR+LF)がでてしまう。

Windows環境でもLFで出したい時もある。

そのときは、こうしなければならないみたい。

>||

perl -e 'binmode STDOUT; print "\x0a";'

||<

$/とか$\とかいろいろいじったけど、できなかった。

Rubyってハッシュスライスがないんだよね。

Perlで簡単に

@hash{@fields}=@values;

とかできることができない。。

かなりつらいんですけど。。

hashの一部をupdateする場合のやり方はこんな感じらしい。

hash.update(Hash[*keys.zip(vals).flatten])

%APPDATA%\Subversion\serversにある。

XP/2000だと、

c:\Document and Settings\ユーザ名\Application Data\Subversion\servers

Vistaだと、

c:\Users\ユーザ名\AppData\Roaming\Subversion\servers

このファイルで

[global]
http-proxy-host=xxxxx.xxx.xxx
http-proxy-port=8080

とか設定する

英語キーボードで日本語入力するときいちいち

左Alt + ~ (チルダ)

とかめんどくさいので、変更した。(AXキーボードのドライバを使うパターンで)

• (会社のPCの設定をそのままもってきた。Webで調べたらみんなそうしてるみたい。)

regedit

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters 
LayerDriver JPN : REG_SZ : kbdax2.dll
OverrideKeyboardIdentifier: REG_SZ : AX_105KEY
OverrideKeyboardSubtype: REG_DWORD : 0x00000001 (1)
OverrideKeyboardType: REG_DWORD : 0x00000007 (7)

あと、CAPS -> Ctrlへの変換も忘れないように書いておく

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Keyboard Layout
Scancode Map : REG_BINARY
0000  00 00 00 00 00 00 00 00
0008  02 00 00 00 1D 00 3A 00
0010  00 00 00 00 

今のCtrlはCtrlのまま変更しない

PC買ったら必ずやる。