#!/usr/local/bin/perl
use 5.6.0;
use Japanese;
use utf8;

# utf8のサポート状況の実験
# ※ このソースファイルは実行時には utf8 であることを期待する。
#  なので、 Japanese.pm を使う (thanks to Masahiro Mishima)
#
# [結論]
#
#  1. length は 漢字1文字を 長さ 1 と扱わない
#  2. subst  も同様
#  3. s/     は utf8文字単位で処理できるようだ

$utf8_str = 'あいう';
#Jcode::convert(\$utf8_str, 'utf8','');
print "code=", scalar Jcode::getcode(\$utf8_str), "\n";
print "length=", length($utf8_str), "\n";

@l = split( //, $utf8_str );
printf( " split // = %d\n", scalar( @l ));

$str = substr( $utf8_str, 3 );
Jcode::convert(\$str, 'euc', 'utf8' ); printf( "substr( str, 3 ) = %s\n", $str );

$str = $utf8_str;
$str =~ s/あ/ア/;
Jcode::convert(\$str, 'euc', 'utf8' ); printf( "s/ = %s\n", $str );

$str = $utf8_str;
$str =~ tr/あ-ん/ア-ン/;
Jcode::convert(\$str, 'euc', 'utf8' ); printf( "tr/ = %s\n", $str );