camel

鐃緒申鐃純あ鐃緒申鐃緒申

length鐃舜随申鐃緒申文鐃緒申鐃緒申鐃縦刻申鐃緒申鐃緒申鐃緒申 - perl鐃初心鐃緒申BLOG - Hatena::Group::Perl
鐃緒申鐃旬醐申鐃淑醐申鐃緒申鐃緒申鐃緒申鐃緒申里傍鐃潤た鐃緒申鐃緒申隋�use encoding鐃緒申鐃緒申蠅刻申鐃�

use encoding;鐃熟￥申jperl鐃淑ど￥申鐃緒申鐃縦わ申存鐃淳わ申鐃緒申L10N鐃緒申鐃曙たperl鐃術に書かれた鐃曙ガ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申廛箸髻▲鐃緒申鐃緒申perl鐃緒申動鐃緒申鐃緒申鐃夙わ申鐃塾わ申鐃緒申里鐃緒申泙鐃緒申覆鐃緒申任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃重�鐃緒申鐃緒申鐃術わ申鐃駿わ申鐃叔はわ申鐃緒申泙鐃緒申鐃�

鐃緒申鐃塾わ申鐃緒申鐃緒申里鐃緒申箸蓮鐃緒申鐃緒申鐃�

鐃叔わ申颪い鐃緒申里任鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃夙なのでまわ申鐃書きまわ申鐃緒申

鐃緒申鐃緒申鐃緒申廛箸鐃�UTF-8鐃叔書き￥申use utf8;鐃緒申鐃緒申

鐃塾わ申鐃緒申鐃緒申鐃�Perl鐃塾わ申鐃緒申鐃緒申鐃叔わ申鐃緒申

#!/usr/bin/perl
use strict;
use warnings;
{
  my $string = "dankogai鐃緒申鐃緒申鐃緒申";
  printf "length('%s') == %d\n", $string, length($string);
}
{
  use utf8;
  my $string = "dankogai鐃緒申鐃緒申鐃緒申";
  printf "length('%s') == %d\n", $string, length($string);
}

鐃緒申鐃銃わ申鐃縮り、utf8鐃竣ラグ鐃殉わ申 lexical scope 鐃叔醐申鐃緒申鐃殉わ申鐃緒申encoding鐃竣ラグ鐃殉ではわ申鐃緒申鐃熟行わ申鐃殉わ申鐃緒申

Wide character in print鐃夙わ申鐃緒申 warning 鐃緒申鐃出てわ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申蓮鐃�UTF-8鐃夙わ申鐃銃逸申鐃緒申鐃銃わ申鐃緒申文鐃緒申鐃緒申髻▲丱鐃緒申肇鐃緒申肇蝓種申鐃夙わ申鐃銃逸申鐃獣てわ申鐃殉わ申鐃竣とわ申鐃緒申鐃駿刻申任鐃緒申鐃緒申鐃緒申鐃緒申辰鐃緒申鐃緒申鐃祝は￥申STDOUT鐃緒申UTF-8鐃緒申鐃夙リー鐃緒申任鐃緒申襪鰹申箸魘気鐃緒申鐃宿�鐃竣わ申鐃緒申鐃緒申泙鐃緒申鐃�

鐃緒申鐃夙￥申utf8鐃竣ラグ鐃殉わ申鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申屬如鐃淑醐申鐃緒申鵑�駕申文鐃緒申鐃緒申鐃叔はなわ申文鐃緒申鐃藷が駕申鐃出ワ申鐃夙わ申鐃緒申鐃塾るた鐃緒申砲蓮鐃�bytes::length()鐃緒申箸鐃緒申泙鐃緒申鐃�

鐃淑常申鐃春まわ申鐃緒申鐃緒申鐃緒申廛襪�鐃淑駕申鐃叔わ申鐃緒申

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use bytes (); # () 鐃緒申忘鐃緒申覆鐃�

my $string = "dankogai鐃緒申鐃緒申鐃緒申";
binmode STDOUT, ':utf8'; # STDOUT鐃緒申UTF-8鐃緒申鐃夙リー鐃緒申
printf "length('%s') == %d\n", $string, length($string);
printf "bytes::length('%s') == %d\n", $string, bytes::length($string);

