テストプログラムがもりもり残って面倒だったので tmp をシンボリックリンクで /tmp に引き出すようにしてみた。 そのうち勝手に消されるのでちょっと便利？ ※ubuntu は再起動でなくなってるみたい。 alias ls='ls --color=auto' alias grep='grep --color=a…

組み立て完了。

いろいろ触ってたら調子悪くなったのでメモ auto lo iface lo inet loopback iface eth0 inet dhcp auto eth0auto lo iface lo inet loopback auto eth0 #ifce eth0 inet dhcp iface eth0 inet static address 192.168.1.11 netmask 255.255.255.0 network 1…

cvsユーザーだったのだが、今回思い切ってsubversionにしてみたものの 変更履歴とか差分がうまく取れなくてどうしようかと思い悩んでいたが なんかWinMergeで行けるということなので導入してみた。WinMerge 日本語版 http://www.geocities.co.jp/SiliconVall…

清一、一盃口！ そしてまさかの大三元 あれ？なんで大きさが違うん？無料で遊べるフラッシュの麻雀ゲーム「麻雀 Flash」 http://www.gamedesign.jp/flash/mahjong/mahjong.html

自宅で使ってる椅子の脚の部分（転がすためのところ）が外れた。 構造的にネジを切ってあるだけなのでくりくりと回してくっつければ うまくいきそうなものなのだけれど、非常に堅い。 というかペンチ（スパナが無いので）で回しても1、2回転くらいしか回らな…

シェルのコマンド履歴から再利用、のいろいろ http://d.hatena.ne.jp/rx7/20090225/p1！＄はよく使うが！＊は知らなかったのでメモ $ mkdir /tmp/test $ cd !$ あれ？サンプルが思いつかない・・

のでちょいと修正 原因は maxVersion 3.0+ になってたのが更新で3.5.2で範囲外になってしまったから のようだ。ということで 4.0+ にして動作するのを確認。 ただブラウザからタイトル名とURLを取得するだけのツールで 簡単に作った割りに使えるのでgoogle c…

昨日コミットした平和の判定が間違っているようだ。 123 234 *** *** ** で2が上がり牌の時、123 のカンチャンではないので これは平和は成立しないといけない。 また 123 *** *** *** 11 で1が上がり牌の時、頭であがったわけではないので以下略。さらに **…

