perl -slane 'BEGIN{open F;%H=map{$k=shift@$_;map{$_=>$k}@$_}grep{@$_>1}map{[split" ",$_]}} print map{$H{$_}}@F' -- -F=/tmp/hogehoge たぶん、次ぎ見たときなんのコードか忘れているだろな。。。 ってか、データ小さかないと動かないだろこれ。全部展…

始めてbcのコマンドを使った。 ちょっと対数の値が欲しかったので、exprでできるかなと思ったらできなかった。 とりあえず、bcで計算できそうだなと思い、調べてみる。 どうやら対数はbc のオプションに -l を付けるとl(x)で 計算できるらしい。 LN=$(echo "…

my $url = q(http://www.google.com/search?num=100&hs=Dw4&hl=ja&client=opera&rls=ja&q=perl&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=); $p = index($url, "?"); print ($p < 0) ? $url : substr($url, 0, $p);さて、これはなんて表示されるでしょうか？ 答え…

また凝ってしまったので，メモ． a 1 10 a 2 20 b 2 15 b 3 25 c 1 3 c 2 7 c 3 11 c 4 13 みたいに列，行，データと並ぶ入力から ,0,1,2,3,4 a,0,10,20,0,0 b,0,0,15,25,0 c,0,3,7,11,13 みたいな表を作る場合．Excelとかでもできると思うんだけど， やり方…

なんか凝って作ってしまったので，ちょっとアップ #!/bin/sh BASE=$(basename $0) usage() { echo "Usage: $BASE [-h] [-n] [file]" exit 1; } TEMP=$(getopt -o "nh0" -n $BASE -- "$@") if [ $? != 0 ] ; then usage; fi eval set -- "$TEMP" HOST= NOT=! …

perl -lane 'if(++$T % 2){@P=@F}elsif($P[0] ne $F[0]){$,="\t";print @P,@F}' *1 ちなみに $ cat F.pm package F; use Switch; sub import { switch($_[1]) { case m/^(c|com)$/i { $,="," } case m/^(s|spc)$/i { $,=" " } case m/^(t|tab)$/i { $,="\t" …