Kerosoft : Modus Operandi

• ラベルをキチンとつけずに散らかしていたWindows XPのセットアップCD、どれがどのライセンスの物だったかが分からなくなった時*1
• コンピュータのOSライセンスを確認したい時*2

名前

製品版

リテール、FPPともいわれる

OEM版

DSP（ハードウェアと抱き合わせ販売）、SLP(System Locked Pre-installation; メーカー製PC)など

VL版

企業など大規模インストール向けのボリュームライセンス

稼働中のマシン

OEMかどうかの簡単な調べ方

詳細な調べ方

セットアップメディア

どうやら

追記 Windows2003では 2009/01/17

• 一旦全てのIEを終了し、IEを「管理者として実行...」する

• 対象サイトを開くと、再び「このWebサイトのセキュリティ証明書には問題があります。」と文句を言われるが「このサイトの閲覧を続行する」を選ぶ

• アドレスバーがピンク赤色になっているので、「証明書のエラー」という部分をクリックし、「証明書の表示」を選ぶ

• 「証明書のインストール」をクリックする（管理者としてIEを実行しないとこのボタンが表示されない）

• 「証明書をすべて次のストアに配置する」を選び、「信頼されたルート証明機関」に切り替える*1

• 「次へ」「完了」をクリックする

• 拇印(sha1)を確認後「はい」をクリックすると「正しくインポートされました。」が表示されるのを確認する

• 管理権限のIEを終了し、一般権限で立ち上げ直す。

• 対象サイトを開いた時、「このWebサイトのセキュリティ証明書には問題があります。」が表示されないこと、アドレスバーが赤色にならないことを確認する

やりたいこと

今まで使っていた手法

#!/usr/local/bin/perl

# requireされるとき自動展開するためにダブルクォートにしておく
$tmp = << "_EOM_";
この結果は$resultになります
_EOM_

# requireのため、1;は削除できない（結構面倒な仕様）
1;

#!/usr/local/bin/perl

$result = 5*5;
require 'resource.pl';
print $tmp;

どうしたかというと

#!/usr/local/bin/perl

# シングルクォート囲みなのでこの時点では展開されないことに注意
$tmp = q|この結果は$resultになります|;
$result = 5*5;
$tmp =~ s/(\$\w+)/eval($1)/eg;
print $tmp.qq|\n|;

• $resultのような展開したい変数がいくつあっても動作すること
• requireの必要がないこと = requireを使う場合の煩雑さがない
• 展開する変数への代入を、読み込み後に行えること（requireの場合は、結果が先に分かってからrequireしないと代入されない）
• (use strict環境下で小細工しなくても普通に動く)

コンパイラ系 省略コマンド

• Usage: $ gcc prog.c
  

  # gcc
  alias gcc='mygcc'
  function mygcc(){
      pn=`echo $1 | sed -e 's/\.cp\?p\?//'`
      command gcc -Wall -lm -o $pn $*
  }
  # g++
  alias g++='mygpp'
  function mygpp(){
      pn=`echo $1 | sed -e 's/\.cpp//'`
      command g++ -Wall -lm -o $pn $*
  }
  # cc
  alias g++='mycc'
  function mycc(){
      pn=`echo $1 | sed -e 's/\.c//'`
      command cc -Wall -lm -o $pn $*
  }
  

プログラムコンパイルから出力をファイルに書くまで一発なコマンド

• Usage: $ start prog.c input.dat
  

  function start(){
      pn=`echo $1 | sed -e 's/\.c//'`
      command cc -Wall -lm -o $pn $1; ./$pn $2 &> $pn.result; cat $pn.result
  }
  

ファイルの中をぐるぐる検索してくれるコマンド

• Usage: $ exgrep HOGE
  

  # File grep
  function exgrep(){
      command find ./ -type f -exec grep -l "$1" {} \;
  }
  

ディレクトリ内のtarballを一気に解凍するコマンド

• Usage: $ extar *.tar.gz
  

  # Expand decompress .tar.gz
  function extar(){
      for TGZ in $@
      do
          tar zxvf ${TGZ}
      done
  }
  

追記: bashの関数名に+とか書くと怒られる 2012/04/30

$ function g++(){ echo "hogehoge"; }
-bash: syntax error near unexpected token `echo'

$ alias g++='mygpp'
$ function mygpp(){ echo "hogehoge"; }

putty.exe -load <session-name>