python -m SimpleHTTPServer でhttpサーバーが起動する。port 8000 python -m CGIHTTPServer でcgiが使えるようになる(cgi-bin/ディレクトリ以下で） $ mkdir /tmp/test/ $ cd !$ $ python -m CGIHTTPServer >>access_log.txt 2>&1 //ここでCtrl+z [1]+ Stop…

悩んだときは風呂に入るべきである！ ということで寝る前に書き殴っておく。 sub is_pinhu { # 面子以外にオタ風は何か、上がり牌は何かの情報が必要 my ($mentsu, ...) = @_; 順子 = である。 頭; 両面待ち=でない foreach my $line ( @$mentsu ) { my ($fi…

わかってたことだが役判定は結構なパターンがあるので チェックが必要かしら。Test::Moreなどを調べ中。 Test::More 真偽値、数値や文字列の比較を行う関数 - Perl入門〜サンプルコードによるPerl入門〜 http://d.hatena.ne.jp/perlcodesample/20090221/1234…

麻雀の作り方（あがり判定） http://www5f.biglobe.ne.jp/~kenmo/program/majang/agari/agari.html を元に役判定まわりを実装してみたが 111 222 333 345 55 の時、平和が判定しそこねるという問題を考え中。 （四暗刻を無視してロン上がりしたときの場合） …

m.pl - majan-perl - Project Hosting on Google Code http://code.google.com/p/majan-perl/source/browse/trunk/m.pl 11 -> 13 へ。ツモ切りする場合は $ perl m.pl sute E 14 g.pl - majan-perl - Project Hosting on Google Code http://code.google.com…

// '\' エスケープ #include <stdio.h> int main() { char str[256] = "ab\\c"; char* cp; char str2[256]; int i=0; for (cp=str; *cp != '\0'; cp++) { //printf("%c\n", *cp); if (*cp == '\\') { str2[i] = *cp; i++; str2[i] = '\\'; } else{ str2[i] = *cp; } i</stdio.h>…

local $\ = "\n"; my $a = "m2m3m3m4m4m5m5m5m5m6m6m6m6m7"; my %hash; foreach my $hai ( $a =~ /\w\d/g ) { if (exists $hash{$hai}) { $hash{$hai}++; } else{ $hash{$hai}=1; } } # 頭候補さがし my @heads; while (my($k, $v) = each %hash) { print "$…

USB-RH で温湿度を収集しグラフ化（collectd & rrdtool） - daily dayflower http://d.hatena.ne.jp/dayflower/20090723/1248331809 これはいいかも連休明けにでも注文しようかな

googole code - subversion 管理に入れてみた。 Source Checkout - majan-perl - Project Hosting on Google Code http://code.google.com/p/majan-perl/source/checkout本体 http://code.google.com/p/majan-perl/source/browse/trunk/m.plCGI用インターフ…

$ sudo aptitude install libsqlite3-ruby1.9 #!/usr/bin/ruby1.9 # -*- coding: utf-8 -*- require 'sqlite3' database = "data.db" # 一度消しとく File.unlink(database) db = SQLite3::Database.new(database) CREATE_TABLE=<

# aptitude search ruby すると1.8 と1.9 系が出てきた。 とりあえず新しい方がいいだろうと 1.9を入れる。 # aptitude install ruby1.9 cd /tmp/test $ cat aaa.rb # -*- coding: utf-8 -*- 3.times do puts "ほげほげ" end 3.times do puts "hoge" end $ r…

View of /slashjp/trunk/bin/install-slashsite - スラッシュドット・ジャパン - SourceForge.JP http://sourceforge.jp/projects/slashdotjp/svn/view/slashjp/trunk/bin/install-slashsite?view=markup&revision=838&root=slashdotjp (my $VERSION) = ' $R…

ログを書き出そうとしたのだが apache2/error.log に以下のが延々。。 [Sun Aug 09 22:07:20 2009] [error] [client 192.168.1.5] print() on closed filehandle $fh at /home/hato/public_html/bin/cgi-bin/interface.cgi line 87. cat1/perldiag.1 http://…

ちょっと目から鱗な書き方があったのでメモ 例えば "m1m2m3" という英字＋数字の文字列から各ひとつずつの組み合わせを リストに入れたいとする。 こんなかんじ @list = ('m1','m2','m3'); my $hoge = "m1m2m3"; push(@list, $hoge =~ /\w\d/g); print "@lis…

ハッシュの key=val をDBに保存して読み出すテスト。 このままだとsetconfigはupdateしか対応していないので 新規キーの追加するにはselectとかで一度調べる必要がある。 use DBI; use strict; use warnings; main(); sub setconfig { my ($dbh, %para) = @_…

[Perl] 秀丸エディタで関数一覧を出す たまには呪文をとなえてみるか：仕事版/ウェブリブログ http://cast-a-spell.at.webry.info/200711/article_4.html Perl-DBI/SELECT - yanor.net/wiki http://yanor.net/wiki/index.php?Perl-DBI%2FSELECT 生 DBI ユー…

BONKURA BLOG - [AS3.0]カスタムイベントの定義 http://blog.bonkura.jp/2008/10/as30-19.html AS3でカスタムイベント | Hextomino http://hextomino.tsukuba.ch/e17285.htmladdEventListenerしとけばどのクラスでも取れる・・・と。 // -- MyEvent.as // 省…

ActionScript3.0 | メモリの解放 (WakaZ 〜 interactive 3DCG and FLASH) http://wakaz.info/2008/12/actionscript30_1.html Flashのメモリを制する５つの秘訣.. | エントリー | _level0.KAYAC http://level0.kayac.com/2008/11/memory_leak.php とりあえず…

段々わけわからんようになってきたのでやり直し。 actionscript3のLoaderでloadした画像を複数表示させる方法 « 69log http://kazu69.net/blog/?p=362 Bitmap コピー【AS3】 « ike flash memo http://ikee.heteml.jp/blog/?p=38 flair4 blog - AS3.0 Bitmap…

#!/usr/bin/perl use strict; use warnings; print "Content-type: text/plain; charset=utf-8\n\n"; my $str = $ENV{"QUERY_STRING"}; print <<END_OF_TEXT; <xml> <EAST>m:7,m:7,s:4,s:5,s:5,s:6,s:6,s:7,p:1,p:8,p:9,j:2</EAST> <RANDOM>$str</RANDOM> <METHOD>$ENV{REQUEST_METHOD}</METHOD> </xml> END_OF_TEXT if ($E…

コード補完といえば、Ctrl+Space だと思うが 関数の補完とかはどうだろう知られてる or あたり前なのかな。 Delphiだと Ctrl(+Shiftもだったか？)+C のやつ。 FlashDevelop だと Ctrl+Shift+1 らしい。 具体的には 適当なクラスを作成して、↓の位置で押す。(…