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 PDF
  http://www.r.dl.itc.u-tokyo.ac.jp/~nakagawa/resource/termext/NL.pdf 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