Logo

Programming-Idioms

  • Groovy
  • PHP
  • Perl

Idiom #292 Write "Ni Hao" in Chinese to standard output in UTF-8

Write "Hello World and 你好" to standard output in UTF-8.

use utf8;
binmode STDOUT, ':utf8';

print('Hello World and 你好');

The import use utf8 tells perl that your script is encoded in utf8. binmode sets the encoding for STDOUT to utf8. If outputting to the console, you need to chcp 65001 to set the UTF-8 code page, otherwise the glyphs will be wrong.
  use iso_fortran_env

  integer, parameter :: ucs4  = selected_char_kind ('ISO_10646')
  character(kind=ucs4,  len=30) :: hello_world
  hello_world = ucs4_'Hello World and ' &
                // char (int (z'4F60'), ucs4)     &
                // char (int (z'597D'), ucs4)

  open (output_unit, encoding='UTF-8')
  write (*,*) trim (hello_world)

Uniccode characters are entered by their codepoint here. The output unit is set to UTF-8 by the open statement.
New implementation...
< > ⌨
tkoenig 
binmode STDOUT, ':utf8';

print('Hello World and 你好');
  integer, parameter :: ucs4  = selected_char_kind ('ISO_10646')
  character(kind=ucs4,  len=30) :: hello_world
  hello_world = ucs4_'Hello World and ' &
                // char (int (z'4F60'), ucs4)     &
                // char (int (z'597D'), ucs4)

  open (output_unit, encoding='UTF-8')
  write (*,*) trim (hello_world)
fmt.Println("Hello World and 你好")
  {$IFDEF WINDOWS}
  SetTextCodePage(Output, CP_UTF8);
  SetConsoleOutputCP(CP_UTF8);
  {$ENDIF}
  writeln('Hello World and 你好');
print('Hello World and \u4f60\u597d')

print('Hello World and 你好')

puts "Hello World and 你好" 
println!("Hello World and 你好")