ヘヴィメタルプログラマー日記～メロイックサインでコードを書く日々～
今週検証したコードに感銘を受けたので記録しておく。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | <?php class Hoge{ function __construct() { $this->aaa(); $this->bbb(); // ひたすら己のメソッド実行 } function aaa(){ // 100行以上 } function bbb(){ // 100行以上 } // こんなメソッドいっぱい！ } new Hoge(); ?> |
コンストラクタにひたすらメソッドを書いてnewするだけ。最強！！
IIS5+レガシーASPが稼動しているサーバで、SQL Serverをつついて結果を返すアプリが正常に表示できない障害が発生した。
原因は未だ不明だけど、以下のASPを動かすとDLLHOSTの実メモリ、仮想メモリを食いつぶした後、inetinfoが同様にメモリを食いつぶす事象が発生した。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | <% On Error Resume Next Dim file Dim objFSO Dim objTS Dim line file = "ここで存在しないファイルパスを指定する" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(file, 1 , True) Do Until objTS.AtEndOfStream = True line = objTS.ReadLine Response.Write(line & "<br>") Loop objTS.Close Set objTS = Nothing Set objFSO = Nothing %> |
ファイルの存在チェックを行ってループに入る前に終了させれば回避できるが、こういったASPがどっかに眠っているのだろうか。
IIS5のメモリリーク防止パッチを適用しても改善されなかった。
ドコモ2009夏モデルのリファラー出力記念。
ドコモのiメニューで検索した時の検索キーワードを取得します。（たぶん）
$uriの値は実際はちょっと異なります。
1 2 3 4 5 6 7 8 9 10 11 12 | use strict; use warnings; use Perl6::Say; use URI; use URI::Escape; use URI::Query; my $uri = 'http://docomo.ne.jp/?key=%41%42%43'; my $query = URI->new($uri)->query; my $key = (URI::Query->new($query)->hash)->{key}; say uri_unescape($key); |
ドコモのドメインじゃなくてもkeyパラメータがあったらデコードしちゃいますが・・・
かれこれ10年以上稼動しているWebサーバのファイルをバックアップするために、MediaKeeperというソフトを使っていた。
メモリ512MBの環境でミラーリング完了するのに17時間もかかっていたのに、MicrosoftのRobocopyにしてから10分に短縮され、全米が泣いたわけですが、そのGUI版「RichCopy」が出てた。
RoboCopyは多機能すぎてオプションが複雑だったけど、RichCopyはかなり分かりやすくてよいです。
