miscellaneous/learn_wide_character/print.pl

Permalink

#!/usr/bin/env perl
# ｕｔｆ８

use utf8;

use strict;
use warnings;

print "ハロー";   # Wide character
print "ワールド"; # Wide character

open my $fh, '>', 'temp.txt' or die;
print $fh "ハローワールド"; # Wide charcter
# $fh->print("ハローワールド"); # Can't locate object method
undef $fh;