2009年03月09日00:30 カテゴリLightweight LanguagesTips regexp - ^$でなくて\A\zを使おう まずは回答から。 正規表現で「制御文字以外」のチェック - ockeghem(徳丸浩)の日記 文字エンコーディングの妥当姓 制御文字(\x00〜\x1f, \x7f)のチェック 文字列長のチェック このうち後ろ二つを正規表現として書くにはどうすればいいかを考えていました。 こういう時には、「全文字がOKならOK」と考えるのではなく、「一文字でもNGならNG」と考えると楽になります。それは「スペースと非制御文字以外」なのですから、/[^ \S]/が求めていた正規表現で、=~ではなく!~が使うべき演算子ということになります。全角スペースもOKにしたければ、/[^ \x{3000}\S]/。[追記参照] [Run via Codepad] #!perl -

2006年10月16日07:30 カテゴリLightweight Languages perl/javascript - 関数内関数で仮引数を省略 そんなことありませんぞよ。 Structure and Interpretation of Computer Programs H. Abelson / G. Sussman / J. Sussman [邦訳:計算機プログラムの構造と解釈] IT戦記 - Perl で再帰呼出し時のスタック間データ共有 再帰呼び出しのスタック間でデータを共有する場合は、以下のように仮引数を使わなければならない。*1 以下のようにすればOK。もちろんdocument.allないしdocument.getElementsByTagName('*')を使えば再帰の必要もないのだけど例として手頃だったので。 function count_tags(node){ var

2008年02月04日07:00 カテゴリLightweight Languages λ Calculus - まずは遅延評価から うーん、まずY Combinatorというのはおじさんたちが悪かったかな。ギター習いたてでいきなりFの音を出すようなもんだから。 Haskell のリストと遅延評価が少し分かった - IT戦記 Y コンビネータって何？ - IT戦記 まずは、遅延評価についてきちんとおさらいしておこう。 慌てるな、ループは急に止まらない まずは、以下の式を考えてみる。 (function(a, b, c){ return a ? b : c; })(true, 1, 1+1); 実行してみると、1となるはずだ。しかしここで重要なのはこのことじゃない。後ろの1+1が実行されるかだ。このことはどうやって確認したらよいだろうか。以下のようにしてみればいいはずだ。 var ELSE =

2007年11月26日23:45 カテゴリLightweight Languages javascript - お伺い - Object.prototype.clone() JavaScriptでオブジェクトのディープコピーをどうやってやるのか、これといったものがないようなので作ってCodeReposにおいておきました。 /lang/javascript/clone/trunk/clone.js - CodeRepos::Share - Trac なぜこういうのが必要かというと、 var a = [0,1,2,3]; alert(a); // 0,1,2,3 var a2 = a; a2[4] = 4; // a2を変えると... alert(a2); // 0,1,2,3,4 -- aも変わってしまう! からです。参照でオブジェクトを実装しているものにはJavaScriptでなくてもこう

2007年11月27日02:00 カテゴリLightweight Languages javascript - Object.toSource() for non-FireFox! 404 Blog Not Found:javascript - お伺い - Object.prototype.clone()」でJKL.dumperを使ってみて、FirefoxのObject.toString()の挙動との不一致が気になったので、FireFoxでなくても使えるObject.toString()を作ってみました。 自分で言うのもなんですが、これは禿しく使えます。 とりあえず、SafariとOperaで動くところまで確認してあります。[追記:IE6 (Via CrossOver Mac 体験版)でも動きました! Mac IE 5だとさすがにNG]、FireFoxのようにすでにObject.toStr

2009年02月26日11:30 カテゴリLightweight Languages javascript - uneval() for the rest of us! うーん、それもそうなんだけど.... 最速インターフェース研究会 :: JavaScriptにおけるdeep clone まず、Object.prototypeにメソッドを生やしてしまうとfor inでキーを列挙するときにいちいちhasOwnPropertyを使わないといけなくなるので普通は使いません。 で、JSONにするのにFirefoxだとtoSourceというのが使える。unevalというラッパーがあって、これだとnullでも平気。 そのuneval()が他にないので、作ってみた。 初出2007.11.27; 追記2008.06.14, 2009.02.26 文字列のEscapeをFirefox互換に。あと、 /la

2007年03月11日03:30 カテゴリLightweight Languages perl - Inside-out Object ところが、そのないはずの隠蔽化を強制する仕組みがすでに発見されているのです。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] ビンゴ中西のほげほげ Kansai.pm第8回ミーティングに行ってきました@荷造り中そして、Perlのオブジェクト指向には 隠蔽化を強制する仕組みはない いつか書こうと思っていたけど、ちょうどいい機会なので。 ここでは例として、name,uriという二つのインスタンス変数を持つオブジェクトを実装してみます。 InsideOut.pm { package InsideOut; use strict; use warnings; my %objects; sub new { my

2008年03月27日03:00 カテゴリArtLightweight Languages 「同じコード」の同じって何さ - TAPのススメ 問題は、この「同じコード」の定義。 「誰が書いても同じコード」は大事なことなのか - ひがやすを blog でも、「誰が書いても同じコード」にするってのは、そもそも無理だと思うんだよね。そうやって、わざわざドキュメントをたくさん書かせても、めためたなコードを書くやつはいて、総合テストするときに、現場は燃え上がるもの。ある程度の規模以上のプロジェクトなら、どこでもそんな感じじゃないかと思います。同じ「書き方」をしなければならないのか? 結果が「同じ」ならいいのか? もし後者だとしたら、実は 重要なのは、「誰でもメンテナンスできるコード」にすること。そのために、コーディング規約は、きちんと決めてみんなで守る、それ以上は、がちがちに縛る必要はない。 すら必

2008年03月10日15:30 カテゴリLightweight Languages perl & javascript - nested list comprehension これをperlとjavascriptでやろうという試み。 Matzにっき(2008-03-03) - [言語] CS 11: Python track: python idioms List Comprehensionの解説で results = [(x, y) for x in range(10) for y in range(10) if x + y == 5 if x > y] という例題がある。そうか、forって複数指定できるんだ。Perl 基本的には 404 Blog Not Found:perl - 格子点を生成する関数の生成 同じ考えです。 http://codepad.org/mTJcx3Nb su

2008年01月10日07:00 カテゴリLightweight Languages一日一行野郎 bookmarklet - ページに含まれるURLを抽出してTSVにする IE専用というのが好かん。 CodeZine：Webページに含まれるURLを抽出し、Excelにまとめて保存する（HTA） というわけで、こんなのを。 Extract Links as TSV (prompt) Extract Links as TSV (window) ページ中のリンクを全てぶっこぬいてTSVにします。あとはこれをコピペしてExcelなりに貼付ければOK。 二つあるのは、ブラウザーによる挙動の違いから。例えばSafari3では下がうまく行かず(ウィンドウに何も表示されない)、Firefox2では上がうまく行きません(一行しかpromptに入らない)。OperaはどちらもOK(優秀!)。IEは未確認(報告

2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう！ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u

2007年10月30日20:00 カテゴリLightweight Languages perl - 勝手に添削 - 40行で作るPerl用テンプレートエンジン 久々の勝手に添削。今回はこちら。 40行で作るPerl用テンプレートエンジン 正規表現がらみなので、Perl以外でも有用。 添削箇所は、こちら。 40行で作るPerl用テンプレートエンジン sub convert { return unless defined(my $str = shift); $str =~ s{&amp;}{&amp;}gso; $str =~ s{<}{&lt;}gso; $str =~ s{>}{&gt;}gso; $str =~ s{\"}{&quot;}gso; $str; } これの最初のsubstitutionが&amp;ではなくて&ではないかというのはさておき、こういった場合、何度も正規表現をかけ

2007年08月17日01:15 カテゴリ翻訳/紹介Lightweight Languages 怠翻 - JavaScriptでありがちな9つのシマッタ 私自身結構シマッタしちゃうので。 Nine Javascript Gotchas 尻カンマ注意 以下のコードはFireFoxでは動きますが、Internet Explorer (以下IE)では問題になります。 var theObj = { city : "Boston", state : "MA", } 最後にカンマが入らないよう注意しましょう。 浮気なthisは何を見てるやら 以下のコードで、thisは何を指しているでしょうか。 <input type="button" value="Gotcha!" id="MyButton" > <script> var MyObject = function () { this.alertMess

小飼弾です。ご機嫌はいかがでしょうか。 今回はプログラマーの三大美徳の二番目、「短気」を取り上げます。 怠慢(Laziness) 短気(Impatience) 傲慢(Hubris) 前回の続きに入る前に、まずはLarry Wallによる定義の紹介から入ります。彼はImpatienceをこう定義しています IMPATIENCE The anger you feel when the computer is being lazy. This makes you write programs that don't just react to your needs, but actually anticipate them. Or at least that pretend to. Hence, the second great virtue of a programmer. 訳すとこんな感じしょ

2007年05月11日12:00 カテゴリLightweight Languages perl - telnetコマンドを自作する Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] ないものは自作してみるということで。 Vista は telnet コマンドが無効化されている ところが Cygwin から telnet コマンドが使えなくて焦った。 Cygwin の setup を確認したり PATH を確認したり。 コマンドプロンプトからも駄目。ざっとこんなところか。 ptelnet.pl #!/usr/local/bin/perl use strict; use warnings; use IO::Socket::INET; my $addr = shift || die "$0 host [port]

2007年05月18日03:30 カテゴリ ruby & perl - 軽量プロセスをthreadで代用 erlangで唯一萌える軽量プロセスですが、これはthreadでも比較的簡単に代用はできます。 Rubyist Magazine - Rubyist のための他言語探訪 【第 10 回】 Erlangで紹介されていたErlang Landのフィボナッチ数を非同期で計算する例は、rubyで書くとこんな感じになるでしょう。 thrfib.rb require 'thread' require 'Common' def worker(n, q) return Thread.new do q.push("fib(#{n}) = #{fib(n)}") end end def manager(n, q) Thread.new do n.times { puts q.shift } end end

2007年05月18日14:15 カテゴリLightweight Languages javascript - 関数をtraceする amachangのコメントを受けて追記 JavaScript: 関数の追跡 - 文系大学的IT系の悲哀からのTBを受けて追記 書き換えめんどいー。 IT戦記 - JavaScript の関数を「引数そのまま返す化」 alertだけ alert(hoge); hoge.method(); 改行めんどいー。 alert + そのまま返す化 alert.s(hoge).method(); // 1 ステートのまま Functionオブジェクトを拡張 というわけで、関数をtraceするmethodをFunction Objectに追加してみる。 まずは実例。 function add(x,y){ return x + y } add = add.trace('add

2007年04月24日18:00 カテゴリLightweight Languages perl - parser書くならgoto しかし、本当の本当の本番はこちらだったりする。 404 Blog Not Found:perl - POO と goto Perl 5のgotoは、仕組みを理解した上で使いどころを誤らなければかのごとく強力なのである。 前回の例では、それでも"One of many ways to do it"で、「知らなくても困らない」レベルのものであった。しかし、今回の例は、gotoがなければ本当にきつい。 以下の例を考えてみよう。 入力: (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) 出力: [['define',['fact','n'],['if',['=','n','1'],'1',['*','n',['f