文字列を一文字ずつ分割する (全角・半角混合)

;#
;#文字列を1文字ずつ分割する (全角・半角混合)
;#

use Jcode;

#-- 分割 --#
@char = str_jfold('Hello!は日本語でコンニチワです', 1);


#-- 表示 --#
foreach my $c (@char){
	print "$c\n";
}


#----------------------------------------------#
#■指定文字数で分割する
#----------------------------------------------#
sub str_jfold{
  my $str    = shift;       #指定文字列
  my $byte   = shift;       #指定バイト
  my $j      = new Jcode($str);
  my @result = ();

  foreach my $buff ( $j->jfold($byte) ){
    push(@result, $buff);
  }

  return(@result);
}

H
e
l
l
o
!
は
日
本
語
で
コ
ン
ニ
チ
ワ
で
す