Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
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.
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.
print('Hello World and \u4f60\u597d')
print('Hello World and 你好')
puts "Hello World and 你好" println!("Hello World and 你好")