Skip to content

Instantly share code, notes, and snippets.

@yuchan
Created April 11, 2011 15:50
Show Gist options
  • Save yuchan/913740 to your computer and use it in GitHub Desktop.
Save yuchan/913740 to your computer and use it in GitHub Desktop.
文字化けしない
#! /usr/bin/perl
use strict;
use warnings;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
my ($var1, $var2, $var3) = ("波浪","ハロー", "はろー");
print "$var1\n";
print "$var2\n";
print "$var3\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment