camel

添鐃緒申箸鐃緒申鐃緒申鐃所、鐃緒申鐃順う鐃緒申utf8 pragma鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里砲鐃緒申鐃緒申鐃緒申鐃淑ので￥申

鐃熟わ申鐃駿にっわ申# - Web::Scraper鐃緒申鐃緒申!
my $left = decode_utf8('鐃緒申'); 
my $right = decode_utf8('鐃緒申');

鐃緒申鐃緒申鐃緒申廛箸鐃�UTF-8鐃叔書かわ申討鐃緒申鐃緒申鐃熟￥申鐃緒ざ鐃緒ざdecode_utf8('鐃緒申謄鐃緒申');鐃夙わ申鐃緒申鐃所、鐃叔緒申鐃�use utf8;鐃夙わ申鐃銃わ申鐃緒申鐃塾わ申鐃夙￥申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃初か鐃祝わ申鐃暑た鐃緒申法鐃緒申焚鐃緒申鐃�code snippet鐃薯示わ申鐃緒申

#!/usr/local/bin/perl
use strict;
use warnings;
use Encode ();
use Devel::Peek;
{
    use utf8;
    my $name = '鐃緒申鐃緒申鐃緒申';
    warn Encode::is_utf8($name)+0;
    Dump $name; 
}
{
    use bytes;
    my $name = '鐃緒申鐃緒申鐃緒申';
    warn Encode::is_utf8($name)+0;
    Dump $name; 
}

1 at dankogai.pl line 9.
SV = PV(0x1802060) at 0x1820ce8
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK,UTF8)
  PV = 0x6018e0 "\345\260\217\351\243\274\345\274\276"\0 [UTF8 "\x{5c0f}\x{98fc}\x{5f3e}"]
  CUR = 9
  LEN = 12
0 at dankogai.pl line 15.
SV = PV(0x18020c0) at 0x1821b38
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x613630 "\345\260\217\351\243\274\345\274\276"\0
  CUR = 9
  LEN = 12

鐃緒申鐃銃わ申鐃縮り、utf8 pragma鐃緒申lexical scope鐃淑ので￥申鐃宿緒申的鐃祝逸申鐃緒申鐃緒申鐃術わ申鐃緒申鐃緒申鐃叔わ申鐃暑。鐃緒申辰謄鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申匹鐃�UTF-8鐃叔書かわ申討鐃緒申鐃緒申蕁�use strict;鐃緒申use warnings;鐃塾わ申鐃緒申鐃緒申鐃緒申use utf8;鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申鐃緒申箸茲わ申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃淑みに￥申utf8 pragma鐃緒申鐃循駕申鐃叔は￥申鐃緒申謄鐃緒申鐃緒申鐃緒申任呂覆鐃緒申鐃緒申鐃旬ワ申名鐃祝わ申Unicode鐃緒申箸鐃緒申鐃緒申箸鐃緒申鐃緒申鐃暑。

#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;

{
    package 鐃緒申;
    sub 鐃緒申{
        my $鐃術ッワ申鐃緒申鐃緒申 = shift;
        bless {}, $鐃術ッワ申鐃緒申鐃緒申;
    }
    sub 鐃緒申{
        my $鐃緒申鐃緒申鐃緒申 = shift;
        $鐃緒申鐃緒申鐃緒申->{鐃緒申} = shift if @_;
        $鐃緒申鐃緒申鐃緒申->{鐃緒申}
    }

    sub 名{
        my $鐃緒申 = shift;
        $鐃緒申->{名} = shift if @_;
        $鐃緒申->{名};
    }
    sub 鐃緒申名{
        my $鐃緒申 = shift;
        $鐃緒申->{鐃緒申} . $鐃緒申->{名};
    }
}

my $鐃緒申 = 鐃緒申->鐃緒申();
$鐃緒申->鐃緒申('鐃緒申鐃緒申');
$鐃緒申->名('鐃緒申');
binmode STDOUT, ':utf8';
print $鐃緒申->鐃緒申名, "\n";

Enjoy!

Dan the Just Another PerlUnicode Hacker