Perl
なんで、こんなことしているか分からんが、作ってしまった。。。正式なサイトは http://www.jr.cyberstation.ne.jp/vacancy/Vacancy.html 何だけど、なんとなく一括してみたかったから、ストレス発散もかねて作ってみたｗ # ちなみに、サイトに負荷がかかる…
hadoop のシェルスクリプトで， THIS="$0" while [ -h "$THIS" ]; do ls=`ls -ld "$THIS"` link=`expr "$ls" : '.*-> \(.*\)$'` if expr "$link" : '.*/.*' > /dev/null; then THIS="$link" else THIS=`dirname "$THIS"`/"$link" fi done 何してるのかなと思…
perl -slane 'BEGIN{open F;%H=map{$k=shift@$_;map{$_=>$k}@$_}grep{@$_>1}map{[split" ",$_]}} print map{$H{$_}}@F' -- -F=/tmp/hogehoge たぶん、次ぎ見たときなんのコードか忘れているだろな。。。 ってか、データ小さかないと動かないだろこれ。全部展…
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とかでもできると思うんだけど， やり方…
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" …
ちょっと考えてみた。 ${$0.ord()%19}="$_ "for+qw(hacker. Perl another Just);print+grep{/. $/}map{$$_}sort+keys%:: 80文字まであと5文字だけど、難しい。。。ってか、何現実逃避してるんじゃ〜〜〜
高々，700MBのデータで重複しているものだけを出したかったのに， なんで，こんなので20G とかなってるの．（もちスワップアウト） 素直に，ばらばらに分割してsort | uniq -D のほうが早かったな.... perl -lane 'map { $h{int($_)}++ } @F; END {while(($k…
CPANパッケージ初期設定の (初めてperl -MCPAN -e shellする) ときに， Makefile.PLへの引数を PREFIX=$HOME INSTALLPRIVLIB=$HOME/lib/perl5 INSTALLSCRIPT=$HOME/bin INSTALLSITELIB=$HOME/lib/perl5/site_perl INSTALLBIN=$HOME/bin INSTALLMAN1DIR=$HOME…
もし，PS,Top,Ls -s,Statがうんともすんともいわなくなったとき． # ただし，lsはまだ有効な場合 perl -lne 's/\0/ /g; print' /proc/*/cmdline で表示できる．（どっかに書いたんだけどな...)所有者はどうやって表示させよう... ls -lが効かないとどうしょ…
どうやらPerlはプログラムコードもシリアライズできるらしい．たぶん，スクリプト OR バイトコード のままシリアライズ化して，デシリアライズはevalで評価するんでしょ．サンプル：Hello World perl -MStorable -e '$Storable::Deparse = 1; $a = sub { pri…
