ニャルラトホテプ言語が難しすぎるので中間言語から変換するものを作った。

code

このニャルラトホテプ言語 GitHub - masarakki/nyaruko_lang: いつもニコニコあなたの隣に這いよる混沌ニャルラトホテプ言語ですっこの言語かけそうもないので、中間言語？のBrainFuckで書くと変換できるようにした。でもBrainFuckも書けません。 bf2nyaru…

2011-07-17

ログをたくさん残すクローラ

code

いつの間にか、hatenaでソースが見やすくなっていた。 #!/usr/bin/perl use AnyEvent::HTTP; while(1){ my $c=AnyEvent->condvar; for (0..9999){ $c->begin;http_get($ARGV[0],sub{$c->end;});} $c->recv;}

2008-12-05

ID抽出とカウント

code

１日分の.datを読み込ませて cat hoge.dat|perl idcount.pl|sort|uniq|wc #!/usr/bin/perlwhile(){ if ($_=~/ ID:([\w\/\+]+)/){print "ID:$1\n";} }

2008-06-27

sshでリモートバックアップ

code

パスワードなしのdsaで認証を通してやる必要があります。 ssh_baclup.pl target.list #!/usr/bin/perl $SERVER='hogehoge@192.168.1.2'; main(); exit(); sub main{ my @lists=read_target($ARGV[0]); for(@lists){ my ($target,$savename)=split(/,/,$_,2);…

2007-08-29

code memo

code

cat hoge7.txt|perl -e 'while(){$_=~/\d{7}/;print $&,"\n";}'謝肉祭が消えた。

2007-08-20

utf16のコード表を作ったときのプログラム

code

テスト用に作成したのでメモ。 use Encode; print_utf16_table();sub print_utf16_table{ for my $upper(0..4095){ my $tmp=sprintf("%04X",$upper)."0 "; Encode::from_to($tmp,'ascii','UTF16-BE'); print $tmp; for my $lower (0..16){ my $code=pack('n'…

2007-08-15

FizzBuzz

code

うちの会社でも、コードサンプルの提出と評価が入社試験の一部になっている。普通に募集してもだめなのはそれが理由です。どうしてプログラマに・・・プログラムが書けないのか? Fizz-Buzz問題とは - はてなキーワード http://d.hatena.ne.jp/yoosaki/20070…

2007-01-06

perlのチェック

code

上から順番に弱・中・強 perl -cw test.pl perl -cw -Mstrict test.pl perl -MO=Lint,All test.pl

2006-11-28

perlで最大表現できる整数

code

999999999999999 perl -e "print 999999999999998+1,999999999999999+1" これ以上は浮動小数点演算。 2^25

2006-11-26

見るだけだったGUIで

code

表示するだけだったら、定番のProcessWalkerでhttp://www.vector.co.jp/soft/winnt/util/se221254.html結果はGUIです。 Idle Process 0 N/A 16,384 0 1070:43:24.953 N/A 2 0 N/A System 8 NT AUTHORITY\SYSTEM 28,672 28,672 7:39:41.328 N/A 43 423 N/A LS…

2006-11-26

tasklist.exe

code

XPではtasklist.exeで出てくる内容と比較してみようタスクリスト詳細表示 $ tasklist /V|headイメージ名 PID セッション名セッション# メモリ使用量状態ユーザー名 CPU 時間ウィンドウタイトル ========================= ====== ================ ===…

2006-11-26

Cygwinのps

code

Windowsでpsコマンドを利用する場合は普通のUNIX系のpsとはオプションが異なる ps auwwxとかしてもまともに出てこないので。 ps -W これが正解。結果は以下のようなかんじ $ ps -W |head PID PPID PGID WINPID TTY UID STIME COMMAND 4 0 0 4 ? 0 04:24:48 *…

2006-11-23

日付表示

code

よく使うのでメモ #!/usr/bin/perl{ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $mon++;$year+=1900; print "$year/$mon/$mday $hour:$min:$sec\n"; }

2006-11-07

今日出来なかったコード

code

Windows等の64bitタイムスタンプを年月表示で表示する。64bit timestampのLinuxでの取得方法。

2006-11-07

ちょっとブルートフォース

code

#!/usr/bin/perluse Digest::MD5 qw(md5 md5_hex md5_base64);; use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);;$H1="5A95ACEBD94B20575779986212690D69"; $H2="6136F090C1EF42DBC7B34B12A83A04F19692BB29";$H1=pack("H*",$H1); $H2=pack("H*",$H2);for(0…

2006-11-07

URIデコード

code

#!/usr/bin/perlwhile(){ $_ =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg; print $_; }

2006-06-02

16進表記のIPアドレスとポートを数字に変える

code

#!/usr/bin/perl # HEX2IPaddrprint unpack("C",pack("H*",substr($ARGV[0],0,2))),"."; print unpack("C",pack("H*",substr($ARGV[0],2,2))),"."; print unpack("C",pack("H*",substr($ARGV[0],4,2))),"."; print unpack("C",pack("H*",substr($ARGV[0],6,2…