UTF-8鐃淑鰹申鐃緒申文鐃緒申鐃緒申鐃緒申鐃宿は￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑か鐃出ワ申鐃緒申鐃緒申箸鐃緒申鐃宿緒申鐃緒申鐃緒申鐃緒申鐃緒申Encode鐃叔緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申的鐃淑わ申鐃緒申鐃緒申楼鐃緒申鐃緒申颪い鐃緒申箸鐃緒申鐃叔わ申鐃緒申

鐃宿わ申鐃緒申鐃銃も外鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃祝は￥申鐃緒申鐃緒申的鐃祝バワ申鐃緒申鐃緒申箸鐃緒申鐃宿緒申鐃緒申鐃緒申泙鐃緒申腓�鐃緒申鐃淑駕申鐃熟わ申鐃緒申鐃緒申任鐃緒申鐃�

#!/usr/bin/perl
use strict;
use warnings;
use Encode;

my $bytes = "\x95\x5C"; # 鐃緒申表鐃竣わ申Shift_JIS鐃緒申
my $string = decode "sjis", $bytes;
printf "length(\$string) == %d\n", length($string);
printf "length(\$bytes) == %d\n", length($bytes);

鐃淑わ申鐃緒申鐃緒申鐃緒申鐃駿わ申鐃緒申鐃夙わ申鐃緒申鐃夙￥申Shift_JIS鐃緒申BIG-5鐃淑どでは￥申2鐃出ワ申鐃緒申文鐃緒申鐃緒申鐃�ASCII鐃塾居申鐃醇が鐃緒申鐃緒申鐃獣てわ申鐃殉わ申鐃緒申鐃夙わ申鐃緒申鐃暑か鐃緒申任鐃緒申鐃緒申焚鐃緒申離鐃緒申鐃緒申匹鐃�Shift_JIS鐃緒申鐃緒申存鐃緒申鐃銃鰹申認鐃緒申鐃銃みてわ申鐃緒申鐃緒申鐃緒申鐃緒申

#!/usr/bin/perl
use strict;
use warnings;
use Encode;

my $bytes = "表";
my $string = decode "sjis", $bytes;
printf "length(\$string) == %d\n", length($string);
printf "length(\$bytes) == %d\n", length($bytes);

鐃緒申鐃緒申蓮鐃宿緒申鐃�SJIS表鐃緒申鐃緒申\x95\x5C鐃緒申鐃緒申丱鐃緒申鐃緒申椶鐃緒申丱奪鐃緒申鐃緒申鐃獣ワ申鐃緒申覆里如鐃�"表"鐃緒申"\x95\""鐃夙駕申瓩居申鐃銃わ申鐃殉わ申鐃緒申鐃緒申任鐃緒申鐃�EUC鐃叔はわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙�鐃緒申鐃緒申鐃淑わ申鐃塾でわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里錣�鐃緒申砲鐃緒申鐃緒申伴鐃瞬わ申佑鐃緒申鐃緒申蕁�鐃緒申鐃緒申鐃淑ワ申鐃緒申鐃緒申廛箸呂呂鐃緒申瓩�鐃緒申UTF-8鐃叔書くのわ申鐃緒申鐃緒申的鐃祝逸申鐃瞬楽わ申鐃緒申法鐃夙わ申鐃緒申鐃緒申鐃夙になわ申泙鐃緒申鐃�

use encoding;鐃叔随申鐃緒申鐃淑ワ申鐃緒申鐃緒申廛箸鐃書かなわ申

鐃夙わ申鐃緒申鐃緒け鐃緒申鐃緒申鐃緒申覆鐃緒申箸覆里鐃緒申鐃緒申抔鐃緒申鐃緒申函鐃�use encoding;鐃熟どわ申鐃緒申鐃銃わ申譴わ申鐃緒申鐃緒申鐃竣トわ申動鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃祝使わ申鐃緒申鐃緒申鐃緒申鐃淑ワ申鐃緒申鐃緒申廛箸鐃�UTF-8鐃叔書くよう鐃祝わ申鐃殉わ申鐃順う鐃緒申鐃緒申鐃緒申鐃祝なわ申襪�鐃熟わ申鐃銃わ申鐃緒申鐃緒申鐃峻刻申鐃祝わ申鐃緒申鐃緒申率鐃熟わ申鐃獣と駕申鐃緒申鐃緒申泙鐃緒申鐃�

Dan the Maintainer Thereof