2002年7月30日

夏休み後半は、使い回しのビデオテープの後に残っていた「松本人志24時間大喜利」をしみじみと見て過ごす。

Catapult Deck 終了なのですか、ううむ。別にそんなことで申し訳ながることは全然ないのですが、もしその話が更新の負担になってたのならこちらこそ申し訳ないです。

短編向けの、フォームに入力された文章の文字数を数えるためのPerlのコード。こんなのでいいのかなと思いつつメモ。

sub mojisu {
  my $args = $_[0];

  #EUC-JPに変換
  &jcode'convert(\$args,'euc');

  #全角: 0xA1A1〜0xFEFE (第1バイト・第2バイトとも0xA1〜0xFE)
  #半角カナ: 0x8EA1〜0x8EDF
  #ascii: 0x20〜0x7E
  my $jp  = $args =~ tr/\x8e\xa1-\xfe/\x8e\xa1-\xfe/;
  my $asc = $args =~ tr/\x20-\x7f/\x20-\x7f/;
  return $jp / 2 + $asc;
}

• 全角も半角も区別なく1文字は1文字と数える。
• 改行等コントロールコードは数えず。

参考:

• Perlで全角文字の文字数を数えるには？
• 文字コードの話

（2002年7月30日）

北村曉 kits@akatsukinishisu.net