Entries from 2009-04-01 to 1 month

DebugHacks&Tシャツ欲しい!!

DebugHacks&Tシャツ欲しい!!! 豚さん、豚さん。 http://d.hatena.ne.jp/hyoshiok/20090430#p1

Google App Engine でカウンターを作ってみた

↑試作品なので消える可能性あり こちらで動かしています。 http://sugi1982.appspot.com/ どちらも共通、リロードされるたびに数字がインクリメントされます。 SDKのversion 1.2.1 からimages APIがパワーアップして、画像を合成することができるようになっ…

17歳教ワンライナー

いちおう思いついたものを書いておく。 何ヶ月と何日、はDate::Calcモジュールでは簡単には出せなそう。 $ perl -MDate::Calc=:all -e'$ARGV[0]+=17;printf"17歳と%d日$/",Delta_Days@ARGV,Today' 1982 12 10 17歳と3428日 追記:月と日 やっぱりDateTimeモ…

AppStore申請開始

してみた。 6/7追記 ずっとPending Contract状態だったのを放置していたら、いつの間にかAppStoreに出てたw とりあえずここをサポートURLとしているので、もし万が一ダウンロードして使ってみて下さった方がいれば、感想や要望などコメントしていただけると…

Perlの組み込み関数をワンライナーで取得する

perldoc perlfuncで見られるわけだから、それを解析すればいいかな、と、こんなヘボいワンライナーを書いた。 grep "=item" $(perldoc -l perlfunc) | perl -alne '$a{$&}++ if $F[1]=~/^[a-z]*/; END { print for sort keys %a }'そのあとで調べてみたら、…

任意の金額をちょうど支払うための最小硬貨枚数を計算するワンライナー

0〜999円の買い物に対して、釣り銭の無いよう支払うためには硬貨が最低で何枚必要か、という問題を考える。 最初に考えたものは、 perl -le'$a=pop;$a-=$_*($:=int($a/$_)),$b+=$:for(500,100,50,10,5,1);print$b'というもの。 $ perl -le'$a=pop;$a-=$_*($:…

Django Hack-a-thon Disc.8に参加してきた

先々週のGAE Hack-a-thonに引き続き、2回目のhackathon参加。 http://twisted-mind.appspot.com/django-ja-hack-a-thon-disc-8/ http://bitbucket.org/voluntas/django-ja-hack-a-thon/src/tip/disc-8.rst 自分はハンズオンBで、id:everesさんに教えていた…

sort関数を使って配列をシャッフルする

sort関数の比較操作をワンライナーで可視化してみた - すぎゃーんメモに続き、sort関数ネタ。 なんとなく、sort関数のBLOCKを出鱈目にすればshuffle的なことが出来るんじゃないのかな?と思いついて。 やっぱり既にそういう考え方はあるようで。 配列をラン…

sort関数の比較操作をワンライナーで可視化してみた

Perlのsort関数は sort BLOCK LIST というようにBLOCKを指定すると、そのBLOCK内部で$aと$bという変数同士の比較方法を指定することができる。 なので、そこにprint文を埋め込んでしまえば、sort関数の中で「対象となるLISTのどの要素とどの要素が比較されて…

GenesisLightningTalks Vol.15 に行きそびれた

初参加したVol.11から毎回欠かさず参加してきたGenesisLightningTalks。 http://wiki.somethingnew2.com/lt/index.php?Events%2F2009%2F04 なんとも残念なことに、参加予定だったのに仕事が長引いてしまい時間が間に合わず、今回は話すことができなかった…or…

Shibuya Perl Mongersテクニカルトーク#11 に行ってきた

Shibuya Perl Mongers : Shibuya Perl Mongersテクニカルトーク#11に行ってきた。Shibuya.pm初参加。 テーマは"no Perl; use x86;"と、「低レベル」な内容。 内容についてはYokohama.pmに続きid:hirataraさんのレポートが詳しいです。 今日はShibuya.pm #11…

MacのEclipseで自動生成されるJavadocのauthorを変更する

Eclipseの機能でJavadocを生成した場合、@authorには自動的にシステムのログインユーザーが使われるらしい。 これを変更する場合はeclipse.iniに以下の行を追加する。 -Duser.name=<変更したい名前>JavaDocの@authorで補完される名前を変更したい:おぼえが…

年齢確認ワンライナー

perl -MDateTime -le 'print+(DateTime->now - DateTime->new(day,pop,month,pop,year,pop))->years' <year> <month> <day>$ perl -MDateTime -le 'print+(DateTime->now - DateTime->new(day,pop,month,pop,year,pop))->years' 1982 12 10 26私は現在26歳です</day></month></year>

ワンライナーでモジュールの色んな情報を調べる

CPANでinstallしたモジュールを調べる ExtUtils::Installedを使うと調べられるらしい。 perl -MExtUtils::Installed -le 'print for ExtUtils::Installed->new->modules'ついでにバージョンも調べることができるらしい。 perl -MExtUtils::Installed -le '$x…

