Perl 5.8.0 以上で使えるエンコード

# via PerlIO
open my $in,  "<:encoding(shiftjis)", $infile  or die;
open my $out, ">:encoding(euc-jp)",   $outfile or die;
while (<$in>) {
    print $out $_;
}

# via from_to
open my $in,  "<", $infile  or die;
open my $out, ">", $outfile or die;
while(<$in>) {
    from_to($_, "shiftjis", "euc-jp", 1);
    print $out $_;
}

出現頻度と連接頻度に基づく専門用語抽出

  http://www.r.dl.itc.u-tokyo.ac.jp/~nakagawa/academic-res/jnlp10-1.pdf
  http://www.r.dl.itc.u-tokyo.ac.jp/~nakagawa/resource/termext/NL.pdf

Solaris でディスクの追加方法 (スライス変更)

- 事例:
  /disk2 に未使用のマウントポイントがある．
  /opt/local のディスク容量が 100%
  /opt/local を /disk2 に割り当てたい

- /etc/vfstab を確認する
  /dev/dsk/c0d0s7  /dev/rdsk/c0d0s7  /disk2  ufs  2  yes  logging

- /opt/local のファイルを /disk2 にコピー/移動する．

# (cp -Rp|mv) /opt/local/* /disk2

- /disk2 をマウントポイントから外し，/opt/local をリネーム/削除する

# umount /disk2  (*1)
# mv /opt/local /opt/local2

  (*1) umount: /home2 使用中です．
       umount: /home2 busy
       と表示されたら，一度ログアウトする．
       ただし，/opt/local/bin 等にログインシェルがある場合，ログインできなくなるので，
       一時的に，ログインシェルを /bin/sh 等に変更しておく

- /etc/vfstab を変更する

/dev/dsk/c0d0s7  /dev/rdsk/c0d0s7  /opt/local  ufs  2  yes  logging

- マウントする

# mount /opt/local