3+

2012-01-01から1年間の記事一覧

Gtk (perl) のメモ

perl Gtk

■ Gtk2::Window->new('type') 'type' は以下２つ 'toplevel' / 'GTK_WINDOW_TOPLEVEL' 'popup' / 'GTK_WINDOW_POPUP' 'type' を指定しない場合のデフォルト値は 'toplevel' 以下のコードは同じ。 my $window = Gtk2::Window->new; my $window = Gtk2::Window…

WEBで見つけたバグ

perl

すんごい古い記事だけどperl - 勝手に添削 - 40行で作るPerl用テンプレートエンジン my %escaped = ( '&' => 'amp', ' 'lt', '>' => 'gt', '"' => 'quot' ); sub escape { my $str = shift or return; $str =~ s{([&<>"])(?!amp;)}{'&' . $escaped{$1} . ';'…

iPod 欲しいです(・∀・)/

はてなブログ1周年おめでとう！ id:hatenablog

;(function(document){ var pres = document.getElementsByTagName("pre") for(var i=pres.length; i--; ){ 　var el = makeOl(pres[i]) pres[i].appendChild(el) } function makeOl(pre){ var ol = document.createElement("ol") , li = document.createElement("li") , df = document.createDocumentFragment() , br = pre.innerHTML.match(/\n/g) || 0 ol.className = "preLine" ol.setAttribute("role", "presentation") // no lang, no line-number if( pre.className && ! /lang-./.test(pre.className) ){ br.length += 1 } for(var i=br.length; i--; ){ var li2 = li.cloneNode(true) df.appendChild(li2) } ol.appendChild(df) return ol } })(document)