指定ディレクトリ以下のファイルサイズの合計を取得するワンライナー

あるディレクトリ以下にあるファイルのサイズの合計を知りたいとき。 MacならFinderから右クリック→「情報を見る」で知ることはできるのだけど、コマンドから知ることはできるのだろうか?と調べてみた。 ディレクトリ中のファイルサイズ合計値を バイト表示…

Yokohama.pm テクニカルトーク #4 に行ってきた

○○.pmへの初参加。色々なお話が聞けてよかった。 自分なりにメモを取ったりもしていたけど、id:hirataraさんのまとめがものすごく詳しいのでリンクを貼らせていただきます。 今日は Yokohama.pm の日です - 北海道苫小牧市出身のPGが書くブログ これ以上自分…

一週間を振り返る。これからを考える

今週はとても刺激的な一週間だった。 月:想い出横町→渋谷でPerlな方々と 火:大和路でこれまたPerlな方々と 水:吉祥寺でMitaka.rbな方々と 木:OOPJogで皇居ラン 金:Yokohama.pm 毎日新しいヒトと会って、話して、酒を飲んで、笑った。MOOカードもたくさ…

remote_apiを使ってみた

ドキュメントからリンクが見つけられなかったけど、python版だけなのかなコレ? http://code.google.com/intl/en/appengine/articles/remote_api.html "Creating an interactive console"の例の通りにappengine_console.pyを作って実行しても動かない。 % py…

GAE Hack-a-thon Disc.3に行ってきた

「hackathon」と名のつくものには初めての参加。ドキドキでした。 http://twisted-mind.appspot.com/gae-hack-a-thon-disc-3/ 今回は事前ミーティングである程度のトピックを絞り、それぞれに興味をもったものに集まってチームを組んで作る、という形式だっ…

閏年判定ワンライナー

久々のワンライナーネタ。 http://d.hatena.ne.jp/minsaa/20090406/1238987334を読んでて思いついたので。 以下、グレゴリオ暦を使うという前提で。 条件分岐を連ねるならPerlでは三項演算子かな?閏年のときだけ1を返すようにしてみた。 perl -le 'print +(…

zshでsvnコマンドを使ったときに不具合が出た場合の対処

どうもzshでsvnコマンド使おうとすると _arguments:comparguments:303: invalid argument: ARGとかいうのが出まくってすごく使いづらく、でもまぁ動くからいいか、と思ってたんだけどやっぱり気になるので調べてみたところ、対処法発見。 http://webtech-net…

テオ・ヤンセンのビーチアニマルの動きをGDモジュールによるGIFアニメで作った

GDモジュールでGIFアニメを作ってみた - すぎゃーんメモの続編。 まぁビーチアニマルの動きを表現しているものは検索すればたくさん出てくるのだけど、 (http://video.google.co.jp/videosearch?q=theo%20jansen&lr=lang_ja&oe=utf-8&rls=org.mozilla:ja-JP-…

三角形の2点の座標と各辺の長さから、残る1点の座標を求める

下図△ABCの、AとBの座標、そして各辺の長さが分かっているときに、点Cの座標を求めるには。 点Aと点Bからの距離がそれぞれわかっているので、円の方程式を使って解くことはできる。 とすると これを解けば座標は出るだろうけど、なんともめんどくさい。 他に…

メソッドの引数や返り値を調べる

指定したクラスの、実装されているメソッドを列挙する - すぎゃーんメモの、続きのようなもの。 クラスに実装されているメソッドの一覧を取り出すことはできたので、今度は一つ一つのメソッドについての詳細を調べる。 例えばNSIndexPathの中にある"initWith…

指定したクラスの、実装されているメソッドを列挙する

#import <Foundation/Foundation.h> #import <objc/runtime.h> int main(int argc, char *argv[]) { NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init]; unsigned int i, count; Method *methods; Class target_class = [NSIndexPath class]; // ターゲットのクラス // インスタンスメソッ</objc/runtime.h></foundation/foundation.h>…

GDモジュールでGIFアニメを作ってみた

テオ・ヤンセン展に行って衝撃を受け、あのビーチアニマルの足の機構の動きを自分で何とか表現できないか?と思いグラフィック系をちょっと弄ってみた。 何をどうすればいいのかサッパリ分からず、どういうライブラリを使えばいいのかも分からないまま、「GD…

フィボナッチ数ワンライナー

これは自分ではなかなか思いつきそうにない。 Rubyがわからない - Cozy Ozy より $ perl -le'print$a+=$!=$a-$!for--$!..-2+pop' 10 1 1 2 3 5 8 13 21 34 55 NMTnet|404 Not Found エラー より $ perl -le'print$"=($a+=$")-$"for++$a..pop' 10 1 1 2 3 5 …