coding my life

perl-users.jp - 日本のPerlユーザのためのハブサイト というのを id:yappo が立ち上げてくださいました。

www 上の日本語で書かれている perl 情報は本当に玉石混合で困ってたので、このサイトが内容充実しつつ "perl" で検索して最初の3つぐらいになったら素敵だとおもいます。というわけで支援。

arg.c:282

bool do_open(stab,name) STAB * stab; register char * name; { FILE * fp; int len = strlen(name); register STIO * stio = stab->stab_io; 　 while (len && isspace(name[len-1])) name[--len] = '\0'; if (!stio) stio = stab->stab_io = stio_new(); if (stio->fp) { if (stio->type == '|') pclose(stio->fp); else if (stio->type != '-') fclose(stio->fp); stio->fp = Nullfp; } stio->type = * name; if (* name == '|') { for (name++; isspace(* name); name++) ; fp = popen(name,"w"); } else if (* name == '>' && name[1] == '>') { for (name += 2; isspace(* name); name++) ; fp = fopen(name,"a"); } else if (* name == '>') { for (name++; isspace(* name); name++) ; if (strEQ(name,"-")) { fp = stdout; stio->type = '-'; } else fp = fopen(name,"w"); } else { if (* name == '<') { for (name++; isspace(* name); name++) ; if (strEQ(name,"-")) { fp = stdin; stio->type = '-'; } else fp = fopen(name,"r"); } else if (name[len-1] == '|') { name[--len] = '\0'; while (len && isspace(name[len-1])) name[--len] = '\0'; for (; isspace(* name); name++) ; fp = popen(name,"r"); stio->type = '|'; } else { stio->type = '<'; for (; isspace(* name); name++) ; if (strEQ(name,"-")) { fp = stdin; stio->type = '-'; } else fp = fopen(name,"r"); } } if (!fp) return FALSE; if (stio->type != '|' && stio->type != '-') { if (fstat(fileno(fp),&statbuf) < 0) { fclose(fp); return FALSE; } if ((statbuf.st_mode & S_IFMT) != S_IFREG && (statbuf.st_mode & S_IFMT) != S_IFCHR) { fclose(fp); return FALSE; } } stio->fp = fp; return TRUE; }

まとめ

• ファイルがすでに開かれてたらいったん閉じる
• open 引数の記号列でfopen時の書き込み・追記などを制御する。記号列とファイル名の間にはスペースを入れてもいい。
  • | 書き換え
  • >> 追記
  • > 書き換え (但しファイル名が - の場合は標準出力)
  • < 読み込み (但しファイル名が - の場合は標準出力)
• 引数の末尾が | で終わっている場合は popen
• 記号列自体がない場合はファイル名が指定された読み込みと同じ扱い

2008-05-18 1:13 追記

おもいっきり誤読してた。

• | 書き込みモードで popen
• 末尾が | の場合は読み込み専用モードで popen

この2日間でブログの炎上というものをはじめて経験して、その対応でさまざまなチューニングを行いました。 MovableTypeが重いのは有名なんですが、まあここまでラッシュでくるとは思わなかった。しかも合間にIP Spoofing?と思われる攻撃もあったりもりだくさん。田代砲も2年ほど前に経験してるので、だいぶ度胸がついてきました ;-)

休日でほかの技術者がいない＆会議がないのをいいことに、思いっきりチューニングができて満足です。apacheの設定から、mtの設定、tableレイアウトなhtmlをdiv+cssに直したり。文字化けではまって php.ini をいじるとなぜか直ったり。

こういうチューニング結果の様子をみてる合間に、MovableType のプラグインをいじったりしてました。エントリについたコメントを分割表示(Paginate)するプラグインがどんなにgoogleしても見つからず。これを作るとみんなうれしいのかも。

しかしperlは苦手なんで。。いまいちやる気おきないなあ。myとかuseとか、気持ち悪いのはその辺だけなんだけど。