sort コマンドのセパレータをタブにするには「-t $'\t'」
sort コマンドのセパレータをタブにするには「-t $'\t'」 2013-03-07-1 [Tips] Unix系OSの sort コマンドでセパレータをタブ文字にする方法。 ドルとシングルクオートで逆スラとティーを囲む。 sort -t $'\t' ... いつもやり方を忘れちゃうのでここにメモしておく。 sort (Unix) - Wikipedia, the free encyclopediaより： $ sort -k2,2 -t $'\t' phonebook Doe, John 555-1234 Fogarty, Suzie 555-2314 Doe, Jane 555-3214 Avery, Cory 555-4132 Smith, Brett 555-4321 なお、Perl ではセパレータ指定は '\t' でOK。 perl -F'\t' -ane 'print $F[
[を] ImageMagick でGIFアニメ
ImageMagick でGIFアニメ 2008-08-17-1 [Tips][Software] ImageMagick[2008-08-15-3] で GIF アニメを作る手順。 「フリーソフトで快適生活 : ＩｍａｇｅＭａｇｉｃｋ」 (http://webtool.exblog.jp/1049634/) を参考に。 複数の画像を指定して一つのアニメーションGIFファイルを作ってみる。 元となる複数の画像： % ls *.JPG P1040094.JPG P1040096.JPG P1040098.JPG P1040100.JPG P1040095.JPG P1040097.JPG P1040099.JPG P1040101.JPG これらを指定してアニメーションGIFに変換： % convert -delay 50 -loop 0 *.JPG animation.gif って、ファイ
幅優先探索で迷路の最短経路を探す
幅優先探索で迷路の最短経路を探す 2010-01-14-4 [Algorithm][Programming] 迷路の最短経路を探すプログラムを作成するという問題について。 - 人材獲得作戦・４ 試験問題ほか (人生を書き換える者すらいた。) http://okajima.air-nifty.com/b/2010/01/post-abc6.html これは単なる幅優先でOKですね。 足跡を記録していき、すでに別の子が通った道にぶつかるか（足跡の有無で判定）、行き止まりに到達したら枝狩り。 幅優先なんだからこれで見つかるのが最短経路。 後からの「最短性のチェック」は不要です。 「アルゴリズム知らないとできない」とか以前の問題で、正式にプログラミングの基礎を学んだ人ならできて当たり前の問題です。ピンと来ない人は、ポインタわからない、再帰わからない人と同列かなあ。 バリバリプログラミングからは一線
笑い顔顔文字APIを作りました
笑い顔顔文字APIを作りました 2009-04-12-2 [Release][Programming][Neta] goo の『「大笑い感」が伝わる顔文字ランキング』、面白いですね。 - 「大笑い感」が伝わる顔文字ランキング (goo ランキング) http://ranking.goo.ne.jp/ranking/092/laugh_kaomoji/ これを見て、笑い顔顔文字APIを作りました。 アクセスするたびに笑い顔がランダムでXMLで帰ってきます。 - 笑い顔顔文字API ttp://mimitako.net/api/warosuapi.cgi http://yapi.ta2o.net/apis/warosuapi.cgi 「format=json」で、JSON, JSONP も使えます。 (http://yapi.ta2o.net/apis/warosuapi.cgi?format
カイ二乗値で単語間の関連の強さを調べる
カイ二乗値で単語間の関連の強さを調べる 2007-09-19-1 [Algorithm][Programming] カイ２乗値を使って単語間の関連度を調べる方法。 つまり、関連語を探すときに、χ二乗値を関連度として使う。 perl によるサンプルコード (chiword.pl)。昔、勉強がてら作ったコード。 #!/usr/bin/perl use strict; use warnings; my %cnt; my $pair_num; while (<>) { chomp; next if /^\s*$/; my @list = sort split(/,/, $_); for (my $i = 0; $i < @list; $i++) { for (my $j = $i + 1; $j < @list; $j++) { next if $list[$i] eq $list[$j]; $c
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
