いつの間にか、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;}

2月25日(金) に「本当の尖閣」と題して、尖閣ビデオ流出事件で実際に行われた捜査方法を予測して詳細に解説します。 テレビやラジオでは話せなかった内容をノーカットで見られます。 実際の事件をもとに、事件が発生したときの正しい対応方法、調査方法、尖…

3DS予約可能になったらブラウザで商品画面を開いてくれるプログラムを書いた。perl 3DScheck.pl でブラック perl 3DScheck.pl A でアクアブルーの予約開始時にブラウザが開くようになっています。 ブラウザでアマゾンに事前にログインしておいてください。 a…

Devel::Sizeでは、変数のメモリサイズしか取れないので。 プログラム全体のサイズは取れないので、自プロセスの実際に使っているメモリを取る方法。 perlだけでも結構メモリを喰っています。モジュールを入れれば入れるほどメモリも食うでしょう。 #!/usr/bi…