これはなんというストップひばりくん！ 月刊らしいので次巻まではしばらくあるものの 楽しみにしておこう。 まごプログレッシブ：Part2～Scenes From A Memory～ 性別なんて関係ない。この葛藤こそが心地よい 『プラナスガール』（松本トモキ）1巻 平成の「…

というのが流行ってるとかなんとか ubuntsu使いの人が多い？ $ ls ~ Dropbox public_html デスクトップ 公開 文書 examples.desktop tmp 音楽 雛形 public usr 画像 動画

http://d.hatena.ne.jp/tokuhirom/20090824/1251132659 http://d.hatena.ne.jp/tokuhirom/20090826/1251271132 にひりずむ::しんぷる - args.pmがつかえそう perlの世界に革命を引き起こすであろうモジュールargの使い方！（大げさに書いてみる） perlで引数…

# cpan // YAML を先に入れた気がする install Module::Install $ perl Makefile.PL include /tmp/hato/p5-args/inc/Module/Install.pm String found where operator expected at Makefile.PL line 11, near "author_tests 'xt'" (Do you need to predeclare…

Perlの世界だとかなり画期的なはずなのに！ 今日はもうおねむなので明日試すhttp://d.hatena.ne.jp/tokuhirom/20090826/1251271132

なんとなく続編物にしてみたFile::Temp 5.006001 一時ファイルとか一時ディレクトリを用意してくれるモジュール。 ファイルに書き込みが完了してからコピーしたりとか tarアーカイブを展開する一時的なディレクトリとして 使ったりとか夢がひろがりんぐ？ と…

use CGI::Carp qw(fatalsToBrowser); お決まり文句

いきなり携帯から聞いたことのない音が鳴り出したと思ったら 地震速報だった。 何事もなくてよかったです。

my $query_str = (defined $ENV{'QUERY_STRING'})? $ENV{'QUERY_STRING'} : "" ; my %query; foreach my $line (split /\&/, $query_str) { # test=1&cmd=init&first=E&random=212 my ($key, $val) = split /\=/, $line; $query{$key} = $val; log_out("$key…

偶然発見！ あきおの日記

そういえば二年ぐらい前に挑戦して一度挫折したので再挑戦。 具体的には psql -l -U postgres をすると ”psql: FATAL: IDENT authentication failed for user "postgres"”となる件を解決してみる # cd /etc/postgresql/8.3/main // バックアップを取って # c…

# aptitude install postgresql # finger postgres # passwd postgres // パスワードを指定 # psql -l -U postgres // 通らない・・・ $ su postgres $ psql -l List of databases Name | Owner | Encoding -----------+----------+---------- postgres | po…

今更ながらデーターベースの選択を考える。 現在3つの候補があって ・SQLite ・MySQL ・Postgresql SQLiteはデーターベースがファイル単位なので 使いやすくて慣れてるつもりなんだが、どうにもフリーのサーバーでは PerlのDBD::SQLiteモジュールが入ってな…

はやー。 地デジチューナー「PT2」の予約受付開始、9月末発売予定 http://akiba-pc.watch.impress.co.jp/hotline/20090822/etc_earth.html

テストプログラムがもりもり残って面倒だったので 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 "$…